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Vorwort 

Dieses Buch bietet Ihnen eine Fülle von Informationen, die einfach uner¬ 
läßlich sind, wenn Sie Ihren Computer nicht nur als Black Box benutzen 
wollen, sondern seinen Aufbau kennenlernen möchten. Nur so sind Sie in 
der Lage, die Fähigkeiten Ihres Systems voll auszuschöpfen. Dies gilt 
besonders dann, wenn Sie gerade anfangen, in Maschinensprache zu pro¬ 
grammieren. 

Das ROM des Schneider CPC stellt eine gut nutzbare Bibliothek von 
Unterprogrammen dar, deren effiziente Nutzung jedoch genaue Informa¬ 
tionen erfordert. Diese Informationen haben wir in dem vorliegenden Buch 
zusammengestellt. Darüber hinaus erschien es uns zu einem umfassenden 
Verständnis notwendig, die Details und Hintergründe näher zu erläutern. 

So beginnt das Buch mit einer genauen Beschreibung der Hardware des 
Schneider Computers. In diesem Teil haben wir alle Chips, die für den 
Programmierer von Interesse sind, eingehend besprochen und ihne Funktio¬ 
nen und Programmierung dargestellt. 

Im zweiten Teil werden Sie dann in einige - für den CPC relevante - 
Strukturen und Techniken eingeführt. Die Darstellung baut auf Strukturen 
auf, die aus Basic bereits bekannt sind, und ist auch über die Grenzen des 
CPC hinaus ganz allgemein für das Entwerfen und Verstehen von Software 
wichtig. 

Die beiden folgenden Teile sind ganz der genauen Erläuterung der 
Firmware des CPC gewidmet. Die wichtigsten Grundlagen und Zusammen¬ 
hänge des Betriebssystems und des Basic sind hier zusammengefaßt und 
erklärt. Dies beginnt bei der Beschreibung der wichtigen Routinen und 
geht bis zur Darstellung der mathematischen Grundlagen der Fließkomma- 
Operationen. 

Es schließt sich der fünfte Teil mit Tabellen zu den ROM-Listings an, auf 
den besonders der Maschinen-Programmierer ständig zurückgreifen wird. 
Sie fassen alle wichtigen Einsprünge in das Basic und das Betriebssystem 
auf einen Blick zusammen und werden so zu unentbehrlichen Werkzeugen. 

In Teil sechs folgen dann die Listings des Basic- und Betriebssystem-ROMs 
des CPC 464 sowie eine Zusammenstellung der Änderungen beim CPC 664 
und CPC 6128. Zum vollständigen Verständnis und zur Nutzung der ROMs 
stellen diese Listings unschätzbare Dokumente dar. Sie sind vollständig 
dokumentiert und jede Routine ist mit ihrer Parametrisierung dargestellt. 
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Den Abschluß bilden dann die Anhänge, mit allen wichtigen Daten über 
die Bausteine des Schneider Computers, sowie der Schaltplan des CPC. 

Wir hoffen, mit unserem Konzept ihren Wünschen gerecht geworden zu 
sein. Für Anregungen und Kritik sind wir jederzeit offen und dankbar. 

Bremen, Juli 1985 

Die Autoren 
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1 Hardwarebeschreibung 


1.1 Prozessor Z80A 

1.1.1 Einführung 

Der Z80 von Zilog ist ein weit verbreiteter 8-Bit-Mikroprozessor, der auch 
das Herzstück des CPC bildet (siehe Anhang Al.2). Wir wollen hier nicht 
auf die Programmierung dieses Prozessors eingehen, da dies allein schon ein 
Buch füllen würde. Wir wollen vielmehr kurz einen Überblick über die 
Möglichkeiten dieses Chips geben, wobei wir grundlegende Kenntnisse in 
der Maschinenprogrammierung voraussetzen. 

Der Prozessor ist das Gehirn eines Computers, ist der Baustein, der die 
Programme ausführt. Innerhalb des Computers arbeitet er zu diesem Zweck 
mit Komponenten zur Speicherung und Ein-/Ausgabe von Programmen 
und Daten zusammen. Die Kommunikation mit diesen Einheiten wird über 
drei voneinander getrennte Sätze von Leitungen abgewickelt, den "Bussen". 
An einen Bus sind immer alle Einheiten angeschlossen, was ihn zu einer 
effektiven Möglichkeit deren Verbindung macht. Grundsätzlich unterschei¬ 
det man in einem Computer wie dem CPC drei Busse: Adreß-, Daten- und 
Steuerbus. 

Der Speicherbereich dieses Computers ist eingeteilt in Speicherstellen, von 
denen jede genau ein Byte speichern kann. Diese Speicherstellen sind 
durchnummeriert und ihre jeweilige Nummer nennt man Adresse. Der 
Prozessor kann auf ein Byte zugreifen, indem er dessen Adresse über den 
Adreßbus an die Speicherbausteine sendet. Diese lesen daraufhin das 
adressierte Byte und geben es aus bzw. schreiben ein von ihm gesandtes 
Byte in die entsprechende Speicherstelle. Das Byte selber wird auf dem 
Datenbus übertragen. Hier läßt sich erkennen, daß der Datenbus in zwei 
Richtungen benutzt werden kann (vom und zum Prozessor, man nennt dies 
bidirektional), während der Adreßbus nur Signale vom Prozessor an den 
Speicher überträgt (unidirektional). Um nun aber festzulegen, in welche 
Richtung er den Datenbus benutzen möchte, gibt der Prozessor zusammen 
mit der Adresse noch weitere Signale auf zwei Leitungen des Steuerbusses 
(der Schreib- und der Leseleitung) aus. Neben diesen Signalen umfaßt der 
Steuerbus einige andere Signale, die zur Steuerung der Aktivitäten auf den 
Bussen dienen - z.B. den Systemtakt. 
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Ebenso wie der Speicherbereich ist auch der Ein-/Ausgabebereich in Bytes 
auf geteilt und durchnumeriert. Der Zugriff kann also auch hier mit Hilfe 
von Adreß- und Datenbus erfolgen. Um nun zu vermeiden, daß sich 
Speicher- und Ein-/Ausgabebausteine gleichzeitig von einer Adresse auf 
dem Adreßbus angesprochen fühlen, gibt es zwei Signale des Steuerbusses, 
die zur Auswahl des entsprechenden Bereiches dienen. 

1.1.2 Aufbau und Register des Z80A 

Der Z80A besitzt interne Speicherstellen, Register genannt, die einen 
schnelleren Zugriff erlauben als der in zusätzlichen Chips vorhandene ex¬ 
terne Speicher. Sämtliche Operationen im Z80A laufen über ein oder 
mehrere Register ab. Soll zum Beispiel der Inhalt einer Speicherstelle in 
eine andere übertragen werden, so kann dies nur in zwei Schritten 
geschehen: Der Inhalt der ersten Speicherstelle muß in einem Register 
zwischengespeichert und dann vom Register in die zweite Speicherstelle 
geschrieben werden. 

Der Z80A besitzt 22 verschiedene Register mit zum Teil sehr unter¬ 
schiedlichen Aufgaben. 

o Der Inhalt des Programmzählers (PC) ist die vom Prozessor während 
der Programmausführung gerade abgearbeitete Adresse. Da er eine 
Adresse enthält, ist er ein 2-Byte- bzw. 16-Bit-Register. 

o Der Akkumulator (A) ist ein 8-Bit-Universal-Register. Die meisten 
arithmetischen und logischen Operationen laufen unter Zuhilfe¬ 
nahme des Akkumulators ab. Da er für viele Operationen uner¬ 
läßlich ist, ändern sich Inhalt und Bedeutung des Inhalts des Akku¬ 
mulators sehr oft. 

o Ebenso wie der Akkumulator, sind auch die Register B, C, D, E, H 
und L 8-Bit-Register. Mit ihnen können jedoch nur ein Teil der 
mit dem Akkumulator möglichen Operationen ausgeführt werden. 
Sie behalten ihre Werte daher auch meist über eine längere Zeit als 
der Akkumulator. 

o Die Register B, C, D, E, H und L können auch paarweise als 16- 
Bit-Register BC, DE und HL benutzt werden. Neben 16-Bit- 
DatenwÖrtern dient besonders das Register HL auch zur 
Speicherung von Adressen. Ein 16-Bit-Wort kann über diese Regi¬ 
ster leicht in zwei einzelne Bytes zerlegt oder aus ihnen aufgebaut 
werden. 



Prozessor Z80A 17 


o Ein Register, das weder Daten noch Adressen aufnimmt, ist das 
Flag-Register (F). Ein Flag (deutsch: "Flagge") dient dazu, einen 
besonderen Zustand anzuzeigen. Jedes Flag im F-Register kann nur 
zwei Zustände annehmen und benötigt daher nur ein Bit. Von den 
acht Bits im F-Register werden lediglich sechs Bits genutzt. Wegen 
dieser bitweisen Einteilung wird das F-Register selten als ganzes 
angesprochen. Die einzelnen Flags innerhalb des F-Registers haben 
eigene Bezeichnungen. 

o Das Carry-Flag (C oder CY abgekürzt) zeigt einen Übertrag 
bei Additionen und Subtraktionen zum nächst höheren Byte 
an und wird bei bitweisen Yerschiebe-Operationen als 
Zwischenspeicher für einzelne Bits gebraucht. Es ermöglicht 
generell die Bearbeitung von Zahlen, die aus mehreren Bytes 
bestehen (z.B. REAL-Zahlen), in (durch die Registergrößen 
begrenzten) Schritten von einem oder maximal zwei Byte, 
o Das Halfcarry-Flag (H) zeigt einen Übertrag von Bit 3 zu 
Bit 4 bei einer Addition oder Subtraktion an. Zusammen mit 
dem N-Flag, das angibt, ob die letzte arithmetische Opera¬ 
tion eine Addition oder eine Subtraktion war, und dem Be¬ 
fehl DAA (Decimal ^djust /Iccumulator) kann so einfach 
mit BCD-Zahlen gerechnet werden. Im Basic-ROM des CPC 
werden diese Flags jedoch nur an einer einzigen Stelle 
benutzt. 

o Das Parity-Flag (P) und das Overflow-Flag (V) teilen sich 
ein Bit im F-Register. Wann dieses Bit entsprechend der 
Parität, also bei ungerader Anzahl von ’T'-Bits, gesetzt ist 
und wann es einen Überlauf bei einer Zweierkomplement- 
Operation bedeutet, kann nur dem Programmzusammenhang 
entnommen werden. 

o Das Zero-Flag (Z) ist immer dann gesetzt, wenn das Ergeb¬ 
nis der letzten Operation gleich null war. Bei Vergleichen ist 
es dann gesetzt, wenn die Differenz der zu vergleichenden 
Größen null ist, also Gleichheit besteht, 
o Das Sign-Flag (S) stellt schließlich das Vorzeichen (wenn im 
Zweierkomplement gerechnet wird) bzw. das höchstwertige 
Bit des Ergebnisses der letzten Operation dar. 

o Die Register A, F, B, C, D, E, H und L sind im Z80A doppelt 
vorhanden. Zwischen diesen beiden Registersätzen kann mit Hilfe 
zweier Befehle umgeschaltet werden. Den zweiten Registersatz des 
Z80A sollte man im CPC jedoch nicht benutzen, da er schon für 
die Speicherverwaltung (Banking) und Interrupts benötigt wird. 



18 Hard Warebeschreibung 


o Zwei weitere 16-Bit-Register sind die Indexregister IX und IY. Wie 
der Name Indexregister schon sagt, enthalten sie meist Adressen. 
Zeigen diese Adressen z.B. auf den Anfang einer Tabelle im 
Speicher, so können deren Werte durch Addieren von festen Zahlen 
zum Indexregister vor Generieren der endgültigen Adresse (z.B. 
IX+04) ausgelesen werden. 

o Das Refresh-Register (R), ein 8-Bit-Register, dient dazu, die 
dynamischen RAMs in bestimmten Zeitabständen fortlaufend zu 
"refreshen". Bei einem Refresh werden die Kondensatorladungen 
erneuert, die die Information speichern. Der Inhalt des R-Registers 
wird vom Prozessor fortlaufend weitergezählt. Das Register wird 
aufgrund dieser Eigenschaft beim Schreiben und Lesen des Kasset¬ 
tensignals als Zeit-Zähler benutzt. 

1.1.3 Funktionsweise des Stacks 

Der Stackpointer (SP) ist ebenfalls ein 16-Bit-Register. Mit diesem Register 
ist es möglich, Unterprogramme zu realisieren. Ein Stack (Stapel) ist so 
aufgebaut, daß die zuletzt eingegebenen Daten zuerst wieder ausgegeben 
werden, was sich gut mit einem Stapel veranschaulichen läßt. Die Eingabe 
von Daten auf den Stack nennt man kurz auch "auf den Stack legen" oder 
"pushen" (engl, to push = schieben). Analog können die Daten dann wieder 
vom Stack geholt bzw. "gepopt" werden. Realisiert wird diese Datenstruktur 
durch den Stackpointer SP. Er zeigt stets auf das oberste Element im Stack 
und wird beim Pushen und Popen herunter- bzw. heraufgezählt. 

Durch einen Stack sind daher auch verschachtelte Unterprogramme mög¬ 
lich: Beim Unterprogrammaufruf legt der Prozessor die Rücksprungadresse 
auf den Stack, während sie beim Rücksprung wieder vom Stack herun¬ 
tergenommen wird. Bei verschachtelten Unterprogrammaufrufen stapeln 
sich so die Rückkehradressen auf dem Stack. Es können aber nicht nur 
Rücksprungadressen auf den Stack gelegt werden, auch für Register ist der 
Stack ein bequemer Zwischenspeicher. Die Datenspeicherung auf dem Stack 
wird in Kapitel 2.2.1 genauer beschrieben. 

1.1.4 Interrupts 

Ein Interrupt (Unterbrechung) ist ebenfalls ein Unterprogrammaufruf. Die¬ 
ser Aufruf wird jedoch nicht durch einen CALL-Befehl veranlaßt, sondern 
hardwaremäßig durch ein über den IRQ-Pin des Z80A kommendes Signal. 
Immer, wenn dieser Pin auf "low" (null Volt) liegt, wird nach Abarbeiten 
des laufenden Befehls ein, ab der Adresse $0038 stehendes Unterprogramm 
(Interrupt-Routine) ausgeführt. So ist es möglich, Prozesse wie z.B. die 
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Tastaturabfrage im Hintergrund laufen zu lassen, während ein Basic-Pro- 
gramm ausgeführt wird. 

Die Interrupt-Steuerung wird durch Event-Blocks, Chains und die Befehle 
EVERY und AFTER auch für Basic-und Maschinen-Unterprogramme 
nutzbar (mehr darüber in den Abschnitten 1.3.5, 3.1.5, 3.4.4, 3.7.2, 3.8.7 
und dem Kapitel 4.7). Die Adresse der Interrupt-Routine kann auch über 
das Interrupt-Register (I) und ein Byte generiert werden, das durch den 
Interrupt-auslösenden Baustein auf den Datenbus gelegte wird. Dieser 
Interrupt-Modus wird sinnvoilerweise bei mehreren Interrupt-Quellen 
eingesetzt. Im Schneider CPC existiert jedoch nur eine solche Quelle: das 
Gate-Array. Die Adresse der Interrupt-Routine liegt hier durch Auswahl 
des Interrupt-Modus 1 (IM 1) stets bei $0038. 
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1.2 Videocontroller 6845 CRTC 

1.2.1 Einführung 

Die Abkürzung CRTC (Cathode Ray Tube Controller, Anhang A2.1 und 
A2.2) bedeutet übersetzt: Steuerbaustein für Kathodenstrahlröhren (z.B. in 
einem Fernseher oder Monitor). Der 6845 hat im CPC die Aufgabe, die 
Adressen zum Auslesen des Video-RAMs (in der richtigen Reihenfolge) zu 
generieren. Das Video-Signal wird jedoch nicht vom 6845 erzeugt, sondern 
vom Gate Array 20 RA 043 (siehe nächstes Kapitel). 

1.2.2 Die Pins des 6845 

DO bis D7: Durch diese Pins ist der 6845 an den Datenbus des Z80A 
angeschlossen. 

Enable (E): Dieser Pin wird normalerweise an den Prozessortakt 
angeschlossen, um den Zeitpunkt der Übernahme der auf dem Datenbus 
liegenden Daten festzulegen. Im CPC ist hier ein aus -IORD und -IOWR 
gewonnenes Signal angeschlossen, das dem invertierten, vom Z80A kom¬ 
menden, -IORQ entspricht. 

Read/Write (R/-W): Mit diesem Pin wird festgelegt, ob Daten zum oder 
vom 6845 transferiert werden. Da der Z80A dieses Signal nicht liefert und 
die Entwickler des CPC die Schaltung einfach und kostengünstig halten 
wollten, ist dieser Pin mit dem Adreßbus (Pin A9) verbunden. Es wird also 
über die Adresse ausgewählt, ob gelesen oder geschrieben wird. In der Pro¬ 
grammierung muß man daher darauf achten, nur auf solche Adressen zu 
schreiben, die auch wirklich dafür vorgesehen sind. 

Chip Select (-CS): Dieser Pin sagt dem 6845, daß eines seiner Register 
vom Prozessor angesprochen werden soll. Er ist mit dem Pin A14 vom 
Adreßbus verbunden. Der 6845 wird also von allen I/O-Adressen angespro¬ 
chen, deren 14. Bit gleich null ist. Wegen der auch bei anderen Bausteinen 
unvollständigen Adreßdecodierung sollten jedoch die übrigen Bits der 
Adresse, zumindest des Hi-Bytes, gleich eins sein. 

Register Select (RS): Ob bei einem Zugriff auf den 6845 das Adreß- oder 
das Datenregister (siehe unten) angesprochen werden soll, wird mit diesem 
Pin festgelegt, der mit dem Adreßpin A9 verbunden ist. 

7 1 rs 
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Horizontal Synchronization (HSYNC): Am Ende jeder Rasterzeile wird ein 
Impuls auf diesem Pin ausgeben, um den Anfang der nächsten Zeile zu 
synchronisieren. Dieses Signal wird vom Gate Array zur Erzeugung des 
Videosignals weiterverarbeitet. 

Vertical Synchronization (VSYNC): Dieser Pin entspricht dem HSYNC-Si- 
gnal, nur ist er für die vertikale Synchronisation am Ende eines Bildauf- 
baus zuständig. 

Display Enable (DISPEN): Durch diesen Pin teilt der 6845 CRTC dem 
Gate Array mit, wann Daten aus den Bildschirmspeicher ausgelesen werden 
müssen und wann die nicht beschreibbare Fläche des Bildschirms 
dargestellt wird. 

Refresh Memory Adresses - (MAO bis MA13): Der 6845 legt durch diese 
Pins fest, welche Adresse gerade ausgelesen werden soll. 

Raster Adresses (RAO bis RA4): Diese Pins dienen zur Adressierung eines 
Character-ROMs. Sie bestimmen die Rasterzeile innerhalb eines Zeichens, 
die gerade bearbeitet wird. 

Cursor: Falls der Cursor auf dem Bildschirm hardwaremäßig dargestellt 
werden soll, werden die Daten aus dem Bildschirmspeicher vor Generierung 
des Videosignals mit diesem Signal verknüpft. Im Schneider CPC wird der 
Cursor jedoch softwaremäßig erzeugt. 

Clock (CLK): Über dieses Signal werden alle Vorgänge im 6845 synchro¬ 
nisiert. Der CLK-Takt legt den Takt fest, mit dem die Zeichen auf dem 
Bildschirm dargestellt werden. Wenn DISPEN auf "high" ist, liegt bei MAO 
der halbe CLK-Takt an, bei MAI ein Viertel usw.. 

Light Pen Strobe (LPSTR): Wenn dieses Signal von "low" auf "high" 
wechselt, dann wird die gerade ausgelesene Bildschirmadresse zwi¬ 
schengespeichert, um eine Bestimmung der Bildschirm-Position eines 
angeschlossenen Lichtgriffels möglich zu machen. 

Reset (-RES): Dieser Pin wird benutzt, um den 6845 CRTC in den Aus¬ 
gangszustand zurückzusetzen. Ein Signal auf diesem Pin ist nur wirksam, 
wenn LPSTR auf "low" ist. Die internen Register behalten nach einem 
Reset ihren alten Wert. 

1.2.3 Register des 6845 

Der 6845 besitzt zur Speicherung der Parameter, die er für seine Aufgabe 
bentötigt, 19 interne Register. Auswählbar sind diese Register durch die 
Pins RS, -CS und R/-W. Im Schneider können sie über die I/O-Adressen 
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$BCxx, $BDxx und SBFxx angesprochen werden. Wie man sieht, ist das 
Lo-Byte der Adresse hierbei uninteressant, die Auswahl erfolgt allein über 
das Hi-Byte. Das bei $BCxx liegende Register dient als Adreß-Register. 
Hier wird die Nummer (von 0 bis 17) des Registers hineingeschrieben, auf 
das man als nächstes zugreifen möchte. Das Adreß-Register kann nicht 
ausgelesen werden. Nachdem eine Nummer ins Adreß-Register geschrieben 
wurde, kann man über die I/O-Adresse SBDxx das ausgewählte Daten- 
Register beschreiben, über die Adresse SBFxx dagegen aus ihm lesen. 
Durch diese Technik ist es möglich, 18 verschiedene Datenregister zu 
verwalten und trotzdem mit wenigen I/O- Adressen bzw. Auswahlpins (RS) 
auszukommen. 

Die Bedeutung der einzelnen Daten-Register (In die Register kann nur 
geschrieben werden, wenn nicht anders angegeben): 

0 Horizontal Total Register: In diesem Register steht die Zahl der 
Zeichen pro Zeile (minus 1) einschließlich der nicht beschreibbaren 
Randfläche. Dieses Register bestimmt damit die Anzahl der CLK- 
Takte, die vergehen, bis ein HSYNC-Signal (Horizontal Synchro- 
nization) ausgegeben wird. 

1 Horizontal Displayed Register: In diesem Register steht die Zahl der 
tatsächlich angezeigten Zeichen pro Zeile. 

2 Horizontal Sync Position Register: Hier ist die Position (in CLK- 
Takten) des HSYNC-Signals in einer Rasterzeile enthalten. Mit 
diesem Register läßt sich das ganze Bild in waagerechter Richtung 
verschieben. 

3 Horizontal Sync Width Register: Dieses Register bestimmt die 
Länge des HSYNC-Impulses in CLK-Takten. Es werden nur die 
untersten 4 Bits verwendet. 

4 Vertical Total Register: Durch dieses 7-Bit-Register wird die Zahl 
der Zeichenzeilen (minus 1) inklusive des nicht beschreibbaren 
Randes festgelegt. Mit Hilfe von Register 9 und der Frequenz des 
HSYNC-Signals (bestimmt durch Register 0) läßt sich die Frequenz 
des VSYNC-Signals (Vertical Synchronization) errechnen. Sie ist im 
CPC zu 50 Hz bzw. 60 Hz gewählt worden. 

5 Vertical Total Adjust Register: Mit diesem 5-Bit-Register kann 
eine Feineinstellung (in Rasterzeilen) des Wertes aus Register 4 
vorgenommen werden. 
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6 Vertical Displayed Register: Dieses 7-Bit-Register gibt die Zahl der 
tatsächlich angezeigten Zeichenzeilen an. 

7 Vertical Sync Position Register: Die Position des VSYNC-Signals 
(in Zeichenpositionen) wird durch dieses 7-Bit-Register festgelegt. 
Mit diesem Register läßt sich das Bild in senkrechter Richtung ver¬ 
schieben. 

8 Interlace Mode Register: Die unteren beiden Bits bestimmen, ob das 
Monitorbild im Interlace-Mode (Zeilensprung- Verfahren) aufge¬ 
baut wird. 

9 Maximum Scan Line Address Register: In diesem 5-Bit-Register 
wird die Höhe eines Zeichens in Rasterzeilen festgelegt. 

10/11 Cursor Start Register, Cursor End Register: Diese Register bestim¬ 
men Start- und End-Rasterzeile des hardw.aremäßig erzeugten Cur¬ 
sors. Im Schneider CPC wird der Cursor jedoch softwaremäßig er¬ 
zeugt. 

12/13 Start Address Register: Mit diesem 14-Bit-Register kann die Start¬ 
adresse des Bildschirmspeichers beliebig verschoben werden. 

14/15 Cursor Register: Mit diesem 14-Bit-Register kann die Cursoradresse 
gesetzt oder gelesen werden. 

16/17 Light Pen Register: Im diesem 14-Bit-Register wird die Bild¬ 
schirmadresse bei einem aufgetretenen LPSTRB-Signal abgelegt und 
kann dann ausgelesen werden. 

1.2.4 Aufbau und Abfrage des Video-RAMs 

Der 6845 ist für die Erzeugung von Zeichen auf dem Bildschirm mit Hilfe 
eines Video-RAMs und eines Zeichen-Generators im ROM vorgesehen. Im 
CPC ist er (über Register 1, 6 und 9) auf eine Zeichenhöhe von acht 
Rasterzeilen bei 25 Zeichenzeilen zu je 40 Zeichen eingestellt, womit sich 
25*8 = 200 Rasterzeilen ergeben. Dies widerspricht zunächst der maximalen 
Auflösung des CPC von 25 Zeilen zu je 80 Zeichen. 

Da der 6845 weder ein Video-Signal erzeugt, noch das Video-RAM aus¬ 
liest, wird die Breite der Zeichen auf dem Bildschirm (jedenfalls im 
Schneider Computer) nicht von ihm bestimmt, sondern vom Gate Array. 
Das Gate-Array liest bei jeder Adresse, die der 6845 liefert, zwei Bytes aus 
dem Speicher. Mit zwei Bytes lassen sich maximal 16 Punkte darstellen: Die 
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Breite eines Zeichens ist also maximal 16 Punkte, die Zahl der Punkte pro 
Zeile beträgt maximal 40*16 = 640. Damit bei jeder vom CRTC über die 
Pins MAO bis MAI3 gelieferten Adresse zwei Bytes aus dem Video-RAM 
ausgelesen werden können, müssen die Adressen mit zwei multipliziert 
werden, dies entspricht einem Verschieben um eine Position. Entsprechend 
sind die Adreß-Pins des 6845 mit dem RAM verbunden: 

Adreß-Pin entsprechend Z80A-Pin vom 6845 CRTC 


A 0 

CLK 

A 1 

MA 0 

A 2 

MA 1 

A 3 

MA 2 

A 4 

MA 3 

A 5 

MA 4 

A 6 

MA 5 

A 7 

MA 6 

A 8 

MA 7 

A 9 

MA 8 

A 10 

MA 9 

A 11 

RA 0 

A 12 

RA 1 

A 13 

RA 2 

A 14 

MA 12 

A 15 

MA 13 


Aus obiger Tabelle läßt sich ablesen, daß vom CRTC die gesamten 
64 KByte RAM des CPC 464/664 adressiert werden können. Im CPC 6128 
hat das Gate Array mit Hilfe der CRTC-Adressen hingegen nicht auf die 
gesamten 128 KByte RAM, sondern nur auf die ersten 64 KByte Zugriff 
(Bank 0 bis 3, siehe Kapitel 1.3). 

Es läßt sich eine weitere Besonderheit im CPC erkennen: Eine Matrix von 
25 mal 40 Zeichen würde einen Bildschirm-Adreßraum von 1000 CRTC- 
Adressen (2000 Bytes) benötigen. Zusätzlich zu den dafür benötigten 10 
Adreßbits MA 0 bis MA 9 sind noch die eigentlich für das Auslesen eines 
Character-ROMs gedachten Anschlüsse RA 0 bis RA 2 an den Adreßbus 
des RAMs angeschlossen. Die zur Darstellung eines Zeichen benötigten 
Punkt-Matrizen, die normalerweise aus einem ROM gelesen werden, kom¬ 
men im CPC aus dem RAM. Das heißt, daß im Video-RAM des Schneider 
Computers keine Zeichencodes ähnlich der ASCII-Codes gespeichert wer¬ 
den müssen, sondern daß jeder einzelne Punkt eines Zeichens extra gesetzt 
werden muß. Das heißt aber auch, daß beliebige Graphiken erzeugt werden 
können. Hier löst sich auch der obige scheinbare Widerspruch auf: Bei 
40*16 = 640 Punkten pro Zeile können nämlich 80 Zeichen pro Zeile 
dargestellt werden. Dem 6845 wird jedoch vorgetäuscht, zwei dieser 
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Zeichen wären zusammen ein doppelt so breites Zeichen, was in 
Speicherorganisation und Auflösung keinen Unterschied macht. 

Durch diese Organisationsform ist der Bildschirmspeicher wie folgt aufge¬ 
baut: Die ersten 2000 Bytes enthalten die Bitmuster der obersten 
Rasterzeilen der Zeichenpositionen (80 Byte pro Zeile, 25 Zeichenzeilen), 
da bei den ersten 2000 Bytes A 11 bis A 13 und damit RA 0 bis RA 2 auf 
Null liegen (durch RA 0 bis RA 2 wird die angesprochene Rasterzeile 
innerhalb eines Zeichens ausgewählt). Wenn man die ersten 2000 Bytes des 
Bildschirms mit einem Bitmuster füllt, das die Pixel weiß erscheinen läßt, 
so erscheinen auf dem Bildschirm weiße Punktzeilen im Abstand von je 
acht Rasterzeilen, da eine Zeichenposition ja acht Rasterzeilen hoch ist. 
Nach diesen 2000 Bytes folgen 48 unbenutzte Bytes. Bei den folgenden 
2000 Bytes ist A 11 und damit RA 0 auf Eins, so daß nicht mehr die 
oberste, sondern die zweitoberste Rasterzeile in jedem Zeichen ange¬ 
sprochen wird. Diese 2000 Bytes wiederholen sich abwechselnd mit 48 un¬ 
benutzten Bytes für jede Rasterzeile im Zeichen, also insgesamt acht Mal. 
Die Größe des Bildschirmspeichers beträgt somit (2000+48)*8 = 16384 Byte. 

Über die Register 12 und 13 des CRTC läßt sich die Startadresse des Bild¬ 
schirmspeichers einstellen. Die Pins MAI3 und MAI2 sind mit den RAM- 
Adreßpins A14 und Al5 verbunden. Durch die entsprechenden Bits in 
Register 12 läßt sich der Bildschirmspeicher daher in 16-KByte-Blöcken 
verschieben. Im CPC sind diese Bits normalerweise gesetzt, der Bild¬ 
schirmspeicher liegt also ab $C000. Dieser Bildschirmstart ist zusätzlich in 
der Systemvariablen SCR BASE gespeichert. Innerhalb eines 16-KByte- 
Blocks kann die Startadresse über die 10 unteren Bits des 14-Bit-Registers 
12/13, die den Pins MAO bis MA9 entsprechen, noch einmal genauer 
eingestellt werden. Da pro CRTC-Adresse jedoch zwei Bytes ausgelesen 
werden, kann diese in der Systemvariable SCR OFFSET gespeicherten 
Startadresse auch nur in Zwei-Byte-Schritten eingestellt werden. 

Wichtig ist nun, was geschieht, wenn SCR BASE auf $C000 zeigt und SCR 
OFFSET beispielsweise angibt, daß der Bildschirm erst ab SCI00 beginnen 
soll. Man könnte vermuten, daß die letzten $100 Bytes des Bildschirm¬ 
speichers dann von $0000 bis $0100 liegen. Dies ist aber nicht der Fall. Die 
beiden obersten Bits der Bildschirmadresse, A14 und A15, liegen nämlich 
immer fest. Ein Übertrag von SCR OFF$ET (entspricht MAO bis MA9) 
wird vom CRTC durch den Pin MA10 angezeigt. MA10 und MA11 sind 
jedoch im Schneider CPC gar nicht verbunden, beeinflussen also die an den 
RAMs anliegenden Adressen auch nicht. Wegen dieser fehlenden Über¬ 
trags-Möglichkeit ist der Bildschirmspeicher in acht separate 2-KByte- 
Blöcke aufgeteilt (beginnend z. B. bei $C000, $C800, $D000 usw.), von 
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denen der erste die jeweils oberste Rasterzeile der Zeichenpositionen, der 
zweite die zweitoberste Zeile usw. darstellt. 

SCR OFFSET gibt nun genau genommen für jeden dieser acht 2-KByte- 
Blöcke den Bildschirmstart an. Wenn SCR OFFSET den Wert $100 besitzt, 
so liegt die Information für die Zeichen-Position oben links bei $C100, 
$C900, $D100 usw., je nach Rasterzeile. Auch wenn der erste 2-KByte- 
Block jetzt bei $C100 zu beginnen scheint, so belegt er dennoch den 
Bereich von $C000 bis $C7FF. Den ersten 1792 ($700) Zeichenpositionen 
auf dem Bildschirm entspricht der Bereich von $C100 bis $C7FF. Die 
restlichen 2000-1792=208 (=$D0) Positionen werden mit den Bytes $C000 
bis $C0CF dargestellt. Die 48 Bytes von $C0D0 bis $C0FF bleiben frei. Die 
oben angeführte Aufteilung in jeweils 2000 benutzte und 48 unbenutzte 
Bytes ist also nur bei SCR OFFSET = 0 korrekt, in anderen Fällen liegen 
die 48 unbenutzten Bytes mitten im 2-KByte-Block, und zwar nach der 
letzten und vor der ersten dargestellten Zeichenposition. 

Aus der Einteilung in separate 2-KByte-Blöcke folgt, daß für SCR 
OFFSET nur Werte kleiner $800 gewählt werden können. SCR OFFSET 
stellt also einen 10-Bit-Wert dar. Durch Verändern von SCR OFFSET kann 
der Bildschirm relativ schnell hardwaremäßig gescrollt werden. Es brauchen 
beim Scrollen also nicht zeitaufwendig acht 2-KByte-Blöcke in sich ver¬ 
schoben zu werden. Dieser Vorteil hat jedoch auch einen Nachteil: Der 
Sprung von z.B. $C7FF bei einer Zeichenposition zu $C000 bei der 
nächsten muß gesondert berücksichtigt werden. Dieser Sprung kann (bei 
einem Start ab $C7F0 beispielsweise) auch mitten in einer Textzeile 
auf treten. Überträge zu den RA-Bits (ab Bit 10, entspricht $800) müssen 
also beim fortlaufenden Erhöhen der Bildschirmadresse wieder ausgeglichen 
werden. 
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1.3 Gate Array 20 RA 043 .. 

Das Gate Array 20 RA 043 ist ein Baustein, der viele verschiedene Bau¬ 
steine ersetzt. Es kann vom Hersteller entsprechend der Anwendung inner¬ 
halb gewisser Grenzen programmiert werden. Über den genauen Aufbau ist 
schwer etwas herauszufinden, es sind auch keine Datenblätter oder 
Beschreibungen erhältlich. Wir können diesen Baustein daher nur durch 
seinen Anschluß und seine Programmierung im CPC beschreiben. 

Das Gate Array hat im Schneider CPC verschiedene Aufgaben. Es erzeugt 
den Systemtakt und andere Takte, generiert das Videosignal und stellt einen 
Interrupt-Takt zur Verfügung. Weiterhin steuert es Speicherzugriffe auf 
RAM und ROM. 

1.3.1 Erzeugung der Takte 

Das Gate Array wird über den Pin XTAL mit einem 16-MHz-Takt ver¬ 
sorgt, den ein Quarz erzeugt. Dieser Takt dient als Basis für die vom Gate 
Array erzeugten Takte. Einen 4-MHz-Takt gibt das Gate Array als System¬ 
takt für den Z80A-Prozessor aus. Zur Steuerung der RAM-Zugriffe für 
das Videosignal und vom Prozessor dient der Takt CPU ADDR. Er hat eine 
Frequenz von 1 MHz und dient zusätzlich noch als Zeitbasis für den 
Sound-Chip AY-3-8912. Ein weiterer 1-MHz-Takt ist der Takt für den 
CRTC, der am Pin CCLK anliegt. 

1.3.2 Pinbelegung 

Im folgenden beschreiben wir die einzelnen Pins des Gate Arrays im CPC 
464 (siehe Anhang A3.1). Die GAs von CPC 664 und CPC 6128 haben noch 
zusätzliche Pins, die uns bei Drucklegung nicht bekannt waren. 

XTAL: Hier liegt der durch einen 16-MHz-Quarz erzeugte Takt an, der 
Grundlage für alle vom Gate Array erzeugten Takte ist. 

PHI: Hier liegt der 4-MHz-Systemtakt für den Prozessor an. 

VSYNC, HSYNC, DISPEN: Diese Signale kommen vom 6845 CRTC (siehe 
Kapitel 1.2). Sie sind zur Erzeugung des Videosignals durch das Gate Array 
notwendig. 

R, G, B, -SYNC: An diesen Pins wird das RGB-Videosignal ausgegeben. 
Es wird außerhalb des Gate Array für den Betrieb eines monochromen 
Monitors weiter aufbereitet. 
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-CPU ADDR: Dieses 1-MHz-Signal bestimmt, wer auf das RAM zugreifen 
darf. Wenn es auf "high" liegt, kann das Gate Array mit Hilfe der Adressen 
vom CRTC das Video-RAM auslesen, sonst hat die Z80A-CPU Zugriff auf 
das RAM. 

-RAS, -CAS: Da die Adressen in zwei Hälften an die RAMs übergeben 
werden, sind zwei Signale nötig, die bestimmen, welche Hälfte gerade 
übergeben wird. Bei einem RAM-Zugriff wird zunächst die eine Adreß- 
hälfte zusammen mit dem -RAS-Signal an die RAMs ausgeben und dann 
die andere Hälfte zusammen mit dem -CAS-Signal. Über diese Signale wird 
also das RAM überhaupt erst ausgewählt. 

-CAS ADDR: Mit diesem Signal wird zwischen den beiden Adreßbus- 
Hälften umgeschaltet, damit zusammen mit -CAS bzw. -RAS jeweils die 
richtige Hälfte an den RAMs anliegt. 

-MWE: Den RAMs wird über diesen Pin mitgeteilt, ob gelesen oder 
geschrieben werden soll. 

-RAMRD: Dieses Signal veranlaßt einen anderen Chip, die vom RAM 
kommenden Daten zu sperren, solange es "high" ist. Auf diese Weise ist es 
möglich, auch das ROM auszulesen. 

-ROMEN: Über diesen Pin wird das ROM für Lesezugriffe selektiert. 

READY: Für den Aufbau des Video-Bildes ist es unerläßlich, daß das Gate 
Array beim Auslesen des RAMs Vorrang vor dem Prozessor hat. Deswegen 
kann der Prozessor über diesen Pin, der mit dem WAIT-Eingang des Z80A 
verbunden ist, vom Gate Array in einen Wartezustand versetzt werden. Für 
den Prozessor schon aus dem RAM bereitstehende Daten, werden für die 
Dauer dieses Signals in einem externen Chip zwischengespeichert. 

-244EN: Über diesen Pin kann das Gate Array über einen anderen Chip 
auf den Datenbus des Prozessors zugreifen, an den es nicht direkt ange¬ 
schlossen ist. Das ist nötig, wenn der Prozessor in ein internes Register des 
Gate Array schreiben will. 

MAO/CCLK: Dieser Pin liefert einen 1-MHz-Takt zur Steuerung des 6845 
CRTC. Außerdem dient er als Adreßbit beim Auslesen des Video-RAMs. 

DO bis D7: Über diese Pins ist das Gate Array an den Datenbus der RAMs 
sowie an einen externen Chip angeschlossen, der über das Signal -244EN 
eine Verbindung zum Prozessor-Datenbus hersteilen kann. 
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Al4 und A15: Diese Pins sind mit den entsprechenden Pins des Prozessor- 
Adreßbusses verbunden. Sie ermöglichen das RAM/ROM-Banking und 
dienen zur Decodierung der Adresse des internen Gate-Array-Registers . 

-RESET: Über diesen Pin kann das Gate-Array in den Ausgangszustand 
zurückgesetzt werden. 

-RD: Dieses vom Prozessor kommende Signal zeigt an, daß der Prozessor 
einen Lesezugriff ausführen möchte. Das Gate Array generiert hieraus 
unter anderem -ROMEN und -RAMRD. 

-MREQ: Der Prozessor zeigt durch einen Low-Pegel einen Speicherzugriff 
auf seinem -MREQ-Pin an. Das Gate Array benutzt dieses Signal, um die 
Signale -RAMRD und -ROMEN zu generieren. 

-IORQ: Über diesen Pin erfährt das Gate Array, daß ein internes Register 
angesprochen wird. 

-Ml: Wenn der Z80A einen Interrupt bearbeitet, geht der -Ml-Pin des 
Prozessors zusammen mit dem -IORQ-Pin auf "low". Dies dient eigentlich 
dazu, um das interrupt-auslösende Gerät zu veranlassen, ein Sprungvektor- 
Byte auf den Datenbus zu legen. Das Gate Array benutzt diesen Pin nur, 
um den Interrupt zu erkennen. 

-INTERRUPT: Über diesen Pin gibt das Gate Array Interrupt-Impulse an 
den Z80A aus. Ein Impuls dauert so lange, bis das Gate Array die Behand¬ 
lung des Interrupts durch den Z80A über -IORQ und -Ml erkennt. 

1.3.3 Die Register des Gate Array 

Das Gate Array ist über die I/O-Adresse $7Fxx ansprechbar (das Lo-Byte 
der Adresse ist nicht relevant). Diese Adresse kann nur beschrieben 
werden. Die beiden obersten Bits eines an diese Adresse geschriebenen 
Bytes wählen die Nummer des Registers aus. So kann mit nur einer Adresse 
auf vier 6-Bit-Register zugegriffen werden. 

Register 0 (b7=0, b6=0) - Farb-Adreß-Register 
Register 1 (b7=0, b6=l) - Farbwert-Daten-Register 
Register 2 (b7=l, b6=0) 

bO/bl : Auswahl des MODE 

00 : Mode 0 
01 : Mode 1 

10 : Mode 2 

11 : wie Mode 0 

b2 : 0 = ROM $0000 bis $3FFF einschalten 
b3 : 0 = ROM $C000 bis $FFFF einschalten 
b4 : 1 = Interrupt-Zähler löschen 
b5 : Funktion nicht bekannt 
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Register 3 (b7=l, b6=l) - RAM-Bank-Register im CPC 6128 
b0-b2 : Auswahl der RAM-Konfiguration (Abb. 1.2) 
b3-b5 : Funktion nicht bekannt 

1.3.4 Erzeugung des Videosignals 

Das Gate Array erzeugt mit Hilfe der Synchronisations-Signale des CRTC 
und der Daten aus dem Video-RAM - zu denen der CRTC die Adressen 
liefert - das RGB-Video-Signal. Wie schon im Kapitel über den CRTC 
beschrieben, liest das Gate Array zwei Bytes pro CRTC-Adresse. Dazu sind 
die CRTC-Adreßbits um ein Bit verschoben. Als unterstes Adreßbit A0 
wird das Signal CCLK des Gate Array verwendet, das die Zeitbasis des 
CRTC bildet. Dies ist möglich, da pro CRTC-Ardesse CCLK einmal auf 
"low" und einmal auf "high" liegt. CCLK hat also die doppelte Frequenz des 
untersten CRTC-Adreßpins MAO. 

Die Punkte, die das Gate Array entsprechend den Daten aus dem Video- 
RAM darstellt, können 32 verschiedene Farben haben. (Daß im Handbuch 
von 27 Farben gesprochen wird, liegt daran, daß fünf Farben jeweils fünf 
anderen Farben entsprechen.) Das Gate Array besitzt (zusätzlich zu den 
oben angesprochenen) 17 Register, in die Farbwerte gespeichert werden 
können. Diese Register werden im folgenden Farbwert-Register genannt, 
um Verwechslungen mit den oben aufgeführten Registern 0 bis 3 zu ver¬ 
meiden. Auf welche Weise werden diese 17 Farbwert-Register nun verwal¬ 
tet? 

Register 0 ist ein Adreß-Register. Es bestimmt, welches Farbwert-Register 
als Register 1 mit einem Farbwert beschrieben werden kann. Diese Zuord¬ 
nung von Farbwerten zu Farbwert-Registern entspricht den Basic-Befehlen 
INK und BORDER. Die Farbstiftnummer von 0 bis 15 beim Ink-Befehl 
entspricht den Farbwert-Register-Nummern im Adreß-Register. Das Farb¬ 
wert-Register 16 enthält den BORDER-Farbwert. Die in die Farbwert- 
Register eingetragenen Farbwerte entsprechen allerdings nicht den bei INK 
und BORDER angegebenen Farben. Die Umcodierung dieser Farbwerte ge¬ 
schieht nach folgender Tabelle: 
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INK/ 

Farbwert- 

BORDER 

Register 

0 

20 

1 

4 

2 

21 

3 

28 

4 

24 

5 

29 

6 

12 

7 

5 

8 

13 

9 

22 

10 

6 

11 

23 

12 

30 

13 

0 

14 

31 

15 

14 


INK/ 

Farbwert- 

BORDER 

Register 

16 

7 

17 

15 

18 

18 

19 

2 

20 

19 

21 

26 

22 

25 

23 

27 

24 

10 

25 

3 

26 

11 

27 

1 

28 

8 

29 

9 

30 

16 

31 

17 


Es mag verwunderlich erscheinen, daß die bei INK und BORDER angege¬ 
benen Farben erst nach obiger Tabelle umgewaridelt werden, bevor sie in 
das Farbwert-Register mit der Nummer des Farbstifts geschrieben werden. 
Die Umwandlung beläßt die Werte im gleichen Bereich: von 0 bis 31. Sie 
ist aber dennoch sinnvoll, denn die 5 nicht benutzten Farben, die 5 anderen 
entsprechen, liegen so im Bereich von 27 bis 31 und sind daher leichter zu 
behalten. 

Wieviele Farben, außer der Farbe des Bildschirm-Rahmens, gleichzeitig auf 
dem Bildschirm dargestellt werden können, hängt vom Bildschirm-Modus 
ab, der mit dem MODE-Befehl eingeschaltet wird. Die Nummer des Modus 
wird dem Gate Array über die Bits bO und bl in Register 2 mitgeteilt. 
Vom eingeschalteten Modus hängt es auch ab, wieviele Punkte pro 
ausgelesenem Byte das Gate Array auf dem Bildschirm darstelit. 


Modus 


0 1 2 


Reg. 2 bO 
Reg. 2 bl 

Zahl der Farben ohne Rand 
Bits pro Punkt 
Punkte pro Byte 
Punkte pro CRTC-Adresse 


0 1 0 

0 0 1 

16 4 2 

4 2 1 

2 4 8 

4 8 16 


Wie werden nun die einzelnen Bytes aus dem Video-RAM zu Punkten auf 
dem Bildschirm gewandelt? 

Für Mode 2 ist die Darstellung relativ einfach. Jeder Punkt entspricht 
genau einem Bit. Der ganz links liegende Punkt entspricht dem höchsten 
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Bit im Byte. Ist ein Bit gesetzt, so wird der Punkt mit der Farbe aus Farb¬ 
wert-Register 1 dargestellt, sonst in der Farbe aus Farbwert-Register 0. 

Bei Mode 1 entspricht ein Punkt zwei Bits, jeweils einem Bit aus dem 
unteren und dem oberen Nibble (Halbbyte). Mit diesen beiden Bits kann 
aus vier Farben, den Farben aus Farbwertregister 0 bis 3, ausgewählt 
werden. 

Bei Mode 0 wird die Farbe eines Punktes durch vier Bits bestimmt. Die 
geraden Bits im Byte bestimmen die Farbe des rechten, die ungeraden die 
des linken Punktes. 

Zur Verdeutlichung nun eine Tabelle. bO bis b7 sind die einzelnen Bits 
eines Bytes im Video-RAM. Es werden die Punkte A bis H dargestellt, 
wobei A der ganz links stehende Punkt ist. (Bei Mode 0 bzw. 1 werden nur 
die Punkte A bis B bzw. A bis D dargestellt.) Ein C2 in der Tabelle 
bedeutet beispielsweise: Bit 2 der Nummer des Farbwert-Registers der¬ 
jenigen Farbe, in der Punkt C dargestellt wird. 


Bit 

b7 

b6 

b5 

b4 

b3 

b2 

bl 

bO 

Mode 2 

AO 

BO 

CO 

DO 

EO 

FO 

GO 

HO 

Mode 1 

A0 

BO 

CO 

DO 

Al 

Bl 

CI 

Dl 

Mode 0 

AO 

BO 

A2 

B2 

Al 

Bl 

A3 

B3 


1.3.5 Erzeugung des Interrupt-Signals 

Das Interruptsignal für den Z80A wird durch Teilung des HSYNC-Signals 
durch 52 erreicht. Da das HSYNC-Signal eine Frequenz von 15625 Hz (bei 
50 Hz Bildwiederholfrequenz) besitzt, beträgt die Frequenz des Inter¬ 
ruptsignals ca. 300 Hz. Der HSYNC-Zähler für das Interruptsignal kann 
durch Setzen von Bit 4 in Register 2 zurückgesetzt werden. Das Inter¬ 
ruptsignal liegt solange an, bis der Z80A auf den Interrupt reagiert hat. 
Damit wird erreicht, daß eine möglichst große Anzahl von Interrupts auch 
bedient werden kann. Falls eine zusätzliche Interruptquelle über den 
Expansion-Bus angeschlossen wird, muß das Interruptsignal solange anlie- 
gen, bis es softwaremäßig zurückgesetzt wird. In der Interrupt-Routine 
wird nämlich für kurze Zeit der Interrupt mittels EI wieder freigegeben, 
um zu prüfen, ob eine externe Interruptquelle Auslöser des Interrupts war. 
Wenn bei dieser Freigabe kein neuer Interrupt ausglöst wird, so hat das 
Gate Array den Interrupt ausgelöst. 
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1.3.6 Speicherverwaltung im CPC 464/664 

Der Schneider CPC 464/664 hat neben 64-KByte RAM auch noch 32 
KByte ROM zu verwalten. Deshalb müssen einige Adressen des 64KByte- 
Adreßraums des Z80A mehrfach belegt werden. So kann unter den Adres¬ 
sen $0000 bis $3FFF sowohl ROM als auch RAM angesprochen werden. 
Die Auswahl erfolgt durch Bit 2 von Register 2. Ebenso ist der Bereich von 
$C000 bis $FFFF mehrfach belegt, ausgewählt werden kann hier durch Bit 
3 von Register 2. Diese Auswahl gilt aber nur für Lesezugriffe. Bei 
Schreibzugriffen wird immer das RAM angesprochen. 


$ FFFF 


$ COOO 


$ 8000 


$ 4000 


$0000 


16 K RAM 

16 K 

externes ROM 

externes ROM 

BASIC-ROM 

# 1 

# 2 

16 K RAM 




16 K RAM 




16 K RAM 

16 K Betriebs¬ 
system-ROM 





Abbildung 1.1: Speicheraufteilung im CPC 

Im Bereich $C000 bis $FFFF können außer dem eingebauten Basic-ROM 
auch noch bis zu 251 externe 16-KByte-Erweiterungs-ROMs angesprochen 
werden. Die dazu nötige Auswahllogik wird an den CPC 464 erst bei Be¬ 
darf angeschlossen, wie z.B. beim Anschluß einer Diskettenstation mit dem 
dazu nötigen DOS-ROM. Im CPC 664 ist sie bereits enthalten. Die Num¬ 
mer des auszuwählenden ROMs wird nicht dem Gate Array, sondern eben 
jener Auswahllogik (I/O-Adresse $DFxx) übergeben. Eine Null bezeichnet 
dabei das eingebaute Basic-ROM, die Werte 1 bis SFB (dezimal 251) 
wählen an dessen Stelle externe ROMs aus (eine 7 z.B. das DOS-ROM). 
Zur Veranschaulichung des RAM-/ROM-Bankings dient Abbildung 1.1. 
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1.3.7 Speicherverwaltung im CPC 6128 

Im Gegensatz zu seinen beiden Vorgängern, muß der CPC 6128 128 KByte 
RAM und 32 KByte ROM mit Hilfe von nur 64 KByte Adreßraum ver¬ 
walten. Die 128 KByte RAM lassen sich in acht 16-KByte-Bereiche 
(sogenannte Banks) einteilen. Wir nennen sie der Einfachheit halber Bank 0 
bis Bank 7. Im vorhandenen Adreßraum können maximal vier Banks 
gleichzeitig angesprochen werden. Um diese auszuwählen und den Adreß- 
bereich, in dem sie liegen, zu bestimmen, dient das Register 3 des Gate 
Arrays. Mit den drei benutzten Bits dieses Registers sind acht Kon¬ 
figurationen möglich, die in Abbildung 1.2 dargestellt werden. Nach dem 
Einschalten des CPC 6128 ist Konfiguration 0 selektiert. Die Auswahl der 
RAM-Konfiguration hat keinen Einfluß auf das Video-RAM: es liegt (je 
nach SCR OFFSET) stets auf Bank 0, 1, 2 oder 3. Ebenso können die 
ROMs unabhängig von der RAM-Konfiguration, wie in Abschnitt 1.3.6 
beschrieben, angesprochen werden. 


$ FFFF 


$COOO 


$8000 


$4000 


$0000 

0 1 2 3 4 5 6 7 


Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

3 

7 

7 

7 

3 

3 

3 

3 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

2 

2 

6 

2 

2 

2 

2 

2 

Bank 

Bank 

Bank 

frei 

Bank 

Bank 

Bank 

Bank 

1 

1 

5 

4 

5 

6 

7 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

Bank 

0 

0 

4 

0 

0 

0 

0 

0 


Abbildung 1.2: Inhalt von Register 3 des Gate Array 
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1.4 Die 8255-PIO 

1.4.1 Allgemeines 

Die 8255 PIO (Programmable Input/Output, Anhang A4.2) gehört zur 
Klasse der Ein-/Ausgabechips. Der 8255 ist ein sehr allgemein 
verwendbarer Chip (ganz im Gegensatz zu Floppy Controller Chips, DMA 
Controller, CRTCs etc.), der nicht auf eine spezielle Art der I/O 
zugeschnitten ist. Ein solcher Baustein verfügt über Leitungen, deren 
(elektrischer) Zustand er abfragen (input) bzw. beeinflussen (output) kann. 
Dies geschieht natürlich auf digitaler Basis, d.h. es können nur jeweils zwei 
Zustände pro Leitung angenommen werden. Das gilt bei jeder Art von 
I/O-Operation. Weiterhin sind die I/O-Leitungen zu Bündeln von jeweils 
acht zusammengefaßt, um so mit einem Zugriff des Prozessors möglichst 
viele Leitungen ansprechen zu können (acht I/O-Leitungen entprechen der 
Breite des Datenbusses). Im Folgenden werden wir uns damit befassen, wie 
der 8255 im Schneider Computer (es gibt darin nur einen davon) durch den 
Benutzer programmiert werden kann. 

1.4.2 Die Programmierung der 8255-PIO 

Die Programmierung des 8255 geschieht über sieben interne Register, auf 
die der Programmierer zugreifen kann. Sie teilen sich im wesentlichen in 
zwei Gruppen: die 6 Datenregister und das Kontroll-Register. 

Der 8255 besitzt 24 I/O-Leitungen, die zu drei Bündeln mit je acht Lei¬ 
tungen zusammengefaßt sind, den sogenannten I/O-Ports. Die Ports des 
8255 tragen die Namen Port A, B, C. Jedem Port sind zwei Register zuge¬ 
ordnet, eines für die Ausgabe-Daten (der Prozessor kann durch einen 
Schreibzugriff auf diese Register die Zustände der Ausgabeleitungen 
beeinflussen), und eines für die Eingabe-Daten. (Hier können die Zustände 
der peripheren Leitungen vom Prozessor gelesen werden.) Normalerweise 
sind I/O-Bausteine wie der 8255 derart beschaffen, daß der Benutzer für 
jeden Port (bei anderen Bausteinen manchmal sogar für jede Leitung 
einzeln) bestimmen kann, ob die ihm zugeordneten Leitungen die Daten im 
Ausgabe-Register repräsentieren sollen (man sagt, der Port sei auf Ausgabe 
geschaltet), oder ob die Daten im Eingabe-Register die Zustände der 
entsprechenden Pins wiedergeben sollen (der Port also auf Eingabe 
geschaltet ist). 

Solcherlei Informationen, die den augenblicklichen Status des Chips wider¬ 
spiegeln bzw. der Kontrolle und der Koordination der Abläufe in der PIO 
dienen, werden im "Kontroll-Register" abgelegt. Da ein solches Kontroll- 
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Register jedoch nur maximal 8 Bits umfassen kann (im 8255 sind es sogar 
nur 7 Bits, da ein Bit für die Implementierung eines besonderen Features 
benötigt wird), konnten nicht sämtliche Informationen über alle drei Ports 
darin untergebracht werden. Man teilte deshalb die 24 I/O-Pins des 8255 in 
zwei Gruppen zu je 12 Leitungen, die dann jeweils gemeinsam von je 
einem Satz Bits im Kontroll-Register gesteuert werden. Die erste Gruppe, 
Gruppe A, umfaßt den Port A und die oberen 4 Bits von Port C. Die zwei¬ 
te Gruppe, Gruppe B, setzt sich aus dem Port B und der unteren Hälfte 
von Port C zusammen. 

Das Kontroll-Register hat nun die folgende Gestalt: 

b7- --b6- -b5- -b4 — b3.b2--bl - --bO-- - 

SF=0 .. MSI MSO A-10 Ch-IO .. MSO B-IO Cl-IO 

SF=1 x x x N2 NI NO B 

Das SF-Bit ist jenes Bit, das zum Einführen dieses besonderen Features 
dient, das wir oben bereits erwähnt hatten. Die restlichen Bits haben 
überhaupt nur die oben mnemonisch angegebene Bedeutung, wenn dieses 
Bit = 0 ist. Ist SF = 1, so kann ein beliebiges Bit im Ausgabe-Register von 
Port C gesetzt bzw. gelöscht werden, indem in N2, NI, NO die Bitnummer 
und in B der gewünschte Zustand des Bits geschrieben wird. Um einzelne 
Bits in Port C zu beeinflussen, muß man also nicht erst Port C lesen, den 
Wert mit einer entsprechenden Maske verknüpfen und dann wieder zurück¬ 
speichern. Der Benutzer kann dagegen sehr schnell und bequem auf ein 
einzelnes Bit zugreifen. 

Wenn das SF-Bit = 0 ist, dann hat das Kontroll-Register seine "normale" 
Funktion. Es kontrolliert die internen Abläufe im 8255, und zwar für jede 
der beiden oben angegebenen Gruppen einzeln. Die Bits b3 bis b6 dienen 
zur Kontrolle der Gruppe A (Port A und Port C, upper). Die beiden MS- 
Bits bestimmen den "Mode", in dem die Gruppe benutzt wird. Da im 
Schneider Computer lediglich der Mode 0 (bei dem beide Bits gelöscht 
sind) Verwendung findet, werden wir uns auch in unserer Besprechung auf 
diesen Modus beschränken. Zu allen anderen Modi (für die Gruppe A die 
Modi 1 und 2, für die Gruppe B nur noch Mode 1) sei nur kurz gesagt, 
daß sie vor allem dem Handshaking-Betrieb mit anderen Geräten dienen. 
Das Bit A-IO gibt an, ob der Port A auf Eingabe oder auf Ausgabe ge¬ 
schaltet werden soll. Ebenso gibt Ch-IO an, ob die obere Hälfte von Port C 
(also der Teil, der der Gruppe A zugeordnet wird) eine Eingabe- oder eine 
Ausgabeeinheit ist. Eine Null in einem dieser Datenrichtungs-Bits (so die 
Bezeichnung für derartige Kontroll-Bits, die ja die Richtung der Daten 
angeben, die über einen Port laufen) bedeutet, daß die entsprechenden 
Leitungen Ausgänge sind. Eine Eins macht sie zu Eingängen. (Dies ist 



Die 8255-PIO 37 


eigentlich ungewöhnlich, da vergleichbare Chips wie z.B. 6520/22/26, 
6820/21 eine Null als Eingabe interpretieren. Bei einem Reset müssen alle 
Leitungen zunächst einmal wieder als Eingänge geschaltet werden. In den 
anderen Chips geschieht dies durch ein Löschen aller Register automatisch. 
Beim 8255 werden natürlich auch alle Ports als Eingänge gesetzt, und zwar, 
indem in das Kontroll-Register die entsprechenden Einsen gesetzt werden.) 

Dies alles gilt sinngemäß natürlich ebenso für die Bits der Gruppe B (bO 
bis b2). Auch hier wird nicht weiter auf den anderen Modus, in den diese 
Gruppe versetzt werden kann, eingegangen werden. Auch hier gibt es zwei 
Datenrichtungsbits: eines für den gesamten Port B, das andere für den 
unteren Teil des Ports C, der ja der Gruppe B zugeordnet ist. Auch in die¬ 
sen Datenrichtungsbits meint eine Eins einen Eingang, eine Null schaltet 
die entsprechenden Leitungen als Ausgänge. 


1.4.3 Der Zugriff auf die 8255-Register 


Nachdem wir nun die Bedeutung der einzelnen Register im 8255 kennen¬ 
gelernt haben, wollen wir uns eben noch anschauen, wie man als Program¬ 
mierer auf diese Register zugreifen kann. Die beiden Register eines Ports, 
die jeweils für die Ein- bzw. Ausgabe vorgesehen sind werden nicht von¬ 
einander getrennt sondern gemeinsam als "Port" angesprochen. Das jeweils 
richtige Register wird dann durch die interne Logik bestimmt. 

Der 8255 besitzt zwei Pins, A0 und Al, durch die die Auswahl eines Regi¬ 
sters unter den vier möglichen stattfindet (Kontroll-Register zuzüglich der 
drei Ports). Die Auswahl geschieht nach folgender Tabelle: 


Al A0 Adresse 


ausgewählte Einheit 


0 0 $F4xx 

0 1 $F5xx 

1 0 $F6xx 

1 1 $F7xx 


Port A 
Port B 
Port C 

Kontroll-Register 


Zu dieser Tabelle sei noch gesagt, daß auf die drei Ports natürlich Lese- 
und Schreibzugriffe erlaubt sind, und daß in das Kontroll-Register jedoch 
nur geschrieben werden kann. Das Lesen aus dem Kontroll-Register ist 
nicht zugelassen. 


Die Werte in der Spalte "Adresse" sind die I/O-Adresse des jeweiligen PIO- 
Registers. Diese ergibt sich aus der Tatsache, daß Al mit dem Adreßbusbit 
b9, A0 mit der Adreßleitung b8 und das "low"-aktive, zur Chip-Auswahl 
benötigte, -CS-Signal der PIO mit bll des Adreßbusses verbunden ist. Alle 
anderen Leitungen müssen auf "high" liegen. Ein OUT &F500,&2F von 
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Basic aus schreibt so z.B. den angegebenen Wert ($2F) in das 
Ausgaberegister des Ports B. 

1.4.4 Die Anwendung des 8255 im Schneider-Computer 

Wie schon erwähnt, existiert im CPC nur ein einziger 8255. Im Folgenden 
wollen wir ein wenig näher auf die Belegung der einzelnen Port-Bits ein- 
gehen. 

1.4.4.1 Die Abfrage der Tastatur 

Die Tastatur des Schneider Computers ist in Form einer Matrix realisiert, 
die über neun Eingänge und acht Ausgänge verfügt. Daraus ergeben sich 
genau 9 * 8 = 72 Kreuzungspunkte. An jedem dieser Kreuzungspunkte ist 
genau eine Taste plaziert, wobei die beiden Shift-Tasten nicht getrennt, 
sondern parallel geschaltet sind. Hinzu kommt die DEL-Taste, die alleine 
einen zehnten Eingang belegt, was zusammen mit der doppelten Shift-Taste 
74 Tasten ausmacht. (Die Aufstellung der Tastaturmatrix finden Sie im 
Anhang A4.4.) 

Die Abfrage der Tastatur geschieht nun derart, daß jeweils einer der insge¬ 
samt zehn Eingänge (man spricht - das Bild der Matrix vor Augen - auch 
von einer Zeile) jeweils auf "low" gelegt wird und der Prozessor sich die 
sogenannte Rückmeldung abholt, d.h. er schaut nach, über welche Kreu¬ 
zungspunkte sich dieser low-Impuls, den er in der Zeile anlegte, in die 
jeweilige Spalte übertragen hat. Dort muß dann ein geschlossener elek¬ 
trischer Kontakt Vorgelegen haben, das eine gedrückte Taste symbolisiert. 
Mit diesem Verfahren kann die CPU also eine Taste als einen Kreuzungs¬ 
punkt in der Matrix bestimmen. 

Der 8255 spielt bei der Tastaturabfrage natürlich die Rolle der Schnittstelle 
zwischen dem Computer und der Tastatur. Der Prozessor gibt über ihn die 
Nummer der Zeile aus, die er auf "low" legen möchte. Ein externer Demul¬ 
tiplexer legt dann die entsprechende Leitung auf null Volt. Anschließend 
liest der Prozessor ebenfalls über die PIO den Zustand der acht Kreu¬ 
zungspunkte auf dieser Zeile in ein Byte hinein. Das Ausgeben der Zeilen¬ 
nummer geschieht in den unteren vier Bits des Ports C, das Einlesen der 
Rückmeldung wird über den Port A abgewickelt. (Dazu sei noch gesagt, 
daß zwischen den Spaltenausgängen der Tastatur und der PIO noch der 
Sound-Chip geschaltet ist. Dieser kann jedoch derart programmiert werden, 
daß er als einfacher I/O-Chip dient, d.h. er leitet die Rückmeldungen von 
der Tastatur einfach an die PIO weiter. Wir werden darauf noch näher im 
Kapitel über den PSG eingehen.) 
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Zur Tastaturabfrage sei noch angefügt, daß auch die Joysticks (inklusive 
Feuerknöpfe) mit diesem Verfahren ausgewählt und decodiert werden. Sie 
sind quasi in die Tastaturmatrix mit eingefügt. 

1.4.4.2 Die Ausgabe von Sound 

Obschon die Ausgabe von Sound im wesentlichen vom PSG (dem program¬ 
mierbaren Sound-Generator) vollzogen wird, ist der 8255 dennoch in 
gewisser Weise daran beteiligt. Er dient der Zentraleinheit als Verbindung 
zum Sound-Chip, d.h. der PSG wird nur indirekt, über den 8255, program¬ 
miert. Die PIO versorgt der PSG zu diesem Zweck mit zwei Kontrollsigna- 
len und acht Datenbits. Die acht Datenbits kommen aus dem Port A, sind 
also dieselben, mit denen auch die Rückmeldung von der Tastatur gelesen 
wird. Um die Datenrichtung festzulegen bzw. zu bestimmen, ob die Daten 
für den PSG selber bestimmt sind, oder ob er sie nur weiterleiten soll, 
benötigt man noch einige Kontrollsignale. Diese werden im Falle des 
Schneider-Computers in den oberen beiden Bits von Port C an den Sound 
Chip übergeben. Auf die Programmierung dieses Gerätes wird im Kapitel 
1.5 noch näher eingegangen werden. 

1.4.4.3 Der 8255 als Cassetten-Interface 

Eine weitere wesentliche Aufgabe der 8255-PIO besteht in der Verbindung 
des Computers mit der Cassetteneinheit. Diese erhält alles in allem sechs 
Signale, von denen jedoch nur drei durch die PIO gestellt werden. 

1. Die Stromversorgung, +5V und GND: Dies sind keine 
eigentlichen Signale. Die Zentraleinheit gibt sie jedoch an den 
Recorder aus, weshalb sie hier aufgeführt sind. 

2. SOUND: Dieser Ausgang zum Recorder ist dem gleichnamigen 
Pin des Expansion Ports equivalent. Er ist, kurz gesagt, eine 
Zusammenschaltung der drei Tonkanäle des PSG (jeweils über 
lOkOhm) und ermöglicht die Aufzeichnung der Tonausgabe des 
PSG auf Cassette (anstelle der digitalen Datensignale). 

3. WR DATA: Dieses Signal dient der Aufzeichnung digitaler 
(Daten-) Impulse auf Band. Es wird durch b5 von Port C des 
8255 geliefert. 

4. RD DATA: Dieses Signal entspricht den gelesenen, digitalisierten 
Signalen von der Bandeinheit. Es geht direkt an b7 von Port B 
des 8255. Dort kann es leicht getestet werden, indem der Port 
geladen und dann das Vorzeichen getestet wird. 

5. -MOTOR: Obschon dieses Signal "low"-aktiv ist, wird es durch 
eine 1 in b4, Port C des 8255 aktiviert (Die Ausgabe wird dann 
noch einmal invertiert). Wie schon unschwer aus dem Namen zu 
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erkennen ist, dient dieses Signal dazu, den Cassetten-Motor 
einzuschalten. 


1.4.4.4 Sonstige 8255-Bits 

Neben den bisher aufgeführten gibt es noch einige der 24 I/O-Bits, auf die 
wir bisher noch nicht eingegangen sind. 

VSYNC: Dieser Eingang (bO, Port B) wird vom CRTC bei einer vertikalen 
Synchronisation auf "high" gelegt. Das passiert immer genau dann, wenn 
der Bildaufbau beendet ist und der Elektronenstrahl von der rechten unte¬ 
ren Ecke in die linke obere (der Ausgangsposition) zurückfährt. Dieses 
Signal kann z.B. dazu benutzt werden, um den Programmablauf mit dem 
Bildaufbau zu synchronisieren. (In der Verarbeitung von Events wird dieses 
Signal zum Bestimmen eines Frame Fly’s - so der englische Ausdruck dafür 
- benutzt, um festzustellen, wann die Frame Fly Chain bearbeitet werden 
muß.) 

LK1-LK3: Diese drei Eingänge (bl-b3, Port B) werden durch feste Brük- 
ken jeweils entweder auf "high" oder auf "low" gelegt, um den jeweiligen 
Distributor des CPC-Computers in den verschiedenen Ländern zu ermitteln 
und in der Einschaltmeldung entsprechend zu berücksichtigen (so z.B. 
Amstrad in Great Britain, Schneider in der BRD). 

LK4: Dieser Eingang (b4, Port B) ist ebenso wie die drei eben genannten 
an eine feste Brücke angeschlossen. Sein Zustand entscheidet jedoch nicht 
über den Firmennamen oder ähnliches, das bei der Einschaltmeldung 
ausgegeben werden muß. Vielmehr wird danach der CRTC auf entweder 
50Hz (PAL-Norm) oder 60Hz (SECAM-Norm) Bildwiederholfrequenz 
initialisiert. In der Bundesrepublik wird allgemein das PAL-System 
verwendet, in Frankreich z.B. gilt die SECAM-Norm. 

-EXP: Dieser Eingang (b5, Port B) wird durch einen Pin des Expansion 
Ports an den 8255 gegeben, und kann genutzt werden, um der CPU externe 
Erweiterungen anzuzeigen. 

BUSY: Auch dieses Bit ist ein Eingang (b6, Port B). Es wird im Rahmen 
der Kommunikation mit einem Drucker benötigt und teilt dem Computer 
gegebenenfalls mit, ob der Drucker bereit ist, neue Zeichen zu empfangen, 
oder ob er noch mit dem Ausdruck anderer beschäftigt ist. Der Drucker ist 
empfangbereit, wenn das Signal "low" ist. 
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1.4.5 Pinbelegung der 8255-PIO 

PA7-PA0: Dies sind die Herausführungen der Bits des Ports A. Sie können 
sowohl als Eingänge als auch als Ausgänge programmiert werden. 

PB7-PB0: Wie oben, für Port B. 

PC7-PC0: Wie oben, für Port C. 

DA7-DA0: Dies ist die Verbindung zwischen dem PIO und der CPU. Im 
Schneider- Computer sind diese Pins an den Datenbus angeschlossen. 

A1,A0: Diese beiden Pins dienen der Auswahl der internen Register in der 
PIO. Eine Auswahltabelle finden Sie im Abschnitt 1.4.3. 

-CS (Chip Select): Dieses "low"-aktive Signal wird benutzt, um die PIO zu 
aktivieren. Ist es "high", so ist der PIO-Datenbus hochohmig. 

-RD (ReaD): Dieses "low"-aktive Signal zeigt einen Lesezugriff auf ein 
PIO-Register an. 

-WR (WRite): Dieses "low"-aktive Signal zeigt einen Schreibzugriff auf ein 
PIO-Register an. 

RESET: Dieses Signal setzt die PIO in einen definierten Ausgangszustand 
zurück. 

Vcc: Dies ist der Eingang für die Versorgungsspannung von normalerweise 
+5V gegenüber GND. 

GND: Dies ist der Eingang für die Grundspannung, die per Definition 
einen Wert von 0 V hat. 
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1.5 Der programmierbare Sound-Generator 
AY-3-8912 

1.5.1 Allgemeines 

Der 8912 PSG (Programmable Sound Generator, Anhang A5.1) ist der 
Chip, der im CPC für die Erzeugung der Klänge verantwortlich zeichnet. 
Er ist über die PIO an die Zentraleinheit angeschlossen und muß dement¬ 
sprechend auch über den 8255 programmiert werden. Der PSG verfügt über 
drei Kanäle, die nahezu völlig unabhängig voneinander programmiert wer¬ 
den können. Für jeden Kanal kann einzeln die Frequenz und die Lautstär¬ 
ke eingestellt werden. Lediglich den Hüllkurven- und den Rauschgenerator 
müssen alle drei Kanäle zusammen benutzen, da es diese beiden Funktions¬ 
einheiten jeweils nur einmal auf dem Chip gibt. 

Ein für einen Sound-Chip recht ungewöhnliches Feature ist der eingebaute 
I/O-Port. Dies läßt sich nur mit der Geschichte des 8912 erklären: Er wur¬ 
de als als Sound-Chip für Telespiele entwickelt. Um in solchen Geräten die 
Bauteilzahl möglichst niedrig zu halten, wurden dem 8912 noch zwei recht 
einfache Ports für die Erledigung einfachster I/O-Prozesse mitgegeben. 
Beim 8912 ist jedoch nur ein Port (Port A) herausgeführt, um den Chip in 
ein möglichst kleines Gehäuse einbauen zu können. In diesem Fall hat der 
PSG 28 Pins. Bei seinem großen Bruder, dem AY-3-8910, sind dann beide 
Ports als Pins nach außen geführt, der Chip jedoch ist der gleiche. 

1.5.2 Der Zugriff auf die PSG-Register 

Der PSG verfügt über 16 interne Datenregister, auf die der Anwender zu¬ 
greifen kann. Eines davon, das Datenregister für Port B, kann man jedoch 
nicht benutzen. Mittels dieser Register ist es möglich, auf die Generierung 
des Klanges Einfluß zu nehmen. Es handelt sich bei allen um 8-Bit Regi¬ 
ster. Der PSG verfügt zur Aufnahme von Daten über einen Datenbus, der 
im CPC mit dem Port B der 8255 PIO verbunden ist. 

Es stellt sich nun jedoch die Frage, wie man als Programmierer das Regi¬ 
ster auswählt, in das man einen bestimmten Wert schreiben möchte. Außer 
den acht Datenleitungen stehen dem Programmierer nur noch zwei Verbin¬ 
dungen zum PSG zur Verfügung, auf die er Einfluß nehmen kann: 1. BDIR 
(Bus DIRection), an b7 von Port C des 8255 angeschlossen und 2. BC1 (Bus 
Control 1), verbunden mit b6 von Port C des 8255. Hinzu kommt im allge¬ 
meinen noch der Steueranschluß BC2. Im CPC ist dieser Pin jedoch per¬ 
manent auf +5V gelegt, so daß er keine Funktionalität mehr besitzt. Die 
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beiden verbleibenden Bits können insgesamt vier verschiedene Zustands¬ 
kombinationen auf weisen, die folgende Funktionen haben: 


BDIR BC1 Funktion 


o 

o 

l 

i 


0 inactive 

1 read 

0 write 

1 latch address 


INACTIVE: Der Datenbus des PSG wird hochohmig, und der PSG akzep¬ 
tiert auch keine Daten mehr. 

READ: Die CPU kann jetzt (über den 8255) aus dem ausgewählten Register 
des PSG lesen. 


WRITE: Die CPU kann in das jeweils ausgewählte Register des PSG 
schreiben. 

LATCH ADDRESS: Wenn die CPU jetzt über den Port B Werte an den 
PSG ausgibt, so werden diese nicht mehr als Daten in ein Datenregister 
geschrieben, sondern als neue Registernummer interpretiert. Die CPU kann 
auf diesem Wege das Register des PSG auswählen, mit dem sie gerade 
arbeiten möchte. Ähnliche Verfahren zur Registerauswahl kann man auch 
in anderen Bausteinen des CPC finden, z.B. im CRTC und auch im Gate 
Array. Ist eine Registernummer einmal übergeben, dann bleibt das Register 
solange ausgewählt, bis ein neues Register bestimmt wird. Das relativ 
unkomfortable Arbeiten mit dem PSG wird dadurch doch um einiges er¬ 
leichtert, da aufeinander folgende Zugriffe auf dasselbe Register mit dieser 
Technik recht einfach vonstatten gehen. 


1.5.3 Die Bedeutung der PSG-Register 

Nachdem wir nun wissen, was wir tun müssen, um auf die einzelnen Regi¬ 
ster zugreifen zu können, wollen wir hier endlich auf die Funktion sämt¬ 
licher PSG-Register eingehen. 

REG #0/1: Dieses Registerpaar gibt die Periodendauer des Tons über 
Kanal A an. Die absolute Periodendauer ergibt sich aus der Zahl, die in 
diese Register geschrieben wird, multipliziert mit 1/62500 s (im Gegensatz 
zu den Angaben, die das Handbuch dazu macht). Es werden jedoch nicht 
alle 16 Bits genutzt, sondern nur 12: alle 8 Bits des Registers 0 (als Lo- 
Byte) und die vier unteren Bits des Registers 1 (als High-Nibble). 

REG #2/3: gleiche Funktion wie Register 0/1, jedoch für Kanal B. 
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REG #4/5: gleiche Funktion wie Register 0/1, jedoch für Kanal C. 

REG #6: Die unteren fünf Bit bestimmen die Periodendauer (durchschnitt¬ 
lich) des Rausch-Generators: je größer der Wert, desto länger die mittlere 
Periodendauer des Rauschens. 

REG #7: Dies ist das Kontrollregister des AY 3-8912. Den einzelnen Bits 
sind hier jeweils verschiedene Funktionen zugeordnet: 


b7 

Port B Datenrichtung 

l=output 

0=input 

b6 

Port A Datenrichtung 

l=outpu 

0=input 

b5 

Rauschen Kanal C 

l=aus 

0=an 

b4 

Rauschen Kanal B 

l=aus 

0=an 

b3 

Rauschen Kanal A 

l=aus 

0=an 

b2 

Kanal C, Ton 

l = aus 

0=an 

bl 

Kanal B, Ton 

l=aus 

0=an 

bO 

Kanal A, Ton 

l=aus 

0=an 


REG #8: Die unteren vier Bits bestimmen die Lautstärke, mit der der Ton 
von Kanal A ausgegeben wird, d.h. die Amplitude des Signals am Ausgang 
ANALOG A. Die Amplitude nimmt logarithmisch zu, so daß von mensch¬ 
lichen Gehör ein linearer Lautstärke-Anstieg wahrgenommen wird. Ein 
Sonderfall in diesem Register tritt dann ein, wenn b4 = 1 ist: Die Laut¬ 
stärke des Tons wird dann nicht mehr durch die unteren vier Bits be¬ 
stimmt, sondern durch den Hüllkurvengenerator, der im PSG eingebaut ist. 

REG #9: Funktion wie Register 8, jedoch für Kanal B. 

REG #10: Funktion wie Register 8, jedoch für Kanal C. 

REG #11/12: Dieses Registerpaar bestimmt mit allen 16 Bits die Perioden¬ 
dauer der vom Hüllkurvengenerator erzeugten Hüllkurve. Register 11 ist 
dabei das Lo-Byte, Register 12 das Hi-Byte. 

REG #13: Die unteren vier Bits dieses Registers bestimmen die Form der 
erzeugten Hüllkurve. Die Hüllkurven sind dabei nicht schlicht durchnum- 
meriert, sondern die einzelnen Bits haben durchaus eine feste Funktion, 
woraus sich auch eine Systematik bei den Hüllkurven ergibt. Wir verzichten 
hier darauf, diese darzustellen. Stattdessen haben wir alle möglichen 
Hüllkurven mit den entsprechenden Bit-Kombinationen im Anhang A5.3 
aufgeführt. • 

REG #14: Peripheres Datenregister des Port A. Je nach Zustand des ent¬ 
sprechenden Kontroll-Bits liegt unter dieser Registernummer entweder das 
Eingabe- oder das Ausgaberegister des Ports. 

REG #15: Peripheres Datenregister des Port B. Je nach Zustand des ent¬ 
sprechenden Kontroll-Bits liegt unter dieser Registernummer entweder das 
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Eingabe- oder das Ausgaberegister des Ports. (Beim AY 3-8912 im Schnei¬ 
der-Computer ist dieser Port nicht nach außen geführt, was ihn weitgehend 
unbenutzbar macht.) 

1.5.4 Die Programmierung eines Tons mit dem PSG 

Nachdem uns nun die Bedeutung der Register bekannt ist und wir wissen, 
wie wir auf sie zugreifen können, sollten wir hier noch einmal kurz die 
Programmierung eines Tones darstellen. Wir benutzen auf Assemblerebene 
dazu die Routine MC SOUND REGISTER, die wir über ihrem RAM-Vek- 
tor bei $BD34 anspringen (im O.S.-ROM liegt sie bei $0826). Diese Rou¬ 
tine erleichtert uns den Zugriff auf die PSG-Register, der - wie wir ja 
wissen - sonst nur über mehrfaches Umschalten der beiden Steuersignale 
von Port C aus möglich ist. Dieser Routine muß im Akku die Registernum¬ 
mer, in C das Byte, das man in das Register zu schreiben wünscht, über¬ 
geben werden. 

Wir wollen jetzt einen Ton von 1000 Hz, ohne Rauschen und mit der Hüll¬ 
kurve 1-1-1-0 ausgeben. Dazu müssen wir zunächst den Wert ermitteln, 
den wir als Periodendauer setzen^ um die Frequenz von 1000 Hz, d.h. die 
Periodendauer von 1/1000 s zu erreichen. Dieser Wert ergibt sich aus der 
Division der erwünschten Periodendauer durch die Periodendauer der 
Grundschwingung (1/62500 s), in unserem Fall also (1 /1000s)/( 1 /62500s) = 
62,5. Als Periodendauer ergibt sich somit entweder der Wert 62 oder 63. 
Wir wählen willkürlich eine Periodendauer von 63 Einheiten. 

Die Werte, die nun dem PSG zu übergeben sind, ergeben sich aus dem vor¬ 
her gesagten: Nehmen wir an, wir möchten den Ton über Kanal A ausge¬ 
ben. Der Einfachheit halber gehen wir gleich davon aus, daß die anderen 
Kanäle zur Zeit nichts sinnvolles mehr tun. Um nun Kanal A anzuschalten, 
schreiben wir das Byte $3E (binär %00111110) in das Kontroll-Register 
(Register 7) des PSG. Die errechnete Periode (63, $3F) bringen wir in den 
Registern 0 und 1 unter - in Register 1 das Hi-Byte (in unserem Fall 
natürlich 0), in Register 0 das "Lo"-Byte (also hier $3F). Da wir die 
Lautstärke vom Hüllkurven-Generator regeln lassen wollen, setzen wir als 
Kennzeichen dafür b4 des Lautstärke-Registers von Kanal A (Register 8). 
Zu guter Letzt legen wir noch die Hüllkurve fest. Ihre Form hatten wir 
bereits ausgewählt mit der Bitkombination 1-1-1-0. In Register 13 schrei¬ 
ben wir daher den Wert $0E (%00001110). In das Registerpaar 11/12 müs¬ 
sen wir die Periodendauer der Hüllkurve schreiben, so z.B. $C000. In Regi¬ 
ster 12 muß dann der Wert SCO, in Register 11 eine Null gebracht werden. 

Das entsprechende Assembler-Programm ist sehr einfach zu erstellen. Es 
erscheint uns nicht sinnvoll, ein Listing an dieser Stelle einzufügen (zumal 
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dieses Beispiel wirklich sehr simpel und speziell ist). Die Erzeugung von 
Klängen kann sehr verschieden verwaltet werden: die unterste Stufe wäre 
ein Programm, das tatsächlich nur einen festen Ton ausgeben kann. Der 
Sound Manager des CPC hingegen läßt die Handhabung des PSG auf einer 
extrem anwenderfreundlichen Ebene zu. Dies gilt natürlich auch für den 
Anwender auf Assembler-Niveau. Im Sound Manager sind alle wesentlichen 
Features realisiert, die man bei der Kontrolle des AY 3-8912 sinnvoll 
einsetzen kann. Das Listing dieses Betriebssystem-Segments ist deshalb auch 
als Lektüre für den engagierten Sound-Programmierer zu empfehlen - es 
steckt voller Anwendungsbeispiele. 

1.5.5 Pinbelegung des AY 3-8912 

DA7-DA0: Dies sind bidirektionale Datenverbindungen zum Computer. Die 
CPU schreibt und liest über diese Leitungen Werte in und aus dem PSG. 

BC1, BC2 (Bus Control): Diese beiden Pins dienen der Kontrolle des 
Datenverkehrs zwischen CPU und PSG. Da jedoch einige Funktionen (in 
Verbindung mit dem BDIR-Pin) doppelt Vorkommen, hat man - um so die 
Redundanz zu senken - BC2 ständig auf "high" (+5V) gelegt. 

BDIR (Bus DIRection): Dieser Pin kontrolliert ganz allgemein die Richtung 
des Datenflusses über den PSG-Datenbus. In Verbindung mit den BC-Pins 
hat er ganz bestimmte Funktionen, die ausführlich in Abschnitt 1.5.2 
erläutert sind. 

A8: Dies ist das Signal, das den PSG erst aktiviert, d.h. auswählt (es ist 
daher ein Chip-Auswahl-Signal). Es ist"high"-aktiv und im CPC immer auf 
+5V gelegt, so daß der PSG dauernd aktiviert ist. 

-RESET: Dieses "low"-aktive Signal initialisiert den PSG, d.h. es unter¬ 
bricht seine Aktivitäten und setzt seine Register zurück. Es ist an das 
normale Reset-Signal im CPC angeschlossen. 

CLOCK: An diesem Pin liegt der Master-Takt an, d.h. der Takt, aus dem 
durch Frequenzteilung der Grundtakt für die Tonerzeugung gewonnen 
wird. Im Schneider-Computer wird dieser Pin konstant mit feinem Takt 
vom 1 MHz versorgt. Durch einen 4-Bit-Frequenzteiler wird diese 
Frequenz durch 16 geteilt und als Grundschwingung an die tonerzeugende 
Einheit im PSG weitergegeben. Diese Grundschwingung hat damit eine 
Frequenz von 1 000 000/16 = 62 500 Hz, weshalb die Periodendauer auch 
in Einheiten von 1/62500 s angegeben werden muß. 

ANALOG CHANNEL A,B,C: An diesen drei Ausgängen des PSG liegen 
schließlich die Tonschwingungen der drei verschiedenen Kanäle, repräsen- 
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tiert durch Spannungen. Die maximale Spannung, die hier anliegen kann, 
ist die Versorgungsspannung (Vcc). 

Vcc: An diesem Pin liegt die Versorgungsspannung, normalerweise +5V. 

Vss (oder auch GND): Hier liegt die Grundspannung, relativ 0 V. 

IOA7-IOAO: Dies sind die Portbits des Ports A, die sowohl als Eingänge, 
wie auch als Ausgänge programmiert sein können. (Beim Schwesterchip 
8910 gibt es die entsprechenden Pins auch noch für den Port B.) 

TEST 2: Dieser Pin dient dem Testen des Chips bei der Herstellung. Vom 
User kann er nicht sinnvoll verwendet werden und ist im Schneider CPC 
daher auch unbeschaltet geblieben. 
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2 Grundlegende Strukturen 

An dieser Stelle möchten wir Ihnen einige der grundlegenden Strukturen, 
die im Schneider Computer ihre Anwendung finden, ein wenig näherbrin¬ 
gen. Zwar sind sie zur Nutzung der Routinen der CPC-ROMs nicht nötig, 
will man jedoch das Betriebssystem oder das Basic des CPC richtig verste¬ 
hen, so ist es unerläßlich, auch die ihnen zugrunde liegenden Strukturen zu 
begreifen. Auch können die Datenstrukturen und Programmiertechniken, 
die wir hier vorstellen wollen, eine Anregung für das Schreiben eigener 
Programme sein, da nicht nur der Algorithmus über den Wert eines Pro¬ 
grammes entscheidet, sondern beispielsweise auch die Datenstrukturen, die 
es verwendet. Wir können natürlich im Rahmen dieses Buches ein Thema 
wie Datenstrukturen nicht umfassend behandeln - ganze Regale von 
Büchern sind darüber geschrieben worden. Dies kann nur ein Anstoß sein, 
das faszinierende Gebiet näher kennenzulernen. 


2.1 Datenspeicherung 

Wir unterscheiden in diesem Kapitel streng die Datenstrukturen von der 
Datenspeicherung (Memory Allocation). Das ist umso wichtiger, als auch 
erfahrene Programmierer nur allzu gerne diese völlig verschiedenen Dinge 
im einen Topf werfen. Dabei handelt es sich bei der Datenspeicherung um 
die Anordnung der Daten im Speicher bzw. um deren gegenseitige Verket¬ 
tung durch Adressen, Nummern und ähnlichem. Datenstrukturen (Data 
Structures) hingegen beziehen sich ausschließlich auf die logische Struktur 
der Daten, d.h. auf deren logische Beziehung untereinander, die durchaus 
von ihrer speicherplatzmäßigen Beziehung abweichen kann. Datenstruk¬ 
turen sind also gewissermaßen die Summe aller Ideen, die hinter der 
Anordnung der Daten eines Programmes stehen. Die Datenspeicherung ist 
"nur" die Realisierung dieser Ideen im Rahmen eines Computers. Diese 
beiden Qualitäten werden deshalb so oft durcheinander gewürfelt, weil es 
oft günstig ist, die Beziehungen anzugleichen, die auf den beiden Ebenen 
(Idee-Speicher) bestehen. 

2.1.1 Records 

Der Begriff des Records ist ein zentraler Begriff, sowohl für die Daten¬ 
speicherung, als auch für Datenstrukturen. Innerhalb einer Struktur ist ein 
Record eine Speichereinheit, in gewissem Sinne also ein Speicheratom. Die¬ 
ser Vergleich hinkt jedoch, da ein Record selber beliebig komplex sein 
kann, selber also aus riesigen Datenstrukturen bestehen kann. Innerhalb 
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seiner Struktur - auf der Ebene dieser Struktur also - ist der Record nach 
außen hin unstrukturiert, wie bereits oben gesagt, eine Einheit. 

So kann ein Record z.B. ein String sein, der selber über Unterstrukturen 
(der Länge und einer variablen Anzahl von Zeichen) verfügt. Auch eine 2- 
Byte-Integerzahl innerhalb eines Feldes beispielsweise ist ein Record, 
obschon er (semantisch) nicht weiter untergliedert werden kann. In anderen 
Sprachen gibt es z.B. Daten, die nur ein Bit benötigen (Flags); auch solch 
simple Daten sind logisch Records. Records können aber auch hochkom¬ 
plexe Gebilde sein, z.B. ein Feld mit 200 mal 200 Integerzahlen. Ein 
solcher Record würde 80000 Bytes umfassen, wäre logisch aber nichts wei¬ 
ter als das Flag oder die eine Integerzahl. 

Die unbegrenzte Vielfalt von Records ordnet man nun zunächst einmal in 
zwei globale Kategorien. Wir werden sehen, daß diese Einteilung noch 
weitreichende Folgen hat. Es gibt solche mit einer festen Länge (im 
Speicher), die "fixed length records" (kurz FLR), und solche mit einer 
variablen Länge (im Speicher), die "variable length records" (kurz VLR). 
An dieser Stelle erkennt man deutlich den Unterschied zwischen 
Datenspeicherung und Datenstrukturen: Für die Struktur der Daten ist diese 
Eigenschaft der Records vollständig unerheblich, während es zu den 
Aufgaben der Datenspeicherung gehört, sich mit derlei Problemen zu 
befassen. 

Betrachten wir an dieser Stelle einmal die Eigenschaften von VLRs und 
FLRs. FLRs haben den Vorteil, daß der Zugriff auf sie wesentlich unpro¬ 
blematischer verläuft. Sucht man z.B. in einer Tabelle aus FLRs das n-te 
Element, so kann man die Adresse des Records leicht mit a = b + l*(n - 1) 
berechnen, wobei a die Record-Adresse, 1 die Länge der Records und b die 
Basisadresse der Tabelle ist. Die Suche nach einem VLR würde sich 
unangenehmer gestalten, da man alle Elemente in der Tabelle durchgehen 
müßte, um das gesuchte Element schließlich zu finden. 

Nun ist durch die Art der zu speichernden Daten in gewisser Weise schon 
vorgegeben, welche Art von Records zur Speicherung zu verwenden sind. 
5-Byte-Fließkommazahlen, 2-Byte-Integerwerte werden natürlich in FLRs 
abgelegt, wohingegen sich für Strings z.B. aufgrund ihrer unbestimmten 
Länge VLRs zur Speicherung anbieten würden. 

Da jedoch der Zugriff auf FLRs so viel schneller ist, als der auf VLRs, 
geht man in vielen Sprachen andere Wege, indem man VLRs möglichst 
vermeidet. Im UCSD-Pascal-System z.B. werden Strings auf eine feste 
Länge gesetzt (der Default ist 80 Zeichen) und grundsätzlich in 
Speicherbereiche mit konstanter Länge gespeichert (der Default ist 81 
Bytes: 80 Zeichen + 1 Byte Count, das die Länge des eigentlichen Strings 
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bestimmt). Diese Art der Speicherung ist zwar wesentlich schneller und 
unproblematischer als die Strings als VLRs abzulegen, man erkennt jedoch, 
daß sie auch sehr speicherplatzintensiv ist. 

Auch im Basic "verwandelt" man die VLRs in FLRs, indem man in die 
Variableneinträge der Basic-Variablen nicht den String speichert, sondern 
einen Zeiger auf den String (der wegen seiner festen Länge von 2 Byte ja 
ein FLR ist). Die eigentlichen Strings werden in gepackter Form (d.h. 
String an String ohne ungenutzte Leerstellen) am Ende des Speichers abge¬ 
legt. Diese Form der Speicherung verschwendet nicht so viel Speicherplatz, 
wie die, die UCSD-Pascal für Strings verwendet, und ist nur unwesentlich 
langsamer. Basic hat dort also einen Kompromiß gefunden. 

2.1.2 Arrays (Felder) 

Arrays sind Ihnen vermutlich schon aus der Arbeit mit Basic ein Begriff. 
Neben den einfachen, unstrukturierten Variablen sind Arrays die einzige 
Art der Datenspeicherung, die von Basic unterstützt wird. 

Arrays dienen hauptsächlich zur Speicherung von FLRs. Das herausragende 
Merkmal von Arrays ist die Tatsache, daß die Records konsekutiv, d.h. 
hintereinander angeordnet sind. Will man also in einem Programm mehrere 
Records in einem Array ablegen, so muß der Programmteil, dem ein 
Record übergeben wird, dieses in den Bereich speichern, der für die 
Arrays vorgesehen ist. Dieses Kopieren eines Datenblocks kann bei 
größeren Blöcken schon einen beachtlichen Zeitaufwand bedeuten. Auch 
sind die Daten an eine bestimmte Position gebunden - nämlich an den 
Speicherbereich, in dem das Array realisiert wird. Vielfach ist es aber 
sinnvoll, Records positionsunabhängig (Position independent) im Speicher 
zu organisieren. Aber dazu kommen wir später. 

Arrays haben aber noch andere Nachteile. So stellt z.B. das Einfügen bzw. 
Löschen eines Elementes in einem Array ein großes Problem dar, da die 
darüber liegenden Datenblöcke allesamt verschoben werden müssen. Dies 
gilt besonders für Arrays mit VLRs. In diesem Fall haben die Einträge 
jeweils eine unbestimmte Länge, d.h. aus der Nummer des Elements kann 
dessen Adresse nicht einfach berechnet werden. Die Trennung der ein¬ 
zelnen VLRs kann auf ganz verschiedene Arten erfolgen. So z.B. dadurch, 
daß die Länge des Records mit abgespeichert wird. Um auf ein Element 
zugreifen zu können, muß das Programm also alle davor liegenden Ele¬ 
mente auf ihre Länge untersuchen und diese Länge zur laufenden Adresse 
addieren. Dies ergibt dann die Adresse des folgenden Records und so wei¬ 
ter. Records können aber auch dadurch separiert werden, daß man an den 
Anfang oder an das Ende eines Datenblockes jeweils eine Markierung setzt 
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(d.h. ein Byte oder eine Folge von Bytes, die in den Daten nicht Vor¬ 
kommen kann). Vielfach werden Strings in dieser Form abgespeichert. So 
werden UNIX-Texte mit einem LF-Zeichen als Zeilenterminator abgespei¬ 
chert. CP/M benutzt ein CR, die Sprache C eine Null. 

Arrays haben natürlich auch Vorteile. Bei FLRs liegen diese klar auf der 
Hand: Der Zugriff auf ein Element ist mit sehr wenig Aufwand nach der 
bereits aufgeführten Formel für die Adresse a = b + (n - 1) * 1 möglich. 
Wenn die Indizes - so der Name für die Nummer eines Elements - bei 0 
anfangen, verkürzt sich die Formel gar auf a = b + n * 1. Desweiteren kann 
es sinnvoll sein, bestimmte Daten eines Systems innerhalb eines Speicherbe¬ 
reichs möglichst ohne Leerstellen abzuspeichern. So ist dies z.B. im String¬ 
bereich des Basic der Fall, in dem die Strings ja bekanntlich in Form eines 
Arrays (d.h. direkt hintereinander) abgelegt sind. Es ist kaum möglich, sich 
eine andere Struktur für diesen Anwendungsfall vorzustellen. 

Es gibt im Schneider die unterschiedlichsten Formen von Arrays. So sind 
z.B. die Adressentabellen des Basic für Funktionen und Befehle FLR- 
Arrays, wohingegen die entsprechende ASCII-Tabelle für die Keywords ein 
VLR-Array mit einer recht komplexen logischen Struktur darstellt. 

2.1.3 Linked Lists (verkettete Listen) 

Eine Linked List ist eine Art der Datenspeicherung, bei der die 
Speicherposition der Records keine Rolle mehr spielt. Dies geschieht 
dadurch, daß zusätzlich zu dem eigentlichen Record in jedem Eintrag ein 
Zeiger auf den nächsten Eintrag enthalten ist. Dieser Zeiger kann auf ganz 
unterschiedliche Arten zu dem folgenden Record führen. Häufig wird 
einfach die Adresse des Records dort abgelegt, es können aber auch 
irgendwelche Nummern oder Indizes sein, mit denen sich der folgende 
Eintrag dann schließlich irgendwie lokalisieren läßt. Wenn wir also im 
Folgenden von einem "Zeiger" (Pointer) reden, so meinen wir stets den 
allgemeinen Verweis auf ein Element, also einen beliebigen Weg, der es 
möglich macht, den nächsten Record eindeutig im Speicher aufzufinden. 
Die Adresse ist stets der Spezialfall eines solchen Zeigers. Zur theoretischen 
Betrachtung sei noch gesagt, daß die Records einer Linked List alle in 
einem - durch die Art des Zeigers festgelegten - Speicherbereich liegen 
müssen. Dieser Bereich kann den gesamten Adreßraum des jeweiligen Sy¬ 
stems umfassen, es ist jedoch ebensogut denkbar, daß nur ein Teil des 
gesamten Speichers einer Linked List zur Verfügung steht. 
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1. Aufbau 2. Element einfügen 



3. Element anhängen 


4. Element löschen 



Abbildung 2.1: LINKED LIST - Verkettete Liste (VL) 
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In Abbildung 2.1 sehen Sie in der Darstellung 1 das Modell einer Linked 
List. Der einzige Platz, der zur Definition einer verketteten Liste not¬ 
wendig ist, ist der Ort des "List Pointers", d.h. die Adresse (oder das 
Register), in der der Zeiger auf das erste Element der Liste steht. Alles 
andere "ergibt" sich förmlich aus der Liste selber: die Elemente der Liste 
zeigen alle auf das jeweils folgende Element - bis auf den letzten Eintrag. 
Sein Zeiger muß derart beschaffen sein, daß aus ihm geschlossen werden 
kann, daß das Programm am Ende der Liste angelangt ist. Das wird in 
vielen Fällen dadurch erreicht, daß dieser Zeiger einen besonderen Wert 
erhält, den ein normaler Zeiger (aus irgendwelchen Gegebenheiten des 
jeweiligen Systems) nicht annehmen kann. Diesen Wert nennt man dann 
NIL (Not In List). Das NIL ist eine logische Struktur, die oftmals durch 
eine Null realisiert wird. Bei den meisten Systemen kann eine Null als 
Zeiger nicht auftreten, da der untere Bereich meist für Systemvariablen 
gebraucht wird. Viele Programmierer verwechseln diese unterschiedlichen 
Begriffe NIL und Null. 

Wir hatten schon gesagt, daß die Linked List eine Art von Positionsunab¬ 
hängigkeit (Position Independence) der Records ermöglicht. Dies ist oft ein 
Vorteil, kann aber auch störend sein. Man kann diese Art der Datenspei¬ 
cherung aber auch noch unter anderen Aspekten betrachten. So ist es zu¬ 
nächst einmal recht unwichtig, ob sie mit FLRs oder mit VLRs verwirk¬ 
licht wird - bei beiden ist der Zugriff auf einen Eintrag identisch. Dieser 
Zugriff nun ist zwar schneller, als der Zugriff auf VLR-Arrays mit Sepa¬ 
ratoren, jedoch bedeutend langsamer als auf FLR-Arrays, da auch hier alle 
Records vor dem gesuchten Record durchgegangen werden müssen. 

Die Vorteile einer Linked List kommen zum Tragen, wenn es darum geht, 
Elemente einzufügen oder zu löschen. Wir haben diese Prozesse in den 
Darstellungen 2 bis 4 der Abbildung 2.1 einmal anschaulich dargestellt. So 
kann z.B. Record 4 zwischen Record 2 und 3 eingefügt werden (Darstel¬ 
lung 2), indem PTR2 nach PTR4 kopiert wird und PTR2 schließlich auf 
den Record 4 gesetzt wird. Durch die Veränderung von nur 2 Zeigern 
wurden so ganze Datenblöcke miteinander verbunden. Ganz ähnlich wird 
auch ein Record an eine Liste angehängt (Darstellung 3). Der letzte Zeiger 
wird auf das neue Element gesetzt und in dessen Zeiger wird ein NIL ge¬ 
schrieben. Auch das Löschen eines Elementes ist sehr einfach (Darstellung 
4). Der Zeiger des zu löschenden Elements wird in den vorhergehenden 
Zeiger kopiert (PTR2->PTR1). Das ist bereits der gesamte Vorgang, der 
nötig ist, um Record 2 aus der Linked List auszuhängen. Der Zeiger von 
Record 2 zeigt dann immer noch auf Record 3, was jedoch unerheblich für 
die Kette ist. 
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Die Linked List, die wir hier beschrieben haben, ist eine "lineare" Linked 
List, d.h. daß ein Eintrag jeweils immer nur auf den nächsten Eintrag zeigt 
und daß die Liste einen Anfang und ein Ende hat. Daneben gibt es noch 
sehr viele Variationen dieser Datenorganisation, z.B. die "zirkuläre" 
(circular) Linked List, in der der letzte Zeiger kein NIL enthält, sondern 
auf den ersten Eintrag der Liste zeigt. Dann ist auch die doppelt verkettete 
Liste (double linked list) eine recht häufig verwendete Organisationsform. 
Ein Eintrag enthält jeweils zwei Zeiger: einen auf das nächste, den zwei¬ 
ten auf das vorhergehende Element. Dies sind nur zwei der zahlreichen 
Erweiterungen des "Zeiger-Prinzips". 
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2.2 Datenstrukturen 

Wie bereits erwähnt, beschreiben die Datenstrukturen die Idee, die hinter 
der Organisation der Daten sich verbirgt, d.h. die logische Beziehung 
zwischen den Daten. Im Gegensatz zur Datenspeicherung, die an sich eine 
statische Beziehung der Datenblöcke im Speicher definiert, gehört zur 
Betrachtung der Datenstrukturen immer die Betrachtung der Dynamik, d.h. 
der Art und Weise, in der die Daten verarbeitet werden. Man unterscheidet 
zwei grundsätzliche Strukturen, den LIFO und den FIFO. 

2.2.1 Das LIFO-Prinzip (Stacks) 

Die Bezeichnung LIFO kommt von "Last In - First Out", also zuletzt 
hinein, zuerst heraus. In der Umgangssprache werden sie auch durch den 
Begriff "Stack" (Stapel) beschrieben, obschon man durchaus die Synony- 
mität dieser beiden Begriffe anzweifeln kann. Dennoch ist das Bild eines 
Stapels eine sehr gelungene Veranschaulichung der LIFO-Struktur, Nehmen 
wir zum Beispiel einen Bücherstapel. Das einzige Element dieses Stapels, 
auf das man direkt zugreifen kann, ist das oberste Buch, also der oberste 
Eintrag. Dies ist das Buch, das zuletzt auf den Stapel gelegt wurde, und es 
ist das, welches als erstes vom Stapel genommen werden wird, wenn wir 
uns jetzt daran machen, den Stack abzubauen. Auf diese Weise lassen sich 
genau zwei Operationen definieren, die man mit dem Stapel durchführen 
kann: ein neues Element oben auf den Stapel legen, was mit "push" be¬ 
zeichnet wird, bzw. das oberste Element vom Stapel holen, was man "pop" 
oder "pull" nennt. 




-SP 

| 

! 

s 

Record 2 



- SP 


Record 1 

Record 1 


Record 1 

1 l-SP 




1 —. .i ~ SP 


BASE 


BASE 


BASE 


BASE 


BASE 


Abblildung 2.2: STACK, feste Record-Länge (FLR) 

Wir haben diesen Vorgang in den Abbildungen 2.2 und 2.3 ins Bild gesetzt. 
In beiden Abbildungen werden auf einen zunächst leeren Stack zwei 
Records nacheinander gepusht und dann - in umgekehrter Reihenfolge - 
gepullt. Der Unterschied zwischen den beiden Abbildungen besteht darin, 
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daß in 2.2 die einzelnen Records hintereinander, in Form eines Arrays, 
abgespeichert sind (dies macht vor allem dann Sinn, wenn es sich bei den 
Records um FLRs handelt), während die Records in 2.3 in Form einer 
Linked List miteinander verbunden sind (was in dieser Anwendung vor 
allem bei VLRs Vorkommen dürfte). Wir haben diese beiden Abbildungen 
deshalb aufgenommen, um noch einmal die (zumindest theoretische) Unab¬ 
hängigkeit der Datenorganisation von den Datenstrukturen zu dokumentie¬ 
ren. 
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Abbildung 2.3: STACK, variable Record-Länge (VLR) 

Es ist gut möglich, daß Sie mit der Struktur des Stacks schon vertraut 
waren. Auf Maschinenebene ist bereits ein sehr einfacher Stack durch die 
Hardware implementiert: der Prozessorstack, auf dem vor allem Rückkehr¬ 
adressen für CALLs und ähnliche Befehle, aber auch Daten abgelegt wer¬ 
den. Er wird durch den Stackpointer im Prozessor, das SP-Register reali¬ 
siert. Der Hardware-Stack ist ein Stack des ersten Typs, da die Records 
eine feste Länge haben (2 Byte, wenn man einmal nur die RETurn-Adres- 
sen berücksichtigt) und da sie vor allem im Speicher aufeinander folgend 
abgespeichert werden (also in Form eines Arrays). Ein Beispiel für einen 
Stack der zweiten Art, der also in Form einer Linked List realisiert ist, 
finden Sie in Abschnitt 4.5.3 über die Auswertung einer User-Funktion in 
Basic. 


2.2.2 Das FIFO-Prinzip (Queues) 

Das Kürzel FIFO steht für "First In - First Out", also etwa zuerst hinein, 
zuerst heraus. Dieselbe Struktur wird bei Anwendungen, wo es um die 
Abwicklung von Anfragen externer Geräte bzw. um das Bedienen mehrerer 
Tasks in einem Multitasking-System geht, auch FCFS (First Come - First 
Served) genannt. Dies ist praktisch nichts weiter als die "Gegenstruktur" 
zum Stack. Der Eintrag, der als erster in eine solche Struktur übernommen 
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wurde, wird also auch als erster aus ihr wieder entfernt. Der umgangs¬ 
sprachliche Ausdruck dafür ist "Queue" (deutsch etwa "Schlange", im Sinne 
von: Reihe von Menschen). Tatsächlich ist der Supermarkt ein idealer Platz, 
um sich diese Datenstruktur zu veranschaulichen. Die Reihen, die sich an 
den Kassen bilden, werden nämlich (wenn man von einigen unrühmlichen 
Ausnahmen einmal absieht) ausschließlich nach dem FIFO-Prinzip bearbei¬ 
tet: Wer als erster kommt, wird auch als erster bedient. 
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Abbildung 2.4: Ringbuffer 

Beispiele für solche Queues gibt es viele im Schneider-Computer. Das wohl 
klassische Beispiel ist ein "Ringbuffer". Der Ringbuffer ist ein Speicher¬ 
bereich, in den Records mit fester Länge geschrieben werden. Er hat also 
die Form eines Arrays. Da seine Größe fest ist und die Länge der Einträge 
ebenfalls definiert ist, ergibt sich daraus, daß ein Ringbuffer nur eine ganz 
bestimmte Anzahl von Einträgen aufnehmen kann. Wie die meisten Buffer, 
so verfügt auch der Ringbuffer über zwei Zeiger: einen, der auf das Ele¬ 
ment zeigt, das als nächstes zu lesen ist und einen, der auf die Stelle zeigt, 
in die das nächste Element geschrieben wird. Das Besondere an einem 
Ringbuffer ist nun aber, daß diese beiden Zeiger, wenn sie über das Ende 
des Bufferbereiches (im Speicher) hinausgehen, wieder auf den Buffer¬ 
anfang gesetzt werden. Sie verfolgen sich demnach gegenseitig im Buffer 
und laufen in einer Art Kreis im Buffer herum. 
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Wir haben versucht, diesen Prozeß in Abbildung 2.4 zu verdeutlichen: Der 
Buffer dort kann maximal sechs Elemente aufnehmen. Zunächst enthält er 
vier Elemente. Dann wird eines (Nummer 5) hineingeschrieben und zwei 
werden herausgelesen (Nummer 1 und 2). Die schraffierten Flächen geben 
jeweils die unbenutzten Positionen im Buffer an. Dann werden als nächstes 
drei Records in den Buffer geschrieben (6,7 und 8) und ein Element (3) 
herausgelesen. Schließlich wird ein Element (9) geschrieben und drei (4,5,6) 
werden gelesen. 

Der Ringbuffer tritt im CPC an zwei Stellen auf: im Keyboard Manager als 
Buffer zur Speicherung der Tastenkoordinaten und im Sound Manager zur 
Realisierung der Queue (d.h. der Warteschlange) der Töne für jeden Kanal. 
Im ersten Fall sind die Einträge zwei Byte lang und der Ringbuffer ist für 
20 Einträge ausgelegt, im zweiten Fall sind die Einträge acht Byte lang, 
und es passen genau vier Records in jeden der drei Ringbuffer. 

Eine Queue kann jedoch nicht nur über ein Array in Form eines Ringbuf¬ 
fers organisiert werden, auch die Linked List wird häufig dazu verwandt. 
Dies ist sehr einfach zu realisieren, indem man an das eine Ende der Liste 
nur Records anhängt und von dem anderen Ende nur Records entfernt. Im 
CPC kann man z.B. die Synchronous Pending Queue als eine solche Queue 
betrachten. Sie ist jedoch kein reiner FIFO: Die Events werden in ihr nicht 
nur an einem Ende eingehängt, sie werden vielmehr nach Prioritäten ge¬ 
ordnet in die Queue gebracht. 

Die Einführung einer Priorität ist nicht die einzige Modifikation, die man 
mit der FIFO-Struktur machen kann. So gibt es Queues, an denen bei 
beiden Enden sowohl Records eingehängt, wie auch ausgelesen werden 
können. Man nennt diese Struktur dann eine double-ended queue, oder 
auch dequeue (gesprochen "deck"). 
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2.3 Programm Struktur und Programmiertechniken 

Die Funktionsweise der einzelnen Routinen im ROM des CPC kann man 
trotz der umfassenden Dokumentation des ROM-Listings nicht nachvollzie¬ 
hen, wenn man die Programmstruktur nicht betrachtet. Im Folgenden wer¬ 
den einige Strukturen und Techniken erläutert, die nicht so einfach nach¬ 
zuvollziehen sind bzw. die speziell im Schneider CPC eingesetzt werden. 

2.3.1 Rekursion 

Rekursion bedeutet wörtlich "Zurückgehen". Ein (Unter-)Programm ist 
dann rekursiv, wenn es an seinen Anfang zurückgeht. Eine anschaulichere 
Erklärung besagt, daß ein rekursives Unterprogramm sich selbst aufruft. 
Solch ein Aufruf bedeutet ja (unter anderem) ein Zurückgehen an den 
Anfang des Unterprogramms. 

Zur Verdeutlichung ein Beispiel aus der Mathematik. Die Fakultät (n!) 
einer Zahl n ist das Produkt aller natürlichen Zahlen bis einschließlich zu 
der Zahl n. Demnach ist 4! (lies: vier Fakultät) also i * 2 * 3 * 4 = 24. Die 
Allgemeine Definition lautet: n! := 1*2*3* ... *n. Per Programm kann man 
die Fakultät mit einer einfachen Schleife berechnen: 

100 REH FAKULTÄT N!=FAK(N> 

110 FAK=1 
120 FOR 1=1 TO N 
130 FAK=FAK*I 
140 NEXT 
150 RETURN 

Die Fakultät läßt sich eleganter auch rekursiv definieren: n! := n * (n - 1)!. 
Die direkte Umsetzung in Basic ist hier zwar nicht so einfach möglich, in 
anderen Sprachen oder auch in Assembler läßt sich jedoch eine rekursive 
Lösung verwirklichen: 


CP 

2 

;Zahl <=1 ? 

LD 

B, 1 

;dann Resultate, 

RET 

C 

;fertig 

PUSH 

AF 

;Zahl retten 

DEC 

A 


CALL 

FAK 

;Fakultät von (Zahl-1) 

POP 

AF 

;mit Zahl 

CALL 

MULT 

/multiplizieren 

LD 

B, A 

/Ergebnis nach B RET 


Die Berechnung der Fakultät wird hier also auf sich selbst zurückgeführt: 
Zur Berechnung der Fakultät von n wird die Fakultät von n-1 berechnt 
und diese dann mit n multipliziert. 
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Es werden zwei Grundvoraussetzungen der Rekursion deutlich: Erstens 
muß eine rekursive Routine eine Abbruchbedingung enthalten, damit sie 
sich nicht unendlich oft selbst aufruft. Diese Abbruchbedingung ist in 
unserem Beispiel dann erfüllt, wenn die eingegebene Zahl kleiner oder 
gleich eins ist. Zweitens werden der rekursiven Routine ein oder mehrere 
Parameter übergeben, in unserem Beispiel eine Zahl in A. Parameter sind 
jedoch lokal zu der Routine, der sie übergeben werden. Lokal bedeutet in 
diesem Sinne, daß beim Aufruf der Routine ein eigener Platz für die Para¬ 
meter reserviert wird, auf den die aufrufende Routine keinen Zugriff hat. 
Ein lokaler Parameter kann z.B. nicht in einer festen Speicherstelle gespei¬ 
chert werden, auf die auch die aufrufende Routine zugreift. Allgemein 
zugreifbare Speicherstellen oder Variablen werden global genannt. 

In unserem Beispiel wird die Lokalität des Parameters dadurch erreicht, 
daß der Akkumulator vor dem rekursiven Aufruf auf den Stack gerettet 
wird. Der Akkumulator kann dann von der aufgerufenen Routine für loka¬ 
le Zwecke verwendet (und sein Inhalt zerstört) werden. Lokale Variablen 
und Parameter werden bei rekursiven (und auch bei nicht rekursiven) Rou¬ 
tinen im allgemeinen auf einen Stack gerettet. Ein Stack ist aufgrund seiner 
LIFO-Struktur (siehe 2.2.1) für die Speicherung lokaler Variablen beson¬ 
ders geeignet, da die Parameter in der umgekehrten Reihenfolge wieder 
zurückgeholt werden müssen, in der sie auf den Stack gespeichert wurden. 

Eine wichtige Vorraussetzung der Rekursion ist natürlich, daß die über¬ 
gebenen Parameter sich mit der Rekursionstiefe (der Zahl der Verschach¬ 
telungen) ändern müssen, damit die Abbruchbedingung anhand veränderter 
Parameter erkannt werden kann. Eine Routine darf sich daher niemals mit 
den gleichen Parametern selbst aufrufen, mit denen sie aufgerufen wurde. 

Im Schneider-Basic sind sämtliche Variablen, die man verwenden kann, 
global, da alle Unterprogramme auf sie in gleicher Weise zugreifen können. 
Rekursion in Basic ist nur unter sehr eingeschränkten Bedingungen mög¬ 
lich, da man sich einen Software-Stack (in einem Array) aufbauen muß. 

In Assembler steht dem Programmierer jedoch der Hardware-Stack zur 
Verfügung, der Anwendung der Rekursion sind also keine Grenzen gesetzt. 
So wird die Rekursion auch im Basic-Interpreter und im Betriebssystem des 
CPC eingesetzt. Die wichtigste Anwendung ist hier die Auswertung eines 
Ausdrucks im Basic (siehe Abschnitt 4.5.2). 

Viele Programme kommen ohne den Einsatz von Rekursion aus. Grundsätz¬ 
lich läßt sich jedes Problem nicht-rekursiv lösen. In vielen Fällen ist eine 
rekursive Lösung jedoch eleganter als eine nicht-rekursive. 
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2.3.2 Transparente Ausführung von Routinen 

In Abbildung 2.5.1 ist die Struktur eines verschachtelten gewöhnlichen 
Unterprogrammaufrufs dargestellt. Jedes Unterprogramm kehrt ins aufru¬ 
fende Programm zurück, und zwar an die Stelle nach seinem Aufruf. Die¬ 
ses Zurückkehren wird bekanntermaßen durch eine Rückkehradresse auf 
dem Stack realisiert. 

Im Schneider-CPC wird dieser klar strukturierte Programmablauf jedoch an 
einigen Stellen durchbrochen. Das geschieht mit dem Zweck, eine Routine 
transparent auszuführen. Dies ist z.B. im Basic nötig, wenn bestimmte 
Operationen auf dem Bildschirm ausgeführt werden sollen. Vor Ausführung 
einer solchen Operation setzt das Basic in der Regel eine übergebene 
Streamnummer (z.B. beim PRINT#-Befehl). Dann wird die eigentliche 
Operation in einer Routine ausgeführt und anschließend die alte Stream¬ 
nummer wieder zurückgesetzt. 

Dieses Setzen und Rücksetzen der Streamnummer führt eine eigene Routine 
(in Abbildung 2.5.2 TRANS genannt) durch, die von der eigentlichen 
Bildschirm-Routine (SUB in der Abbildung) transparent aufgerufen wird. 

Schauen wir uns den Ablauf einmal im einzelnen an. Zuerst ruft MAIN mit 
einem normalen Unterprogrammaufruf die Routine SUB auf (Pfeil 1). SUB 
ruft dann ihrerseits die Routine TRANS mit einem normalen CALL-Befehl 
auf (Pfeil 2). TRANS kehrt jedoch nicht auf gewöhnlichem Weg zu SUB 
zurück, sondern holt die SUB-Rücksprungadresse vom Stack, um SUB dann 
weiterzuführen (Pfeil 3). Dadurch ist es der Routine TRANS möglich, nach 
der Beendigung von SUB (Pfeil 4) noch Operationen durchzuführen. In 
unserem Beispiel der Bildschirmoperation, die SUB ausführt, schaltet 
TRANS vor der Weiterführung von SUB eine bestimmte Streamnummer ein 
und stellt nach der Weiterführung von SUB wieder die alte Streamnummer 
ein. Die Routine TRANS wird also insofern transparent aufgerufen, als daß 
die Routine SUB von den Operationen, die TRANS nach der Weiterfüh¬ 
rung von SUB ausführt, nichts erfährt. Es wird durch diese Technik ein 
Aufruf am Ende von SUB gespart. 

Generell führt die Manipulation mit Rückkehradressen auf dem Stack zu 
unübersichtlichen Programmstrukturen. Die Beschreibung des transparenten 
Unterprogrammaufrufs im CPC soll Sie also nicht ermuntern, dieses Pro¬ 
blem auf gleiche Art und Weise zu lösen. Als Alternative zu der im CPC 
benutzten Technik wäre denkbar, der TRANS-Routine in einem Register 
eine Adresse zu übergeben, die dann angesprungen wird. 
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1. Einfacher Unterprogrammaufruf 


MAIN 



2. Transparenter Unterprogrammaufruf 


MAIN 



Abbildung 2.5: Transparente Ausführung von Routinen 
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2.3.3 Position Independence (Ortsunabhängigkeit) 

Die meisten Maschinenprogramme, die auf dem Z80A laufen, sind für 
feste Adressen geschrieben. Dies rührt von den festen Adressen bei Sprün¬ 
gen mit JP und CALL her. Wenn man ein ortsabhängiges Programm an 
eine andere Stelle im Speicher schieben würde, so wären unkontrollierte 
Abläufe die Folge. 

Für viele Zwecke ist jedoch eine Ortsunabhängigkeit unerläßlich. Will man 
in ein Basic-Programm eine Zeile einfügen, so muß ein Teil des Pro¬ 
gramms verschoben werden. Dies funktioniert jedoch nur, wenn das Basic- 
Programm an keine feste Adresse gebunden ist. Deshalb werden bei der 
Einbindung einer Programmzeile in die verkettete Liste der Zeilen keine 
Kettungsadressen, sondern Kettungsoffsets relativ zum Zeilenanfang be¬ 
nutzt. In diesem Fall also die Längen der Zeilen. Ebenso werden keine 
Variablenadressen, sondern Variablenoffsets relativ zum Start des Varia¬ 
blenbereichs ins Programm gespeichert. Damit kann der Variablenbereich 
ebenfalls beliebig verschoben werden. 

Neben der Verwendung von relativen Adressen (Offsets) gibt es noch 
andere Möglichkeiten, eine Ortsunabhängigkeit zu gewährleisten. Bei einem 
Offset folgt die Ortsunabhängigkeit aus der Allgemeinheit der Basisadresse, 
auf die sich die Offsets beziehen. Bei bestimmten Anwendungen ist ein 
Offset jedoch nicht nötig. Die allgemeine Adresse kann direkt verwendet 
werden. Dies wird im Schneider-Basic beispielsweise bei der Ausführung 
von Arithmetik-Routinen praktiziert: Eine Routinenadresse wird in einem 
Register an ein Unterprogramm übergeben, das die Argumente der Arith¬ 
metik-Funktion umformt und dann die gewünschte Routine aufruft. 

Die Vorraussetzung für die Ortsunabhängigkeit der Betriebssystem-Rou¬ 
tinen sind Sprungvektorentabellen im RAM (siehe Kapitel 3.3). Da die 
Sprungadressen der RAM-Vektoren beliebig verändert werden können, 
brauchen die Betriebssystem-Routinen nicht an festen Adressen zu liegen. 
Das machte die Änderung der 664- und 6128-Routinen gegenüber dem 
CPC 464 möglich, ohne daß die Ansprünge der RAM-Vektoren (die ja an 
einer festen Stelle im RAM liegen), in allen Programmen geändert werden 
mußten. 
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3 Beschreibung des 0PERAT1NG SYSTEMS (OS) 

Das Betriebssystem (Operating System) stellt einen Teil der im CPC imple¬ 
mentierten Firmware dar; das Basic bildet den anderen Teil. Seine Auf¬ 
gaben sind vor allem, die peripheren Einheiten des Systems (also besonders 
Geräte zur Ein- und Ausgabe von Daten, wie z.B. die Tastatur, den Druk- 
ker, den Bildschirm usw.) zu unterstützen. Jeder Einheit ist dabei ein 
Programmteil des Betriebssystems zugeordnet, der dazu dient, diese Einheit 
zu verwalten. Ziel dabei ist es, die Features, die das Gerät von sich aus 
hat, möglichst gut zu nutzen, so daß ein Anwenderprogramm ohne Schwie¬ 
rigkeiten mit der Peripherie kommunizieren kann. Wichtig ist dabei auch, 
daß das Anwenderprogamm über die Art des Gerätes bzw. dessen Aufbau 
wenn möglich nicht informiert zu sein braucht. Das ist die unterste Stufe 
der Geräteunabhängigkeit (Device Independence). In diesem Zusammen¬ 
hang betrachten wir auch das Basic als ein Benutzerprogramm des Opera¬ 
ting Systems. Aber auch jedes selbstgeschriebene (Maschinen-)Programm ist 
ein solches Benutzerprogramm. 

Diese Zuordnung von ganzen Programmsegmenten zu bestimmten Geräten 
(bzw. allgemeiner: bestimmten Aufgaben, da z.B. das Kernel im eigentli¬ 
chen Sinne nicht mit einem Gerät kommuniziert) macht eine Unterteilung 
des gesamten Betriebssystems in diese semantischen Blöcke sinnvoll, die 
auch im Speicher geschlossen zusammen liegen. Das Firmware Manual zum 
CPC-Operating System nennt diese Blöcke "Packs", Grund genug für uns, 
uns dieser Nomenklatur anzuschließen. Im Folgenden werden alle Packs 
ausführlich beschrieben. 


3.1 Das KERNEL (KL) 


3.1.1 Allgemeines 

Das Kernel stellt - zusammen mit dem Machine Pack - die unterste Ebene 
des Betriebssystems dar. Während das Machine Pack jedoch die Schnittstelle 
der CPC-Hardware zur Software darstellt, und man es daher als unterste 
physikalische Ebene verstehen kann, könnte man dem Kernel die Stellung 
der untersten logischen Ebene einräumen. Seine Aufgaben sind nicht so 
sehr hardwareorientiert, sondern es hat viel eher mit den grundlegenden 
Strukturen, in denen die Software im Schneider-Computer organisiert ist, 
zu tun (obschon eine gewisse Abhängigkeit von der Hardware, z.B. beim 
Banking für die Upper-ROMs, wohl kaum abzustreiten ist). 




66 Beschreibung des OPERATING SYSTEMS (OS) 


Die wichtigsten Aufgaben des CPC-Kernels sind daher auch die Verwal¬ 
tung der verschiedenen ROMs im Bereich von $C000 bis $FFFF (soge¬ 
nannte Upper- oder Hi-ROMs), die Verwaltung von Events und den damit 
zusammenhängenden Strukturen sowie die Koordinierung des Interrupts 
und die Ausführung damit verbundener Aufgaben. 

3.1.2 Das Banking im CPC 

Wie vermutlich bekannt, verfügt der Schneider-Computer über zwei interne 
ROMs, beide in einer Größe von 16 KByte. Genau genommen existiert im 
CPC nur ein 32-KByte-ROM, das logisch jedoch in zwei 16-KByte-Blöcke 
untergliedert ist. Das erste ROM, das sogenannte Lower- oder auch Lo- 
ROM, in dem sich das Betriebssystem des CPC befindet, belegt dabei die 
unteren 16 KByte der insgesamt 64 KByte, die der Z80 adressieren kann. 
Das Hi-ROM belegt die oberen 16 KByte. Zwischen den beiden ROMs ist 
also noch ein freier Platz von 32 KByte. Die zugrunde liegende Hardware 
wird in Abschnitt 1.3.6 erläutert und der Mechanismus mit einem 
Schaubild verdeutlicht. 

Zusätzlich zu den ROMs ist der gesamte Speicherbereich des Z80 mit RAM 
ausgelegt, d.h. neben den beiden 16-KByte-ROMs verfügt er noch über 
insgesamt 64 KByte RAM. Der CPC 6128 hat zwar 128 KByte RAM, 
davon sind jedoch nur maximal 64 KByte gleichzeitig ansprechbar. Die 
Verwaltung der verschiedenen RAM-Banken wird vom Kernel kaum un¬ 
terstützt (siehe Abschnitt 3.1.3). Daher betrachten wir hier nur die 
eingeschalteten 64 KByte. Näheres zum RAM-Banking finden Sie in 
Kapitel 1.3.7. 

Dort, wo die ROMs liegen (in den oberen bzw. unteren 16 KByte), liegt 
also auch noch RAM-Speicher. Wenn der Prozessor eine Adresse auslesen 
möchte und die entsprechende Adresse auf den Adreßbus legt, liefern ihm 
sowohl RAM als auch ROM ein Byte auf dem Datenbus. Das kann natür¬ 
lich nicht gutgehen, deshalb wurde bereits in der Hardware des CPC eine 
entsprechende Vorkehrung getroffen, die es ausschließt, daß sich in den 
"kritischen" Bereichen zwei verschiedene Speicher angesprochen fühlen. Der 
Prozessor kann über einige Bits im Gate Array (das ist der Steuerchip im 
Schneider-Computer, der alle wesentlichen Abläufe kontrolliert, u.a. auch 
die Speicherzugriffe des Prozessors) bestimmen, welchen Speicher er in den 
unteren und welchen er in den oberen 16 KByte ansprechen möchte. Die 
dafür vorgesehenen Bits befinden sich im Kontroll-Register des Gate 
Arrays. 

Diese Technik des An- und Abschaltens von Speicherbanken nennt man 
"Banking". Es dient dazu, den adressierbaren Speicherbereich von Mikro- 
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Prozessoren zu vergrößern. Das trifft im besonderen auf 8-Bit-CPUs zu, 
die einen relativ begrenzten Adreßraum von meist nur 64 KByte haben, 
entsprechend ihrer Adreßbusgröße von 16 Bit. Im Gegensatz stehen dazu 
die neueren 16-Bit CPUs, die teilweise über einen direkten Adreßraum von 
1 MByte, also 1024 KByte und mehr verfügen. Im CPC 6128 z.B. sind 
Speicher mit insgesamt 176 KByte (128 KByte RAM, 48 KByte ROM) ein¬ 
gebaut, obwohl nur 64 KByte vom Z80 direkt angessprochen werden kön¬ 
nen. Diese Technik des Banking ermöglicht den älteren Prozessoren (zu 
denen ohne Zweifel auch der Z80 gehört) in der KByte-Schlacht, die 
gegenwärtig geführt wird, noch eine Weile konkurrenzfähig zu bleiben. 
Doch trotz aller Vorteile, die durch die Technik des Banking zu erzielen 
sind, gibt es gegenüber der direkten Adressierung auch einige Nachteile: 
Durch das Umschalten auf jeweils andere Speicherbanken geht Zeit verlo¬ 
ren, die, wenn öfter umgeschaltet werden muß, schon ziemlich ins Gewicht 
fällt. Außerdem ist die Programmentwicklung schwieriger, da der Program¬ 
mierer das - in einigen Computern schon recht komplexe - Banking mit in 
seine Überlegungen einbeziehen muß. 

Die Konstrukteure des Schneider-Computers haben es im Zuge der Spei¬ 
cherplatz-Erweiterung nicht bei einem einfachen Banking belassen. Denn 
um nun zusätzliche Software (vor allem solche, die wie das DOS praktisch 
immer benötigt wird) nicht in den mit 48 KByte recht begrenzten freien 
RAM des CPC laden zu müssen, ließen sie sich gleich ein mehrfaches 
Banking für das Upper-ROM einfallen. Das Verfahren ist im Prinzip recht 
einfach: Es gibt nicht nur ein oberes ROM, sondern mehrere (im Schneider 
CPC genau 252), die voneinander durch eine Nummer zwischen 0 und 251 
($00 bis $FB) zu unterscheiden sind (siehe Abschnitt 1.3.6). Wenn nun ein 
Programm auf ein bestimmtes oberes ROM zugreifen möchte, so muß es 
nicht nur das obere ROM einschalten, sondern auch noch die Nummer des 
ROMs an eine Logik, die dann das gewünschte ROM auswählt, übergeben. 
Diese Logik muß im Schneider extern an den Expansion Bus angeschlossen 
werden. (Der Kasten mit dem Floppy-ROM z.B. enthält eine solche Logik. 
Die Nummer des Floppy-ROMs ist 7, die Nummer des immer vorhandenen 
Basic-ROMs ist 0.) Wichtig ist zu bemerken, daß diese Technik nur für das 
obere ROM implementiert werden kann. Für das untere ROM gilt nach wie 
vor das Prinzip des einfachen Bankings. 

Wie Sie vermutlich schon bemerkt haben, erweitert diese Möglichkeit, 251 
zusätzliche 16-KByte-ROMs anzuschließen, den adressierbaren Speicher um 
ein Vielfaches. Dennoch gibt es Nachteile: das Banking-System wird da¬ 
durch noch komplexer, das Ansprechen eines ROMs noch schwieriger und 
zeitaufwendiger. Vor allem aber ist die Nutzbarkeit dieses zusätzlichen 
Adreßraumes aus Hardware-Gründen auf ROMs beschränkt. Weiterhin ist 
251 zwar eine schöne Zahl, trotzdem ist diese Möglichkeit, derart viele 
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ROMs anzuschließen, sicherlich reiner Overkill. Dennoch: Systeme, wie z.B. 
das der Floppy, verdanken ihren relativ niedrigen Anspruch an RAM aus¬ 
schließlich dieser Technik. 

3.1.3 Banking und RSX im Kernei 

Nachdem wir uns nun eingehend mit dem Banking im Schneider-Computer 
befaßt haben, kommen wir jetzt zu der Rolle, die das Betriebssystem dabei 
spielt. Wir hatten schon erwähnt, daß der Programmierer normalerweise 
einen recht hohen Programmaufwand treiben muß, um das Banking in sei¬ 
nem Programm zu implementieren, und wir hatten dies als einen der 
Hauptnachteile des Bankings hingestellt. Im CPC jedoch nimmt das Be¬ 
triebssystem (bzw. das Kernel) dem Programmierer die Sorge darum ab. 
Das Kernel verfügt über eine ganze Reihe von Routinen, die die einzelnen 
Speicherbanken verwalten und den User (bzw. das Basic) sehr komfortabel 
beim Ansprechen der verschiedenen ROMs unterstützen. So gibt es z.B. die 
Routinen KL U ROM ENABLE und KL L ROM ENABLE zum Einschal¬ 
ten des oberen bzw. des unteren ROMs, analog dazu die Routinen KL U 
ROM DISABLE und KL L ROM DISABLE zum Ausschalten der ROMs. 
Um ein bestimmtes oberes ROM auszuwählen gibt es KL ROM SELECT, 
und um den alten Zustand (d.h. das alte obere ROM) wiederherzustellen 
KL ROM DESELECT bzw. KL ROM RESTORE, wenn lediglich die alten 
ROM-Switches wieder eingeschaltet werden sollen, ohne daß das alte obere 
ROM wieder eingesetzt wird. Diese Routinen verwalten das Banking auf 
der untersten Ebene. 

Beim CPC 6128 werden zusätzlich zum ROM-Banking und unabhängig 
davon noch die acht 16-KByte-RAM-Banken verwaltet (siehe Abschnitt 
1.3.7). Hierzu stellt das Kernel die Routine KL RAM SELECT zur 
Verfügung, die die vom Benutzer übergebene RAM-Konfiguration in das 
Gate Array schreibt. Der Routinen-Name stammt im Gegensatz zu den 
anderen Namen nicht aus dem Firmware Manual, da uns ein solches für 
den 6128 nicht zur Verfügung stand. 

Von den 252 möglichen ROMs spielen die sieben ROMs mit den Nummern 
von 1 bis 7 eine besondere Rolle. Beim CPC 664/6128 haben die ROMs 0 
bis 15 diese Sonderstellung. Sie werden nämlich von einer Routine namens 
KL ROM WALK nacheinander durchgegangen und - eine bestimmte Ken¬ 
nung vorausgesetzt - in eine verkettete Liste eingetragen, die die momentan 
vorhandenen RSX-Erweiterungen enthält (bzw. die Nummern der Erweite- 
rungs-ROMs). Diese verkettete Liste spielt eine Rolle beim Auffinden von 
RSX-Kommandos. RSX steht hierbei für Resident System eVtension, also 
eine immer vorhandene Erweiterung des Systems (wie z.B. der Floppy- 
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Controller). RSX-Strings sind nun Befehlswörter (ganz ähnlich den Basic - 
Befehlswörtern), die für eine solche Erweiterung reserviert sind. 

Von Basic aus spricht man einen RSX-Befehl dadurch an, daß man dem 
Befehlswort einen vertikalen Strich voranstellt (siehe Abschnitt 4.8.2). Der 
Basic-Interpreter ruft dann die Kernel-Routine KL FIND COMMAND 
auf. Sie hat die Aufgabe, den RSX-Befehl in den eingeschalteten Erwei- 
terungs-ROMs (oder auch in einer RAM-RSX-Erweiterung) zu suchen und 
die Adresse des entsprechenden Befehlsroutine zurückzugeben, wenn das 
ROM, in dem der Befehl gefunden wurde, in der verketten Liste der RSX- 
Erweiterungen steht, bzw. den Befehl gleich auszuführen, wenn er in einem 
der anderen ROMs gefunden wurde. 

Diese Möglichkeit der RSX-Erweiterung wird z.B. beim Einbau der Flop- 
py-Kommandos in das normale Basic benutzt. Einige Routinen des Kernels 
haben damit zu tun: KL FIND COMMAND sucht, wie der Name sagt, sie 
nach einem RSX-String. KL ROM WALK geht die unteren 7 bzw. 16 
ROMs durch und hängt sie gegebenenfalls in die Linked List ein. KL INIT 
BACK initialisiert ein "RSX-Hintergrund-ROM" (background ROM) indem 
es testet, ob es ein Hintergrund-ROM ist und es gegebenenfalls in die 
verkettete Liste der RSX-Erweiterungen einträgt. Der Name Hintergrund- 
ROM rührt daher, daß dieses ROM für das übergeordnete System, also 
normalerweise Basic, nicht "sichtbar" ist. Man nennt dies auch transparent, 
da es immer nur für die Dauer eines Befehls eingeschaltet bleibt und 
danach wieder ausgeschaltet wird. Im Gegensatz dazu bleibt ein Vorder¬ 
grund-ROM, also z.B. das Basic, über längere Zeit eingeschaltet, weil es 
ein eigenständiges System darstellt. Schließlich hängt KL LOG EXT eine 
neue RSX-Erweiterung in die VL der RSX-Erweiterungen ein. Der VL- 
Eintrag, der der Routine übergeben werden muß, besteht entweder aus 
einer ROM-Nummer (kleiner $FC) oder aus einer Adresse, bei der die 
RSX-Erweiterung im RAM liegt. Das Hi-Byte dieser Adresse darf nicht 
null sein, da die Adresse sonst als ROM- Nummer interpretiert wird. 

Wie schreibt man nun selbst eine RSX-Erweiterung? Die RSX-Befehlswör- 
ter und RSX-Einsprungadressen müssen in Tabellen zusammengefaßt wer¬ 
den. Die zwei Byte vor der Einsprung-Tabelle werden als Zeiger auf die 
Tabelle der Befehlswörter interpretiert. Zwei Byte später folgen die Ein¬ 
sprünge für die einzelnen Befehle, und zwar im Abstand von jeweils drei 
Byte. Am einfachsten ist es, hier JP-Befehle zu den einzelnen Befehlsrou¬ 
tinen einzutragen. Die Befehlswörter werden ebenfalls hintereinander in 
eine Tabelle eingetragen. Das Ende eines Befehlsworts wird durch ein ge¬ 
setztes 7. Bit des letzten Bytes und das Ende der Befehlswort-Tabelle durch 
eine Null gekennzeichnet. Die Befehlswort-Tabelle bestimmt somit die An¬ 
zahl der RSX-Befehle in einer Erweiterung und damit auch die Länge der 
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Einsprung-Tabelle. Einen Zeiger vor letztere Tabelle (genau zwei Byte vor 
dem ersten Einsprung) muß man nun der Routine KL LOG EXT überge¬ 
ben, damit die Erweiterung korrekt eingehängt wird. Ist die Erweiterung in 
einem externen ROM, so wird die ROM-Nummer übergeben. Die Ein¬ 
sprung-Tabelle beginnt dann bei SC006, der Zeiger auf die Befehlswort- 
Tabelle steht also bei $C004. Weitere Informationen über RSX erhalten sie 
in Abschnitt 4.8.2. 

3.1.4 Die Bearbeitung von Events 

Die Bearbeitung von Events und deren Verwaltung gehören zu den zen¬ 
tralen Aufgaben des Kernels. Um nun im Folgenden darauf näher eingehen 
zu können, ist es zunächst einmal unerläßlich, den Begriff des "Events" 
näher zu erläutern. 

3.1.4.1 Der Begriff Event 

Ein Event (deutsch etwa "Ereignis") ist zunächst einmal nichts weiter als 
eine Routine, die bei bestimmten Gelegenheiten aufgerufen wird. Je nach 
Art dieser Gelegenheit unterscheidet man zwei Arten von Events: 

1. Synchrone Events: Sämtliche synchrone Events, die im Moment vom 
Kernel verwaltet werden, sind in einer verketteten Liste, der "Synchronous 
Pending Queue" (SPQ) eingetragen (geordnet nach einer Priorität, auf die 
wir noch zu sprechen kommen werden). Alle Events in dieser Liste warten 
auf ihre Ausführung, man sagt, sie seien "schwebend" (pending). Die Ein¬ 
träge in dieser Liste sind "Event Blocks", deren Herzstück ein Zeiger auf 
die eigentliche Event-Routine ist. Sie wird angesprungen, wenn der Event 
zur Ausführung kommt. Ein solcher Event Block enthält daneben noch 
weitere Informationen, z.B. eine Koppeladresse, einen Zeiger also auf den 
nächsten Eintrag in der Liste. Auf den genauen Aufbau eines Event Blocks 
wird noch später eingegangen werden. Die Events in der SPQ werden 
nacheinander abgearbeitet, und zwar nur dann, wenn das kontrollierende 
Programm (im allgemeinen der Basic-Interpreter) dem Kernel sagt, daß es 
jetzt den nächsten synchronen Event auszuführen hat. Daher kommt auch 
der Name "synchron" für diese Art der Events, da sie immer synchron zum 
Programm abgearbeitet werden. Ein typischer synchroner Event ist z.B. der 
Break-Event, der von Basic aus benutzt wird. Das Basic springt jedesmal 
bei Eintritt in die Interpreterschleife die Routine im Kernel an, die den 
nächsten synchronen Event in der SPQ ausführt, wenn einer vorhanden ist. 
Der Break-Event, der vom Keyboard Manager in die SPQ eingehängt wird, 
darf auch nur an dieser Stelle die Behandlung eines Breaks auslösen: nur 
zwischen zwei Basic-Befehlen und nicht während ein Basic-Befehl gerade 
ausgeführt wird. 
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2. Asynchrone Events: Der Event Block von asynchronen Events hat genau 
den gleichen Aufbau wie der von synchronen Events (mit der Ausnahme 
eines Flags, das den Event-Typ beschreibt). Desweiteren werden auch 
asynchrone Events in einer verketteten Liste zusammengefaßt, allerdings 
nicht in der SPQ, sondern in einer eigenen "Asynchronous Pending Queue" 
(APQ) oder auch "Interrupt Pending Queue" (IPQ) genannt. Der große 
Unterschied zu den synchronen Events besteht in dem Anlaß, der die 
asynchronen Events zur Ausführung bringt. Werden die synchronen Events 
nach und nach durch den Ansprung einer entsprechenden Routine durch 
das kontrollierende Programm ausgeführt, so wird die gesamte APQ inner¬ 
halb eines Interrupts bearbeitet. Es erklärt sich somit auch der Name 
"asynchron": da ein Interrupt ohne Rücksicht auf das gerade ablaufende 
Programm auftritt, werden auch die asynchronen Events ohne Rücksicht 
darauf, wo sich das Basic z.B. im Augenblick befindet, ausgeführt - d.h. 
auch mitten in einem Befehl. Das schränkt auf der einen Seite natürlich die 
Verwendbarkeit asynchroner Events ein, da diese z.B. keine Speicherstellen 
im Systembereich des Basics ändern dürfen (was mitten in der Befehlsaus¬ 
führung sicherlich verheerende Folgen hätte). Das öffnet aber auf der 
anderen Seite ganz neue Möglichkeiten, Echtzeit-Systeme zu realisieren, da 
der Interrupt streng periodisch mit einer Frequenz von etwa 300 Hz 
auftritt. Mit synchronen Events ist das kaum möglich. 

Fassen wir die vielleicht ein wenig verwirrenden Erkenntnisse, die wir 
soeben gewonnen haben, noch einmal kurz zusammen: Ein Event ist eine 
Routine, deren Adresse in einem zugehörigen Event Block eingetragen ist 
(zusammen mit einigen anderen Parametern, wie z.B. der ROM-Konfigura- 
tion beim Aufruf des Events). Der Event Block wird vom Betriebssystem 
des Schneider Computers derart verwaltet, daß die Blöcke in "Pending 
Queues" eingereiht werden, die die Form einer verketteten Liste haben. Es 
gibt nun zwei verschiedene Arten von Events, wobei es für jede Klasse 
genau eine Pending Queue gibt: synchrone Events und asynchrone Events 
(entsprechend gibt es eine Synchrone Pending Queue, SPQ, und eine asyn¬ 
chrone Pending Queue, APQ oder IPQ). Die Abarbeitung der SPQ (und da¬ 
mit der Aufruf der synchronen Events) geschieht ausschließlich auf den 
Befehl des kontrollierenden Programms, während die gesamte APQ inner¬ 
halb eines Interrupts abgearbeitet wird (welcher mit einer Frequenz von 
300 Hz auftritt). Es ist wichtig, diese grundlegenden Strukturen verstanden 
zu haben, wenn man die Event-Bearbeitung im Schneider-Computer ver¬ 
stehen möchte. Also lesen Sie sich diesen Abschnitt ruhig noch einmal 
durch. 
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3.1.4.2 Chains und ihre Bedeutung 

Nachdem wir oben die Begriffe Event und Pending Queue (PQ) geklärt 
haben, kommen wir jetzt zu einer weiteren Struktur, die unter die Event- 
Verwaltung fällt, zu den "Chains" (Ketten). 

Wie im letzten Abschnitt vielleicht schon durchgeklungen ist, werden die 
Queues, die ja Event für Event abgearbeitet werden, während der Bear¬ 
beitung immer kürzer. Ein Event wird nach der Ausführung wurde, aus 
der Queue ausgehängt. Wenn man aber z.B. eine Routine immer wieder 
ausgeführt haben möchte, so ist folglich das Einhängen in eine PQ keine 
Lösung für das Problem, da die Routine daraufhin genau einmal ausgeführt 
wird und dann aus der PQ verschwindet. Man könnte dann die Routine 
genauso gut auch als Unterprogramm direkt aufrufen, anstatt sie mühsam 
in eine verkettete Liste einzuhängen, sie irgendwann einmal vom Betriebs¬ 
system ausführen und dann wieder aushängen zu lassen. Was man also 
benötigt, ist eine weitere Liste, in der alle Events eingetragen sind, die man 
periodisch in die PQ einhängen möchte. In dieser Liste werden die Events 
dann z.B. bei jedem Interrupt durchgegangen und in die entsprechende PQ 
eingehängt, ohne die Events dabei aus dieser Liste auszuhängen. Alle 
Events verbleiben somit in dieser Liste, wenn der Programmierer es nicht 
anders bestimmt. 

Eine solche Liste, die dazu dient, periodisch zu wiederholende Events 
aufzuheben, nennt man im Schneider-Computer eine "Chain". Im CPC gibt 
es gleich drei verschiedene Chains, die sich ganz ähnlich, wie auch die 
Pending Queues, durch die Anlässe unterscheiden, zu denen sie durchge- 
gegangen und Event für Event ihrer PQ zugewiesen werden. Man nennt 
diesen Vorgang, einen Event aus einer Chain in eine der beiden PQs 
einzuhängen, auch "kicken". Die erste Chain ist die "Fast Ticker Chain" 
(ETC). Sie ist eigentlich die Chain, die wir oben als Beispiel angeführt 
haben: Die Fast Ticker Chain wird bei jedem Interrupt durchgegangen, d.h. 
bearbeitet. Die zweite Chain ist die "Ticker Chain". Sie wird nicht mit 
300 Hz bearbeitet (wie die ETC), sondern nur mit etwa 50 Hz, nämlich bei 
jedem sechsten Interrupt. Schließlich ist da noch die "Frame Fly Chain", 
die nur bearbeitet wird, wenn der Video-Chip im Schneider-Computer eine 
vertikale Synchronisation (VSYNC) ausgibt, d.h. wenn das (Fernseh- 
/Monitor-)Bild aufgebaut ist und der Elektronenstrahl von der rechten 
unteren Ecke in die linke obere "zurückfährt". 

Die Struktur einer Chain ist ganz ähnlich der einer Pending Queue: sie ist 
eine verkette Liste, wobei die Koppeladresse auf den nächsten Listenein¬ 
trag, dem eigentlichen Event Block, einfach vorangestellt wird. Bei Ein¬ 
trägen in der Ticker Chain kommen noch einige Zähler davor. Man kann 
auch sagen, der Event Block erhält einen "Kopf für die jeweilige Chain. 
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3.1.4.3 Der Aufbau von Event Blocks 

In den bisherigen Abschnitten über die Bearbeitung von Events durch das 
Schneider-Operating-System haben wir die (informatischen) Strukturen 
kennengelernt, die für die Verwaltung der Events nötig sind. Dieser 
Abschnitt soll nun eher der "Praxis" in dem Sinne gewidmet sein, daß wir 
endlich dazu kommen, uns über den Aufbau eines Event Blocks Gedanken 
zu machen. Dies ist vor allem für jemanden wichtig, der Events in eigenen 
Programmen zu nutzen gedenkt. Wenn Sie lediglich das Prinzip interessiert, 
nach dem Events funktionieren, so kann das Folgende nur noch zur Ver¬ 
deutlichung beitragen. 

Hier folgt jetzt eine kurze Übersicht über die Bedeutung der Bytes in 
einem Event Block. Eine Erklärung bisher nicht erklärter Begriffe wurde 
hinten angestellt. 

Byte 0/1: KoppeladreBse in der Pending Queue (KAPQ) 

Byte 2: Pending Queue Zähler 

Byte 3: Priority Byte oder auch Class Byte. 


Die einzelnen Bits haben folgende Bedeutung: 


Bit 0: 

=0: 


=1; 

Bit 1-4: 
Bit 5: 

=0 


=1 

Bit 6: 

=0 


=1 


Bit 7: 

=0: 


=1: 


Byte 4/5: 
Byte 6: 


Sprungadresse ist eine Far Address 
Sprungadresse ist eine Near Address 
Priorität eines Synchronous Events 
normaler Zustand für sync. Event eingeschaltet 
Synchronous Pending Queue wird "eingefroren" 
normaler Event 
Express 

async.: wird sofort ausgeführt 

sychron.: kann nicht gesperrt werden (Priorität) 

Synchronous Event 

Asynchronous Event 

Adresse der Event-Routine 

ROM-Konfiguration, nur für Far Call 


Die Koppeladresse in der Pending Queue ist ein Zeiger auf den nächsten 
Eintrag in der entsprechenden PQ. Sie erinnern sich sicher, daß die PQ die 
Struktur einer verketteten Liste hatte. Da die Pending Queues auschließlich 
vom Betriebssystem verwaltet werden, ist die Koppeladresse kein vom 
Benutzer manipulierbarer Parameter und für ihn eigentlich auch kaum von 
Interesse. 

Ist b7 gleich 0, so gibt der PQ-Zähler an, wie oft die Event-Routine 
ausgeführt werden soll. Ist b7 gleich 1, so wird der Event nicht eingehängt, 
wenn der KL EVENT übergeben wird - er ist also ausgeschaltet. (Durch 
einen Fehler im ROM funktioniert der PQ-Zähler nicht in der oben 
beschriebenen Form. Ein Event wird nur eingehängt, wenn sein Zähler 
gleich 0 ist, und dann auch nur genau einmal ausgeführt. Der Zähler ist 
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somit kein Zähler, sondern nur mehr ein Flag, das bestimmt, ob der Event 
eingehängt werden soll, oder nicht.) 

Eine Near Address liegt im RAM von $4000 bis $BFFF (im "zentralen 
RAM" zwischen den beiden ROMs) bzw. im unteren ROM. Eine Far 
Address liegt im oberen ROM. Je nach Event Routine muß der Benutzer 
entscheiden, welcher Art die Adresse der Routine ist. Ist es eine Far 
Address, so muß er zusammen mit der Routinen-Adresse auch noch die 
entsprechende ROM-Konfiguration festlegen (in Byte 6). 

Hinter dem Event Block (also ab Byte 7) beginnt die "User Area" 
(Benutzerfeld). Sie kann beliebig lang sein und auch beliebige Daten 
enthalten, da sie vom Kernel nicht mehr verwaltet und kontrolliert wird. 
Sie kann jedoch von der Event Routine besonders komfortabel genutzt 
werden, da beim Aufruf einer Near Address das Kernel einen Zeiger auf 
zwei Bytes vor das Benutzerfeld in DE hinterläßt. Bei einer Far Address 
zeigt der Zeiger drei Byte vor das Benutzerfeld und steht nicht in DE, 
sondern in HL. 

Bei allen Event Blocks, die der Routine KL EVENT nicht direkt über¬ 
geben, sondern während eines Interrupts aus einer der drei Chains heraus 
gekickt werden, kommt zu den oben angeführten sieben Bytes des eigent¬ 
lichen Event Blocks noch ein sogenannter Kopf für die jeweilige Chain. 
Für die Fast Ticker Chain und die Frame Fly Chain sind die Köpfe iden¬ 
tisch: sie bestehen lediglich aus einer Koppeladresse für die Verkettung der 
Events innerhalb der Chain (die, wie wir ja mittlerweile wissen, wie die 
Pending Queues von ihrer Struktur her verkettete Listen sind). Da auch 
dieses Feld (ebenso wie die PQ-Kettung) vom Betriebssystem versorgt wird, 
hat der User lediglich dafür Sorge zu tragen, daß die beiden Bytes für die 
Chain-Kettung vor dem Event-Block auch nicht anderweitig benutzt wer¬ 
den, also frei sind. Alles andere erledigt nach dem Einhängen in die Queue 
das Kernel. 

Der Kopf für einen Ticker Chain-Eintrag jedoch unterscheidet sich von 
den beiden anderen. Innerhalb eines Ticker-Kopfes existiert noch ein 
Zähler, mit dem der Benutzer festlegen kann, in welchen zeitlichen 
Abständen der entsprechende Event gekickt (d.h. in seine Pending Queue 
eingehängt) werden soll. Steht in diesem 2-Byte-Wert (der folglich Werte 
von 0 bis 65535 enthalten kann) z.B. die Dezimalzahl 10000, so wird der 
Event erst nach dem lOOOOsten Ticker-Durchlauf eingehängt. Da die 
Ticker-Chain mit einer Frequenz von 50 Hz durchgegangen wird, bedeutet 
dies, daß der Event erst nach 200 Sekunden gekickt wird. Zusätzlich gibt 
es noch einen "Reload Count", also den Zählerwert, auf den der Zähler 
gesetzt wird, wenn er einmal heruntergezählt wurde. Dieser Reload Count 
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wird natürlich nicht vom Betriebssystem verändert. Im Folgenden kurz der 
Aufbau des Ticker-Kopfes im Überblick: 

Byte 0/1: Koppeladresse für die Ticker Chain 

Byte 2/3: Tick Count, wird heruntergezählt bis auf Null, dann wird der Event gekickt und der 
Tick Count aus dem Reload Count neu geladen. 

Byte 4/5: Reload Count, bestimmt den neuen Startwert, mit dem der Tick Count geladen wird, 
nachdem er einmal auf Null gezählt wurde. 

Wenn Ihnen übrigens die zuletzt behandelten Zusammenhänge bekannt 
Vorkommen, so ist dies kein Wunder: die Basic-Befehle AFTER und 
EVERY benutzen nämlich genau diesen Mechanismus. Das Zeitintervall, 
das Sie diesen Befehlen zu übergeben haben, wird direkt als Tick Count 
gesetzt. Beim Befehl AFTER wird der Reload Count auf Null gesetzt, als 
Zeichen für nur ein einziges Kicken des Events. Beim Befehl EVERY wird 
dagegen der Reload Count gleich dem übergebenen Wert gesetzt (und damit 
gleich dem ersten Tick Count). Hier ist das Schneider Basic zu loben, das 
diese Möglichkeit der Event-Behandlung im Kernel auch (ebenso wie viele 
andere Besonderheiten des Betriebssystems, wie wir noch sehen werden), 
dem Basic-Benutzer zugänglich macht, wenngleich mit einigen 
Einschränkungen, und nicht nur Maschinensprache-Freaks vorbehält. 

3.1.4.4 Routinen zur Event-Behandlung 

Nachdem wir nun alle für die Verwaltung von Events wichtigen Mecha¬ 
nismen sowie den Aufbau von Event Blocks behandelt haben, wenden wir 
uns abschließend den Kernel Routinen zu, die für den Benutzer den 
Zugang zu diesen Mechanismen ermöglichen. 

INIT EVENT ist sicherlich die einfachste Routine. Sie dient dazu, einen 
Event Block aufzubauen (und zwar ohne Chain-Kopf) und nimmt so dem 
Benutzer die Sorge um den Aufbau eines Blocks ab. Man muß ihr aller¬ 
dings dennoch die erforderlichen Parameter in den Prozessor-Registern 
übergeben, inklusive der Adresse, an der sie den Event Block generieren 
soll. 

NEW FRAME FLY baut (mit INIT EVENT) einen Event Block auf und 
hängt ihn dann in die Frame Fly Chain ein. Dies geschieht mit ADD 
FRAME FLY, eine Routine, die einen fertigen Block an die Frame Fly 
Chain anhängt. DELETE FRAME FLY hängt den Event wieder aus der 
Chain aus. 

Für die Fast Ticker Chain existieren die analogen Routinen NEW FAST 
TICKER, ADD FAST TICKER und DELETE FAST TICKER. Für die 
Ticker Chain dagegen fehlt die Routine "New Ticker", da man ihr, zu¬ 
sammen mit dem Tick Count und dem Reload Count, zu viele Parameter in 
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den Registern übergeben müßte. Ansonsten existieren auch für die Ticker 
Chain ADD TICKER und DELETE TICKER. 

Die Routine "Scan Events" geht bei einem Interrupt die Fast Ticker Chain 
durch und bearbeitet gegebenenfalls auch die anderen beiden Chains. Fast 
Ticker Chain und Frame Fly Chain können mit der Routine KL KICK 
EVENT behandelt werden. Sie geht eine Chain Event für Event durch und 
hängt den Event ein. Wegen des abweichenden Aufbaus des Ticker-Kopfes 
kann die Ticker Chain nicht mit dieser Routine bearbeitet werden. Für die 
Ticker Chain steht die Routine "Ticker Chain bearbeiten" zur Verfügung. 

Ein einzelner Event wird mit der Routine KL EVENT gegebenenfalls in 
die entsprechende Pending Queue eingehängt. Diese Routine wird auch von 
KL KICK EVENT und "Ticker Chain bearbeiten" aufgerufen, sie kann je¬ 
doch ebenso auch direkt vom Benutzer zum direkten Kicken eines Events 
aufgerufen werden. Das Kicken eines Events wird durch die Routine KL 
DISARM EVENT verhindert (d.h. der Event ausgeschaltet). Diese Routine 
setzt den PQ-Zähler einfach auf SCO. Sie setzt also das b7, das ja als Flag 
für die De-Aktivierung eines Events gedacht war. 

Wie wir ja wissen, geschieht die Abarbeitung der Synchronous Pending 
Queue ausschließlich unter Kontrolle des User-Programms. Es gibt daher 
gleich ein ganzes Paket von Routinen dafür, wobei jede einen Schritt in 
der Bearbeitung der SPQ darstellt. Diese Bearbeitung der SPQ wollen wir 
nun im Folgenden erläutern. 

Im Unterschied zur APQ besitzt die SPQ eine gewisse Ordnung, und zwar 
sind die Events in ihr in der Reihenfolge fallender Prioritäten geordnet. 
Diejenigen Events mit den höchsten Prioritäten stehen weiter vorne und 
werden deshalb auch eher bearbeitet als die anderen. Die Priorität des 
laufenden Events (die laufende Priorität) und dessen Routinenadresse 
werden gesondert gespeichert, um zu verhindern, daß während der Aus¬ 
führung eines Synchronous Events ein anderer Event mit einer niedrigeren 
Priorität zur Ausführung gelangt. So holt KL NEXT SYNC den nächsten 
Event, jedoch tut sie dies nur dann, wenn die Priorität des nächsten Events 
größer ist als die des laufenden. Ist sie dies, so wird von KL NEXT SYNC 
die neue Priorität als die laufende gesetzt und auch die neue Routinen¬ 
adresse als die laufende gesetzt. Die alten Werte werden jedoch dem 
Benutzerprogramm übergeben. Somit hat der User die Verantwortung für 
die Priorität. Meist werden die gleichen Werte nach der Ausführung des 
Events einfach wieder gesetzt. 

Ist jetzt die neue Adresse geholt worden, so wird der Event mit KL DO 
SYNC ausgeführt, KL DONE SYNC setzt nach beendeter Ausführung wie¬ 
der die alte Priorität und die alte Routinenadresse ein. Dieser Ablauf ist 
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typisch für die Bearbeitung der SPQ, kann jedoch natürlich variiert 
werden. 

Bevor man die Bearbeitung synchroner Events beginnt, sollte man KL 
SYNC RESET aufrufen. Diese Routine setzt eine Null als laufende Priori¬ 
tät, die ja immer kleiner als jede andere Priorität ist. (Bedenken Sie, daß 
bei synchronen Events im Priority Byte das b7 auf jeden Fall immer ge¬ 
setzt ist!) Dies ist die Bedingung dafür, daß die Bearbeitung der SPQ 
überhaupt erst einmal begonnen werden kann. 

Desweiteren kann der Benutzer mit der Routine KL DEL SYNCHRONOUS 
einen bestimmten synchronen Event aus der SPQ aushängen, falls er darin 
ist. Mit KL EVENT DISABLE kann man die SPQ einfrieren, d.h. das Ho¬ 
len des nächsten Events blockieren. Dies geschieht, indem b5 der laufenden 
Priorität gesetzt und damit größer wird, als alle erlaubten Prioritäten. 
Damit kann der nächste Event aus der SPQ nicht geholt werden. KL 
ENABLE EVENT "taut" die SPQ wieder auf, indem sie b5 der laufenden 
Priorität wieder zurücksetzt. Synchronous Express Events können jedoch 
durch das gesetzte b5 nicht gesperrt werden, da in ihrer Priorität b6 (als 
Kennzeichen für Express) gesetzt ist. Das ihre Priorität bei Vergleichen mit 
der Sperrpriorität natürlich immer größer. 

Die Routine KL POLL SYNCHRONOUS schließlich dient dazu, festzustel¬ 
len, ob es in der SPQ überhaupt einen Event gibt und ob dessen Priorität 
größer als die Sperrpriorität ist. Wenn ja, dann wird ein gesetztes Carry 
zurückgegeben. 

3.1.5 Die Interrupt-Behandlung 

Neben dem Banking und der Verwaltung der Events gehört die Über¬ 
wachung und Koordination des Interrupts zu den Hauptaufgaben des Ker¬ 
nels. Bevor wir uns nun aber näher mit den Prozessen befassen, die im 
Schneider-Computer durch den Interrupt gesteuert werden, müssen wir 
zunächst den Begriff des Interrupts klären. 

3.1.5.1 Der Begriff des Interrupts 

Ein Interrupt (deutsch etwa "Unterbrechung") ist eigentlich nichts weiter als 
eine neue Art der Programmverzweigung. Um den Interrupt mit den bisher 
bekannten Arten logisch verknüpfen zu können, stellen wir alle hier noch 
einmal kurz dar. Grundsätzlich sind uns drei Arten von Programmverzwei¬ 
gungen bisher geläufig: 

1. Der einfache SPRUNG, d.h. das Fortsetzen der Programm¬ 
ausführung an einer anderen Stelle durch einen entsprechenden 
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Prozessorbefehl (beim Z80: JP bzw. JR für relative Sprünge über 
einen kleinen Adreßbereich hinweg). Dieses sind die einfachsten 
Verzweigungen, da tatsächlich nichts weiter getan wird, als dem 
Programmzähler einen neuen Wert zu geben (bzw. bei JR einen 
Wert zum Programmzähler zu addieren). 

2. Der Unterprogrammaufruf wird im Z80-Jargon auch CALL 
genannt, weil der entsprechende Prozessorbefehl genau diesen 
Namen trägt. Erst mit der Struktur von Unterprogrammen ist 
modulares Programmieren und eine gute Programmstruktur möglich; 
sie ist daher von größter Bedeutung. Das Besondere am CALL 
gegenüber dem normalen JumP ist, daß der Programmzähler nicht 
nur mit einem neuen Wert geladen, sondern der alte Zähler auch 
auf den Stack gerettet wird. Ein entsprechender Befehl, der die 
oberste Adresse auf den Stack in den Programmzähler lädt, macht es 

Unterprogramm beendet ist. Im Z80 ist dies der Befehl RET. Auch 
verschachtelte Unterprogramme ("Nesting") werden möglich, was 
verschiedene Unterprogramm-Ebenen zur Folge hat. 

3. Obwohl er Ihnen bisher vielleicht nicht als eine solche geläufig war, 
gehört auch der SYSTEM RESET zu den Programmverzweigungen. 
Der Reset wird ausgelöst durch ein Low-Signal an dem dafür 
vorgesehenen Pin des Prozessors. Daraufhin springt dieser zur 
Adresse $0000, löscht also den Programmzähler. Das Programm, das 
hier liegt, kann - zumindest theoretisch - völlig beliebiger Art sein. 
Der Reset kann somit als fester Sprung angesehen werden, der 
durch periphere Hardware ausgelöst wird. In der Praxis tritt die 
Einschränkung auf, daß beim Einschalten des Systems ^ ein Reset 
ausgelöst wird. Das Programm bei $0000 muß folglich das System 
initialisieren. 


Wenn man den Reset als hardware-abhängigen Sprung verstehen kann, so 
kann man den Interrupt als Hardware-CALL begreifen. Es gibt nämlich 
auch für den Interrupt einen Prozessor-Pin gibt, an dem ein Interrupt aus¬ 
gelöst werden kann. Wenn an diesen Pin durch die Hardware ein Low-Si¬ 
gnal kommt, so rettet der Prozessor den augenblicklichen Programmzähler 
auf den Stack und springt nach $0038, der Interrupt-Routine. Ist die 
Interrupt-Behandlung beendet, so kann man mit einem ganz gewöhnlichen 
RET an die Stelle, an der das laufende Programm unterbrochen wurde, 
zurückkehren. (Meistens wird jedoch vorher noch der Interrupt wieder 
"erlaubt", da die Auslösung eines Interrupts immer auch mit dem 
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Ausschalten aller folgenden Interrupts verbunden ist. Wir kommen darauf 
gleich noch zurück.) Der Interrupt bleibt daher unsichtbar für das Pro¬ 
gramm, insofern er zumindest die Register des ersten Registersatzes nicht 
verändert (worauf man beim Programmieren eigener Interrupt-Routinen 
achten sollte). Man nennt dies auch "Transparenz" des Interrupts. Der 
Interrupt eignet sich damit besonders für asynchrone Aufgaben, d.h. Dinge, 
die unabhängig vom laufenden Programm erledigt werden müssen. Das sind 
insbesondere periodische Vorgänge, die keinerlei Aufschub dulden, wie z.B. 
"zeitkritische Prozesse". Dies führt dazu, daß Interrupts in vielen Fällen zur 
ökonomischen Kommunikation mit peripheren Einheiten genutzt werden. 
Im CPC wird er hauptsächlich mit Hinblick auf die Verarbeitung von 
Events angewendet. 

Wie oben bereits erwähnt, kann der Interrupt an- und abgeschaltet werden, 
wozu im Befehlssatz des Z80 zwei Befehle vorgesehen sind (DI zum Ab¬ 
schalten, EI zum Anschalten). So ist es beispielsweise sinnvoll, während der 
Erledigung zeitkritischer Prozesse die Auslösung des Interrupts zu unter¬ 
binden. Die Abarbeitung der Interrupt-Routine stellt nun einmal einen 
kaum zu kalkulierenden Zeitfaktor dar und der Interrupt tritt darüber 
hinaus ja auch noch asynchron zum Programmablauf auf. Bei solchen 
zeitkritischen Prozessen handelt es sich zumeist um die Bedienung von Ein- 
/Ausgabe-Einheiten, die nicht mit Quittierungs- und Übernahme-Signalen 
synchronisiert sind (wie z.B. der Strobe und das Busy des Druckers), son¬ 
dern zeitlich genau abgestimmt sein müssen (wie die Ausgabe auf Kassette 
oder an eine Floppy-Station). Wenn man solche I/O-Module selber pro¬ 
grammiert und die Interrupt-Behandlung des CPC auch benutzen möchte, 
so sollte man darauf achten, daß der Interrupt nicht allzu lange aus¬ 
geschaltet bleibt (sondern nur für die tatsächlich zeitkritischen Prozesse), 
damit der Takt wenigstens in grober Näherung konstant bleibt (wichtig 
eventuell bei Ticker-Events etc.). 

3.1.5.2 Die Behandlung eines Interrupts 

Wie wir ja wissen, wird bei Auslösung eines Interrupts zur Routine bei 
$0038 verzweigt. Diese Routine macht im Schneider nichts anderes, als zur 
eigentlichen Behandlungs-Routine nach $B939 ins RAM zu springen. Dies 
hat den Vorteil, daß man als Benutzer die Interrupt-Behandlung nach eige¬ 
nen Wünschen gestalten kann. Wir wollen uns nun anschauen, was diese 
Routine normalerweise macht. Sie wird von $03CA aus dem Lo-ROM 
kopiert. Für genauere Angaben beziehen Sie sich bitte auf das ROM- 
Listing. 

Als erstes schaut die Routine nach, ob dies bereits die zweite Interrupt- 
Ebene (also ein Interrupt im Interrupt) ist. Ist dies der Fall, so wird der 
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letzte Interrupt als externer Interrupt betrachtet und entsprechend behan¬ 
delt. Ist dies erst die erste Ebene, so wird dafür das CY-Flag im zweiten 
Registersatz gesetzt, der neben der I/O auch für den Interrupt benötigt 
wird. Daraufhin wird für einen kurzen Moment der Interrupt wieder zuge¬ 
lassen. An dieser Stelle tritt dann gegebenenfalls der externe Interrupt auf, 
findet ein gesetztes Carry vor und wird entsprechend abgearbeitet. Zu dem 
entsprechenden Programm ist anzumerken, daß das Einschalten des Inter¬ 
rupts durch den Befehl EI (Enable Interrupt) scheinbar vor dem Austau¬ 
schen der beiden AF-Register geschieht. Wenn ein Interrupt an dieser 
Stelle auftritt, so würde dies dazu führen, daß die Interrupt-Routine das 
gesetzte Carry-Flag nicht im Interrupt-Carry vorfindet. Wie gesagt, dies 
scheint nur so. Tatsächlich läßt der Befehl EI infolge einer Besonderheit in 
der Konstruktion des Z80-Prozessors den Interrupt nicht sofort nach seiner 
Ausführung, sondern erst nach der Ausführung des nächsten Befehls wie¬ 
der zu. 

Wenn kein externer Interrupt auftrat bzw. nach Abarbeitung desselben 
werden die Fast Ticker Chain und eventuell auch die Frame Fly Chain 
durchgegangen und die Events darin gekickt. Zugleich wird bestimmt, ob 
es bereits an der Zeit ist, die Ticker Chain zu bearbeiten. Dafür wird ein 
Flag gesetzt und die eigentliche Bearbeitung findet dann erst später statt. 
Wenn es nach dieser FTC/FFC-Bearbeitungsroutine (Scan Events) keine 
Einträge in der Asynchronous Pending Queue gibt und die Ticker Chain 
noch nicht bearbeitet werden muß, wird die Interrupt-Routine beendet. 
Gleiches geschieht, wenn der Interrupt während der Bearbeitung der APQ 
auftrat. Andernfalls wird die APQ durchgegangen, die Ticker Chain bear¬ 
beitet und die APQ nochmals abgearbeitet, falls aus der TC asynchrone 
Events gekickt wurden. 

Im CPC 664/6128 wurde noch eine zusätzliche Routine im Kernel imple¬ 
mentiert: KL SCAN NEEDED. Sie dient dazu, den Ticker-Frequenzteiler 
auf 1 zu setzen, so daß beim nächsten Interrupt ein Ticker ausgelöst wird. 
Dies ist z.B. sinnvoll, wenn man sicherstellen mächte, daß die Tastatur 
beim nächsten Interrupt abgefragt wird (die Routine Scan Keyboard wird 
nur bei jedem Ticker aufgerufen). Wenn der Interrupt eine längere Zeit 
ausgeschaltet werden muß und hält man damit das Risiko, eine Taste zu 
"verpassen", möglichst niedrig. 

3.1.6 Die Restart-Routinen 

Neben den bekannteren Programmverzweigungen wie CALL, JP und JR 
gibt es beim Z80 noch eine Art, den Programmablauf zu steuern: mit 
Restarts (mnemonisch RST). Man kann sie als normale, unkonditionierte 
CALLs auf feste Sprungadressen betrachten. Jeder Restart hat dabei seine 
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eigene Adresse und damit auch eine eigene, ihm zugeordnete Routine. Ver¬ 
gleichbare Befehle sind z.B. beim 6502 der Break, BRK, beim 6809 die 
drei Software Interrupts, SWI, SWI2, SWI3, beim 68000er der TRAP- 
Befehl. Die Ansprünge der acht verschiedenen Restarts beginnen beim 
RAM-Anfang bei $0000 für RST 00h (oder RST 0) und liegen jeweils acht 
Bytes auseinander. Sie haben also genug Platz für eine winzige Routine 
bzw. einen Sprung in eine größere. Der letzte Restart, RST 38h (oder 
RST 7), springt nach $0038. Gegenüber den CALL-Befehlen haben 
Restarts natürlich den Nachteil, daß sie an diese festen Ansprünge gebun¬ 
den sind. Sie können also das CALL nicht ersetzen. Häufig angesprungene 
Routinen sollte man jedoch als Restarts setzen, da die Bearbeitung eines 
RST-Befehls schneller ist und er weniger Speicherplatz benötigt, als ein 
CALL (1 Byte im Gegensatz zu 3 Bytes beim CALL). Im Schneider-Com¬ 
puter haben jedoch die einzelnen Restarts bereits eine feste Bedeutung, die 
man als Benutzer nur schwer ändern kann. Wegen des Systemaufbaus des 
CPC würde eine solche Änderung nur sehr schwer zu kalkulieren sein. 
Diese Bedeutung der RST-Routinen wollen wir im Folgenden eingehender 
betrachten. 

RST 0: System Reset. Dieser Restart führt einen kompletten, unkonditio¬ 
nierten Kaltstart durch. Das gesamte System wird dabei neu initialisiert, 
das RAM gelöscht. Beim Einschalten des Rechners geschieht das automa¬ 
tisch. 

RST 1: LO JUMP. Dieser Restart führt einen Sprung in die unteren 16 
KByte aus, also in das Betriebssystem oder das darunter liegende RAM. 
Die Adresse folgt dem RST-Aufruf, und die Routine kehrt hinter die 
Adresse zurück. Da für den Sprung in einen 16-KByte-Bereich nur 14 
Adreßbits benötigt werden, sind die Bits 14 und 15 des folgenden Words 
einer anderen Verwendung zugeführt: Sie geben an, ob das untere (bl4) 
bzw. das obere (bl5) ROM beim Ansprung der Routine angeschaltet sein, 
oder ob der entsprechende RAM-Bereich ausgewählt werden soll. Eine Null 
schaltet das entsprechende ROM an. 

RST 2: SIDE CALL. Während der RST 1 in den Bereich von $0000 bis 
$3FFF springt, geht die Programmkontrolle bei einem RST 2 an eine Rou¬ 
tine im Bereich von $C000 bis $FFFF. Sonst jedoch sind sich beide 
Restarts sehr ähnlich: auch dem RST 2 folgen zwei Bytes, deren untere 14 
Bits den Offset der Routinenadresse bezüglich $C000 darstellen, wohinge¬ 
gen die oberen beiden Bits zur laufenden ROM-Nummer addiert werden. 
Es ist somit möglich, von einem Erweiterungs-ROM aus in eines der drei 
darauf folgenden ROMs zu springen, ohne daß die eigene Nummer bekannt 
sein muß (relative Adressierung der Extension-ROMs). 
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RST 3: FAR CALL. Im Gegensatz zu den beiden vorangegangenen Restarts 
ist man mit Hilfe des Far Calls in der Lage, einen Sprung an eine beliebige 
Stelle im 64-KByte-Adreßraum des Z80 auszuführen. Auch die Parametri¬ 
sierung dieses Restarts unterscheidet sich von den beiden vorangegangenen: 
dem RST-3-Befehl folgt nicht die Adresse der Routine, vielmehr folgt ihm 
ein Zeiger auf einen drei Byte langen Parameterblock. Das erste Word die¬ 
ses Blocks stellt dabei die Adresse der Routine dar, die man anspringen 
möchte, das dritte Byte ist die (ROM-)Konfiguration. Die Werte von 00 bis 
SFB bedeuten dabei die Nummer des Hi-ROM, das man beim Ansprung 
der Routine ausgewählt haben möchte. Hat die Konfiguration einen Wert 
von $FC bis $FF, so stellen die unteren beiden Bits die ROM/RAM-Swit- 
ches für die unteren (bO) und für die oberen (bl) 16 KByte dar. Eine Null 
bedeutet, daß das entsprechende ROM ausgewählt ist. 

RST 4: RAM LAM. Dieser Restart ermöglicht einer ROM-Routine einen 
einfachen (Lese-)Zugriff auf das gesamte RAM, also auch auf das darunter 
liegende. Die Hardware des Schneider-Computers ist derart ausgelegt, daß 
alle Schreiboperationen automatisch auf das RAM geleitet werden, unab¬ 
hängig von den ROM/RAM-Switches im Gate Array. Die Routine RAM 
LAM (Load Accumulator from Memory) lädt den Akku mit dem Byte, auf 
das das HL-Register beim Aufruf zeigt. HL wird dabei nicht verändert. 

RST 5: FIRM JUMP. Der Name dieses Restarts, der einen Sprung über die 
gesamten 64 KByte ausführt, bezieht sich aus der Tatsache, daß das untere 
ROM (der Sitz der Operating System Firmware) für die Dauer der ange¬ 
sprungenen Routine eingeschaltet wird, während das obere ROM unverän¬ 
dert bleibt. Dem RST-Befehl folgt direkt die Routinenadresse. Die 
Ansprünge der Arithmetik-Routinen in der Nebentabelle der Jump- 
Restore-Vektoren werden mit diesem Restart realisiert. 

RST 6: USER. Diese Routine besteht im wesentlichen aus einer Endlos- 
Schleife, die bei abgeschaltetem unteren ROM auf einen Interrupt wartet, 
während sie die laufende Konfiguration immer wieder rettet. Sie kann 
genutzt werden, um auf einen externen Interrupt zu warten, der nicht mit¬ 
tels eines RET in die Schleife zurückkehrt. Andernfalls wäre der Aufruf 
der Routine sinnlos. 

RST 7: INTERRUPT. Die Routine für die Behandlung eines Interrupts und 
die Routine für den RST 7 fallen beim Z80 zusammen. Eine genaue 
Beschreibung der Interrupt-Behandlung finden Sie im Abschnitt 3.1.5. 
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3.2 Das MACHINE PACK (MC) 

3.2.1 Allgemeines 

Wie schon in 3.1.1 erwähnt, bildet das Machine Pack die Schnittstelle 
zwischen der Software, die auf dem CPC läuft, und der Hardware des 
Computers. Wie das Kernel dem Programmierer die Sorge um die grundle¬ 
genden logischen Strukturen abnahm, so ist das Machine Pack dazu da, 
dem Benutzer den Zugriff auf die Hardware zu erleichtern, ohne daß 
dieser dazu über ihren genauen Aufbau informiert sein muß. 

Aus dieser Aufgabe des Machine Packs folgt auch eine seiner herausragen¬ 
den Eigenschaften: Es ist nur sehr wenig strukturiert und hat eher den 
Charakter einer Unterprogrammbibliothek, als eines in sich abgeschlosse¬ 
nen, zusammenhängenden Packs (wie z.B. der Keyboard Manager). Auch 
gibt es kaum Strukturen, über die man etwas sagen könnte. Aus diesem 
Grunde wollen wir uns in der Beschreibung dieses Packs auf eine Beschrei¬ 
bung der einzelnen Routinen beschränken. 

3.2.2 Die Routinen des Machine Packs 
3.2.2.1 Systemroutinen 

MC START PROGRAM: Diese Routine dient dazu, ein Programm zu 
starten, dessen Adresse ihr übergeben wird. Das Programm soll jedoch in 
einem definierten System gestartet werden. Daher werden vorher sämtliche 
Teile des Betriebssystems initialisiert. Programme, die auf diese Weise 
angesprungen werden, sind zumeist keine einfachen User-Routinen, son¬ 
dern eher eigenständige, unabhängige Systeme. Ein Sonderfall wird dann 
unterschieden, wenn die übergebene Einsprungadresse Null ist: "MC Start 
Program" wählt dann die Konfiguration 0 und den Ansprung $C006 aus, 
d.h. im Normalfall das Basic (es sei denn, das obere ROM wurde aus¬ 
gewechselt). 

MC BOOT PROGRAM: Diese Routine lädt ein Programm mit Hilfe einer 
Laderoutine, deren Adresse ihr übergeben wird. Zusätzlich werden auch 
noch alle wesentlichen Systemteile initialisiert (Keyboard Manager, Screen 
Pack und Text Screen Pack). Das geladene (gebootete) Programm wird dann 
mit MC Start Program gestartet. Die Startadresse muß von der Lade-Rou¬ 
tine zurückübergeben werden. 
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RESET CONT’D: Dies ist die Hauptroutine, die nach einem Reset ausge¬ 
führt wird. Sie initialisiert den Video-Chip (je nach Bildwiederholfrequenz 
unterschiedlich) und springt dann mit MC Start Program das Basic an. 

3.2.2.2 Routinen zur Bildschirmbehandlung 

MC SET MODE: Mit dieser Routine wird der Bildschirmmodus eingestellt. 

MC CLEAR INKS: Setzt den Wert für Border und alle anderen Farbstifte 
auf einen Wert. 

MC SET INKS: Setzt die Farbstift-Register im Gate Array entsprechend 
einer Tabelle der Farben, deren Adresse ihr übergeben wird. 

MC WAIT FLYBACK: Wartet auf eine vertikale Synchronisation des Elek¬ 
tronenstrahls des Monitors, die etwa fünfzigmal pro Sekunde eintritt. 

MC SCREEN OFFSET: Übergibt die vom Benutzer gelieferten Werte für 
SCR BASE und SCR OFFSET an das Gate Array. SCR BASE gibt dabei 
den Start des Speicherbereiches an, den der CRTC abfragen soll (das soge¬ 
nannte Video-RAM). SCR OFFSET zeigt innerhalb dieses Bereiches auf die 
Speicherstelle, bei der die Abfrage beginnen soll, d.h. auf das Byte, das die 
obersten linken Punkte auf dem Bildschirm repräsentiert. 

3.2.2.3 Routinen für die Druckersteuerung 

MC RESET PRINTER: Diese Routine setzt die Indirection, die normaler¬ 
weise auf die Routine springt, die ein Zeichen an Centronics ausgibt und 
auf den Drucker wartet, wieder auf den Ausgangswert (d.h. auf MC Wait 
Printer). Es kann für den Benutzer sinnvoll sein, eine eigene Routine zum 
Drucken eines Zeichens an diese Stelle einzubauen, wenn er z.B. über ein 
besonderes Interface (z.B. RS 232) verfügt, das dann natürlich eine beson¬ 
dere Behandlungsroutine erfordert. Man muß dann lediglich die Indirection 
"umbiegen''. Mit MC Reset Printer wird sie dann wieder "zurechtgebogen". 

MC PRINT CHAR: Diese Routine springt die Indirection an (also nor¬ 
malerweise MC Wait Printer). Zusätzlich rettet es noch das BC-Register, 
das von MC Wait Printer verändert wird. Eine Neuerung im CPC 664/6128 
gegenüber dem 464 ist eine Übersetzungstabelle (Translation Table), mit 
der man maximal 20 Zeichen durch jeweils ein anderes Zeichen ersetzen 
kann. Eine solche Tabelle muß als erstes Byte die Anzahl der Zeichenpaare 
enthalten, die in dieser Tabelle stehen. Dann folgen (im ASCII-Format) die 
Zeichenpaare, jeweils zuerst das zu ersetzende Zeichen und dann der Code, 
durch das es ersetzt werden soll. Ist letzterer gleich $FF, so wird das 
Zeichen ignoriert. 
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MC PRINT TRANSLATION: Diese Routine gibt es nur im 664 und im 
6128. Sie dient dazu, eine neue Translation Table zu definieren, indem ihr 
die Adresse der Tabelle übergeben wird. Sofern diese Tabelle nur maximal 
20 Zeichenpaare enthält, wird sie an eine eigens dafür vorgesehene Stelle 
im OS-RAM kopiert. 

MC WAIT PRINTER: Druckt ein Zeichen aus und wartet vorher innerhalb 
bestimmter Zeitschranken, wenn der Drucker "busy" ist. 

MC SEND PRINTER: Diese Routine schickt ein Zeichen an den Centro- 
nics-Port, der im allgemeinen für den Anschluß eines Druckers vorgesehen 
ist. Das Zeichen kann nur sieben Bits umfassen, b7 ist ständig auf null 
gehalten. 

MC BUSY PRINTER: Schaut nach, ob der Printer bereit ist, ein Zeichen 
von Centronics zu übernehmen oder ob er beschäftigt (busy) ist. Es wird 
dann ein entsprechendes Flag zurückgegeben. 

3.2.2.4 Sonstige Routinen des Machine Packs 

MC SOUND REGISTER: Diese Routine erleichtert dem Benutzer den Zu¬ 
griff auf die Register des PSG, die sonst nur über mehrfaches Umschalten 
einiger Steuersignale verfügbar werden. Man übergibt ihr die Nummer des 
Registers, auf das man zugreifen möchte und den Wert, den man in das 
Register schreiben will. 

Scan Keyboard: Obwohl diese Routine keine offizielle User-Routine ist 
(beim 664/6128 ist sie eine Indirection), soll sie hier erwähnt werden, da 
sie für die Abfrage der Tastatur von zentraler Bedeutung ist. Der Benutzer 
übergibt ihr zwei Tabellen: eine, um die direkten Rückmeldungen aus der 
Tastaturmatrix abzuspeichern, eine zweite für die entsprechenden positiven 
Rückmeldungen - d.h. gedrückte Tasten sind als 1 -Bit dargestellt, im 
Gegensatz zur direkten Rückmeldung, bei der ein O-Bit eine gedrückte 
Taste bedeutet. Die Routine gibt die gleichen Tabellen aktualisiert zurück. 
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3.3 JUMP RESTORE 

3.3.1 Die Aufgaben des Jump Restore Packs 

Dieses Pack dient vor allem der Initialisierung der RAM-Vektoren im CPC. 

Sollten diese gezielt oder versehentlich verändert worden sein, so können 

sie mit dem Aufruf der Routine Jump Restore wiederhergestellt werden. 

Die umfangreiche Adressentabelle, über die der Schneider-Computer 

verfügt, hat verschiedene Aufgaben. 

1. Durch das Banking im CPC ist der Zugriff auf Betriebssystem- 
Routinen für Programme im RAM oder in einem oberen ROM 
nicht ganz einfach. Vor dem Ansprung muß gegebenenfalls noch 
das ROM eingeschaltet und nach Ausführung der Routine der alte 
Status wieder gesetzt werden. Dadurch, daß sämtliche Ansprünge 
des Betriebssystems über Restarts (siehe 3.1.6) erfolgen, können 
Benutzer-Programme nunmehr sehr einfach das Betriebssystem 
anspringen. 

2. Wenn man größere Programme schreibt, die man z.B. vermarkten 

möchte, so stellt sich stets die Frage nach der Kompatibilität, sobald 
mehr als eine Version eines Computers auf dem Markt ist. Dies gilt 
beim Schneider-Computer natürlich ganz genauso, da dieser mitt¬ 
lerweile in drei Versionen (464, 664 und 6128) verkauft wird. Die 
Betriebssysteme der drei Maschinen sind zwar über weite Strecken 
logisch identisch, durch gewisse kleinere Änderungen kam es jedoch 
zu Verschiebungen der einzelnen Routinen. Würde man nun das 
Operating System direkt anspringen, so wäre ein Programm für den 
464 auf dem 664 völlig unbrauchbar, weil die Ansprünge aufgrund 
der Verschiebungen natürlich falsch wären. Gleiches gilt für die 
(In-)Kompatibilität von CPC 664 und CPC 6128. Dem wird durch 
Sprungtabellen begegnet, in denen die einzelnen Ansprünge für die 
Routinen (man nennt diese auch "Vektoren") immer an der gleichen 
Stelle bleiben, jedoch selber durchaus auf verschiedene 

Einsprungadressen verweisen können. 

3. Das Betriebssystem des CPC ist zwar ein recht gutes System 

insofern, als es eigentlich alle hardwaremäßig vorhandenen 
Möglichkeiten des Computers unterstützt. Dennoch kann es 
Vorkommen, daß man anstelle einer Betriebssytem-Routine eine 
eigene Routine einbauen möchte, um z.B. neue Hardware zu 

unterstützen. Ein solcher Fall liegt z.B. beim Anschluß einer Floppy 
an den 464 vor. Da sich das Basic in einem ROM befindet, kann 
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man die Aufrufe der Ein-/Ausgaberoutinen nicht verändern. Würde 
das Basic das Betriebssystem direkt anspringen, so könnte man die 
Floppy von Basic aus nicht benutzen. Da das Basic jedoch nicht 
direkt, sondern über die Sprungtabelle die I/O-Routinen aufruft, 
kann das DOS anstelle der Cassettenroutinen die entsprechenden 
Ansprünge der Disketten-Routinen einsetzen. Die Sprungtabellen 
haben somit auch die Aufgabe, eine Erweiterung des Systems so zu 
ermöglichen, daß die bestehende Software die neuen Systemteile 
(die dann natürlich mit ein wenig Interface-Software ausgestattet 
sein müssen) ohne Änderung benutzen kann. 

Dies alles bezieht sich auf die Haupttabelle der festen Betriebssystem- 

Ansprünge. Es gibt jedoch noch einige andere Sprungtabellen im CPC. Im 

Folgenden wollen wir alle Tabellen des Jump Restore Packs unter die Lupe 

nehmen. 

3.3.2 Die Sprungtabellen im CPC 

Wir unterscheiden vier verschiedene Tabellen im Schneider-Computer: 

1. Die Haupttabelle: Hier liegen Vektoren für alle wesentlichen Routi¬ 
nen des Betriebssystems. Sie haben aus Gründen der Kompatibilität 
in jeder Version garantiert die gleiche Bedeutung. Die Haupttabelle 
geht im 464 von $BB00 bis $BD39, im 664 bis $BD5A und im 6128 
bis SBD5D, wegen der zusätzlichen Routinen, die aber für alle 
künftigen Versionen konstant bleiben sollen. Die Ansprünge werden 
realisiert durch ein RST1 mit folgender Adresse und ROM- 
Switches. Die ROM-Switches sind normalerweise so eingestellt, daß 
das obere ROM ausgeschaltet ist. Dies ist z.B. für die Bildschirm¬ 
routinen von Bedeutung, da diese ja auf das Video-RAM zugreifen 
müssen. Das untere ROM ist dabei natürlich an. Die Vektoren der 
Haupttabelle können direkt vom Benutzer angesprungen werden. 
Dies ist, wie wir noch sehen werden, nicht unbedingt selbstver¬ 
ständlich. 

2. Die Nebentabelle: Die Vektoren dieser Tabelle variieren in ihren 
Bedeutungen (zwischen 464 und 664/6128), d.h. Software, die auf 
allen drei Maschinen laufen soll, sollte die Benutzung dieser 
Segmente des Betriebssystems vermeiden. Durch die Nebentabelle 
können der Editor und die Arithmetik angesprungen werden. Im 
464 also sowohl Fließkomma- als auch Integerarithmetik. Im 
664/6128 ist die Integerarithmetik in das obere ROM übernommen 
worden. Die Nebentabelle hat also nur Bedeutung für Software, die 
speziell für das aktuelle System geschrieben wurde. Im RAM liegt 
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sie beim 464 von $BD3A bis $BDCC, im 664 von $BD5B bis 
$BDBD und im 6128 von $BD5E bis $BDC0. Die Ansprünge selber 
werden über ein RST5 realisiert, das den Status des oberen ROMs 
nicht verändert. Die Fließkomma-Arithmetik kann dies z.B. be¬ 
nutzen, indem ihr ein Zeiger in das obere ROM gegeben wird, um 
ihr für Berechnungen bestimmte Werte zu übergeben. Die einzige 
Ausnahme bildet Edit. Diese Routine wird - wie auch die Einträge 
in der Haupttabelle - mit einem RST1 angesprungen. Dies ge¬ 
schieht, weil die Betriebssystem-Routinen sich untereinander nicht 
über die Haupt- oder die Nebentabelle aufrufen, sondern sich 
direkt anspringen. Da der Editor auch Packs anspringt, die z.B. auf 
das Video-RAM zugreifen müssen, muß zu diesem Zweck das obere 
ROM für Edit ausgeschaltet sein. Dies wäre mit einem RST5 nicht 
zu garantieren. Wie auch schon die Vektoren der Hauttabelle, so 
können auch die der Nebentabelle direkt vom Benutzerprogramm 
angesprungen werden. 

3. Die Indirections: Im Gegensatz zu den beiden ersten Tabellen sind 
die Indirections keine RST-Vektoren, sondern werden ganz einfach 
über JumPs realisiert. Dies setzt dann natürlich voraus, daß das 
untere ROM eingeschaltet ist, was die Indirections weitgehend 
unbrauchbar für den Aufruf durch ein Benutzer-Programm macht. 
Tatsächlich sind sie auch nicht dazu gedacht, von einem User-Pro¬ 
gramm angesprungen zu werden. Sie sollen lediglich von bestimmten 
Stellen des Betriebssystems aus aufgerufen werden. Trotz dieser 
Einschränkungen können sie von großem Wert für den Benutzer 
sein. Indirections für Routinen wurden nämlich immer dort einge¬ 
führt, wo irgendwelche grundlegenden Operationen ausgeführt wer¬ 
den, die man zu bestimmten Zwecken sinnvoll durch andere erset¬ 
zen könnte. Ein Beispiel dafür ist die Routine MC Wait Printer: 
Diese Routine gibt ein Zeichen an das Centronics-Interface aus, 
wobei sie eine Zeit lang wartet, falls die angeschlossene Einheit 
noch nicht fertig sein sollte. Will man jetzt aber die gesamte 
Drucker-Ausgabe beispielsweise auf ein selbstgebautes serielles 
Interface lenken, so schreibt man eine kurze Bearbeitungs-Routine. 
Man "verbiegt" die Indirection derart, daß sie auf die neue Routine 
zeigt. Die Indirections sind also für den User nur dadurch von 
Wert, daß er sie verändern kann, um so Änderungen in der I/O des 
CPC vorzunehmen. 

4. Die Kernel Hi Jumps: Auch diese Tabelle ist nicht mit Restarts, 
sondern mit Jumps realisiert. Dies ist aber auch schon das einzige, 
was die Hi Jumps mit den Indirections verbindet. Denn zum einen 
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zeigen die Vektoren nicht auf I/O-Routinen, zum anderen sind sie 
für das Benutzerprogramm vor allem dadurch zu benutzen, daß sie 
angesprungen werden. Die Routinen nämlich, die durch die 
Hi Jumps zusammengefasst werden, sind Banking Routinen, die 
demnach auch nicht im unteren ROM, sondern in den zentralen 
32 KByte zu finden sind. Logischerweise zeigen dann auch die 
Hi Jumps in diesen Bereich. Da daher auch nicht der Status der 
ROMs von Interesse ist, können die Hi Jumps von jeder Stelle im 
System ohne Vorbehalte angesprungen werden. Eine Veränderung 
der Hi Jumps scheint kaum sinnvoll, da die entsprechenden Routi¬ 
nen eigentlich nicht mehr optimiert oder sinnvoll verändert werden 
können. Diese Tabelle hat demnach vor allem die Aufgabe, eine 
Adressenunabhängigkeit der Kernel-Routinen herzustellen. Die 
Hi Jumps werden vom Kernel ins RAM kopiert. Das Jump Restore 
hat mit dieser Sprungtabelle eigentlich nichts zu tun. Wir haben sie 
lediglich der Systematik halber an dieser Stelle erwähnt. 


3.3.3 Die Benutzung der Haupt- und Nebentabelle 

Da die Haupttabelle vor allem dazu dient, Programme transportabel zu 
machen, d.h. sie derart zu gestalten, daß sie auf verschiedenen Versionen 
des Betriebssystems laufen, ist es beim Entwurf von Programmen nötig, 
einige Konventionen einzuhalten, die vom Hersteller vorgegeben wurden. 
Nur durch strenges Einhalten solcher Normen ist gewährleistet, daß die 
Benutzer-Software wirklich systemunabhängig ist. Die Konventionen sollten 
auch für die Nebentabelle eingehalten werden. Dies erhöht die Systematik 
und die "Sauberkeit" des Programms. 

Eine wichtige Vereinbarung ist die, daß Aufrufe von Betriebssystem-Vek¬ 
toren nur an dem dafür vorgesehenen Ort geschehen sollen, d.h. man sollte 
nicht einen Vektor an eine andere Stelle ins RAM kopieren und ihn dann 
dort anspringen. 

Wenn man Vektoren umdefinieren möchte so sollte das so geschehen, daß 
man den laufenden Vektor in einen sicheren Bereich kopiert und dann den 
neuen an dessen Stelle schreibt. Braucht man den neu definierten Vektor 
nicht mehr, so setzt man den alten wieder an seine Stelle. 

Neben diesen Formalien ist natürlich darauf zu achten, daß eigene Routi¬ 
nen, die man anstelle von Operating System-Routinen als Vektoren setzt, 
möglichst die gleiche Parametrisierung haben wie diese. Von der Ebene des 
Anwenderprogrammes her, sollten diese beiden Routinen nicht zu unter¬ 
scheiden sein. 
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Schreibt man eigene User-Programme, so sollte man aus Gründen der 
Übertragbarkeit versuchen, nur Vektoren der Haupttabelle zu benutzen, da 
bei verschiedenen Versionen nur diese als konstant garantiert sind. 

3.3.4 Struktur des unteren ROMs 

An der Struktur der Haupt- und der Nebentabelle kann man sehr gut auch 
die Struktur der Routinen im unteren ROM ableiten. So erkennt man einen 
Hauptteil, in dem alle Packs liegen, außer der Arithmetik und dem Editor, 
die ihrerseits in dem Nebenteil zusammengefaßt sind. Das Firmware Manu¬ 
al bezieht sich ausschließlich auf den Hauptteil, obschon man unter Firm¬ 
ware eigentlich sämtliche fest installierte Software in einem System 
versteht. 

Dies verleiht dem Hauptteil des unteren ROMs einen besonderen Status. 
Nach der Nomenklatur, die der Hersteller vorschlägt, wird dieser Teil 
deshalb unter der Bezeichnung "Betriebssystem" (Operating System, OS) 
zusammengefaßt. Der Teil der Fimware, der sich im oberen ROM befindet, 
bildet das "Basic". Der Nebenteil des unteren ROMs bleibt hingegen unbe¬ 
nannt. Man erkennt das "zwischen den Stühlen sitzen" dieses Teils z.B. auch 
daran, daß sich im 464 das Integer-Pack noch im unteren ROM befindet, 
im 664 und im 6128 aus Platzgründen kurzerhand ins obere ROM getan 
wurde. 

Bei der Strukturierung dieses Buches stellte sich die Frage, ob dieser 
Firmware-Teil ohne Name nun dem Basic oder dem OS zuzuschreiben ist 
oder gar separat behandelt werden sollte. Wie Sie sehen, entschieden wir 
uns dafür, ihn zusammen mit dem Betriebssystem zu beschreiben. Dafür 
gibt es mehrere Gründe: zum einen spricht natürlich die speicherplatz¬ 
mäßige Zuordnung (d.h. die Unterbringung dieses Teils im OS-ROM) zum 
Betriebsystem dafür. Sie steht in Verbindung mit der Einführung von 
speziellen Vektoren für diese Routinen, die auch vom OS verwaltet werden 
(zusammen mit der Haupttabelle vom Jump Restore Pack). Dann spricht 
auch noch die sehr saubere Programmierung dieser Systemteile und ihre 
hohe Modularität für eine Verbindung zum Operating System. Eine solch 
hohe Modularität ist im Basic-ROM kaum zu finden. 
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3.4 Das SCREEN PACK (SCR) 

3.4.1 Allgemeines 

Das Screen-Pack im CPC ist die unterste Ebene der Bildschirmverwaltung. 
In diesem Pack finden sämtliche Schreib- und Lesezugriffe auf den Bild¬ 
schirmspeicher statt. Die Bildschirm-Adreßberechnung wird hier ebenso 
durchgeführt wie das soft- oder hardwaremäßige Scrollen des Bildschirms 
nach oben oder nach unten. Alle diese Funktionen werden vom Text- und 
Graphics-Pack benutzt, die die nächsthöhere Ebene der Bildschirmverwal¬ 
tung darstellen. 

Wie ähnliche Routinen in den meisten anderen Packs, wird auch die Rou¬ 
tine SCR INTIALIZE bei einem Kaltstart aufgerufen. Sie ruft SCR RESET 
auf, initialisiert den Bildschirmspeicher-Start, schaltet Mode 1 ein und 
löscht den Bildschirm. Die Routine SCR RESET legt die Farbstiftzuord¬ 
nungen auf Voreinstellungs-(Default-)Werte und kopiert drei Indirections 
vom ROM ins RAM. 

3.4.2 Die Auswahl der verschiedenen Modes 

Bevor eine Operation im Screen-Pack durchgeführt werden kann, muß erst 
einmal der Mode festgelegt werden, in dem die Darstellung erfolgen soll. 
Die Mode-Nummer wird, entsprechend des beim Basic-Befehl MODE 
übergebenen Werts, dem Screen-Pack über die Routine SCR SET MODE 
mitgeteilt. Diese Mode-Nummer löscht nach dem Einschalten des gewün¬ 
schten Mode den Bildschirm mittels SCR MODE CLEAR, da der alte 
Bildschirmspeicherinhalt, im neuen Mode dargestellt, zu ungewöhnlichen 
Pixelmustern führen kann. Weiterhin wird innerhalb eines Bytes eine 
Tabelle von Bitmasken für die Pixelauswahl erstellt. In der ersten dieser 
Bitmasken sind alle die Bits gesetzt, die die Darstellung des ersten, ganz 
links stehenden, Pixels bestimmen. Bei Mode 0 sind dies vier Bits (Maske 
$AA), bei Mode 2 dagegen nur ein Bit (Maske $80). Es folgen die 
Bitmasken für die übrigen Pixels im Byte. Die Zahl der Bitmasken, also der 
Pixels pro Byte, beträgt je nach Mode zwei, vier oder acht. 

Da die Codierung der Farben, die später noch beschrieben wird, vom aus¬ 
gewählten Mode abhängt, werden die Farbmasken bei allen Text- und dem 
Graphik-Window decodiert und anschließend für den neuen Mode codiert. 
Die Text-Windows werden außerdem auf Default-Werte gesetzt, da die 
Window-Spaltengrenzen im neuen Mode eventuell nicht mehr zulässig sind. 
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3.4.3 Die Textzeichen-Matrizen 

Die Informationen, wie ein Textzeichen auf dem Bildschirm aufgebaut ist, 
werden dem Screen-Pack vom Text-Pack in Form einer acht Byte langen 
Zeichenmatrix übergeben. Diese Matrix entspricht einer in Basic mit dem 
Befehl SYMBOL definierten Matrix. Die Matrixbytes beschreiben ein Feld 
von acht mal acht Pixels; ein gesetztes Bit in der Matrix bedeutet ein 
gesetztes Pixel auf dem Bildschirm. Da aber nur in Mode 2 ein Byte des 
Bildschirmspeichers acht Pixels darstellt, müssen in den anderen Modes die 
Matrixbytes noch aus der gepackten Form (ein Bit pro Pixel) in eine 
ungepackte Form gebracht werden. Mit Hilfe der oben beschriebenen Bit¬ 
masken werden für jedes gesetzte Pixel zwei Bits (bei Mode 1) oder vier 
Bits (bei Mode 0) in der ungepackten Matrix gesetzt. Bei Mode 2 hingegen 
braucht die gepackte Matrix nur kopiert zu werden. 

Die ungepackte Matrix wird an die Routine zurückgegeben, die das Screen- 
Pack aufruft, in der Regel an das Text-Pack. Sie kann nach Modifikation 
entsprechend der ausgewählten Farben direkt in den Bildschirmspeicher 
übertragen werden. Das Konvertieren einer Matrix in seine ungepackte 
Form geschieht mit Hilfe von SCR UNPACK und das Packen einer direkt 
aus dem Bildschirmspeicher gelesenen Matrix mit SCR REPACK. 

3.4.4 Die Verwaltung der Farben 

Wie schon in Kapitel 1.3 beschrieben, geht die Erzeugung der Farben im 
CPC auf mehreren Ebenen vonstatten. Unter den vom Gate Array 
erzeugten 32 Farben sind fünf Farben, die nicht als eigenständige neue 
Farben bezeichnet werden können. Sie weisen keinen erkennbaren Unter¬ 
schied zu bestimmten, aus den 27 restlichen Farben auf. Die Farbwerte 
dieser Farben (1, 8, 9, 16, 17) sind für den Benutzer jedoch nicht so leicht 
zu merken. Daher wird mit einer Tabelle aus der vom Benutzer übergebe¬ 
nen Farbnummer erst der ans Gate Array übergebene Farbwert berechnet. 
Die fünf erwähnten Farben haben die Nummern 27 bis 31. 

Je nach Mode sind 2, 4 oder 16 verschiedene Farben gleichzeitig darstellbar 
(d.h. 2, 4 oder 16 "Farbstifte" verwendbar). Die Zuordnung von Farbnum- 
mern zu den verschiedenen Farbstiften geschieht in Basic mit dem INK- 
Befehl und im Screen-Pack mit der Routine SCR SET INK. Diese Routine 
wandelt die beiden übergebenen Farbnummern in Farbwerte um. Die 
Farbwerte werden in zwei Tabellen abgelegt. Aus einer dieser Tabellen 
werden die Farbwerte dann ans Gate Array übergeben. Entsprechend er¬ 
folgt die Festlegung der Rahmenfarbe(n) (Basic-Befehl BORDER) mit SCR 
SET BORDER. 
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Da der CPC die Möglichkeit bietet, jedem Farbstift zwei Farben zuzuord¬ 
nen, die sich ständig abwechseln (blinken), können die Farbwerte nicht 
direkt ans Gate Array übergeben werden. Die Übergabe findet in einer 
Event-Routine statt, die die Werte aus einer der zwei Farbwerttabellen ent¬ 
nimmt. Der zugehörige Event-Block ist in der Frame-Fly-Chain einge¬ 
hängt. Somit werden die Farben nur nach einem Strahlrücklauf gewechselt. 
Die Zahl der Aufrufe der Event-Routine, die bis zum nächsten Farbwech¬ 
sel vergehen soll, wird mit SCR SET FLASHING festgelegt. Ein niedriger 
Wert bedeutet hier einen raschen Farb(tabellen)wechsel. 

Wenn ein Pixel auf dem Bildschirm in der Farbe eines bestimmten 
Farbstiftes dardestellt werden soll, so muß die Nummer des Farbstifts 
(codiert) an die entsprechende Stelle im Bildschirmspeicher geschrieben 
werden. Mit der Routine SCR INK ENCODE kann eine Farbstiftnummer 
in die entsprechende Farbmaske gewandelt werden. In dieser Farbmaske ist 
die Farbstift-Nummer je nach Mode zwei, vier oder achtmal jeweils an den 
Bit-Positionen für ein Pixel enthalten. Die Farbmasken für die Pen- und 
Paper-Farbstifte ergeben, verknüpft mit der Maske für die Pixelauswahl, 
dann das in den Bildschirmspeicher zu schreibende Byte. Die Pen- und 
Paper-Farbmasken werden jedoch nicht vom Screen-Pack, sondern vom 
Text- und Graphics-Pack verwaltet. Das Screen-Pack unterstützt nur die 
Umcodierung. Mit der Routine SCR INK DECODE kann aus der Maske 
wieder die Farbstift-Nummer berechnet werden, während SCR READ die 
Farbe eines bestimmten Pixels auf dem Bildschirm decodiert. 

3.4.5 Die Adreßberechnung 

Wie schon im Kapitel 1.2 beschrieben, besteht die Startadresse des Bild¬ 
schirms aus zwei Teilen. Mit SCR SET BASE kann der 16-KByte-Block 
ausgewählt werden, in dem der Bildschirmspeicher liegen soll. Will man 
den durch SCR INITIALIZE eingestellten Wert $C000 für eigene Anwen¬ 
dungen ändern, so wäre aufgrund der Speicherbelegung des CPC nur der 
Wert $4000 sinnvoll. Die Routine für das Hardware-Scrolling verschiebt 
durch SCR SET OFFSET innerhalb des durch SCR BASE ausgewählten 
Bereichs die Bildschirm-Startadresse. SCR OFFSET kann jedoch wegen der 
Hardware des CPC nur innerhalb der ersten 2 KByte des ausgewählten 16- 
KByte-Blocks und nur in 2-Byte-Schritten gesetzt werden. 

Im CPC 664/6128 ist es mit Hilfe der Routine SCR SET POSITION 
möglich, neben dem sichtbaren Bildschirminhalt weitere, unsichtbare Bild¬ 
schirme aufzubauen. Dies kann z.B. nützlich sein, wenn man schnell 
zwischen verschiedenen Bildschirmen umschalten will oder die Bildschirm- 
Aufbauphase unsichtbar bleiben soll. An SCR SET POSITION werden die 
Werte für SCR OFFSET und SCR BASE übergeben. SCR SET POSITION 
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speichert diese Werte zwar in den entsprechenden Systemvariablen ab, so 
daß die Aktionen des Screen- und damit auch des Text- und Graphics- 
Packs mit den neuen Werten durchgeführt werden. Der Hardware (also dem 
Gate Array) werden SCR OFFSET und SCR BASE jedoch nicht neu 
übergeben, so daß nach SCR SET POSITION der gleiche Bildschirm sicht¬ 
bar bleibt. 

Die Bildschirmadresse für ein, durch Graphik-Koordinaten angegebenes, 
Pixel wird von der Routine SCR DOT POSITION berechnet. Diese Routine 
liefert auch noch die Maske für die Auswahl des gewünschten Pixels inner¬ 
halb des Bildschirmbytes. Für Textpositionen verwendet man dagegen die 
Routine SCR CHAR POSITION. Sie errechnet die Adresse des linken 
oberen Pixels eines Zeichens aus Zeile und Spalte und gibt keine Pixel¬ 
auswahl- Maske zurück, da bei Ausgabe eines Textzeichens alle Pixels im 
Byte verändert werden und die Masken deshalb einer ungepackten Zei¬ 
chen-Matrix entnommen werden. Die an diese und andere Routinen über¬ 
gebenen Text-Koordinaten müssen innerhalb bestimmter Grenzen liegen, 
die vom Mode abhängen. Diese Grenzkoordinaten kann man durch die 
Routine SCR CHAR LIMITS erfahren. 

Bei der Ausgabe eines Textzeichens müssen in Mode 0 und Mode 1 
mehrere Bytes in einer Rasterzeile verändert werden. Auf jeden Fall aber 
werden Pixels in acht verschiedenen Rasterzeilen verändert, da ein Zeichen 
mit acht mal acht Pixeln dargestellt wird. Da die Adresse des nächsten 
Bildschirmbytes wegen des möglichen Übertrags zu den RA-Bits (Bits 10 
bis 12, siehe Kapitel 1.2) nicht immer die folgende Adresse ist, kann mit 
Hilfe der Routinen SCR NEXT BYTE und SCR PREV BYTE die Adresse 
des nächsten bzw. vorigen zu bearbeitenden Bytes berechnet werden. Will 
man die Adresse der Position einer Rasterzeile über der jetzigen Position 
erfahren, so ruft man SCR PREV LINE auf, für die nächste Rasterzeile 
dagegen SCR NEXT LINE. Diese Routinen sind nicht nur bei Ausgabe 
eines Textzeichens sinnvoll einsetzbar. Auch beim Zeichnen einer senk¬ 
rechten Pixel-Linie beispielsweise spart es Zeit, SCR NEXT LINE anstatt 
von SCR DOT POSITION für jeden Pixel neu aufzurufen. 

3.4.6 Das Setzen der Pixels auf dem Bildschirm 

Das Setzen von einem Pixel geschieht mit der Routine SCR WRITE. An sie 
werden die Bildschirmadresse, die Farbmaske der Pixelfarbe und die Maske 
für Pixelauswahl übergeben. Über letztere können übrigens auch mehrere 
Pixels gleichzeitig gesetzt werden. Es wird jedoch immer nur ein Byte 
bearbeitet. Mit der Routine SCR ACCESS kann festgelegt werden, ob bei 
SCR WRITE die Pixels direkt gesetzt werden oder ob eine AND-, OR- 
oder XOR-Verknüpfung mit dem bestehenden Bildschirminhalt durchge- 
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führt werden soll. Will man die Pixels auf jeden Fall direkt - ohne Rück¬ 
sicht auf den vorherigen Bildschirminhalt - setzen, so sollte man anstatt 
SCR WRITE die Routine SCR PIXELS benutzen. 

Komplexere Aufgaben bewältigen die Routinen SCR FILL BOX und SCR 
FLOOD BOX. Sie füllen einen rechteckigen Ausschnitt des Bildschirms mit 
einer bestimmten Farbe. Während SCR FILL BOX neben der Farbmaske 
Textzeilen- und Spalten zur Begrenzung des Rechtecks übergeben werden 
müssen, sind bei SCR FLOOD BOX die Bildschirmadresse, Zahl der 
Rasterzeilen und Zahl der Bytes pro Rasterzeile gefragt. Mit SCR CHAR 
INVERT kann durch Vertauschen zweier Pixelfarben ein Textzeichen 
invertiert werden, was zur Cursordarstellung genutzt wird. Schließlich 
werden von SCR HORIZONTAL und SCR VERTICAL waagerechte bzw. 
senkrechte Linien gezeichnet. Diesen beiden Routinen müssen Graphik- 
Koordinaten übergeben werden. 

3.4.7 Das Scrolling 

Soll der gesamte Bildschirm nach oben oder unten gescrollt werden, so 
benutzt man dafür die Routine SCR HARDWARE ROLL. Sie ist schneller 
als die Routine SCR SOFTWARE ROLL, mit der man ein nicht den ganzen 
Bildschirm umfassendes Window scrollen kann. Die Windowgrenzen müssen 
hierzu an die Routine übergeben werden. 
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3.5 Das TEXT SCREEN PACK (TXT) 

3.5.1 Allgemeines 

Dieses Pack hat die Aufgabe, die acht verschiedenen Windows zu verwalten 
und eine Zeichenausgabe und Cursordarstellung auf dem Bildschirm zu 
ermöglichen. Es benutzt zur Ausführung dieser Aufgaben Routinen aus 
dem Screen-Pack. 

Wie in jedem Pack, so finden sich auch hier die Routinen TXT INITIA- 
LIZE und TXT RESET. Während TXT INITIALIZE die Parameter für 
sämtliche Windows initialisiert, kopiert TXT RESET einige Indirections 
und initialisiert die Steuerzeichen-Sprungtabelle. 

3.5.2 Die Verwaltung der Windows 

Das Text-Pack erlaubt die Definition von acht Bildschirmfenstern 
(Windows). Die Länge eines Parameter-Blocks eines Windows beträgt im 
CPC 464 15 Byte. Der Aufbau ist wie folgt: 

00 Cursorzeile (absolut) 

01 Cursorspalte (absolut) 

02 0 = Hardware-Scrolling, sonst Software-Scrolling 

03 obere Windowgrenze 

04 linke Windowgrenze 

06 untere Windowgrenze 

06 rechte Windowgrenze 

07 Scrolling-Zähler 

08 Cursor-Flag 

bO: 0 = enabled, 1 = disabled 
bl: 0 = ON, 1 = OFF 

09 VDU-Flag (0 = keine Zeichenausgabe) 

0A Pen-Farbmaske 

OB Paper-Farbmaske 

0C/0D Indirection für Hintergrundmodus 
0E 0 = Ausgabe auf Textcursorposition (TAGOFF) 

sonst Ausgabe auf Graphikcursorposition (TAG) 

Im CPC 664 und im CPC 6128 ist ein Window-Parameter-Block nur 14 
Byte lang: 

00 Cursorzeile (absolut) 

01 Cursorspalte (absolut) 

02 0 = Hardware-Scrolling, sonst Software-Scrolling 

03 obere Windowgrenze 

04 linke Windowgrenze 

06 untere Windowgrenze 

06 rechte Windowgrenze 

07 Scrolling-Zähler 

08 Cursor-/VDU-Flag 

bO: 0 = enabled, 1 = disabled bl: 0 = ON, 1 = OFF 
b7: 0 = VDU enabled, 1 = VDU disabled 
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09 Pen-Farbmaske 

0A Paper-Farbmaake 

OB/OC Indirection für Hintergrundmodua 

OD 0 = Auagabe auf Textcuraorpoaition (TAGOFF) 

sonat Auagabe auf Graphikcursorpoaition (TAG) 

Die Bedeutung einiger Parameter wird später bei den Routinen, die sie 
beeinflussen, erklärt. Wichtig ist zunächst die Verwaltung der verrschiede- 
nen Parameter-Blöcke. Jedes der acht Windows hat einen 14 bzw. 15 Byte 
langen Parameter-Block. Zusätzlich existiert ein eigener Parameter-Block 
für das aktuell ausgewählte Window. Das hat den Vorteil, daß die Parame¬ 
ter des aktuellen Windows einfach geändert werden können, da sie auf 
festen Adressen liegen. Fast alle Änderungen der Parameter und alle Bild¬ 
schirm-Aktionen durch die Routinen des Text-Packs beziehen sich auf das 
aktuelle Window. Auf die Ausnahmen hiervon wird im folgenden 
hingewiesen. 

Will man die Parameter eines Windows ändern oder etwas über das Window 
ausgeben, so muß man das Window mit TXT STR SELECT als aktuelles 
Window setzen. Der Parameter-Block des Windows wird in den aktuellen 
Parameter-Block kopiert. Der aktuelle Parameter-Block wird vorher in den 
Parameter-Block des zuvor ausgewählten Windows zurückkopiert, damit die 
gemachten Änderungen auch bestehen bleiben. Wenn beispielsweise nur die 
Pen-Farbe des zweiten Windows geändert werden soll, so wählt man mit 
TXT STR SELECT das zweite als aktuelles Window aus. TXT STR 
SELECT gibt die Nummer des vorher ausgewählten Windows zurück. Man 
ändert nun im aktuellen Window die Pen-Farbe mittels TXT SET PEN und 
wählt wieder das vorher ausgewählte Window aus. Die Änderung des Pen- 
Wertes wird dann in den Parameter-Block des zweiten Windows kopiert. 

Mit der Routine TXT SWAP STREAMS können die Parameter-Blöcke 
zweier Windows direkt vertauscht werden. 

3.5.3 Die Window-Grenzen 

Die Grenzen (links, rechts, oben und unten) des aktuellen Windows können 
mit TXT WIN ENABLE neu gesetzt werden. Die an diese Routine überge¬ 
benen Zeilen- und Spaltenwerte sind absolute Werte. Die linke obere Ecke 
des Bildschirms ist Position 0/0. Die Zeilengrenzen werden von der Routine 
in den Bereich 0..24 und die Spaltengrenzen, je nach Mode, in den Bereich 
0..19, 0..39 oder 0..79 forciert. Die meisten Koordinaten, die sich auf das 
Window beziehen, werden relativ zum Window angegeben. Die linke obere 
Ecke des Windows ist dann die Position 1/1. Mit TXT GET WINDOW 
können die Grenzen des aktuellen Windows abgefragt werden. TXT VALI- 
DATE forciert eine Bildschirmposition in die Windowgrenzen. 
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3.5.4 Die Cursorsteuerung 

Da auf acht verschiedenen Windows Zeichen ausgegeben werden können, 
existieren auch acht verschiedene Cursorpositionen. Die Cursorposition des 
aktuellen Windows kann mit drei Routinen direkt gesetzt werden: TXT SET 
ROW setzt die Zeile, TXT SET COLUMN die Spalte und TXT SET 
CURSOR Zeile und Spalte neu. Zeile und Spalte werden relativ zum Win¬ 
dow angegeben. Mit TXT GET CURSOR kann die Cusorposition abgefragt 
werden. 

Das Screen-Pack kann mit TXT DRAW CURSOR den Cursor an der aktu¬ 
ellen Position sichtbar machen und mit TXT UNDRAW CURSOR ver¬ 
schwindet er wieder. Von der Benutzerebene aus geschieht dies durch die 
Routinen TXT PLACE CURSOR und TXT REMOVE CURSOR. Die 
ersteren Routinen werden benutzt, um bei der Zeichenausgabe den Cursor 
mit den Zeichen weiterlaufen zu lassen. Wenn man die Indirections für 
TXT DRAW CURSOR bzw. TXT UNDRAW CURSOR nicht verändert 
hat, so benutzen beide die gleiche Routine, die den Cursor invertiert. 
Ebenso springen die Betriebssystemvektoren für TXT PLACE CURSOR 
und TXT REMOVE CURSOR die gleiche Routine an. Deshalb darf keine 
dieser Routinen zweimal hintereinander aufgerufen werden, wenn die ur¬ 
sprüngliche Funktion gewahrt werden soll. 

Der Cursor ist von höherer Ebene auch mit TXT CUR ON und TXT CUR 
OFF ein- und ausschaltbar. Hier ist es möglich, die gleiche Routine 
zweimal hintereinander aufzurufen, der zweite Aufruf bewirkt dann nichts. 
Nach TXT CUR OFF sind TXT DRAW CURSOR und TXT UNDRAW 
CURSOR bis zum nächsten TXT CUR ON wirkungslos. TXT CUR ON 
und TXT CUR OFF werden vom Basic beim Warten auf eine zweite Taste 
nach der ESC-Taste und vom Editor aufgerufen. 

Ebenso funktionieren die Routinen TXT CUR ENABLE und TXT CUR 
DISABLE. Über sie wird der Cursor ausgeschaltet, wenn die gesamte Bild¬ 
schirmausgabe durch TXT VDU DISABLE ausgeschaltet ist. Der Cursor ist 
also nur sichtbar, wenn sowohl TXT CUR ENABLE als auch TXT CUR 
ON aufgerufen wurden. Nach TXT INITIALIZE ist in allen Windows der 
Cursor OFF und ENABLED. 

3.5.5 Die Verwaltung der Zeichenmatrizen 

Zur Darstellung von Zeichen auf dem Bildschirm werden Zeichenmatrizen 
benötigt. Sie geben an, welche Pixels in dem acht mal acht Pixels großen 
Feld, das ein Zeichen darstellt, gesetzt werden müssen. Da die Information 
für ein Pixel ein Bit belegt, ist eine Zeichenmatrix 64 Bit = 8 Byte groß. 
Jedes Byte aus der Matrix stellt eine Rasterzeile des Zeichens und das 
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höchste Bit innerhalb eines Bytes stellt das ganz links stehende Pixel in der 
Zeile dar. 

Die Zeichenmatrizen sind nicht window-spezifisch. Bei allen Windows 
werden gleiche Zeichen auch durch gleiche Matrizen dargestellt. Nach 
Ausführung von TXT INITIALIZE werden die Zeichenmatrizen im ROM 
benutzt (von $3800 bis $3FFF). Es besteht jedoch die Möglichkeit, sich 
eigene (User-)Matrizen im RAM zu definieren. Dazu muß man der Rou¬ 
tine TXT SET M TABLE übergeben, ab welchem Zeichen die Matrizen 
umdefiniert werden sollen (analog dem Basic-Befehl SYMBOL AFTER) 
und ab welcher Adresse die neu definierten Matrizen im RAM abgelegt 
werden sollen. Mit TXT SET MATRIX kann danach die Matrix für ein 
Zeichen (analog dem Basic-Befehl SYMBOL) neu gesetzt werden. TXT 
GET M TABLE gibt ein Flag, ob User-Matrizen definiert wurden und gibt 
die Parameter der User-Matrizen zurück. TXT GET MATRIX schließlich 
stellt für ein bestimmtes Zeichen fest, ob eine User-Matrix oder die ROM- 
Matrix benutzt werden soll und berechnet die Adresse der zugehörigen 
Matrix, um das Zeichen dann z.B. auf dem Bildschirm ausgeben zu können. 

3.5.6 Die Farben 

Die Pen- und Paper-Farbstift-Nummern werden durch die Routinen TXT 
SET PEN und TXT SET PAPER gesetzt und durch TXT GET PEN und 
TXT GET PAPER wieder abgefragt. Gespeichert werden jedoch aus Grün¬ 
den der Zeitersparnis nicht die Farbstift-Nummern, sondern die codierten 
Farbmasken. Mit TXT INVERSE werden Pen- und Paper-Farbstift ver¬ 
tauscht. 

Durch TXT SET BACK kann man den Hintergrund-Modus wählen. Die 
Pixels, deren zugehöriges Bit der Zeichenmatrix gesetzt ist, werden auf 
jeden Fall in der Pen-Farbe gesetzt. Vom Hintergrund-Modus hängt nun 
die Darstellung der Pixels ab, deren Bit in der Matrix gelöscht ist. Wenn 
der Hintergrund-Modus transparent ist, dann werden diese Pixels nicht 
verändert, andernfalls werden sie in der Paper-Farbe gesetzt. Der letztere 
Fall ist der Default. Den gerade ausgewählten Modus kann man durch TXT 
GET BACK erfahren. 

3.5.7 Die Ausgabe von Zeichen auf den Bildschirm 

Mit der Routine TXT WRITE CHAR wird ein Zeichen an einer bestimm¬ 
ten absoluten Bildschirmposition ausgegeben. Die Codes von $00 bis $1F 
(normalerweise Steuerzeichen) werden mit eigenen Symbolen dargestellt. 

TXT WR CHAR gibt ein Zeichen an der Cursorposition des aktuellen Win¬ 
dows mittels TXT WRITE CHAR aus, setzt die Cursorposition für das 
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nächste Zeichen und invertiert den Cursor vorher und hinterher, damit er 
eine Position weiterrückt. Mit TXT VDU DISABLE kann die Zeichenaus¬ 
gabe unterbunden werden, TXT WR CHAR ist dann wirkungslos. 

TXT OUTPUT springt zur Indirection TXT OUT ACTION. TXT OUT 
ACTION gibt ein Zeichen an der Cursorposition des aktuellen Windows 
mittels TXT WR CHAR aus. Steuerzeichen werden jedoch durch eigene 
Routinen ausgeführt und nicht direkt dargestellt. Die Ausgabe von Steuer¬ 
zeichen läßt sich im CPC 464 bei TXT OUT ACTION nicht durch TXT 
VDU DISABLE unterbinden. Im CPC 664/6128 werden dagegen alle Steu¬ 
erzeichen bis auf ESC und das Zeichen für TXT VDU ENABLE nach 
einem TXT VDU DISABLE unterdrückt. Die Auswertung der Steuerzei¬ 
chen erfolgt über einen speziellen Buffer, in dem die für das Steuerzeichen 
notwendigen weiteren Zeichen gesammelt werden. Die Ausführung eines 
Steuerzeichens geschieht mit Hilfe einer Tabelle im RAM, die für jedes 
Steuerzeichen die Zahl der zusätzlich benötigten Zeichen, die 
Ausführadresse und (nur beim CPC 664/6128) trotz TXT VDU DISABLE 
ein Flag für die Ausgabe enthält. Man kann sich also seine eigenen 
Steuerzeichen definieren, wenn man diese Tabelle ändert. Die Adresse der 
Tabelle ist von der Routine TXT GET CONTROLS zu erfahren. 

Zeichen werden von TXT OUTPUT und TXT OUT ACTION normaler¬ 
weise an der Text-Cursorposition ausgegeben. Es ist jedoch auch möglich, 
Zeichen an der Graphik-Cursorposition auszugeben. Dazu benutzt TXT 
OUT ACTION die Routine GRA WR CHAR des Graphic-Packs. Steuerzei¬ 
chen werden dann allerdings, wie bei TXT WRITE CHAR, mit eigenen 
Symbolen dargestellt. Für das aktuelle Window kann man diese Darstel¬ 
lungsart mit der Routine TXT SET GRAPHIC ein- und ausschalten, die 
auch von den Basic-Befehlen TAG und TAGOFF aufgerufen wird. 

3.5.8 Das Lesen von Zeichen auf dem Bildschirm 

Beim Editieren von Programmen mit dem Copy-Cursor des Editors muß 
beim Drücken der Copy-Taste ein Zeichen vom Bildschirm übernommen 
werden. Die Routine TXT UNWRITE liest ein Zeichen an einer beliebigen 
absoluten Position, indem die aus dem Bildschirm gelesene Pixel-Matrix 
mit allen vorhandenen Zeichen-Matrizen verglichen wird. TXT RD CHAR 
liest ein Zeichen an der Cursorposition des aktuellen Windows und ruft 
dazu TXT UNWRITE über eine Indirection auf. 
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3.6 Das GRAPHICS SCREEN PACK (GRA) 

3.6.1 Allgemeines 

Dieses Pack stellt dem Benutzer einige Routinen zum Zeichnen von Linien 
und Punkten auf dem Bildschirm zur Verfügung. Es benutzt zur Aus¬ 
führung seiner Aufgaben Routinen aus dem Screen-Pack. 

Die Routine GRA INITIALIZE setzt den Pen- und Paper-Wert neu und 
initialisiert das Graphik-Window, während GRA RESET einige Indirections 
ins RAM kopiert. 

3.6.2 Das Graphik-Window 

Die Grenzen des Graphik-Windows können mit GRA WIN WIDTH (für die 
X-Koordinaten, linke und rechte Grenze) und GRA WIN HEIGHT (für die 
Y-Koordinaten, obere und untere Grenze) gesetzt werden. Die X-Koordi- 
naten werden in den Bereich 0..639 forciert, die Y-Koordinaten in den 
Bereich 0..399. Die Einteilung in 640 mal 400 Punkte ist in allen drei 
Modes gleich, obwohl eine Auflösung von 640 mal 400 Pixels nicht erreicht 
wird. Die Position 0/0 ist bei diesen Routinen die linke untere Ecke des 
Bildschirms. Mit GRA GET WINDOW WIDTH und GRA GET WINDOW 
HEIGHT können die Grenzen wieder abgefragt werden. Abgespeichert 
werden die Grenzen jedoch als reale Koordinaten, d.h. die Koordinaten 
entsprechen auch der tatsächlichen Auflösung. 

Mit der Routine GRA SET ORIGIN kann der Ursprung (Origin) des 
Koordinatensystems neu festgelegt werden. Alle nicht zur Origin- und 
Window-Definition benutzten Koordinaten werden als Koordinaten relativ 
zum gesetzten Origin interpretiert. Es können so je nach Window und Ori¬ 
gin auch negative Koordinaten möglich sein. 

Vor Ausführung der meisten Routinen werden die übergebenen Koordina¬ 
ten in reale Koordinaten umgerechnet, indem zuerst die Origin-Koordi- 
naten addiert und dann je nach Mode X- bzw. Y-Koordinaten durch 1, 2 
oder 4 geteilt werden. Mit den entstandenen Koordinaten läßt sich leichter 
und schneller arbeiten. Im CPC 664/6128 kann auch der Benutzer diese 
Umrechnung mittels der Routine GRA FROM USER direkt durchführen 
lassen. 
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3.6.3 Das Zeichnen von Linien, Punkten und Zeichen 

Ähnlich der acht Text-Cursor gibt es einen Graphik-Cursor. Die Cursor¬ 
position kann mit GRA MOVE ABSOLUTE gesetzt und mit GRA ASK 
CURSOR abgefragt werden. Mit GRA MOVE RELATIVE kann der Cur¬ 
sor um einen bestimmten Offset versetzt werden. Der Cursor wird also 
relativ zu sich selbst bewegt. Die Angabe der Koordinaten relativ zum 
Cursor geschieht unabhängig von der Tatsache, daß die Cursorposition 
selbst schon relativ zum Origin angegeben ist. 

Ein einzelner Punkt kann mit GRA PLOT ABSOLUTE oder, bei cursor¬ 
relativen Koordinaten, mit GRA PLOT RELATIVE gesetzt werden. Diese 
beiden Routinen rufen eine Indirection zu GRA PLOT auf. GRA PLOT 
ABSOLUTE ist daher genau das gleiche wie GRA PLOT - wenn die Indi¬ 
rection nicht geändert wurde. Bei GRA PLOT RELATIVE werden dagegen 
vor dem Aufruf von GRA PLOT die Koordinaten umgerechnet. 

Analog funktionieren GRA TEST ABSOLUTE, GRA TEST RELATIVE 
und GRA TEST sowie GRA LINE ABSOLUTE, GRA LINE RELATIVE 
und GRA LINE. Die Test-Routinen geben die Farbstiftnummer des Pixels 
an der übergebenen Position zurück, während die Line-Routinen eine Linie 
von der Cursorposition bis zur übergebenen Position ziehen. Die Cursorpo¬ 
sition wird nach diesen Routinen jeweils neu gesetzt, entsprechend der 
übergebenen (End-)Koordinaten. 

Während im CPC 464 GRA LINE die Linien immer durchgehend zieht, 
kann im CPC 664/6128 mit der Routine GRA SET LINE MASK ein 
Linienmuster bestimmt werden, so daß gestrichelte oder gepunktete Linien 
möglich sind. Bit 7 der an GRA SET LINE MASK übergebenen Linien¬ 
maske bestimmt, ob das 1., 9., 17. usw. Pixel der Linie in der Pen-Farbe 
gesetzt werden soll oder nicht. Bit 6 gilt für das 2., 10., 18. Pixel usw. 

Wenn man im XOR-Mode für SCR WRITE arbeitet, die Linien also 
invertierend gezeichnet werden, kann es z.B. zum Zeichnen eines 
rechteckigen Rahmens nützlich sein, den ersten Punkt einer Linie nicht zu 
zeichnen, damit kein Punkt zweimal invertiert wird. Dazu muß man GRA 
SET FIRST ein entsprechendes Flag übergeben. Auch diese Möglichkeit ist 
nur im CPC 664/6128 implementiert. 

3.6.4 Die Farben 

Die Pen- und Paper-Farbstifte können mit den Routinen GRA SET PEN, 
GRA SET PAPER, GRA GET PEN und GRA GET PAPER gesetzt bzw. 
abgefragt werden. Die Routine GRA CLEAR WINDOW füllt das Graphik- 
Window mit der aktuellen Paper-Farbe. 
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Ähnlich wie im Text-Pack kann auch im Graphics-Pack der Hintergrund- 
Modus durch GRA SET BACK festgelegt werden, allerdings hier nur beim 
CPC 664/6128. Die Pixels, denen entsprechend der Linienmaske oder der 
Zeichenmatrix ein gesetztes Bit zugeordnet ist, werden auf jeden Fall in 
der Pen-Farbe gesetzt. Vom Hintergrund-Modus hängt nun die Darstellung 
der Pixels ab, deren Bit in der Maske bzw. Matrix gelöscht ist. Wenn der 
Hintergrund-Modus transparent ist, dann werden diese Pixels nicht verän¬ 
dert, andernfalls werden sie in der Paper-Farbe gesetzt. Der letztere Fall ist 
der Default. 

3.6.5 Die Ausgabe eines Zeichens 

GRA WR CHAR ist eine Routine, die von TXT OUT ACTION aufgerufen 
wird, wenn das TAG-Flag gesetzt war. Diese Routine gibt ein Zeichen an 
der Graphik-Cursorposition aus. Damit ist die Ausgabe von Zeichen an 
Positionen möglich, die keine Textpositionen sind. Nach der Ausgabe eines 
Zeichens wird die X-Koordinate der Graphik-Cursorposition um acht 
erhöht, so daß das nächste Zeichen rechts neben dem aktuellen Zeichen 
ausgegeben wird. Anstelle von Steuerzeichen stellt GRA WR CHAR die 
speziellen Zeichen für den Bereich von $00 bis $1F dar. 

3.6.6 Das Ausfüllen einer Fläche 

Die Routine GRA FILL im CPC 664/6128 füllt eine Fläche ausgehend von 
der Cursorposition mit einem übergebenen Farbstift. Als Grenzen der 
Fläche gelten dabei sowohl Pixels in der Farbe des übergebenen Farbstifts, 
als auch Pixels in der Pen-Farbe. Die Routine benötigt einen Buffer zum 
Abspeichern der Parameter von Teilen der Fläche (von einzelnen horizon¬ 
talen Linien), die nicht sofort bearbeitet werden können. Adresse und 
Länge des Buffers müssen an GRA FILL übergeben werden. 

Beim Füllen der Fläche wird in drei Fällen ein Fehler angezeigt (CY=0). 
Die Cursorposition kann außerhalb des Windows liegen oder das Pixel an 
der Cursorposition in einer Sperrfarbe gesetzt sein. Sperrfarben sind die 
Füll- und die Pen-Farbe, die ja die Fläche begrenzen. Weiterhin tritt ein 
Fehler auf, wenn der Buffer zu klein ist. Je komplexer die Fläche aufge¬ 
baut ist, desto mehr Buffer-Raum wird benötigt. 
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3.7 Der KEYBOARD MANAGER (KM) 

3.7.1 Allgemeines 

Das Keyboard Manager Pack verwaltet, wie auch schon aus dem Namen 
hervorgeht, die Eingabe von der Tastatur und erledigt alle Aufgaben, die 
damit verbunden sind. Dazu gehört, neben der Abfrage der Tastatur und 
der Berechnung der ASCII-Codes der gedrückten Tasten, auch die Ver¬ 
waltung von Expansion Strings, des Put Back Buffers, der Tastenwieder¬ 
holung (Key-Repeat) und der ASCII-Code-Tabellen für die Tastatur. 

3.7.2 Die Erzeugung von Zeichen 

Ein Programm, wie z.B. der Basic-Interpreter, benutzt zur Erzeugung von 
Zeichen den Keyboard-Manager. Dazu springt es eine Routine an (KM 
READ CHAR oder, wenn die Routine solange warten soll, bis ein gültiges 
Zeichen vorhanden ist, KM WAIT CHAR), die das aktuelle, im Keyboard 
Manager vorliegende Zeichen über den Akkumulator an das Programm 
zurückgibt. Dieses Zeichen nun kann aus drei verschiedenen Quellen 
stammen: 

1. Der Put Back Buffer: Der Put Back Buffer ist ein Zwischen¬ 
speicher, der jeweils nur ein Zeichen enthält. Er dient dem überge¬ 
ordneten Programm dazu, ein Zeichen vorläufig zurückzustellen, das 
ihm vom Keyboard Manager geliefert wurde und das es noch ein¬ 
mal braucht. Wenn das Programm dann das nächste Mal nach einem 
Zeichen fragt, wird es dieses zurückgestellte Zeichen wieder 
geliefert bekommen. Die Routine zum Zurückstellen eines Zeichens 
heißt KM CHARacter RETURN. 

2. Die Expansion Strings: Expansion Strings sind Zeichenketten, die 
jeweils einem ASCII-Code von $80-$9F zugeordnet sind, und die 
Zeichen für Zeichen nacheinander ausgegeben werden, wenn der 
Keyboard Manager auf einen solchen Code stößt. Es existiert im 
Schneider ein bestimmter Speicherbereich im RAM, der "Expansion 
String Buffer", in dem alle 31 Expansion Strings in der richtigen 
Reihenfolge eingetragen sind. Wenn nun ein Expansion String aktiv 
ist (der Keyboard Manager stellt das dadurch fest, daß an einer 
bestimmten Stelle ein gültiger Expansion String-Code steht), so wird 
das laufende Zeichen (dessen Nummer im String ebenfalls an einer 
Stelle im System-RAM steht) mit der Routine KM GET EXPAND 
geholt, die Nummer des laufenden Zeichens erhöht und das Zeichen 
aus dem Expansion String an das aufrufende Programm zurück¬ 
gegeben. So wird, wenn einmal ein Expansion String aktiviert 
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wurde, der String nach und nach, bei jedem Aufruf von KM 
READ CHAR ein Zeichen, ausgegeben, ohne daß eine Taste von 
der Tastatur "dazwischen kommen" kann. 

3. Die Tastatur: Wenn weder ein Zeichen im Put Back Buffer zu 
finden ist, noch ein Expansion String aktiviert ist, wird das nächste 
Zeichen mit KM READ KEY von der Tastatur gelesen. Wenn der 
von KM READ KEY gelieferte ASCII-Code ein gültiger Expansion 
String Code ist (also von $80-$9F geht), dann wird der 
entsprechende Expansion String aktiviert. Dazu wird der Code 
zusammen mit der Zeichennummer Null (für das erste Zeichen im 
Expansion String) gesetzt. Daraufhin beginnt KM READ CHAR 
von neuem. Ist das Zeichen von der Tastatur jedoch kein Expansion 
Code, so wird es einfach an das aufrufende Programm zurück¬ 
gegeben. 

Ist selbst auf der Tastatur kein Zeichen zu finden, gibt KM READ CHAR 
ein gelöschtes Carry als Kennzeichen zurück. Gleiches macht KM READ 
KEY, wenn keine Taste gedrückt ist. Will der Benutzer solange warten, bis 
ein Zeichen da ist bzw. eine Taste gedrückt wurde, so kann er KM WAIT 
CHAR bzw. KM WAIT KEY anspringen. 

Betrachten wir jetzt jedoch einmal die Tastaturabfrage ein wenig genauer. 
Wie schon erwähnt wird, um eine Taste von der Tastatur zu lesen, KM 
READ KEY angesprungen. Diese Routine, so wurde gesagt, fragt die 
Tastatur ab. Diese Formulierung war jedoch nicht ganz richtig: KM READ 
KEY hat genaugenommen mit der Abfrage der Tastatur gar nichts zu tun. 
Diese wird von einer, für den Benutzer "transparenten", Routine im Zuge 
der Interruptbehandlung erledigt. Diese "Update Key State Map" genannte 
Routine fragt die Tastaturmatrix mit Hilfe einer Routine im Machine Pack 
ab und bereitet die gewonnenen Rohdaten auf. Für jede neu gedrückte 
Taste wird ein Eintrag in einem Ringbuffer gemacht. Der Ringbuffer ist 
ein Zwischenspeicher, der eine FIFO-Struktur darstellt. First In-First Out, 
heißt, daß der Eintrag, der als erstes in den Ringbuffer geschrieben wurde 
auch als erstes aus ihm ausgelesen wird. Anders dagegen beim Stack, der 
klassischen LIFO-Struktur (Last In-First Out), aus dem die Einträge in 
genau der umgekehrten Reihenfolge gelesen werden, in der sie in den Stack 
geschrieben wurden. Ein solcher Eintrag in den Ringbuffer wurde von uns 
als die Tastenkoordinaten der entsprechneden Taste bezeichnet: Er enthält 
sowohl die Nummer der Tastaturzeile in einem Byte, als auch das der Taste 
entsprechende Bit, isoliert im zweiten Byte. Der Ringbuffer kann 20 Ein¬ 
träge aufnehmen, d.h. es können bis zu 20 Tasten "vorgetippt" werden, 
ohne das die Tastatur abgefragt werde mußte. Da ein Eintrag jeweils zwei 
Byte lang ist, folgt daraus, daß der Ringbuffer eine Länge von insgesamt 
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40 Byte hat - zuzüglich der diversen Zeiger (Schreib- und Lesezeiger) und 
Verwaltungsbytes. 

Wie bereits oben angedeutet, läuft dieser Prozeß, gesteuert durch den 
Interrupt, asynchron zum Ablauf der Programme etwa mit einer Frequenz 
von 50 Hz, also fünfzigmal in der Sekunde ab. KM READ KEY holt sich, 
wenn es aufgerufen wird, den ersten, d.h. auch den ältesten Eintrag aus 
dem Ringbuffer und berechnet aus diesen Tastenkoordinaten die Nummer 
der Taste. Dann wird aus einer Tabelle der Code der entsprechenden Taste 
gelesen. Dabei ist zu beachten, daß der ASCII-Code einer Taste nicht kon¬ 
stant ist. Einer Taste sind drei verschiedene Codes zugeordnet, je nachdem 
ob ConTRoL, SHIFT oder keine der beiden gedrückt ist. Dementsprechend 
gibt es auch drei verschiedene Tabellen: die Key Translation Tabelle für 
den "Normalfall", die Key Ctrl Tabelle für den CTRL-Code der Taste und 
die Key Shift Tabelle für den SHIFT-Code der Taste. Die Umwandlung 
der Tastennummer in den zugeordneten ASCII-Code geschieht dann durch 
die drei Routinen KM GET TRANSLATE, KM GET SHIFT und KM 
GET CTRL. Welche dieser Routinen von KM READ KEY zur Ermittlung 
des Tastencodes herangezogen wird, wird anhand der SHIFT- und CTRL- 
Flags entschieden, die immer zusammen mit den Tastenkoordinaten im 
Ringbuffer abgelegt werden. 

3.7.3 Die Behandlung eines Breaks 

Neben den auf diese Weise entstandenen Tastencodes gibt es einen Code 
mit einer besonderen Bedeutung: den Code $EF bzw. 239. Dieses Zeichen 
haben wir das BRK-Zeichen getauft, weil es in engem Zusammenhang mit 
der Sonderstellung der ESC-Taste und der Break-Bearbeitung im Keyboard 
Manager steht. In der Routine Update Key State Map, auf der untersten 
Ebene während eines Interrupts also, wird gesondert geprüft, ob außer 
TAB noch eine Taste in der achten Zeile (in der auch ESC liegt) gedrückt 
ist. Ist dies der Fall, so wird nach beendeter Abfrage der Tastatur und 
nachdem alle Tasten in den Ringbuffer eingetragen worden sind, in eine 
Routine namens KM TEST BREAK gesprungen. Diese prüft, ob CTRL- 
SHIFT-ESC gedrückt und einen Reset auslöst ist. Wenn ansonsten ESC 
gedrückt ist, geht KM TEST BREAK in eine Routine mit dem Namen KM 
BREAK EVENT, die den Break Event aktiviert, falls er erlaubt ist. Als 
Zeichen für die Aktivierung des Break Events schreibt KM BREAK 
EVENT ein $EF in den Ringbuffer. Dieses $EF, das ja eigentlich nicht der 
Tastencode sondern nur ein Teil der Tastenkoordinaten darstellt, wird von 
KM READ KEY als Sonderfall erkannt und als Tastencode übernommen. 
Das BRK-Zeichen ist also nicht mit dem ESC-Zeichen gleichzusetzen, 
dessen Code entgegen dem ASCII-Standard ja $FC ist. Es zeigt die Akti¬ 
vierung des Events an, während das ESC-Zeichen völlig unabhängig davon 
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ausgegeben wird. Auch kann das ESC-Zeichen jeder beliebigen Taste zuge¬ 
ordnet werden, wohingegen das BRK an die ESC-Taste gebunden ist. 

Der Break Event selber wird vom Keyboard Manager verwaltet. Der User 
bzw. das Basic, das wir hier als "User" des Operating Systems verstehen, 
muß der Routine KM ARM BREAK lediglich die Adresse der Routine, 
die er zur Behandlung eines Breaks vorsieht, und die entsprechende ROM- 
Konfiguration übergeben. KM ARM BREAK baut dann den synchronen 
Event Block auf und "erlaubt" den Event. Diese Routine setzt also das Flag, 
das der Routine KM BREAK EVENT angibt, ob es den Event Block über¬ 
haupt einhängen darf oder nicht - z.B. wenn der Event Block Undefiniert 
ist oder der User den Break Event nicht eingeschaltet haben möchte. Die 
Routine KM DISARM BREAK schaltet den Break Event wieder aus, 
indem sie das Flag wieder zurücksetzt und ihn für den Fall aushängt, daß 
der Event gerade eingehängt ist. 

3.7.4 Einflußmöglichkeiten des Benutzers 

Der Benutzer hat viele Möglichkeiten, auf die Abläufe im Keyboard 
Manager steuernd Einfluß zu nehmen. Lobenswert hinsichtlich des Schnei- 
der-Basics ist, daß nahezu alle Features des Tastatur-Verwaltungspro¬ 
grammes auf seiner Ebene "herausgeführt" sind. Somit können sie vom 
Basic-Programmierer, und nicht nur von Maschinensprache aus, benutzt 
werden. Dazu gehören 

1. die Definition von Expansion Strings, die mit der Routine KM SET 
EXPAND geschieht, 

2. das Setzen der Verzögerungen für die Tastenwiederholung, sowohl 
der 1. Verzögerung als auch der Repeat-Verzögerung, mit der Rou¬ 
tine KM SET DELAY, 

3. die Möglichkeit, über das Ein- bzw. Ausschalten des Repeats für 
jede einzelne Taste bestimmen zu können. Hierfür ist die Routine 
KM SET REPEAT vorgesehen. 

4. Der Benutzer kann ferner den Tasten der Tastatur völlig wahlfrei 
ASCII-Codes zuordnen, so daß die Bedeutung der einzelnen Tasten 
und deren Festlegung dem Benutzer überlassen bleibt. Der Key¬ 
board Manager verfügt zu diesem Zweck über die Routinen KM 
SET TRANSLATE, KM SET SHIFT und KM SET CTRL. 

5. Im CPC 664 und im CPC 6128 gibt es zusätzlich noch die Möglich¬ 
keit, die Caps Lock und Shift Lock Flags per Programm zu setzen. 
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Die entsprechende Routine im Keyboard Manager trägt den Namen 
KM SET LOCKS. 

6. Auch nur im CPC 664/6128 gibt es die Routine KM FLUSH. Sie 
dient dazu, alle Tastenkoordinaten, die sich zu der Zeit im Ring¬ 
buffer befinden, zu löschen, d.h. alle gedrückten Tasten zu löschen. 

3.7.5 Ausgaberoutinen des Keyboard Managers 

Unter "Ausgaberoutinen" sind in diesem Zusammenhang Unterprogramme 
zu verstehen, die einem übergeordneten, aufrufenden Programm Informa¬ 
tionen übergeben. Sie dienen vorzugsweise also nicht zum Setzen 
bestimmter Informationen, wie die Routinen unter 3.7.4. Die wichtigsten 
haben wir bereits kennengelernt: KM READ CHAR zum Holen eines all¬ 
gemeinen Zeichens, KM WAIT CHAR zum Warten auf ein solches 
Zeichen. Ferner hatten wir schon KM READ KEY besprochen, die eine 
Taste von der Tastatur holt und entsprechend auch KM WAIT KEY, die 
auf eine solche Taste wartet. Daneben kann der Benutzer jedoch noch 
andere Informationen aus dem Keyboard Manager beziehen: 

1. KM GET STATE holt den augenblicklichen Status von Shift Lock 
und Caps Lock. 

2. KM GET JOYSTICK holt die Stellung der beiden Joysticks. 

3. KM GET DELAY holt die Verzögerungs-Werte, die momentan ge¬ 
setzt sind. 

4. KM GET KEPEAT gibt an, ob für eine Taste die Tastenwiederho¬ 
lung eingeschaltet ist oder nicht. 

5. KM TEST KEY gibt für eine Taste an, ob sie gedrückt ist, und gibt 
auch die Ctrl/Shift-Flags aus. 

3.7.6 Das Initialisieren des Keyboard Managers 

Um den Keyboard Manger vollständig in den Ausgangszustand zurück¬ 
zusetzen, muß man die Routine KM INITIALIZE anspringen. Sie setzt 
einzelne Parameter zurück, setzt die ASCII-Tabellen auf deren Aus¬ 
gangswerte zurück, initialisiert die Tabellen mit den Zeilenrückmeldungen, 
löscht den Ringbuffer und den Put Back Buffer und setzt den Expansion 
String Buffer auf seine Default Strings. 
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Wenn der User jedoch nicht alles neu initialisieren möchte, dann kann er 
z.B. auch KM RESET anspringen, die lediglich den Ringbuffer und den 
Put Back Buffer löscht, den Expansion Buffer zurücksetzt und den Break 
Event ausschaltet. Dies bietet sich an, wenn man sich eigene Tastenbele¬ 
gungen definiert hat, die man nicht vernichten möchte, den Keyboard 
Manager aber dennoch in einen möglichst definierten Ausgangszustand 
bringen will. Hat man jedoch auch Expansion Strings definiert, die man 
erhalten möchte, und sei es nur zum Löschen aller sich momentan im 
Ringbuffer befindliche Zeichen, so muß man die Routine "Ringbuffer ini¬ 
tialisieren" benutzen. Dabei sollte man jedoch darauf achten, gleichzeitig 
auch den Break Event zu "disarmen". Es ist nämlich zu bedenken, daß sich 
im Ringbuffer eventuell ein BRK-Zeichen befindet, das ja als Kennzei¬ 
chen für einen eingehängten Break Event dient. Wird es gelöscht, so hat 
das User-Programm keinen Hinweis mehr darauf, daß ein Break Event in 
der Pending Queue auf seine Ausführung wartet. Der alte Event verhindert 
dann auch das Einhängen neuer Events. 
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3.8 Der SOUND MANAGER (SOUND) 

3.8.1 Allgemeines 

Der Sound Manager ist der Teil des CPC-Betriebssystems, der die Verwal¬ 
tung der Sound-Ausgabe auf dem Schneider-Computer übernimmt. Er ist 
ein sehr nützliches Stück Software mit erstaunlichen Features. So verwaltet 
er z.B. alle drei von der Hardware unterstützten Kanäle, jeweils mit eige¬ 
nen, frei programmierbaren Hüllkurven - und zwar Hüllkurven sowohl für 
die Tonhöhe wie auch für die Lautstärke. Weiterhin richtet er für jeden 
Kanal eine Warteschlange ein, so daß mehrere Töne hintereinander ohne 
Wartezeiten an einen Kanal übergeben werden können, wodurch ein relativ 
verzögerungsfreier Betrieb ermöglicht wird. 

Man kann den Sound Manager als ein Programm betrachten, das dem 
klangerzeugenden Baustein AY 3-8912 sozusagen "aufgesetzt" wurde. Als 
ein- solches leistet er einiges: Er unterstützt sämtliche Eigenschaften des 
Sound Chips und trägt dazu bei, dessen Unzulänglichkeiten auszubügeln, 
wie z.B. die Beschränkungen hinsichtlich der Hüllkurven. 

3.8.2 Die Verwaltung der Kanäle 

Wie bereits oben gesagt, verwaltet der Sound Manager alle drei Kanäle 
völlig autonom und voneinander unabhängig. Damit er zu jeder Zeit über 
den Zustand eines bestimmten Kanals informiert ist, sind sämtliche Daten, 
die diesen Zustand beschreiben, für jeden Kanal in einem sogenannten 
Parameter-Block zusammengefaßt. Diese Parameter sind in zwei Hauptteile 
gegliedert: 1. in den aktuellen Status der gerade laufenden Tones und 2. in 
die restliche Warteschlange, in der maximal vier weitere Töne pro Kanal 
abgelegt werden können. Diese vier Plätze in den Params sind in Form 
eines Ringbuffers organisiert. Im folgenden wollen wir uns den Aufbau 
eines solchen Parameter-Blockes näher ansehen: 


Byte Funktion 

00 Kanalnummer, 0-2 

01 Kanalmaske, bO, bl oder b2 gesetzt 

02 Rauschmaske, b3, b4 oder b5 gesetzt 

03 Kanalstatus: 

b4=l: Kanal aktiv 

b3=l: Warteschlange im Haltezustand 
b2-b0: Rendezvous-Status 
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04 


05 

06 

07 


08/09 

0A/0B 

OC 

OD/OE 

OF 

10 

11/12 

13 

14/15 

16/17 

18 

19 

1A 

1B 

IC 

1D/1E 

1F-26 

27-2E 

2F-36 

37-3E 


ENT-Flag: 

b7=l: ENT-Folge schwebend 

b0=;l: ENT-Folge muß bedient werden 
laufende Pausenzeit für ENT 
laufende Pausenzeit für ENV 
ENV-Flag 

b7=l: ENV-Folge schwebend 

bO—1: ENV-Folge muß bedient werden 
Tonlänge (noch verbleibend) 

Anfangsadresse der laufenden ENV-Folge 

Anzahl der ENV-Gruppen 

Adresse der laufenden ENV-Gruppe 

laufende Lautstärke 

laufende Schrittzähler für ENV 

Anfangsadresse der laufenden ENT-Folge 

Anzahl der ENT-Gruppen 

Adresse der laufenden ENT-Gruppe 

laufenden laufenden Periodendauer 

laufende Schrittzähler für ENT 

Nummer des nächsten Eintrags in Warteschlange 

Anzahl der Blöcke in der Warteschlange 

Nummer des nächsten freien Blockes 

Anzahl der freien Datenblöcke 

Adresse des synchronen Events 

Datenblock #1 

Datenblock #2 

Datenblock #3 

Datenblock #4 


Wie man sieht, ist ein solcher Parameterblock genau 63 Byte lang. Im CPC 
existieren drei solche Blöcke, die im Speicher exakt hintereinander liegen. 
Neben der oben gemachten Unterteilung in den aktuellen Zustand (00-1F) 
und die verbleibende Warteschlange (20-3F) läßt sich der erste Teil des 
Blockes noch feiner gliedern: 

1. Die drei Kanalkennungen (00-02): Neben der Nummer des Kanals 
ist die Kanalmaske, in der bei jedem Kanal das entsprechende Bit 
gesetzt ist, u.a. dazu da, bei bestimmten Routinen als Yergleichsbyte 
für die übergebenen Kanalbits zu dienen. Die Kanalmaske wird 
auch zum Aktivieren des Kanals im Kontrollregister des PSG ver¬ 
wendet. Die Rauschmaske dient zur Aktivierung des Rauschens für 
den entsprechenden Kanal im PSG. 

2. Die allgemeine Verwaltung (03-09): Sie dienen dazu, festzustellen, 
ob der Kanal vom Sound Event bedient werden muß, d.h. ob eine 
ENV- oder ENT-Folge fortgesetzt werden muß, bzw. ob der Ton 
noch läuft oder ob der Kanal mit anderen Kanälen synchronisiert 
ist ("Rendezvous"). 
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3. Die ENV-Verwaltung (0A-10): In diesem Bereich liegt alles, was 
zur Bearbeitung der Lautstärke-Hüllkurve bzw. zur allgemeinen 
Verwaltung der Lautstärke nötig ist. 

4. Die ENT-Verwaltung (11-18): Dieser Bereich enthält sämtliche 
Parameter zur Bearbeitung der Ton-Hüllkurven. 

5. Verwaltung der Warteschlange (19-1E): Hier liegen die Daten, die 
zur Koordination der Blöcke in den vier Plätzen der Warteschlange 
benötigt werden. 

Im folgenden werden wir zunächst auf die Bearbeitung einer ENV/ENT- 
Folge eingehen, dann die Abarbeitung eines ganzen Tons betrachten und 
uns anschauen, wie eine Warteschlange behandelt wird. 

3.8.3 Die Abarbeitung einer ENV/ENT-Folge 

Auf die Bedeutung der ENV- und ENT-Hüllkurven, sowie auf bestimmte 
Fachbegriffe, wie z.B. "Hüllkurve”, können wir im Rahmen dieses Buches 
nicht näher eingehen. Im Handbuch zum CPC existiert dazu jedoch ein 
recht gutes Kapitel, das wir an dieser Stelle voraussetzen müssen. 

3.8.3.1 Das Format einer ENT-Folge 

Wie Sie sicher wissen, kann man von Basic aus 15 verschiedene ENT-Fol- 
gen definieren. Man übergibt dem entsprechenden Befehl (ENT) die Num¬ 
mer der Folge, die man definieren möchte und maximal fünf Parameter¬ 
gruppen mit je zwei oder drei Parametern. Soll die Folge nach Beendigung 
wiederholt werden übergibt man, zusammen mit einem Flag, eine negative 
Nummer. 

Unterhalb der Basic-Ebene, d.h. konkret bei der Übergabe der dem Basic 
übergebenen Parameter zum Betriebssystem, ist der Aufbau einer ENT- 
Folge nur sehr leicht verändert. Die Parameter sind jetzt in einen Block 
von genau 16 Byte zusamengefaßt: Das erste Byte ist eine Art "Kopfbyte" 
für die Folge, es enthält die Anzahl der Parametergruppen und das Wieder¬ 
holungsflag. Die anderen 15 Byte stellen die fünf Parametergruppen dar, 
wobei für jede Gruppe genau drei Byte benötigt werden. Der Aufbau einer 
ENT-Folge sieht im Überblick also so aus: 
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Byte Funktion 

0 b7=l: ENT-Folge wird wiederholt 

b6-b0: Anzahl der Parametergruppen 

3n+l Schrittanzahl < $F0 

3n+2 Schrittweite (2er Komplement) 

3n+3 Pausenzeit 

beziehungsweise: 

3n+l b7-b4=$F als Kennzeichen 

b3-b0: Tonperiode, oberstes Nibble 
3n+2 Tonperiode, Lo-Byte 

3n+3 Pausenzeit 

In der Tabelle oben ist n die Nummer der Parametergruppe (0..4). Wie zu 
sehen ist, gibt es zwei verschiedene Arten von Gruppen, In der ersten 
Form wird dem Sound Manager die Veränderung der Tonperiode 
übergeben, also eine Art "relativer" Tonperiode. In der zweiten Form wird 
die Tonperiode - so, wie ‘sie in den PSG geschrieben wird - direkt 
übergeben. Beide Formen sind natürlich innerhalb einer Folge beliebig 
mischbar. 


3.8.3.2 Das Format einer ENV-Folge 

Eine ENV-Folge sieht in ihrem Aufbau einer ENT-Folge zunächst einmal 
sehr ähnlich: auch sie verfügt über ein Kopfbyte und auch in der ENV- 
Folge gibt es fünf Parametergruppen mit jeweils drei Byte. Dies ist 
eigentlich auch kein Wunder, da die Programmierung von Basic aus sehr 
ähnlich aussieht. Betrachten wir nun das Format einer solchen ENV-Folge: 


Byte Funktion 

0 Anzahl der Parametergruppen 

3n+l b7=0 als Flag für erste Form 

b6-b0: Schrittzahl < $80 

3n+2 Schrittweite (2er Komplement) 

3n+3 Pausenzeit 

beziehungsweise: 


3n+l 

b7=l als Flag für zweite Form 
b3-b0: Registerwert für PSG-Hüllkurve 

3n+2 

Hüllkurvenperiode, high 

3n+3 

Hüllkurvenperiode, low 


Auch in dieser Tabelle meint n die Nummer der entsprechenden Gruppe 
(0..4). Wie auch schon für ENT-Gruppen, so gibt es für ENV-Gruppen 
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ebenfalls zwei Formen: die Angabe einer eigenen Veränderung der 
Lautstärke durch eine selbstdefinierte Veränderung der Hüllkurve (erste 
Form) bzw. die Spezifizierung einer PSG-Hüllkurve (siehe Kapitel 1.5), 
zusammen mit der entsprechenden Periodendauer für deren Veränderung. 

3.8.3.3 Das Definieren einer Hüllkurve 

Trotz der Unterschiede im Aufbau der ENV- und der ENT-Hüllkurven ist 
das Definieren von solchen Folgen im wesentlichen identisch. Dies erkennt 
man schon auf Basic-Ebene: die Syntax für die Definition ist bei beiden 
dafür vorgesehenen Befehlen (ENV und ENT) fast genau gleich. Auf 
Maschinenebene ist diese Ähnlichkeit noch extremer: Die Folgen werden 
nunmehr nur noch als 16-Byte-Blöcke behandelt; der Inhalt dieser Blöcke 
ist für die Definition ohne jede Bedeutung. 

Die Definition selber geschieht über zwei Routinen des Sound Managers: 
SOUND AMPL ENVELOPE (für ENV-Folgen) und SOUND TONE 
ENVELOPE (für ENT-Folgen). Das benutzende Programm übergibt diesen 
Routinen die Nummer der Hüllkurve, die definiert werden soll, und die 
Adresse des 16-Byte-Blocks, der die Definition darstellt. Die Routinen 
kopieren dann den Block in eine Tabelle an die Stelle, die der Nummer 
entspricht. Es gibt jeweils eine Tabelle für ENV- und eine für ENT-Fol¬ 
gen und die Nummer muß im Bereich von 1 bis inklusive 15 liegen. Von 
nun an kann nur über die Nummer auf eine bestimmte Hülkurve zuge¬ 
griffen werden. 

3.8.3.4 Die Abarbeitung der Folgen 

Auch bei der Bearbeitung der Folgen lassen sich Ähnlichkeiten feststellen. 
Wegen der vollständig unterschiedlichen Semantik der beiden Hüllkurven, 
und der damit verbundenen unterschiedlichen Behandlung, läuft sie 
natürlich auf völlig verschiedenen Wegen ab. Die Routinen, die die Folgen 
behandeln, sind also vollständig unterschiedlich. 

Wie so vieles im CPC, so läuft auch die Verwaltung des Sounds unter 
Interruptsteuerung. Dies geschieht derart, daß bei jedem dritten Interrupt 
(300 Hz / 3 = 100 Hz, d.h. alle 0,01 s) die Routine "Scan Sound Queues" 
nachschaut, ob in den drei Kanälen etwas getan werden muß und dann die 
entsprechende Behandlung einleitet. Scan Sound Queues schaut nach, indem 
es den Pausenzähler der laufenden Gruppe erniedrigt und, wenn er null ist, 
ein Flag testet. Dieses Flag gibt an, ob die entsprechende Folge in dem 
Kanal überhaupt aktiviert ist. Wenn sie aktiviert war, so setzt die Routine 
ein Flag, das angibt, daß eine der Folgen behandelt werden muß. Diesen 
Prozeß macht Scan Sound Queues mit jedem Kanal durch - pro Kanal je- 
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weils mit der ENV- und der ENT-Folge. Das Ergebnis dieses Durchsu- 
chens ist schließlich ein Flag, das anzeigt, ob irgendeine Folge behandelt 
werden muß. Ist dies der Fall, so wird der asynchrone Sound Event einge¬ 
hängt, der dann die Bearbeitung der Kanäle übernimmt. 

Der Sound Event sucht in allen Kanal-Blöcken nach ENV/ENT-Folgen, 
die bedient werden müssen. Die Bearbeitung einer solchen Folge sieht so 
aus, daß der Schrittzähler erniedrigt, der Offset zum jeweiligen Parameter 
addiert (bei ENV ist es die Lautstärke, bei ENT die Periodendauer) und 
schließlich die Pausenzeit neu gesetzt wird. Bei Gruppen, die die zweite 
Form einer ENV- oder ENT-Folge besitzen, wird der entsprechende Wert 
des Parameters natürlich anders ermittelt. Wenn der Schrittzähler Null war, 
d.h. wenn die laufende Gruppe zu Ende ist, so wird die nächste Gruppe 
geholt und gesetzt. 

3.8.4 Die Abarbeitung der einzelnen Töne 

Der Prozeß, der der Bearbeitung der Gruppen innerhalb eines Tons über¬ 
geordnet ist, ist die Bearbeitung der verschiedenen Töne innerhalb der 
Warteschlange eines Kanals (der Kürze halber auch "Queue" genannt). Wir 
hatten schon erwähnt, daß die Warteschlange neben dem gerade aktiven 
Ton auch noch vier weitere Töne aufnehmen kann und daß sie als Ring¬ 
buffer realisiert ist. Im folgenden werden wir uns diese Struktur ein wenig 
genauer betrachten. 

3.8.4.1 Der Aufbau eines Datexiblockes 

Im Abschnitt über den Aufbau eines Kanal-Blockes hatten wir bereits die 
Bereiche, in denen die Daten für die jeweils wartenden Töne abgelegt sind, 
als die Datenblöcke 1 bis 4 gekennzeichnet, ihre innere Struktur jedoch 
nicht weiter aufgeführt. Dies wollen wir an dieser Stelle nun tun: 


Byte Funktion 

0 Datenstatus 

b7=l: Flush, Kanal-Params löschen 
b3=l: Hold, Warteschlange in Haltezustand 
b2-b0: Rendezvous-Status des Tons 
1 b7-b4: Nummer der ENV-Folge 

b3-b0: Nummer der ENT-Folge 
2/3 Tonperiode, Startwert 

4 Rauschperiode 

5 Lautstärke, Startwert 

6/7 Tondauer 
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Es ist durchaus kein Wunder, wenn Ihnen diese Parameter bekannt 
Vorkommen: sie entsprechen ziemlich genau denen, die dem Befehl SOUND 
in Basic übergeben werden. Diesem Befehl muß natürlich noch angegeben 
werden, an welchen Kanal der Ton geschickt werden soll. Die Funktion der 
einzelnen Bytes dürfte weitgehend klar sein. Ist dies nicht der Fall, so 
schlagen Sie bitte im entsprechenden Kapitel Ihres Basic-Handbuches nach, 
wo der Basic-Befehl SOUND sowie die zu übergebenden Parameter genau 
beschrieben sind. 

3.8.4.2 Die Übergabe eines Tons an den Sound Manager 

Die Übergabe eines Tons geschieht mit der Routine SOUND QUEUE. 
Diese Routine bekommt einen neun Byte langen Datenblock übergeben, der 
annähernd die Form hat, die auch ein Datenblock in den Kanal-Params 
hat. In diesen Daten ist z.B. auch der Kanal enthalten, auf den der Ton 
ausgegeben werden soll. Ist in diesem Kanal noch ein Platz in dessen 
Warteschlange frei, so werden die Daten noch ein wenig komprimiert und 
dann in den nächsten freien Datenblock geschrieben. Hier wird auch die 
Struktur des Ringbuffers sichtbar (siehe Abschnitt 2.2.2 über FIFOs): die 
Töne werden hinten an die Schlange angehängt und vorne wieder her¬ 
ausgenommen. 

3.8.4.3 Die Bearbeitung eines Tons 

Wenn der Sound Event auf das Ende eines Tons stößt, so schaut er nach, 
ob in der Warteschlange noch Töne auf ihre Ausgabe warten. Ist dies der 
Fall, so wird der Ton "geholt", d.h. die Daten im Datenblock werden in den 
Hauptblock geschrieben. Die Nummern der ENV- und der ENT-Folgen 
werden jedoch nicht in den Hauptblock gebracht. Aus diesen Nummern 
werden vielmehr die Adressen der Folgen berechnet, mit denen dann in der 
Verwaltung des Hauptblockes gearbeitet wird. Es existiert für jede Folge 
jeweils ein Zeiger auf den Anfang der Folge und ein Zeiger in die momen¬ 
tan laufende Folgen-Gruppe hinein. Diese Art, die Daten aufzugliedern 
ermöglicht eine schnellere Auswertung des Hauptblockes und somit eine 
schnellere Bearbeitung des Sound Events. 

3.8.5 Der Begriff "Aktivität" 

Im ROM Listing taucht beim Sound Manager häufiger der Begriff 
"Aktivität" auf, weshalb wir ihm hier einmal kurz erläutern sollten. 

Die Aktivitäten stehen in engem Zusammenhang mit der Bearbeitung eines 
Tons. Sie sind in einem Byte abgelegt, von dem jeweils nur die unteren 
drei Bits benötigt werden. Jedes Bit stellt dabei den Zustand des 
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entsprechenden Kanals dar, gibt also an, ob der Kanal an- oder aus¬ 
geschaltet ist. Eine Eins markiert den Kanal als "aktiv", eine Null bedeutet, 
daß der Kanal ausgeschaltet ist. 

Im CPC gibt es zwei Aktivitätsbytes, die von besonderer Bedeutung sind: 
eines haben wir "laufende Aktivitäten", das andere "alte Aktivitäten" 
genannt. Die laufenden Aktivitäten geben an, welche Kanäle im Moment 
gerade aktiviert sind. Die alten Aktivitäten dienen zum "Einfrieren" und 
Wiederaufnehmen der Tonausgabe mit SOUND HOLD und SOUND 
RELEASE. 

3.8.6 Events im Sound Manager 

Wie einige andere Packs auch, verfügt der Sound Manager über eine 
Event-Bearbeitung. Der Stellenwert, den Events im Sound Manager ein¬ 
nehmen ist recht beachtlich: Die zentrale Routine des Sound Managers ist 
immerhin der "Sound Event". Wir wollen uns in diesem Abschnitt jedoch 
nicht mit diesem Event beschäftigen; vielmehr interessieren uns die syn¬ 
chronen Events, die den einzelnen Kanälen zugeordnet sind, und die Sie 
von Basic aus über ON SQ ansprechen können. 

Wie aus dem Basic bekannt, wird der mit ON SQ GOSUB angegebene Pro¬ 
grammteil immer dann ausgeführt, wenn in der Queue des entsprechenden 
Kanals ein Platz frei wird. Das Basic verwaltet das derart, daß es die 
Adresse des Events an die Routine Sound Arm Event übergibt. Jeder Kanal 
verfügt über einen eigenen, natürlich synchronen Event Block, obschon die 
Event-Routine dieselbe ist. Der Sound Arm Event prüft, ob noch Platz in 
der Warteschlange des Kanals ist. Ist dies der Fall, so wird der Event gleich 
von dieser Routine eingehängt, andernfalls in einem dafür vorgesehenen 
Platz im Parameter-Block des Kanals abgelegt. Die Routine, die den 
nächsten Eintrag in der Warteschlange auswertet, hängt dann den Event, 
wenn vorhanden, auch gleich ein. 

3.8.7 Die Routinen des Sound Managers 

Im vorangegangenen Text haben wir bereits einige der Routinen des Sound 
Managers namentlich erwähnt. An dieser Stelle nun möchten wir einen 
kurzen Überblick über die wichtigsten Routinen und ihre Funktionen 
geben. 

SOUND RESET: Er setzt alle mit der Sound-Ausgabe verbundenen Systeme 
zurück, d.h. schaltet den Sound im PSG aus, initialisiert die Parameter- 
Blöcke und den übrigen Arbeitsspeicher des Sound Managers. 
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SOUND HOLD: Diese Routine setzt die laufenden Aktivitäten als alte und 
löscht die laufenden, d.h. friert die Tonausgabe ein. 

SOUND CONTINUE: Kehrt die Funktion von Sound Hold um, indem alle 
alten Aktivitäten als laufende gesetzt und die entsprechenden Kanäle 
aktiviert werden. 

Sound Event: Dies ist die Schlüsselroutine im Sound Manager. Wenn "Scan 
Sound Queues" festgestellt hat, daß in einem der Kanäle eine Folge bear¬ 
beitet werden muß, so hängt sie diesen Event in die Asynchronous Pending 
Queue ein. Diese Routine steuert dann die Bearbeitung der ENV/ENT-Fol- 
gen im CPC. 

Scan Sound Queues schaut nach, ob eine der Folgen in irgendeinem der 
z.Z. aktiven Kanäle eine Bearbeitung erfordert und hängt den Sound Event 
ein. Sie wird durch den Interrupt mit einer Frequenz von 300 Hz aufgeru¬ 
fen, geht aber nur jedes dritte Mal (100 Hz) an die Bearbeitung der Folgen. 

SOUND QUEUE: Sie ist für den Benutzer die wohl bedeutendste Routine. 
Mit ihr kann man dem Sound Manager Töne übergeben und sie zur Aus¬ 
gabe an einen bestimmten Kanal schicken. Sie baut dann dort - wenn vom 
Platz her möglich - einen Eintrag in der Warteschlange des angegebenen 
Kanals auf, in den sie die übergebenen Parameter schreibt. 

SOUND RELEASE: Diese Routine ermöglicht es dem Benutzer, den Halte¬ 
zustand einer Queue in den angegebenen Kanälen auszuschalten und die 
Bearbeitung des Kanals erneut zu aktivieren. Eine Warteschlange wird 
durch entsprechende Übergabeparameter bei Sound Queue in den Halte¬ 
zustand versetzt. Dieses Einfrieren einer Queue ist nicht zu verwechseln 
mit dem Einfrieren der Sound Ausgabe durch Sound Hold. Aus eigener 
Erfahrung weist der Autor darauf hin, daß man sich diesen Unterschied 
noch einmal genau klar machen sollte. 

SOUND CHECK: Diese Routine gibt den Status des Kanals und die Anzahl 
der freien Plätze in der Warteschlange des angegebenen Kanals zurück. 
Auch wird der dem Kanal zugeordnete synchrone Event gelöscht. 

SOUND ARM EVENT legt im Parameter-Block des angegebenen Kanals 
die übergebene Adresse des entsprechenden Kanal-Events ab, der immer 
dann eingehängt wird, wenn sich ein freier Platz in der Warteschlange des 
Kanals ergibt. Sound Arm Event prüft vorher ab, ob bereits ein Platz in 
der Queue frei ist und hängt den Event dann gleich ein. 

SOUND AMPL ENVELOPE: Mit dieser Routine ist es dem Benutzer mög¬ 
lich, eine ENV-Hüllkurve unter einer Nummer von 1 bis 15 zu definieren, 
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die dann unter dieser Nummer als Parameter bei der Übergabe von Tönen 
mittels Sound Queue mitübergeben werden kann. 

SOUND TONE ENVELOPE: Diese Routine ist das Gegenstück zu Sound 
Ampi Envelope für die Definition von ENT-Hüllkurven. 

SOUND A ADDRESS holt die Tabellenadresse der durch die Nummer 
angegebenen ENV-Hüllkurve. 

SOUND T ADDRESS holt die Tabellenadresse der durch die Nummer 
angegebenen ENT-Hüllkurve. 
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3.9 Der CASSETTE MANAGER (CAS) 

3.9.1 Aufgaben des Packs 

Dieses Pack verwaltet maximal ein Ein- und ein Ausgabefile gleichzeitig. 
Die zur Fileverwaltung benötigten Routinen werden direkt vom Basic auf¬ 
gerufen. Falls eine Diskettenstation an den CPC angeschlossen ist, werden 
die Aufrufe des Basics entsprechend umgeleitet. Die Bedeutungen der Rou¬ 
tinen bleiben sonst die gleichen. 

Mit der Routine CAS INITIALIZE werden Ein- und Ausgabe abgebrochen 
sowie die Baudrate und das Meldungs-Flag werden initialisiert. Das Mel¬ 
dungs-Flag gibt an, ob während des Ladens und Speicherns von Program¬ 
men entsprechende Meldungen ausgegeben werden sollen. Es kann mit der 
Routine CAS NOISY gesetzt werden. Basic setzt dieses Flag je nachdem, ob 
ein Ausrufezeichen den Filenamen anführt oder nicht. 

3.9.2 Aufbau eines Files 

Jedes File, das auf Kassette gespeichert wird, egal ob Programm- oder 
Daten-File, wird in Blöcke von 2 KByte Größe aufgeteilt. Jeder dieser 
Blöcke besteht wiederum aus einem 64 Byte langen Header, der Informa¬ 
tionen über den Block enthält, und den 2 KByte eigentlichen Daten. Ein 
Header eines Blocks ist wie folgt auf gebaut: 


Byte(s) Bedeutung 

hex dez 


00-0F 00-15 

10 16 

11 17 

12 18 


13-14 19-20 

15-16 21-22 

17 23 

18-19 24-25 

1A-1B 26-27 

1C-3F 28-63 


Filename, ggf. aufgefiillt mit Null-Bytes 
Nummer des Blocks 

Zeichen für letzten Block im File, sonst = 0 
Filetyp 

$00 = Basic-Programm 

$01 = geschütztes Basic-Programm 

$02 = Maschinenprogramm 

$16 = ASCII-Datei 

Länge des Blocks 

Ladeadresse des Blocks 

Zeichen für ersten Block im File, sonst = 0 

Länge des gesamten Files 

Aufrufadresse des Maschinenprogramms 

unbenutzt 
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3.9.3 Die Verwaltung von Files 

Mit der Routine CAS OUT OPEN kann ein Ausgabefile eröffnet werden. 
Der Routine muß neben den Parametern des Filenamens auch die Adresse 
eines 2 KByte großen Bufferbereichs zur Zwischenspeicherung eines Blocks 
übergeben werden. CAS OUT OPEN überträgt den Filenamen in einen 
Buffer für den Header und setzt den Filetyp auf $16 (ASCII-Datei). Der 
Filetyp kann gegebenenfalls später noch geändert werden. Auf Kassette 
schreibt diese Routine nichts. Es wird jedoch ein Bereich für den File- 
Status und die Bufferzeiger initialisiert: 

Byte Bedeutung 

0 File-Status 


464 664/6128 



0 

0 

= nicht geöffnet 


1 

1 

= gerade eröffnet 


2 

5 

= zeichenweise Datei (ASCII-Datei) 


3 

2 

= Direkt-Datei (Programm) 


4 

3 

= Abbruch durch ESC 


5 

4 

= CAS CATALOG aktiv 

1/2 

Adresse des Buffers 


3/4 

laufender Bufferzeiger 


ab 5 

Buffer für Blockheader 

* 


CAS OUT OPEN setzt den File-Status auf "1". Wenn der Status vorher 
nicht "0" war, das File also schon eröffnet wurde, gibt CAS OUT OPEN 
einen Fehler (CY=0) zurück. 

Die Routine CAS OUT CHAR legt bei ihrem ersten Aufruf den File-Status 
und in der Regel auch den (voreingestellten) Filetyp auf eine zeichenweise 
(ASCII-)Datei fest. Es muß nun Zeichen für Zeichen an diese Routine 
übergeben werden. CAS OUT CHAR speichert die übergebenen Zeichen 
im Ausgabebuffer zwischen und schreibt dann einen ganzen 2-KByte- 
Block auf einmal auf Band. CAS OUT CLOSE schließt das File ordnungs¬ 
gemäß. Der aktuelle Bufferinhalt wird auf Band geschrieben, auch wenn 
der Buffer nicht ganz voll sein sollte. CAS OUT ABANDON dagegen 
bricht die Ausgabeoperation sofort ab. N 

Mit der Routine CAS OUT DIRECT läßt sich, z.B. für Programme, ein 
Speicherbereich direkt auf Kassette schreiben. Der Bereich wird allerdings 
trotzdem in 2-KByte-Blöcke aufgeteilt. Durch CAS OUT CLOSE wird der 
letzte Block auf Band geschrieben und das File geschlossen. Die Routinen 
CAS OUT CHAR und CAS OUT DIRECT können nicht miteinander kom¬ 
biniert eingesetzt werden - andernfalls wird ein Statusfehler ausgegeben. 
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Ebenso wie für die Ausgabe gibt es für die Eingabe von Kassette die Rou¬ 
tinen CAS IN OPEN, CAS IN CHAR, CAS IN DIRECT, CAS IN CLOSE 
und CAS IN ABANDON. Ein Unterschied zur Ausgabe besteht darin, daß 
CAS IN OPEN schon einen Block von Kassette liest und nach einem Block 
sucht, dessen Filename mit dem des gesuchten Headers übereinstimmt. Zu 
diesem Zweck existieren übrigens zwei Eingabe-Header-Buffer: einer für 
den gesuchten und einer für den gelesenen Header. 

Es ist ohne weiteres möglich, ein Programm, das mit CAS OUT DIRECT 
quasi in einem Stück auf Band geschrieben wurde, zeichenweise mit CAS 
IN CHAR wieder einzulesen. Die Verwendung von CAS IN CHAR bzw. 
CAS OUT CHAR bedeutet also nicht automatisch, daß eine ASCII-Datei 
bearbeitet wird. Was jedoch, wie auch bei CAS OUT CHAR und CAS 
OUT DIRECT, nicht funktioniert, ist das Einlesen des restlichen Files mit 
CAS IN DIRECT, nachdem ein Teil des Files bereits mit CAS IN CHAR 
eingelesen wurde - oder umgekehrt. 

Die Routine CAS RETURN setzt Bufferzeiger und -länge auf das zuletzt 
eingelesene Zeichen, das dadurch noch einmal eingelesen wird. Dies kann 
nützlich sein, wenn man bestimmte Sonderfälle abfangen will. So muß z.B. 
bei einem Linefeed, das auf ein Carriage Return folgt, das nächste Zeichen 
nicht einiesen werden, wenn der Sonderfall nicht auftritt. CAS RETURN 
darf ohne ein zwischenzeitliches CAS IN CHAR nicht zweimal 
hintereinander aufgerufen werden. 

Mit CAS TEST EOF kann festgestellt werden, ob ein zeichenweises File, 
das gerade eingelesen wird, zu Ende ist. Wenn es zu Ende ist, wird bei fol¬ 
genden Aufrufen der Routine CAS IN CHAR ein Fehler (CY=0) zurück¬ 
gegeben. 

CAS CATALOG liest Block für Block ein und gibt jeweils den Filenamen, 
den Filetyp und die Nummer des Blocks innerhalb des Files aus. Diese 
Routine kann nur durch ein Drücken von ESC verlassen werden. Da teil¬ 
weise andere Meldungen als sonst ausgegeben werden müssen, wird der 
File-Status besonders gesetzt (Status 5, entspricht CAS CATALOG aktiv). 

3.9.4 Die Bearbeitung eines Blocks 

Die Routine zum Schreiben eines Blocks auf Band ruft nach der Ausgabe 
einer Meldung zweimal die Routine CAS WRITE auf, und zwar einmal für 
den Blockheader und das zweite Mal für den eigentlichen Block. An CAS 
WRITE wird ein Kenn-Byte übergeben, an dem beim Lesen festgestellt 
werden kann, ob ein Header oder ein Datenblock folgt. Mit "Datenblock" 
ist ein 2-KByte-Block gemeint, der Teil eines Programm- oder Datenfiles 
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sein kann. CAS WRITE ist also eine allgemeine Routine, die einen 
bestimmten Speicherbereich auf Band schreibt. 

Ebenso werden der 64 Byte lange Header und der 2 KByte lange Daten¬ 
block jeweils mit CAS READ eingelesen. Weiterhin gibt es noch eine Rou¬ 
tine CAS CHECK, die ähnlich CAS READ einen Bereich von Kassette 
einliest, ihn jedoch nicht abspeichert,sondern mit dem Speicherinhalt ver¬ 
gleicht. Diese Routine wird von Betriebssystem und Basic des CPC nicht 
aufgerufen. Will man sie für eigene Anwendungen nutzen, so muß man 
sicherstellen, daß man die richtigen Blocks des richtigen Files mit CAS 
CHECK vergleicht. Dies erfordert wohl eine Einbindung in übergeordnete 
Routinen, analog der Einbindung von CAS READ in eine Routine, die die 
Filenamen vergleicht und auf die richtige Blocknummer achtet. 

3.9.5 Das Format eines Blocks 

Die auf Kassette zu schreibenden Daten werden seriell über ein Portbit des 
8255 ausgegeben und über ein anderes Portbit wieder eingelesen. Jedes 
Datenbit wird mit zwei Flanken dargestellt. Die Zeiten zwischen den 
Flanken sind bei einem 1 -Bit circa doppelt so lang wie bei einem O-Bit. 
Diese Zeiten hängen von der Baudrate ab, die mit CAS SET SPEED gesetzt 
werden kann. Übergeben werden dieser Routine einmal ein Wert für die 
Zeiten zwischen zwei Flanken (bei einem O-Bit) und ein Korrektur-Wert. 
Man kann hier auch andere als die vom Basic für 1000 oder 2000 Baud 
benutzten Werte übergeben. Der Korrektur-Zeitwert wird zu der Zeit 
zwischen zwei Flanken eines 1 -Bits addiert und von der Zeit jedes Bits, 
auf das ein I-Bit folgt, subtrahiert. Der Korrekturwert soll wahrscheinlich 
technisch bedingte Veränderungen in den Flankenabständen ausgleichen. 
Wichtig ist, daß jedes Bit durch zwei gleichlange Zeitabstände zwischen 
jeweils zwei Flanken dargestellt wird. Das Erzeugen und Messen dieser 
Zeitabstände geschieht mit Hilfe des Refresh-Zählers. 

Jeder Block beginnt mit einer Synchronisationsmarkierung, die aus $0801 
1 -Bits besteht. Mit Block ist hier ein Bereich gemeint, der sowohl ein 
Header als auch ein Datenblock ohne Header sein kann. Mit Hilfe dieser 
Markierung kann beim Lesen die Baudrate ermittelt werden, indem das 
Mittel über mindestens 256 Zeitabstände zwischen den Flanken gebildet 
wird. Die Baudrate wird also nicht auf 4000 oder 2000 Baud erkannt, son¬ 
dern kann auch kleinere, größere oder Zwischenwerte annehmen. Nach der 
Synchronisationsmarkierung folgt ein einziges 0-Bit. Dieses 0-Bit hat nun 
halb so große Flankenabstände wie die 1 -Bits zuvor. Es wird beim Lesen 
nach der Baudraten-Erkennung auf zwei solcher kürzeren Flankenzeiten 
hintereinander gewartet. Je nachdem, ob die zweite Flanke des so erkann¬ 
ten 0-Bits eine High-Low- oder Low-High-Flanke war, ist das Kasset- 
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tensignal invertiert oder nicht invertiert. Das so gewonnene Invertierungs- 
Flag wird zum Lesen des ganzen Blocks verwendet. 

Nach der Synchronisations-Markierung folgt das Kennbyte des Blocks, das 
besagt, ob der Block ein Header oder ein Datenblock ist. Danach kommen 
endlich die eigentlichen Daten des Blocks. Mit "Daten" können hier 
natürlich auch Bytes aus einem Header gemeint sein. Die Blockdaten wer¬ 
den in Stücken zu 256 Bytes auf das Band geschrieben, nach 256 Bytes 
folgt ein zwei Byte langes Prüf-Wort, dann wieder 256 Bytes Daten und so 
weiter. Es kann nun sein, daß die abzuspeichernde Blocklänge kein 
Vielfaches von 256 ist (ein Header ist z.B. nur 64 Byte lang). In einem 
solchen Fall werden bis zum Erreichen des nächsten vollen Abschnitts aus 
256 Bytes noch Null-Bytes als Füll-Bytes eingefügt. Ein Header besteht 
demnach also aus 64 Datenbytes und 256 - 64 = 192 Füllbytes. 

Abschließend folgt eine der Synchronisationsmarkierung ähnliche Block¬ 
ende-Markierung, die aus $21 1 -Bits besteht. 

3.9.6 Die Fehlermeldungen 

Die meisten Routinen der unteren Ebene, bis hin zu CAS READ, CAS 
WRITE und CAS CHECK, zeigen einen aufgetretenen Fehler durch ein 
gelöschtes Carry an. Im Akku ist dann die Nummer des Fehlers zu finden, 
wobei eine Null Abbruch durch ESC bedeutet. Beim Schreiben auf Kassette 
gibt es nur den "Write error a" (Akku = 1). Er zeigt an, daß die Baudrate so 
hoch ist, daß die Bits nicht mehr schnell genug ausgegeben werden können. 
Beim Lesen gibt es dagegen vier Fehler: Der "Read error a" (Akku = 1) tritt 
auf, wenn der Zähler für die Zeit zwischen zwei Flanken überläuft, wenn 
also die Flanken zu langsam aufeinander folgen. "Read error b" (Akku = 2) 
zeigt an, daß ein Fehler im Prüf-Wort (Check-Word) gefunden worden ist. 
CAS CHECK gibt den "Read error c" (Akku=3) zurück, wenn die gelesenen 
Daten nicht mit den Daten im RAM übereinstimmen. Eine weitere 
Fehlermöglichkeit, der "Read error d" (Akku = 4), wird in der Routine, die 
CAS READ aufruft, überprüft. Dieser Fehler wird ausgegeben, wenn ein 
zu lesender Block länger als 2 Kbyte ist und die Datei zeichenweise gelesen 
wird, also nur ein Buffer von 2 KByte für den Block zur Verfügung steht. 
Die übrigen Fehler werden ebenfalls von den CAS READ oder CAS 
WRITE aufrufenden Routinen ausgegeben. 

Auch auf höherer Ebene bestehen Fehlermöglichkeiten. Man kann z.B. 
versuchen, ein File zweimal zu öffnen, ohne es zwischendurch zu 
schließen. Solche Fehler werden der aufrufenden Routine mit einem 
gelöschten Carry gemeldet. Im CPC 464 wird durch CY = 0, Z = 1 und 
A = 0 ein Abbruch durch ESC angezeigt. Im CPC 664/6128 bedeutet 
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CY = 0, A = 0 ebenfalls Abbruch, CY = 0, A = $0E zeigt einen Filestatus- 
Fehler an und CY = 0, A = $0F signalisiert EOF (End of file, Ende des 
Files). 
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3.10 Der Editor (ED1T) 

Der Editor dient zur Eingabe von Texten in den Computer. Im Gegensatz 
zu Screen Editoren, die auf einigen Home Computern zu finden sind, han¬ 
delt es sich beim CPC-Editor um einen Line Editor. Er hat jedoch wegen 
des Copy Cursors einige Charakteristika von Screen Editoren und stellt 
tatsächlich einen guten Kompromiß zwischen diesen beiden Kategorien dar. 

Der Editor verfügt nur über eine Routine, die von dem Benutzerprogramm 
angesprungen werden sollte: Edit. Diese Routine holt eine Eingabezeile, die 
entweder mit einem CR oder mit einem ESC terminiert wird. Diese Zeile 
wird der aufrufenden Routine nicht auf dem Bildschirm übergeben (darum 
braucht sich das User-Programm nicht zu kümmern), vielmehr wird der 
String in einem Buffer abgelegt, dessen Adresse die aufrufende Routine 
definiert haben muß. Die Länge des Buffers und die laufende Cursorposi¬ 
tion innerhalb des Buffers werden auch als Parameter ein- und ausgegeben: 
die Länge in C, die Position in B. Im ROM-Listing sind dies durchgängige 
Parameter, daher haben wir sie nicht immer wieder neu aufgeführt. 

Bestimmte Tasten haben dabei besondere Funktionen, wie z.B. die Cursor- 
Tasten und die Copy-Taste. Der Editor realisiert dies derart, daß er sich 
eine Taste von der Tastatur holt und den ASCII-Code in einer Tabelle 
sucht. Wenn er ihn findet, so holt er sich die Adresse der Routine, die die¬ 
ser Taste zugeordnet ist und springt sie an. Die Adresse ist ebenfalls in der 
Tabelle eingetragen. Findet er den Tastencode nicht, so handelt es sich 
nicht um eine Funktionstaste, sondern um eine gewöhnliche Taste und er 
schreibt sie in den Buffer. Entweder schreibt er sie einfach hinein, fügt sie 
ein oder an. Bei einem CR oder einem ESC kehrt der Editor zurück. 

Wir wollen an dieser Stelle die einzelnen Funktionstasten des Editors nicht 
näher beschreiben. Sie dürften Ihnen aus dem täglichen Gebrauch hin¬ 
reichend bekannt sein. Auch das ROM-Listing bedarf kaum weiterer 
Erläuterung, da die Struktur des Editors sehr einfach und linear ist. 

Die Editor-Versionen im 464 und im 664/6128 sind ein wenig unterschied¬ 
lich, was die Behandlung der übergebenen Zeile angeht. So ist es möglich, 
dem Editor in dem Buffer, mit dem editiert werden soll, bereits einen 
String zu übergeben. Dieser String kann beliebig sein, darf jedoch maximal 
255 Zeichen umfassen und muß mit einer Null abgeschlossen sein. Im 464 
werden die Parameter des Editors, die Bufferlänge und Cursorposition im 
Buffer, einfach nach dem übergebenen String gesetzt. Im 664/6128 wird 
überdies noch sichergestellt, daß, für den Fall, daß eine Zahl am Buffer¬ 
anfang steht, diese durch das Editieren nicht verändert werden kann. 
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3.11 Das FLOATING POINT PACK (FLO) 

3.11.1 Allgemeines 

Obschon das FLO-Pack eigentlich nicht mehr zum Operating System zu 
rechnen ist, haben wir es vorgezogen, es in die Beschreibung des OS mit 
hineinzunehmen (siehe 3.3). 

Das FLO-Pack hat die Aufgabe, sämtliche Arithmetik mit Fließkommazah¬ 
len auf dem CPC abzuwickeln, d.h. alle Rechenoperationen mit diesen 
Zahlen durchzuführen. Die eingebauten arithmetischen Fähigkeiten dieses 
Packs reichen von einer einfachen Addition über Multiplikation und Divi¬ 
sion bis hin zum Potenzieren und den wichtigsten irrationalen Funktionen 
(SIN, EXP, LOG etc.). In diesem Kapitel möchten wir Ihnen einen Ein¬ 
blick verschaffen, wie ein Gerät, das zunächst einmal nur mit ganzzahligen 
Werten von 0 bis 255 rechnen kann, zu solch erstaunlichen Operationen 
befähigt ist. 

3.11.2 Die Darstellung einer Fließkommazahl 

Die erste Frage, die wir stellen müssen, ist: Wie stellt ein 8-Bit Computer 
Fließkommazahlen dar, die in einen Wertebereich von le38 passen? 

Wie Sie sich sicher denken können, geschieht die Darstellung solcher Zah¬ 
len in einer Art Binärsystem. Um den grundlegenden Gedanken dieser 
Darstellung besser verstehen zu können, schauen wir uns zunächst einmal 
die verschiedenen Schreibweisen für uns vertrautere Dezimalzahlen an: so 
ist da zunächst einmal die "normale" Schreibweise, mit einem Komma zwi¬ 
schen den Stellenwerten 1 und 1/10, z.B. 1234,56. In den Naturwissen¬ 
schaften, besonders in der Physik, neigt man nun aber dazu, vor allem bei 
sehr großen bzw. kleinen Beträgen, eine Zahl in der Exponential-Schreib- 
weise anzugeben, unsere Zahl z.B. mit 1.23456 * 10 3 (1.23456 * 1000 = 
1234.56). Man versucht also immer genau eine Ziffer ungleich 0 vor dem 
Komma stehen haben. Vermutlich ist diese Schreibweise Ihnen schon ver¬ 
traut. Ihr Computer gibt nämlich besonders große oder kleine Beträge in 
dieser Schreibweise aus: statt 0.000002345 schreibt er 2.345 * 10' 6 , bzw. der 
Kürze halber 2.3456E-6. 

Da diese Darstellung neben der Übersichtlichkeit bei größeren Zahlen auch 
noch einige andere Vorteile bietet, benutzt der Computer sie, um seine 
Fließkommazahlen darzustellen. Allerdings wählt er nicht das Dezimal-, 
sondern das Binärsystem. In diesem System gibt es nur die Ziffern 0 und 1. 
Die Dezimalzahl 2,25 würde binär als 10,01 dargestellt werden. Um dies zu 
verdeutlichen, gehen wir noch einmal kurz auf den Stellenwert einer Binär¬ 
ziffer ein. Vor dem Komma verdoppelt sich der Stellenwert von Stelle zu 
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Stelle nach links hin, d.h. direkt vor dem Komma 2° = 1, dann 2 1 = 2, 
2 2 = 4, 2 3 = 8 und so weiter. Nach rechts hin nimmt der Zweierexponent 
immer um eins ab - d.h. in logischer Fortsetzung, daß die Zahl direkt nach 
dem Komma den Stellenwert 2' 1 = 1/2, die nächste Stelle dann 2‘ 2 = 1/4, 
dann 2' 3 = 1/8 etc. hat. Dies läßt sich auch ganz einfach auf unser Dezi¬ 
malsystem übertragen. Die binäre Zahl 10.01 hat also den Wert 2 1 + 2" 2 = 
2 + 1/4 = 2,25. 

Übertragen wir nun die Exponentialdarstellung auf binäre Zahlen. Dazu ein 
Beispiel: die binäre Zahl 101101,011 (dezimal 45.375) lautet in der 
(binären) Exponentialdarstellung 1,01101011 * IO 101 (der Exponential-Teil 
ist dezimal 2 5 ). Diese Darstellung kommt der, die das FLO-Pack für seine 
Zahlen verwendet, schon recht nahe. Dort werden Fließkommazahlen in 
einer 32-stelligen Mantisse (das ist der "vordere" Teil der Exponential-Zahl, 
d.h. der Teil, der vor dem steht) und einem achtstelligen Exponenten 
dargestellt. Daraus folgt, daß eine Fließkommazahl vier Mantissenbytes 
(4 * 8 Bit = 32 Bit) und ein Exponentenbyte benötigt. Diese fünf Byte sind 
im Speicher des CPC wie folgt angeordnet: 

x+0 x+1 x+2 x+3 x+4 

MSB4 (LSB) MSB3 MSB2 MSB1 (MSB) Exponent 

In dieser Aufstellung ist x die Adresse der FLO-Zahl (sie muß den einzel¬ 
nen Routinen des FLO-Packs übergeben werden), MSB bedeutet hier Most 
Significant Byte (d.h. höchstwertiges Byte), LSB meint Least Signifikant 
Byte (d.h. niederwertigstes Byte). 

Vielleicht ist Ihnen aufgefallen, daß mit dem, was wir bisher gesagt haben, 
allem Anschein nach der Exponent und auch die ganze Zahl immer positiv 
sein müssen. Dies ist natürlich nicht der Fall. Wie Sie ja wissen, haben wir 
die Exponentialdarstellung definiert, indem wir festgelegt haben, daß in 
der Mantisse immer genau eine Ziffer ungleich Null vor dem Komma ste¬ 
hen muß. Das Komma muß man sich bei obigem Format zwischen b7 und 
b6 des MSB1 denken, d.h. die eine Vorkommastelle ist das b7 des MSB. 
Wann immer irgendwelche Operationen mit einer solchen FLO-Zahl 
durchgeführt wurden, wird sie nachher immer noch einmal normalisiert 
(korrekt eigentlich "normiert"). Dazu wird die Mantisse so lange verschoben 
und der Exponent jeweils erhöht oder erniedrigt, bis an dieser Stelle die 
oberste Eins steht. Da man nun aber bei einer normierten FLO-Zahl davon 
ausgeht, daß dort eine Eins steht, ist dieses Bit zur Informationsübermitt¬ 
lung eigentlich nicht mehr nötig, es ist redundant. Genau dies nutzt man 
aus, um nun das Vorzeichen abzuspeichern: Man ersetzt dieses Bit einfach 
durch das Vorzeichen (0 für +, 1 für -). Wenn mit der Zahl gerechnet wer¬ 
den soll, so wird das Vorzeichen gerettet und die 1 wieder eingesetzt. 
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Beim Exponenten würde sich z.B. anbieten, die Zweierkomplement-Dar¬ 
stellung zu wählen, um das Problem des fehlenden Vorzeichens zu lösen. 
Man beschreitet jedoch meist (und so auch im CPC) einen anderen Weg: 
Zum Exponenten (im Zweierkomplement) addiert man den Wert $81. Dies 
ergibt dann den FLO-Exponenten. Man macht dies, um den Spezialfall 
einer Null als FLO-Zahl erfassen zu können. Eine Null kann eigentlich 
nicht dargestellt werden, da man bei einer FLO-Zahl davon ausgeht, daß 
das oberste Mantissenbit immer eine Eins ist. Genau dies ist jedoch bei der 
Null nicht der Fall - hier gibt es in der gesamten Mantisse keine Eins. Man 
benötigt daher ein besonderes Flag, um eine Null anzuzeigen. Da man 
dafür nicht extra ein weiteres Byte einführen möchte, nimmt man einen 
ausgezeichneten Wert des Exponenten dafür. Man hat den Wert $00 dafür 
gewählt, da dieser besonders leicht abzutesten ist. Die Geschwindigkeit mit 
der dieser Test durchgeführt werden kann, war also ein sehr wichtiges 
Kriterium. Da nun jedoch $00 im Exponenten bedeutet, daß der Wert der 
Zahl Null ist, ist es nicht mehr möglich, die Zweierkomplementsdarstellung 
für den Exponenten zu wählen. In ihr wird nämlich die Null im Exponen¬ 
ten für die Darstellung der Zahlen von 0,5 <= x < 1 benötigt. 

Unsere Zahl 1.01101011 * 10 101 würde demnach im Fließkommaformat wie 
folgt aussehen: 00 00 80 35 86. (Für Interessierte sei angemerkt, daß man 
genausogut sagen könnte, zum realen Exponenten würde nur $80 hinzuad¬ 
diert. Man muß dann das Komma der normierten Form lediglich noch um 
eine Stelle nach rechts verschieben, d.h. die Mantisse hat vor dem Komma 
nur noch Nullen, die höchste Eins folgt gleich nach dem Komma. Beide 
Darstellungen des Sachverhaltes sind gleichwertig.) 

3.11.3 Beispiel einer Operation: die Addition 

Nun, da Sie wissen, wie FLO-Zahlen abgespeichert werden, möchten Sie 
sicher gerne wissen, wie damit gerechnet wird. Wir können hier nicht auf 
alle Grundrechenarten eingehen. Allerdings halten wir es für sinnvoll, 
wenigstens ein einfaches Beispiel zu geben. Wir wollen uns daher einmal 
anschauen, wie zwei FLO-Zahlen addiert werden. 

Zunächst einmal wird nachgeschaut, ob die Vorzeichen identisch sind. Sind 
sie gleich, so werden die Beträge addiert, sind sie ungleich, subtrahiert. 
Tatsächlich ist die Subtraktion nichts anderes als das Invertieren des 
Vorzeichens des entsprechenden Operanden und anschließender Addition. 

Wenn die Beträge addiert werden, so werden zunächst die Exponenten 
angeglichen. Dazu werden die beiden Exponenten verglichen, um fest¬ 
zustellen, welcher der größere ist. Der kleinere wird dann auf den Wert des 
größeren gebracht, indem die Mantisse nach rechts verschoben wird (bzw. 
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das Komma nach links) und der Exponent für jede Bitposition, um die 
verschoben wurde, um eins erhöht wird. In der Mantisse wurde natürlich, 
wie eigentlich vor jeder Operation, das Vorzeichenbit vorher durch die 
obligatorische Eins ersetzt. 

Nachdem beide Exponenten angeglichen sind, werden die beiden Mantissen 
wie ganz normale 32-Bit-Integer byteweise addiert. Sollte ein Übertrag 
über das höchste Bit auftreten, so wird die Mantisse noch einmal nach 
rechts verschoben und der Exponent erhöht. Zum Schluß wird dann das 
Vorzeichen an seine Stelle statt des dortigen 1 -Bits gesetzt. 

Wenn die Vorzeichen ungleich sind, so ist das Verfahren ganz ähnlich: auch 
hier werden zunächst die Exponenten angeglichen. Dann jedoch werden die 
Mantissen subtrahiert. Ist die zweite Mantisse größer als die erste, so tritt 
ein Borger von der höchsten Mantissenstelle auf. Dann wird das Vorzeichen 
des ersten Operanden invertiert (dies ist dann das Vorzeichen des Ergebnis¬ 
ses) und das Zweierkomplement der Mantisse wird gebildet. Wenn das 
höchste Bit gesetzt ist, wird nur noch gerundet und das errechnete Vor¬ 
zeichen eingesetzt. Andernfalls muß das Ergebnis noch normiert werden. 

3.11.4 Die irrationalen Funktionen 

Der Laie fragt sich oft, wie der Computer wohl Funktionen wie SIN, COS 
oder EXP berechnet. Viele vermuten, daß der Computer über eine Tabelle 
verfügt, aus der er die Funktionswerte für die einzelnen Argumente her¬ 
ausliest. Bei näherer Betrachtung jedoch erweist sich der Gedanke als nicht 
realisierbar, da eine solche Tabelle eine gigantische Länge haben müßte. 
Die Verfahren, die digitale Rechner heute zur Ermittlung von Funktions¬ 
werten solcher Funktionen benutzen, sind vielmehr mathematischer Natur. 
Es handelt sich dabei um "Reihenentwicklungen", d.h. um theoretisch 
unendlich lange Ausdrücke, die aus unendlich vielen Gliedern bestehen. 
Der Computer verwendet zur Berechnung eines Funktionswertes nur die 
ersten Glieder einer solchen Reihe, die ihm bereits eine gute Näherung 
bringen. (Es gibt auch endliche Reihen, allerdings nicht für die Funktio¬ 
nen, die wir hier betrachten.) 

Eine solche Reihe für allgemeine, unendlich oft differenzierbare Funktio¬ 
nen f ist die "TAYLORsche Reihe". Sie hat die folgende Form: 


(1) f(x) - f(a) + L__!f'(a) + ( x ~ a ) 2 f"( a ) + ... + ( x - t a ) n fW( a ) 


n! 


1! 
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Hierin ist a ein fester Wert aus dem Definitionsbereich der Funktionen f, 
F, F’... f( n ). Sinnvollerweise wählt man für "a" einen ausgezeichneten Wert, 
bei dem möglichst viele Glieder fortfallen bzw. sich vereinfachen lassen. 
Oft ist es z.B. sinnvoll, "a" gleich null zu setzen. Damit ergibt sich dann ein 
Spezialfall der Taylor’schen Reihe, die "MacLAURINsche Reihe". Sie hat 
die Form 


( 2 ) 


f(x) = f(o) + - 1 ^ - X + X 2 + ••• + 


f^O) x n 

n! 


Da der Computer nur eine begrenzte Anzahl von Koeffizienten zur Berech¬ 
nung einer Reihe heranziehen kann, folgt, daß die Ergebnisse immer ein 
wenig ungenau sind. In der Mathematik begegnet man diesem Effekt, in¬ 
dem man ein "Restglied" näherungsweise bestimmt. Bei der Berechnung ei¬ 
nes Funktionswertes im Computer versucht man dagegen die Ungenauig¬ 
keiten zu minimieren, indem man die Koeffizienten, die man zur Berech¬ 
nung benutzt, ein wenig modifizert, das Restglied praktisch noch mit ein¬ 
fließen läßt. Die Genauigkeit der benutzten Näherungen wird zudem auch 
noch dadurch gesteigert, daß man das Argument normiert. Es wird in einen 
bestimmten Zahlenbereich "gezwungen", in dem die verwandte Näherung 
mit besonders hoher Genauigkeit gilt. Das Ergebnis aus dieser Näherung 
wird dann in entsprechender Weise wieder so umgeformt, daß die 
Umformungen berücksichtigt werden, die zur Normierung nötig waren. 

Die Näherung selber geschieht mit einer "Polynomberechnung", d.h. es wird 
ein Polynom P(x) der Form 

(3a) P(x) = a Q + a x x + a 2 x 2 + a 3 x 3 + ... + a n x n 

berechnet. Wird x zuvor quadriert, so hat das Polynom die folgende Form: 
(3b) P(x) = a Q + a x x 2 + a 2 x 4 + a 3 x 6 + ... + a n x 2n 

Die Koeffizienten aj bis a n sind in einer Tabelle abgelegt, die direkt hinter 
dem Aufruf der Polynom-Routine steht, wobei a als erstes dasteht, bis 
hinunter zu a Q als letztem Koeffizient. Je nach Näherung wird manchmal 
auch noch das errechnete Polynom mit dem Eingangsargument (dem x) 
multipliziert, d.h. es ergibt sich ein Polynom P(x) der Form 

(4a) P(x) = a Q + a 1 x 2 + a 2 x 3 + a 3 x 4 + ... + a n x n+1 

bzw. mit zuvor quadriertem Argument die Form 

(4b) P(x) = a Q + ajX 2 + a 2 x 5 + a 3 x 7 + ... + a n x 2n+1 
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Schauen wir uns hier nun die Näherungen für die einzelnen Funktionen an. 
Wir haben darauf verzichtet, jede einzelne entwickelte Reihe herzuleiten, 
wir begnügen uns im Rahmen dieses Buches damit, sie einfach nur aufzu¬ 
führen. Dem interessierten Leser ist es sicherlich möglich, sich die Reihen 
selber zu entwickeln. 

3.11.4.1 Die Reihe der LOG-Funktion 

Die Reihe für die LOG-Funktion wurde aus der Reihe für die artanh- 
Funktion (areatangens hyperbolicus) nach der Beziehung 


(5) ln - + x = 2 artanh x 
1 - x 


entwickelt. Daraus läßt sich dann - durch Entwicklung der Taylor’schen 
Reihe für den artanh - die im CPC verwandte Näherung für den ln 
(logarithmus naturalis) herleiten: 


( 6 ) 


ln x = 2 


y 




X - 1 
X + 1 


Das Argument wird zunächst entsprechend normiert und in den Bereich 
zwischen SQR(l/2) und SQR(2) gebracht. Dann wird das Polynom berech¬ 
net (vorher wird natürlich das Eingangsargument y aus dem sich ergeben¬ 
den x berechnet), und zwar nach der Formel 4b. Das Ergebnis dieser Poly¬ 
nomberechnung ist jedoch, wie an den Koeffizienten unschwer zu erken¬ 
nen ist, durch ln2 geteilt. Dies wird ausgeglichen, indem das Ergebnis spä¬ 
ter mit lb Basis (d.h. LOG(Basis)/LOG(2)) multipliziert wird. Vorher wird 
jedoch noch der Binärexponent der Zahl addiert (dieser wurde vorher beim 
Normieren der Zahl gerettet). 

3.11.4.2 Die Reihen der EXP-Funktion 

Bei der EXP-Funktion war es uns leider nicht möglich, einen sinnvollen 
Zusammenhang herzustellen. Dies lag vor allem daran, daß zwei Polynome 
Pl(x) und P2(x) berechnet und miteinander verknüpft werden. Wir können 
daher nur die uns zur Verfügung stehenden Erkenntnisse reproduzieren. 

Exp(x) wird demnach wie folgt berechnet: Zunächst wird x/ln2 gebildet. 
Dies geschieht, um 2 nachher mit dem ganzzahligen Teil dieses Ausdrucks 
nach der Formel 2^ Xj/In2 ^ = 2^ x * lbe ^ = (2 lbe ) x = e x = exp(x). Diesen ganzzahli- 
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gen Teil von x/ln2 nennen wir Y. Es gilt also Y = int(x/ln2). Durch die 
obige Umformung muß nur noch der Nachkommateil von x/ln2 genähert 
werden. Wir nennen diesen Teil y. Es gilt damit y = x/ln2-Y. Diese Be¬ 
schränkung erhöht natürlich die Genauigkeit. Es werden dann zwei Poly¬ 
nome P1 (y 2 ) und P2(y 2 ) nach uns, wie gesagt, unbekannten Reihen berech¬ 
net. Die volle Formel lautet dann: 


(7) 


exp x 


P- (y 2 ) 

P'(y 2 ) - P 2 (y 2 ) 


+ 0.5 


Y = int 



—— Y 
ln 2 


Sollte es Ihnen gelingen, die Zusammenhänge zu ergründen, so wären wir 
sehr erfreut, wenn Sie sie uns wissen ließen. 

3.11.4.3 Die Reihe der SIN/COS-Funktionen 

Diese Reihe ist nach der MacLaurin’schen Formel entwickelt worden. Um 
sie anwenden zu können, wird x zunächst einmal durch Pi (bzw. 180 für 
DEG) geteilt. Um die Phasenverschiebung auszugleichen wird bei COS 0,5 
addiert. Ist der ganzzahlige Teil von x/Pi (bzw. x/Pi + 0,5 bei COS) 
ungerade, so befindet sich die Funktion in der negativen Halbperiode, d.h. 
das Vorzeichen des Ergebnisses muß invertiert werden. Im folgenden ist 
der ganzzahlige Teil ohne Bedeutung. Der Nachkommateil wird noch mit 
zwei multipliziert. Er ist also insgesamt mit 2/Pi multipliziert worden. Der 
Faktor 2/Pi wird durch die Koeffizienten ausgeglichen. 

Die Reihenentwicklung für die SIN-Funktion benutzt einige besondere 
Eingenschaften der trigonometrischen Funktionen. So ist f(0) (das ist hier 
SIN(O)) und alle geraden Ableitungen immer gleich null. Dann gilt, daß 
sin’x = cos x, sin”x = -sin x (daher sind alle geraden Ableitungen null), 
sin”’x = -cos x und schließlich sin””x = sin x und so weiter. Daraus folgt, 
daß nur jedes zweite Glied der MacLaurin’schen Reihe ungleich null ist, 
und daß die ungeraden Ableitungen von sin x nur entweder +1 (cos 0) oder 
-1 (-cos 0) sein können. Dies zeigt sich in den alternierenden Vorzeichen 
der Koeffizienten. Auch in den Koeffizienten ist ein ausgleichender Faktor 
für die Multiplikation mit 2/Pi enthalten. Die Formel, die der Näherung 
damit schließlich zugrunde liegt, lautet demnach: 


( 8 ) 


sin x = x 


+ *1 _ 2L.+ _ 

3! 5! 7! 
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3.11.4.4 Die Reihe der ATN-Funktion 

Die Reihe der ATN-Funktion ist, wie man zeigen kann, eine MacLau- 
rin’sche Reihe, mit arctan(O) = 0. Sie lautet wie folgt: 


(9) arctan x = x- y + y- y + -... 


3.12 


Das lfMTEGER PACK 



Das Integer Pack verwirklicht die Integer-Arithmetik im CPC. Es kann 
sämtliche Grundrechenarten mit 16-Bit Zweierkomplement-Zahlen durch¬ 
führen. Dies schließt auch die Division ein, die dann natürlich zwei Zahlen 
als Ergebnis liefert: den Quotienten und den ganzzahligen Rest. Der Opera¬ 
tor DIV (im CPC-Basic das \-Zeichen) gibt den Quotienten, der Operator 
MOD den Rest als Ergebnis zurück. 

Da die Integer-Arithmetik relativ einfach ist, verzichten wir darauf, an 
dieser Stelle näher auf sie einzugehen. Es sei nur noch erwähnt, daß das 
Integer Pack ein ganz besonderes Schicksal erleiden mußte: im Zuge der 
Erweiterungen des Betriebssystems im CPC 664/6128 wurde es aus Platz¬ 
gründen einfach aus dem unteren ROM entfernt und in das obere ROM 
gesteckt. Hieran erkennt man, daß es nicht denselben Status eines Packs 
hat, wie z.B. das Kernel oder der Keyboard Manager. Auch das FLO-Pack 
und der Editor sind solche Stiefkinder im Operating System. 
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4 Das BASIC des CRC 


4.1 Speicherorganlsatlon 


4.1.1 Aufteilung in ROM und RAM 

Zur Erinnerung zunächst einmal die grobe Speicheraufteilung des CPC in 
ROM und RAM: Der CPC besitzt 64 KByte bzw. 128 KByte RAM und 32 
KByte ROM, die durch Banking mit einem Adreßraum von nur 64KByte 
verwaltet werden können. Zusätzlich sind noch bis zu 251 externe ROMs 
anschließbar. 

Das Basic benutzt auch im CPC 6128 nur 64 KByte der 128 KByte RAM. 
Die vollen 128 KByte können über eine RSX-Erweiterung angesprochen 
werden, die von Diskette geladen werden muß. Es sind auch Experimente 
mit der Routine KL RAM SELECT oder direkt mit dem Gate Array denk¬ 
bar (siehe Abschnitte 1.3.7 und 3.1.3). 

4.1.2 Die Aufteilung des RAMs 

Die 64 KByte RAM des CPC 464/664 bzw. Bank 0 bis 3 des CPC 6128 
sind zunächst zwischen Basic und Betriebssystem aufgeteilt. Das Betriebs¬ 
system beansprucht hierbei die Bereiche $0000-$003F und $B100-$FFFF, 
das Basic hingegen $0040-$B0FF. Eine genauere Aufteilung dieser Bereiche 
finden Sie in Abbildung 4.1 auf der nächsten Seite. 

4.1.3 Der Basic-Anwenderbereich 

Der Basic-Anwenderbereich ist noch einmal unterteilt. Die einzelnen 
Adressen liegen hier jedoch nicht fest, da beispielsweise die Programm¬ 
länge ja variieren kann. Deshalb gibt es im Systembereich des Basic meh¬ 
rere Zeiger, die den Beginn eines neuen Bereichs markieren. Vom Betriebs¬ 
system werden dem Basic nach einem Kaltstart zwei Zeiger übergeben: Lo- 
RAM (bei $0040) und Hi-RAM (bei $ABFF). Der durch diese Zeiger ein¬ 
gegrenzte Bereich kann durch Erweiterungen in externen ROMs noch ver¬ 
kleinert werden. Basic ruft die Routine KL ROM WALK auf, mit der fest¬ 
gestellt wird, ob externe ROM-Erweiterungen des Basic, genannt Resident 
System Extension (RSX), vorhanden sind. Jedes ROM reserviert sich bei 
KL ROM WALK seinen eigenen Speicherbereich durch Heruntersetzen von 
Hi-RAM. Den endgültigen Hi-RAM-Zeiger speichert Basic dann in einer 
Systemvariablen. 
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$ FFFF 


$C000 

$ BEOO 

$ BBOO 

$ B900 

$ BIOO 

$ ACOO 


$0040 

$0000 


Bildschirmspeicher 


Hardware-Stack 


Betriebssystem-Sprungvektoren 


Kernel-Routinen {Bank-/Interrupt-Verwaltung) 


Betriebssystem-Systembereich 


BASIC-Systembereich 


BASIC-Anwenderbereich 
(inkl. RSX-Erweiterungen) 


Betriebssystem, RST-Vektoren 


Abbildung'4.1: Die Aufteilung des RAM 
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Es folgt nun eine Tabelle der RAM-Zeiger des Basic, die die Aufteilung 
des Bereichs zwischen Lo-RAM und Hi-RAM festlegen. Nicht alle dieser 
Zeiger geben den Start eines Bereichs an, einige zeigen auch auf das Ende 
des vorhergehenden Bereichs, das eine Adresse tiefer liegt. Diese Zeiger 
sind in der Tabelle mit einem Stern (*) gekennzeichnet. 


464 

664/6128 


(SAE7F) 

($AE62) 

LoRAM 

Token-Buffer 

($AE81) 

(SAE64) 

Basic-Programmstart 

Basic-Programm 

($AE83) 

($AE66) 

Basic-Programmende 
(frei) 

($AE85) 

($AE68) 

Variablenstart 
einfache Variablen 

($AE87) 

($AE6A) 

Start der Felder 

Feldvariablen 

($AE89) 

($AE6C) 

Ende der Felder 
frei 

($B08D) 

($B071) 

* Start der Strings 

Inhalte der Stringvariablen 

(3B08F) 

($B073) 

* Ende der Strings 
(frei) 

($AE7B) 

($AE5E) 

* HIMEM 

frei für Maschinenprogramme u.a. 

($AE7D) 

($AE60) 

* HiRAM 

In der Tabelle 

tauchen zwei mit "(frei)" gekennzeichnete Bereiche auf, die 

zwar nicht belegt sind, jedoch normalerweise keine Ausdehnung haben, da 

der Start des 

jeweiligen 

Bereichs mit dem Start des nächsten Bereichs 


zusammenfällt. Es exisitieren trotzdem zwei verschiedene Zeiger, da in 
einigen Routinen des Basic die Zeiger vorübergehend unterschiedliche 
Werte besitzen können. So wird beim Mergen eines Programms von Kas¬ 
sette oder Diskette der Variablenbereich geschützt, damit er trotz der Pro¬ 
grammänderungen erhalten bleibt. Dazu wird der Variablenbereich direkt 
unter den Stringbereich geschoben, so daß der freie Basic-Bereich jetzt 
zwischen Programmende und Variablenstart liegt. Der CPC 464 setzt den 
Start der Strings dann auf den neuen Variablenstart, um die Variablen zu 
schützen. Dagegen liegt beim CPC 664 und beim CPC 6128 zwischen den 
Zeigern auf Programmende und Variablenstart tatsächlich ein freier ' 
Bereich. Nach Ausführung der Merge-Routine wird der Variablenbereich 
dann wieder ans Programmende geschoben. ( 

4.1.4 User-Matrizen und Ein-/Ausgabebuffer 

Die Definition von Zeichenmatrizen durch den Benutzer sowie die 
Speicherung von Daten auf Kassette oder Diskette erfordern jeweils einen 
bestimmten Speicherbereich, dessen Adresse dem Text-Pack bzw. dem 
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Cassette-Manager übergeben werden muß. Im Falle der User-Matrizen ist 
die Größe des benötigten Bereichs in Byte gleich der Zahl der umdefinier¬ 
ten Zeichen mal acht, während die Größe des Ein- und des Ausgabebuffers 
jeweils 2 KByte beträgt, zusammen also 4 KByte. Ein-/ Ausgabebuffer 
werden immer gemeinsam als 4-KByte-Block reserviert, auch wenn nur ei¬ 
ner von ihnen tatsächlich benutzt wird. 

Für die Ein-/Ausgabebuffer und die User-Matrizen wird immer direkt 
unterhalb HIMEM Platz reserviert, nachdem der Stringbereich entsprechend 
nach unten verschoben wurde. Anschließend wird HIMEM unterhalb des 
Starts des reservierten Bereichs gesetzt. Beim CPC 464 wird zusätzlich das 
Ende des freien RAMs (HiRAM) auf den neuen Wert von HIMEM gesetzt 
und das alte HiRAM für den Fall der Freigabe des reservierten Bereichs 
zwischengespeichert. Beim CPC 664/6128 wird dagegen HIMEM zwischen¬ 
gespeichert, während HiRAM erhalten bleibt. 
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4.2 Der Basic-Compreter 

Im Handbuch des CPC ist von einem Basic-Interpreter die Rede, der die 
Basic-Programme ausführt. In der Tat wird der Text nicht - wie bei vielen 
anderen Programmiersprachen - in einem Stück übersetzt (compiliert) und 
dann der compilierle Code ausgeführt, sondern der Text wird während der 
Ausführung interpretiert. Ein Interpreter hat den Vorteil, daß er interaktiv 
arbeitet, der Benutzer also das Programm ändern und die Wirkung sofort 
beobachten kann, ohne zwischendurch zeitaufwendig compilieren zu 
müssen. Die eigentliche Ausführung dagegen ist bei einem Interpreter meist 
langsamer als bei einem Compiler. Bei Programmiersprachen wie z.B. Pascal 
oder C kann ein einzelner Programmteil aufgrund bestimmter Daten- und 
Programmstrukturen nicht unabhängig vom Rest des Programms ausgeführt 
werden. Diese Sprachen eignen sich daher nicht so gut als Interpreter¬ 
sprache. Basic hat dagegen nur wenige Programmstrukturen und erlaubt 
keine komfortable Realisierung von Datenstrukturen und kann deshalb mit 
relativ geringem Aufwand als Interpretersprache betrieben werden. 

Das Scheider-Basic geht einen Mittelweg zwischen Interpreter und 
Compiler. Jede einzelne Programmzeile wird schon in gewissem Grade 
übersetzt, bevor sie ins Programm eingefügt wird. Die Zeile wird bei der 
Ausführung aber dennoch interpretiert. Die Interpretation geht aber 
schneller vonstatten als bei einer nicht übersetzten Zeile. Eine solche 
Interpreterart wird auch "Compreter" genannt. 
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4.3 Die Speicherung des Basic-Programms 

4.3.1 Die Tokenisierung einer Zeile 

Beim Vor-Übersetzen einer Programmzeile wird jedes Basic-Schlüsselwort 
(keyword) wie z.B. "LIST", "SIN" oder auch und "<=" durch ein kürzeres 
Zeichen (Token) ersetzt. Die tokenisierte Zeile ist nicht nur schneller in der 
Ausführung, sondern spart auch Speicherplatz. Es werden nicht nur die 
Basic-Keywords tokenisiert, auch Zahlenkonstanten und Variablen werden 
mit einem Token versehen. Zahlenkonstanten werden von ihrer ASCII- 
Darstellung in das binäre Speicherformat des Rechners gebracht. 

RSX-Befehlsworte werden nicht komprimiert, sondern in ihrer ASCII- 
Darstellung zusammen mit dem RSX-Kennzeichen gespeichert. Ebenso 
wird mit Variablennamen verfahren. Einige Besonderheiten bei der 
Tokenisierung werden später noch erklärt. 

4.3.2 Die Speicherung der Zeilen im Basic-Programm 

Die Zeilen des Basic-Programms werden in der Reihenfolge ihrer Zeilen¬ 
nummern abgespeichert. Jede Zeile benötigt zur Einbindung ins Programm 
noch fünf Verwaltungsbytes. Die Zeile beginnt mit einem zwei Byte langen 
Offset zur nächsten Zeile, also mit der Länge der Zeile. Mit diesem Offset 
kann das Programm schnell durchsucht werden. Nach dem Offset bzw. der 
Länge folgt die Zeilennummer, ebenfalls in zwei Bytes. Nach dem sich an¬ 
schließenden tokenisierten Zeilen-Text wird als Endmarkierung eine Null 
gespeichert. Am Anfang des Basic-Programms steht ebenfalls eine Null. 
Jede Zeile wird also von zwei Nullen eingeschlossen. Nach der Null am 
Zeilenende der letzten Zeile des Programms folgt ein Offset Null (also zwei 
Nullbytes). Hierdurch wird das Programmende markiert. 

4.3.3 Die Speicherung von Zeilennummern 

Zeilennummern im Programmtext (nach GOTO, GOSUB usw.) werden von 
der ASCII-Darstellung in die binäre Darstellung gebracht und mit einem 
Token versehen. Die Zeilennummern werden während der Programmaus¬ 
führung durch Zeilenadressen ersetzt. Zeilenadressen haben den Vorteil, 
daß die zugehörige Zeile nicht im Programm gesucht werden muß. Die 
Zeilenadressen erhalten ein eigenes Token. Es wird genau genommen die 
Adresse der Null vom Zeilenende der vorigen Zeile gespeichert. 

Beim RENUM-Befehl müssen nicht nur die Zeilennummern vor jeder 
Zeile, sondern auch die Zeilennummern im Programmtext umnumeriert 
werden. Um den Aufwand gering zu halten, werden letztere vor der 
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Umnumerierung der Zeilen durch Zeilenadressen ersetzt. Es brauchen dann 
nur die Zeilennummern vor jeder Zeile neu numeriert zu werden. 

Zeilenadressen im Programm haben auch einen Nachteil: Das Programm ist 
nicht mehr ortsunabhängig (position independent). Dies ist jedoch 
notwendig, wenn Teile des Programms verschoben werden müssen, um eine 
neue Zeile einzufügen, oder wenn das Programm abgespeichert werden soll. 
Die Zeilenadressen im Programm werden in solchen Fällen wieder durch 
Zeilennummern ersetzt. Die Systemvariable $AE3A ($AE21 beim CPC 
664/6128) ist gleich null, wenn das Programm ortsunabhängig ist. 

4.3.4 Die Tokenisierung von Variablennamen 

Das Schneider-Basic erlaubt drei verschiedene Variablentypen: Integervari¬ 
ablen (z.B. A%), Stringvariablen (z.B. A$) und REAL-Variablen (z.B. A!). 
Die Tokens für mit "%", "$" bzw. "!" gekennzeichnete Variablennamen lau¬ 
ten $02, $03 bzw. $05. Es besteht die Möglichkeit, auch unmarkierte Vari¬ 
ablen zu benutzen, deren Typen dann entsprechend der DEFINT, DEFSTR 
oder DEFREAL-Definition für den Anfangsbuchstaben der jeweiligen Va¬ 
riablen gesetzt werden. 

Der Name einer Variablen wird in seiner ASCII-Darstellung abgelegt, das 
höchste Bit des letzten Namensbytes ist als Endmarkierung gesetzt. Der 
Name darf maximal 40 Zeichen lang sein. Zwischen Token und Namen 
wird noch ein zwei Byte langer Offset eingefügt, dessen Bedeutung später 
erklärt wird. Dieser Offset wird bei der Tokenisierung einer Zeile zunächst 
als Kennzeichen dafür, daß er nicht gültig ist, auf Null gesetzt. Stößt der 
Basic-Interpreter bei der Programmausführung auf ein Variablennamen- 
Token, so wird der zugehörige Offset eingesetzt, um den Variableneintrag 
schneller auffinden zu können. 

Ein unmarkierter Variablenname (ohne "%", "$" oder "!") wird bei der 
Tokenisierung durch das Token $0D kenntlich gemacht. Wenn der 
zugehörige Offset bei Ausführung des Programms eingetragen wird, stellt 
der Interpreter den Typ der Variablen (entsprechend DEFINT, DEFSTR 
und DEFREAL) fest und setzt das Token bei einer Integervariablen auf 
$0B, bei einer Stringvariablen auf $0C und bei einer REAL-Variablen auf 
$0D. Das Token $0D hat also zwei Bedeutungen: bei nicht eingetragenem 
Offset (Offset = 0) bedeutet es, daß eine unmarkierte Variable vorliegt, 
deren Typ noch nicht festgestellt ist. Andernfalls handelt es sich um eine 
unmarkierte REAL-Variable. 
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4.4 Die Speicherung von Variablen 

4.4.1 Speicherung von numerischen Werten 

Integerwerte werden als Zwei-Byte-Werte im Zweierkomplement gespei¬ 
chert, REAL-Werte als aus Vorzeichen, Mantisse und Exponent bestehende 
5-Byte-Werte. Das genaue Format wurde in Kapitel 3.11 beschrieben. 

4.4.2 Speicherung von Strings 

Strings haben im Schneider-Basic keine feste Länge. Für eine Stringvariable 
kann im Variablenbereich aber nur ein fester Platz reserviert werden. Bei 
Strings wird deshalb im Variableneintrag nur ein sogenannter Stringde- 
scriptor gespeichert. Ein Stringdescriptor besteht aus Länge und Adresse 
des Strings, also aus drei Bytes. Falls die Länge null ist, hat die Adresse 
einen beliebigen (Undefinierten) Wert. Der eigentliche String wird in einem 
eigens dafür vorgesehenen Bereich gespeichert, der durch zwei Basic - 
Systemzeiger eingegrenzt wird. Während beim CPC 464 lediglich der String 
Zeichen für Zeichen abgelegt wird, reservieren CPC 664 und CPC 6128 vor 
jedem String noch zwei Bytes, in denen normalerweise die Länge des 
Strings abgelegt wird. Für die Stringverarbeitung spielen diese beiden Bytes 
keine weitere Rolle, benötigt werden sie nur bei der Garbage Collection. 

4.4.3 Die Garbage Collection 

Wenn eine Stringvariable einen neuen Wert zugewiesen bekommt, so muß 
für den neuen String neuer Platz im Stringbereich reserviert werden. Der 
Platz für den alten String bleibt also ungenutzt erhalten. Auf diese Weise 
können sich eine Reihe ungültiger Strings im Stringbereich ansammeln. 
Wenn kein Speicherplatz für weitere Strings mehr da ist oder anderweitig 
mehr Platz als vorhanden benötigt wird, so müssen die ungültigen Strings 
beseitigt werden. Diesen Vorgang nennt man Garbage Collection 
("Abfallsammeln"). 

Im CPC 464 wird die Garbage Collection wie folgt durchgeführt. Zunächst 
wird der Zeiger auf den Start des Stringbereichs und dort auf den Wert des 
Stringbereich-Endzeigers gebracht. Es werden also quasi alle Strings aus 
dem Stringbereich gelöscht. Dann werden alle Stringdescriptoren durch¬ 
gesehen und der Descriptor mit der höchsten Stringadresse herausgesucht. 
Der zugehörige String wird dann direkt unter den neuen Stringbereich 
geschoben und in ihn aufgenommen. Dann wird wiederum der String mit 
der höchsten Adresse außerhalb des Stringbereichs gesucht und verschoben, 
bis alle Strings wieder im Stringbereich sind. Da nur die Strings, zu denen 
ein Descriptor existiert, in den Stringbereich aufgenommen wurden, sind 
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jetzt keine ungültigen Strings mehr im Stringbereich. Der zur Verfügung 
stehende freie Platz ist eventuell größer geworden. 

Bei der Garbage Collection des CPC 464 werden für jeden String sämtliche 
Descriptoren durchgegangen und überprüft, um die höchste Stringadresse 
außerhalb des Stringbereichs zu finden. Bei n Descriptoren erfordert dies 
n 2 Schritte. Es dauert bei Benutzung von großen Stringfeldern also seine 
Zeit, bis die Garbage Collection fertig ist. Deswegen wurde im CPC 664 
und im CPC 6128 ein schnelleres Verfahren gewählt. Sämtliche Descriptor- 
adressen werden in die zwei freien Bytes vor dem zugehörigen String ge¬ 
schrieben. Die Länge, die vorher in diesen Bytes stand, wird in den De- 
scriptor eingetragen (obwohl sie dort schon enthalten ist). Dann werden 
sämtliche Strings durchgegangen und nach unten verschoben. Die Strings 
ohne Descriptor, bei denen also keine Descriptoradresse eingetragen ist, 
werden nicht berücksichtigt. Anschließend wird der gesamte Stringbereich 
soweit wie möglich nach oben verschoben und dann die Stringadressen in 
den Descriptoren aktualisiert. Da zu einem String sofort der Descriptor 
festgestellt werden kann, brauchen bei diesen Schritten also nicht jedesmal 
alle Descriptoren für jeden String untersucht werden. Die benötigte Zeit ist 
nicht mehr quadratisch, sondern nur linear abhängig von der Zahl der 
Descriptoren. 

4.4.4 Die Speicherung einfacher Variablen 

Einfache Variablen, einfach im Unterschied zu Feldvariablen, werden in 
einem durch zwei Systemzeiger eingegrenzten Bereich gespeichert. Die Va¬ 
riablen werden in diesen Bereich in der Reihenfolge ihres Auftretens bei 
der Programmausführung eingetragen. Der Eintrag einer Variablen ist wie 
folgt aufgebaut: 

Offset der nächsten Variablen in der VL (2 Bytes) 

Name der Variablen (1 bis 40 Bytes) 

Typ der Variablen (1 Byte) 

1 = Integer 

2 — String 
4 = REAL 

Variablenwert bzw. Stringdescriptor (2, 3 oder 5 Bytes) 

Um den zugehörigen Variableneintrag zu einem Variablennamen schnell 
finden zu können, existieren 26 verschiedene verkettete Listen (VL) von 
einfachen Variablen, für jeden möglichen Anfangsbuchstaben eine. Die 
ersten beiden Bytes eines Variableneintrags dienen zum Einhängen der 
Variablen in die entsprechende verkettete Liste. In diesen Bytes wird 
jedoch nicht die Adresse der nächsten Variablen in der Liste, sondern ein 
Offset zur nächsten Listenvariablen relativ zum Start der einfachen 
Variablen gespeichert. 
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Ein ebensolcher Offset wird auch nach einem Variablen-Token in das 
Programm gespeichert, wenn der Interpreter auf ein solches Token stößt. 
Der Variableneintrag kann dann einfach gefunden werden: zu dem Offset 
wird der Start der einfachen Variablen addiert. Dieser Wert muß jedoch 
noch um eins korrigiert werden, da der um eins erhöhte Offset abgespei¬ 
chert wird. Dies ist notwendig, um den Offset null, der ja auftreten kann, 
von einer Null zu unterscheiden, die bedeutet, daß noch kein Offset 
eingetragen wurde bzw. die verkettete Variablen-Liste zu Ende ist. 

Die Speicherung von Offsets anstelle von absoluten Adressen hat den 
Vorteil, daß der Variablenbereich ortsunabhängig ist, also beliebig 
verschoben werden kann. Verschiebungen des Variablenbereichs sind nötig, 
wenn eine Programmzeile eingefügt oder gelöscht werden soll. 

4.4.5 Die Speicherung von Feldvariablen 

Feldvariablen werden vom Schneider Basic in einem gesonderten Bereich 
gespeichert. Jeder Feldvariablen-Eintrag beginnt mit einem Kopf, der wie 
folgt aussieht: 

Offset des nächsten Feldes in der VL (2 Bytes) 

Name des Feldes (1 bis 40 Bytes) 

Typ des Feldes (1 Byte) 

1 — Integer 

2 — String 
4 = REAL 

Länge des Feldes ab dem Dimensionsbyte (2 Bytes) 

Zahl der Dimensionen des Feldes (1 Byte) 

Tabelle der maximalen Indizes (dim * 2 Bytes) 

Die Tabelle der maximalen Indizes enthält die beim DIM-Befehl übergebe¬ 
nen Indizes. Nach dieser Tabelle folgen die eigentlichen Feldelemente als 
2-Byte-Integer, 5-Byte-REAL-Werte oder 3-Byte-Stringdescriptoren. 

Die Felder sind nicht nach dem Anfangsbuchstaben des Namens, sondern 
entsprechend ihres Typs in eine von drei verketteten Listen eingehängt. 
Der Kettungs-Offset bezieht sich nicht auf den Start der Variablen, 
sondern auf den Start der Felder. Auch bei den Feldern wird der um eins 
erhöhte Offset abgespeichert. Offsets im Programm beziehen sich auf den 
Start des Feldes, die Adresse des gesuchten Elements muß also in jedem 
Fall anhand der aktuellen Indizes berechnet werden. 
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4o§ Die Auswertung des tokenisierten Basic-Textes 

4.5.1 Eingabe- und Interpreterschleife 

Der Basic-Interpreter besteht auf höchster Ebene aus zwei Schleifen: aus 
der Eingabe- und der Interpreterschleife. Die Eingabeschleife holt mit 
Hilfe des Editors eine Eingabezeile und wertet diese aus. Die Zeile wird 
tokenisiert und gegebenenfalls ins Programm eingefügt. Falls es sich um 
eine Direkteingabe handelt, wird die Interpreterschleife angesprungen. 

Die Interpreterschleife führt sowohl Direkteingaben als auch Programm aus. 
Bei einem Abbruch durch ESC, bei Programmende und bei den Befehlen 
END und STOP wird wieder die Eingabeschleife angesprungen. Da nach 
einer tokenisierten Direkteingabe drei Nullen folgen müssen, wird das Ende 
der Direkteingabe als "Programmende" erkannt. Im Programm folgen nach 
der Null am Ende der letzten Zeile zwei weitere Nullen als Programmende- 
Kennzeichen. 

Die Interpreterschleife holt das nächste Token und überprüft, ob es zu 
einem Befehl gehört. Wenn nicht, wird ein Fehler ausgegeben oder der 
LET-Befehl angesprungen, da das LET-Token wahlfrei ist. Andernfalls 
wird die Befehlsadresse entsprechend des Tokens aus einer Tabelle geholt 
und eine Routine für den Befehl angesprungen. Die Interpreterschleife 
kümmert sich um Zeilen- und Programmende, um ein eventuelles Tracing 
und um Programmunterbrechungen und -abbrüche. 

4.5.2 Die Auswertung eines Ausdrucks 

Viele Basic-Befehle benötigen zur Ausführung Parameter, die dem Befehls¬ 
token folgen. Diese Parameter können Adressen, Integerwerte, REAL-Zah- 
len oder Strings sein. Zur Auswertung eines beliebigen Ausdrucks gibt es 
im Basic-Interpreter eine Routine, die einen beliebig verschachtelten Aus¬ 
druck berechnet. Der Ausdruck kann aus Variablen, Konstanten, Funktio¬ 
nen,Operatoren und Klammern bestehen. Diese Routine liegt im CPC 464 
bei $CEFB, im CPC 664 bei $CF65 und im CPC 6128 bei SCF62. 

Die Routine benutzt zur Speicherung von Zwischenergebnissen und zur 
Übergabe des berechneten Ausdrucks einen Speicherbereich ab $B0C1 
(SB09F im CPC 664/6128), den wir mit FAC (Fließkomma-Akkumulator) 
abkürzen wollen. Der FAC kann jedoch auch Integerwerte und Strings 
aufnehmen, im letzteren Fall wird ein Zeiger auf den Stringdescriptor 
gespeichert. Das erste Byte enthält den Typ des FAC: eine 2 für Integer, 
eine 3 für String und eine 5 für REAL. Dieses Typ-Byte ist gleichzeitig 
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die Größe des Integer- oder REAL-Wertes bzw. des Stringdescriptors. Beim 
Übertragen des FAC in eine Variable gibt das Typflag also an, wieviel 
Bytes für den Eintrag des Variablenwerts benötigt werden. 

Ein Ausdruck wird auf oberster Ebene Operand für Operand geholt. Zwei 
Operanden werden dann miteinander entsprechend des zwischen ihnen ste¬ 
henden Operators verknüpft. Operatoren sind hier nicht nur 
7", " A ", "\" und "MOD", sondern auch "AND", "OR", "XOR" und die Ver¬ 
gleichsoperatoren ">", "=", ">=", "<", "<>" und "<=". Eine Sonderstellung 
nehmen die Operatoren "NOT" und (als Vorzeichenwechsel, nicht als 
Subtraktion) ein, die nur einen Operanden benötigen. 

Die Routine "Ausdruck auswerten" ruft zunächst eine andere Routine auf, 
die erst einmal den ersten Operanden berechnet. Die Routine zur Berech¬ 
nung eines Einzeloperanden prüft das folgende Token; wenn es eine Vari¬ 
able oder Konstante ist, so wird der entsprechende Wert in den FAC 
geholt. Bei einer Funktion müssen vor ihrer Ausführung erst ein oder 
mehrere Argumente berechnet werden. Dies geschieht mit Hilfe der Rou¬ 
tine "Ausdruck auswerten". Da die Routine "Einzeloperanden berechnen" 
aber gerade von dieser Routine aufgerufen wurde, handelt es sich hier um 
eine indirekte Rekursion (siehe auch Kapitel 2.3.1). Nicht nur bei Funk¬ 
tionsargumenten, auch zur Bestimmung von den aktuellen Indizes einer 
Feldvariablen oder zur Berechnung eines Ausdrucks in Klammern wird 
"Ausdruck auswerten" indirekt rekursiv aufgerufen. Der erste Einzel¬ 
operand kann also aufgrund des rekursiven Aufrufs schon mehrere 
Operanden und Operatoren enthalten. 

Nachdem der erste Operand geholt worden ist, wird das Operator-Token, 
untersucht und dann der zweite Operand geholt. Dieser kann jedoch nicht 
mit der Routine "Einzeloperanden berechnen" direkt ausgewertet werden, 
weil er alle stärker bindenden Operatoren enthalten muß. Ein Beispiel zur 
Verdeutlichung: Der erste Einzeloperand des Ausdrucks "A*B A 2+4" lautet 
"A". Es wird also der Wert der Variablen A geholt. Der zweite Operand für 
die Multiplikation ist jedoch nicht der Einzeloperand "B", sondern der 
Operand "B A 2", da die Potenzierung eine höhere Priorität besitzt als die 
Multiplikation. Der zweite Operand muß also inklusive aller stärker 
bindenden Operatoren berchnet werden. Das Beispiel läßt sich auch auf den 
Ausdruck "(A+B)*(3-C) A 2+4" übertragen, ungeachtet der in den Klammer¬ 
ausdrücken auftretenden Operatoren, die ja rekursiv berechnet werden. 

Zur Festlegung, was stärker bindende Operatoren bzw. solche mit höherer 
Priorität sind, wird jedem Operator ein Hierarchiecode zugeordnet. Je 
größer der Hierarchiecode, desto höher die Priorität. 
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Hierarchiecode Operator 

keiner Stringverknüpfung (+) (höchste Priorität) 

$16 Potenzierung (") 

$14 Vorzeichenwechsel (-) 

$12 Multiplikation, Division (*,/) 

$10 Integerdivision (\) 

$0E Integer-Modulo (MOD) 

$0C Addition, Subtraktion (+,-) 

$0A Vergleich (>,=,>=,<,<>,<=) 

$08 Einerkomplement (NOT) 

$06 Und-Verknüpfung (AND) 

$04 Oder-Verknüpfung (OR) 

$02 Exklusiv-Oder-Verknüpfung (XOR) 

Es gibt eine Routine "Teilausdruck holen", die einen Hierarchiecode 
übergeben bekommt. Sie holt den ersten Einzeloperanden, wertet den Ope¬ 
rator aus und holt weitere Operanden inklusive stärker bindender Opera¬ 
toren. Sie bricht dann ab, wenn sie auf einen Operator stößt, dessen Hie¬ 
rarchiecode kleiner oder gleich dem übergebenen Hierarchiecode ist, der 
also schwächer bindet. Sie holt also einen Teilausdruck inklusive aller 
stärker bindenden Operatoren. Dies ist genau die Aufgabe, die zur Berech¬ 
nung des zweiten bzw. weiterer Operanden nötig ist. Die Routine ruft sich 
daher selbst rekursiv auf. 

Ein Problem taucht noch auf: Der erste Operand wird zunächst in den FAC 
geholt. Er muß zwischengespeichert werden, damit der zweite Operand in 
den FAC geholt und die Operation ausgeführt werden kann. Da der zweite 
Operand rekursiv geholt wird, muß der erste Operand auf einem Stack 
zwischengespeichert werden. Deshalb (und für andere Zwecke) existiert im 
CPC ein vom Basic verwalteter Software-Stack. Dieser Basic-Stack liegt im 
Bereich $AE8B-$B08A (beim CPC 664/6128 von $AE6F bis $B06E). 

Bei Strings läuft diese Zwischenspeicherung anders: Für die Stringdescrip- 
toren existiert ein eigener Stack von SB09C bis SB0B9 beim CPC 464 bzw. 
von $B07E bis $B09B beim CPC 664/6128. Der Zeiger auf den aktuellen 
Descriptor wird aus dem FAC geladen und auf den Hardware-Stack 
gerettet. 

4.5.3 Auswertung von mit DEF FN definierten Funktionen 

Das Schneider-Basic bietet dem Benutzer die Möglichkeit, selbst Funktio¬ 
nen zu definieren. Einer so definierten Funktion können kein, ein oder 
mehrere Argumente übergeben werden, die die Typen Integer, Real oder 
String haben. Das Funktionsresultat kann ebenfalls von einem beliebigen 
Typ sein. 
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Ein Zeiger auf eine Funktionsdefinition wird vom Basic-Interpreter beim 
DEF FN-Befehl als Intergervariable abgelegt. Zur Unterscheidung von 
einer normalen Variablen wird das 6. Bit im Typ-Byte gesetzt. Gespeichert 
wird der Zeiger auf die Definition der formalen Parameter. Falls keine 
Parameter übergeben werden, wird der Zeiger auf das Gleichheitszeichen 
vor der Ergebnisdefinition gespeichert. 

Bei der Auswertung einer definierten Funktion werden zunächst die aktu¬ 
ellen Parameter geholt und deren Typen und Anzahl mit Typen und Zahl 
der formalen Parameter verglichen. Die aktuell übergebenen Parameter 
werden mit Namen, Typ und Wert auf dem Basic-Stack in einer verket¬ 
teten Liste gespeichert (Abbildung 4.2). 


1. Parameter einer Funktion 


2. Verschachtelter Funktionsaufruf 


TOS 4- Basic-SP 



Abbildung 4.2: Auswertung definierter Funktionen 

Beim Berechnen der aktuellen Parameter kann es erforderlich sein, 
wiederum eine definierte Funktion auszuwerten. In diesem Fall muß 
natürlich eine neue verkettete Liste der Parameter auf dem Basic-Stack 
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angelegt werden. Um die Position des alten Parameter-Records auf dem 
Stack nicht zu verlieren, werden die Parameter-Records durch eine verket¬ 
tete Liste verbunden (MEM LINK in Abbildung 4.2). Hier ist also ein 
Beispiel für einen Stack, der durch eine verkettete Liste realisiert ist (siehe 
dazu auch Kapitel 2.2). 

Wenn alle Parameter für die definierte Funktion geholt worden sind, wird 
das Funktionsergebnis mit Hilfe der Routine "Ausdruck auswerten" berech¬ 
net. Die Namen der formalen Parameter müssen bei dem zu berechnenden 
Ausdruck durch die aktuell übergebenen Parameter ersetzt werden. Dazu 
wird das Parameter-Record der definierten Funktion in eine weitere ver¬ 
kettete Liste eingehängt. In Abbildung 4.2 geschieht dies über LOG LINK. 
Während die oberen beiden Parameter-Records auch in der LOG LINK- 
Liste eingehängt sind, werden bei der Funktion, die zum unteren Record 
gehört, gerade die Parameter berechnet. Diese Parameter-Berechnung ent¬ 
hält dann einen Aufruf der mittleren Funktion. Deren Ergebnisberechnung 
ruft wiederum die obere Funktion auf. 

Das Einhängen in eine Liste (bzw. einen Listen-Stack) ist hier ebenfalls 
erforderlich, weil bei der Ergebnisberechnung Verschachtelungen auftreten 
können. Der oberste Parameter-Record in der Liste, also der Parameter- 
Record der in der innersten Verschachtelung gerade bearbeiteten Funktion, 
wird bei der Variablenauswertung benutzt. Immer, wenn der Wert einer 
Variablen geholt werden soll, wird zuerst in diesem Parameter-Record nach 
dem Variablennamen gesucht und gegebenenfalls der aktuelle Parameter¬ 
wert als Variablenwert zurückgegeben. So werden für die Dauer der Funk¬ 
tions-Ergebnisberechnung die entsprechenden Variablen durch die aktuel¬ 
len Parameter substituiert. Nach der Ergebnisberechnung wird der Parame¬ 
ter-Record wieder aus der LOG LINK-Liste ausgehängt. Die Variablen 
liefern dann also wieder ihren ursprünglichen Wert. 
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4.6 Datenformate auf dem Baslc-Stack 


Der im vorigen Kapitel zur Sprache gekommene Basic-Stack wird nicht nur 
zur Ausdruckauswertung benutzt. Auch Schleifen und Unterprogramme 
werden über ihn realisiert. Es ist die Frage, weshalb ein eigener Software- 
Stack benutzt wird, dessen Verwaltung ja langsamer ist, als die des Hard¬ 
ware-Stacks. Eine Antwort ist die, daß zur Ablage von Werten auf dem 
Stack Unterprogramme angesprungen werden können, deren Rückkehr¬ 
adressen bei Ablage eines Wertes auf dem Hardware-Stack gesondert be¬ 
rücksichtigt werden müßten. 

4.6.1 Ein FOR-NEXT-Schleifen-Ein trag 


Bytes 

2 Adresse der FOR-Schleifenvariablen 

2/5 Schleifenendwert im REAL bzw. Integer-Format 

2/5 Schleifen-STEP-Wert im REAL bzw. Integer-Format 

1 Vorzeichen des STEP-Werts 

2 Zeiger nach FOR-Statement 

2 Zeilenadresse des FOR-Statements 

2 Zeiger nach NEXT-Statement 

2 Zeiger nach NEXT-Token 

1 $10 bei Integerschleifen, $16 bei REAL-Schleifen, 

als Kennung und als Größe des Stackeintrags 

4.6.2 Ein WHILE-WEND-Schleifen-Eintrag 


Bytes 

2 Zeilenadresse des WHILE-Statements 2 

2 Zeiger nach WEND-Token 1 

2 Zeiger nach WHILE-Token 

1 $07 als Kennung und als Größe des Stackeintrags 

4.6.3 Ein GOSUB-Unterprogramm-Eintrag 


Bytes 

1 0 für einfacher GOSUB-Befehl 

2 Zeiger nach GOSUB-Statement als Rückkehradresse 

2 Zeilenadresse des GOSUB-Statements 

1 $06 als Kennung und als Größe des Stackeintrags 
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4.6.4 Ein Eintrag bei Unterbrechungen 


Bytes 

1 Anlaß des Unterprogrammaufrufes 

1 = EVERY-, AFTER- oder ON SQ-Unterbrechung 

2 = ON BREAK-Unterbrechung 

2 Adresse des Event-Block-Parameterfeldes 

2 Adresse der Zeile, in der die Unterbrechung auftrat 

1 $06 als Kennung und als Größe des Stackeintrags 
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4.7 Benutzung von Synchronous Events Im Basic 

Die Bearbeitung von Synchronous Events wurde im Kapitel 3.1.4 bereits 
erklärt. An dieser Stelle soll ihre spezielle Benutzung im Basic beschrieben 
werden. 

Synchrone Events werden im Basic an mehreren Stellen benutzt: für die 
Befehle AFTER, EVERY, ON SQ GOSUB und zur Bearbeitung von Un¬ 
terbrechungen durch ESC. Dies geschieht mit Hilfe von acht Event-Blocks. 
Vier davon, die "Uhren" 0 bis 3, werden für EVERY und AFTER benutzt; 
sie sind in der Ticker Chain eingehängt. Den Tick- und Reload-Count 
kann man durch die an EVERY und AFTER übergebenen Werte setzen 
(siehe Abschnitt 3.1.4.3). Drei weitere Event-Blocks entsprechen den drei 
Tonkanälen. Sie sind in keiner Chain, sondern werden vom Sound Manager 
in die Synchronous Pending Queue eingehängt. Schließlich wird noch der 
Break-Event-Block des Keyboard Manager benutzt (siehe Kapitel 3.7.3). 
Der wird immer dann in die SPQ eingehängt, wenn die ESC-Taste gedrückt 
wurde und der Break-Event mit KM ARM BREAK erlaubt wurde. 


Hier die Prioritäten der einzelnen Events: 


Break-Event: 
AFTER/EVERY-Event 3: 
AFTER/EVERY-Event 2: 
Sound-Events: 


AFTER/EVERY-Event 1: 
AFTER/EVERY-Event 0: 
(Basic-Hauptprogramm: 


$40 (Express-Event) 
$10 
$08 
$08 
$04 
$02 
$ 00 ) 


Jeder Event-Block im Basic besitzt ein Parameter-Feld, das nach dem 
eigentlichen Event-Block folgt. Für den Break-Event-Block, der ja im 
Keyboard Manager liegt, existiert ein separater Parameter-Block. Ein 
solcher Block ist wie folgt aufgebaut: 

0 Priorität des unterbrochenen Events/Programms 

1/2 Rücksprung-Basic-Programmzeiger (Basic-PC) 

3/4 Adresse des auszuführenden Unterprogramms 


Die Interpreterschleife ruft zwischen zwei Statements die Routine KL 
POLL SYNCHRONOUS auf. Wenn diese Routine die Information zurück¬ 
gibt, daß ein Event mit einer höheren Priorität als der laufenden in der 
SPQ ist, so wird eine Routine im Basic aufgerufen, die die entsprechenden 
Events der SPQ bearbeitet. Zur Bearbeitung werden in einer Schleife die 
Routinen KL NEXT SYNC, KL DO SYNC und KL DONE SYNC 
aufgerufen. Dies veranlaßt die Ausführung der Event-Routinen. 

Die Bearbeitung der Events geschieht mit Hilfe bestimmter Bearbeitungs- 
Flags. Diese werden von der von KL DO SYNC ausgeführten Event-Rou- 
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tine gesetzt, um der aufrufenden Routine (der NEXT-DO-DONE-Schleife) 
mitzuteilen, was zu tun ist. Diese Flags liegen im CPC 464 bei $AC30, im 
CPC 664 und im CPC 6128 bei $AC16. Die einzelnen Bits haben folgende 
Bedeutung: 

Bit 0: 1 = Abbruch, "Break” ausgeben 

Bit 1: 1 = Basic-Unterprogramm bei ($AE34) ausführen 

Bit 2: 1 = Break-Event wieder erlauben (mit KM ARM BREAK) 

Bit 6: 1 = NEXT-DO-SYNC-Schleife beenden 

Bit 7: 1 = KL DONE SYNC noch nicht aufrufen 

Die AFTER/EYERY- und Sound-Events benutzen alle die gleiche Event- 
Routine. Wenn gerade ein Programm läuft, also der Direkt-Modus nicht 
eingeschaltet ist, so wird ein Datensatz auf dem Basic-Stack generiert. 
Außerdem werden die Flags für Abbruch der Schleife, kein KL DONE 
SYNC und Unterprogramm aufrufen, gesetzt. KL DONE SYNC wird erst 
beim RETURN-Befehl des Unterprogramms aufgerufen, um die alte 
Priorität wieder zu setzen. 

Eine spezielle Event-Routine wird beim Break-Event ausgeführt. Diese 
Routine wartet auf eine weitere Taste von der Tastatur. Wenn diese eine 
zweite ESC-Taste ist - nach der ersten, die den Break-Event auslöste -, so 
wird entweder - wenn keine ON BREAK-Routine vorhanden ist - ein Flag 
für Abbruch gesetzt. Andernfalls wird - wie bei AFTER, EVERY und ON 
SQ - die Ausführung einer Routine vorbereitet. Falls jedoch keine zweite 
ESC-Taste gedrückt wurde, so setzt die Break-Event-Routine nur ein Flag 
zur Ausführung von KM ARM BREAK. Damit ist eine erneute Unter¬ 
brechung durch ESC möglich. Ansonsten wird im letzteren Fall die Sync- 
Schleife normal weitergeführt und das Basic-Programm nicht unterbrochen 
(wenn keine anderen Events in der SPQ sind). 

Eine Besonderheit ist, daß die Routine KM ARM BREAK und somit auch 
die Basic-Routine, die KM ARM BREAK aufruft, den Break-Event nur 
einmal zuläßt. Nach einem Break-Event muß also KM ARM BREAK 
erneut aufgerufen werden, wenn man die Funktion der ESC-Taste erhalten 
will. 

Im CPC 664 und im CPC 6128 existiert ein Flag bei $AC0B, das den 
Aufruf von KM ARM BREAK verhindert. Es wird vom Basic-Befehl ON 
BREAK CONT gesetzt. Danach wird die Break-Event-Routine gar nicht 
erst ausgeführt. 




154 Das BASIC des CPC 


4.8 Erweiterungen und Veränderungen des Basic 


4.8.1 Die Benutzer-Vektoren des CPC 464 

An neun Stellen im Basic-Interpreter des CPC 464 wird eine Routine im 
Basic-Systembereich angesprungen. Normalerweise steht an den angesprun¬ 
genen Stellen ein RET, der Ansprung bewirkt also nichts. Es sind jedoch 
drei Bytes pro Ansprung freigelassen, Platz genug, um einen JP-Opcode 
($C3) und eine Zwei-Byte-Adresse einzufügen. Mit anderen Worten: Diese 
Benutzer-Vektoren kann man - neben der Möglichkeit der RSX-Erwei- 
terung - verwenden, um das Basic selbst zu verändern und zu erweitern. 
Im CPC 664 und im CPC 6128 sind diese Ansprünge leider entfernt wor¬ 
den, das Basic kann hier nur noch über RSX erweitert werden (siehe 4.8.2). 

Hier ist nun eine Tabelle mit den Benutzer-Vektoren des CPC 464. Sie 
enthält zur besseren Orientierung die Stelle, an der der jeweilige Vektor 
aufgerufen wird sowie auch einige übergeordnete Aufrufe. 


Bedeutung 

Vektor 

Aufruf-Linie 

Eingabeschleife: 

$AC01, 

$C064 

Fehlerbehandlung: 

$AC04, 

$CA94 

Befehl ausführen: 

3AC07*, 

$DDC3, $DDB1 

Funktionsauswertung: 

3AC0A*, 

$D0A9, $D09A 

Einzeloperanden-Aus Wertung: 

SACOD*. 

$D078, $CFF3, $CFE3 

Item tokenisieren: 

3AC10, 

$DEE1, $DEC9 

Item wieder nach ASCII: 

$AC13, 

$E196, $E18D 

Variable/Keyword mit Buchst, tokenisieren: 

3AC16, 

$DF51, $DF09 

Keyword zu einem Token suchen: 

$AC19*, 

3E30B, 3E2ED, 3E229 


Mit einem Stern (*) sind diejenigen Vektoren gekennzeichnet, bei denen 
nach dem Vektor-Aufruf ein Fehler wegen eines falschen Zeichens oder 
eines nicht bekannten Tokens an der aktuellen Stelle im Programm aus¬ 
gegeben wird. Will man neue Tokens benutzen, so muß man zumindest 
diese Vektoren ändern und die Ausgabe eines Fehlers verhindern. 

Die übrigen Vektoren werden zwar nicht kurz bevor der Ausgabe eines 
Fehlers angesprungen, sind aber dennoch wichtig für die Bearbeitung neuer 
Befehle und Funktionen mit neuen Tokens. Die Benutzer-Vektoren, die bei 
Eingabeschleife und Fehlerbehandlung angesprungen werden, eignen sich 
nicht direkt zur Befehls- oder Funktionserweiterung. Daß sie aber dennoch 
nützlich sein können, zeigt folgendes Beispielprogramm: 

10 MEMORY HIMEM-5 
20 H=INT(HIMEM+1) 

30 FOR I=H TO H+4:READ A:POKE I,A:NEXT 

40 POKE &AC02,H AND 255 

50 POKE &AC03,(H AND -256)\256 AND 255 
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60 POKE &AC01.&C3 

70 DATA &A F,&32,&45,&AE,&C9 

80 REH Zeile 70: 

90 REM XOR A 

100 REM LD (AE45),A 

110 REM RET 

Dieses Programm verändert den Vektor für die Eingabeschleife. Bei jedem 
Einsprung in die Eingabeschleife wird dann das kleine Maschinenpro¬ 
gramm, das ab Zeile 80 disassembliert ist, ausgeführt. Das bedeutet, daß 
die Speicherstelle $AE45 ständig auf Null gesetzt wird. Da SAE45 beim 
CPC 464 angibt, ob ein Progamm geschützt ist oder nicht, lassen sich nach 
der Ausführung des obigen Programms auch geschützte Programme laden 
und listen. Das Flag, welches das geschützte Programm kennzeichnet, wird 
sofort nach dem Laden gelöscht. Dieses kleine Programm kann hilfreich 
sein, wenn man versehentlich nur eine geschützte Version eines Programms 
abgespeichert hat. Zum Laden von Software, deren Vervielfältigung nicht 
erlaubt ist, darf dieses Hilfsprogramm jedoch nicht benutzt werden. 

4.8.2 RSX-Erweiterungen 

Der CPC bietet die Möglichkeit, mit RSX ("resident System extension") das 
Schneider-Basic um zusätzliche Befehle zu erweitern. Eine Beschreibung 
des Aufbaus einer RSX-Erweiterung finden Sie in Abschnitt 3.1.3. Hier 
geht es in erster Linie um die Schnittstelle zum Basic. 

Ein RSX-Befehl wird mit einem senkrechten Strich (Shift-@) und einem 
RSX-Befehlswort aufgerufen. Es können bis zu 32 Parameter übergeben 
werden. Beim CPC 464 müssen dies Integerwerte sein, beim CPC 664 und 
CPC 6128 sind dagegen auch Strings zulässig. Der Befehlsroutine wird in 
IX ein Zeiger auf eine Tabelle mit den Parametern und in A deren Anzahl 
übergeben. Die Parameter-Tabelle enthält pro Parameter einen Zwei-Byte- 
Wert. Entweder ist dies der Integerwert oder der Zeiger auf den Stringde- 
scriptor. Ein Unterscheidungsmerkmal zwischen den beiden Parameter- 
Typen gibt es nicht. Die Parameter sind in der Tabelle in umgekehrter 
Reihenfolge enthalten, d.h. der letzte Wert in der Parameterliste erscheint 
in der Parameter-Tabelle an erster Stelle. 

Die Parameterübergabe beim Basic-Befehls CALL verläuft übrigens ebenso. 
Die RSX-Erweiterungen im RAM sind also eigentlich CALL-Befehle, die 
mit Namen versehen wurden. Beim Aufruf einer Maschinenroutine ist die 
RSX-Erweiterung dem CALL-Befehl also fast immer vorzuziehen. Ein si¬ 
gnifikanter Name ist doch wesentlich bequemer als eine einfache Adresse. 
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Hier ein einfaches Beispiel für eine RSX-Erweiterung. Das Wort WAIT- 
CHAR (vor WAITCHAR natürlich SHIFT-@ eingeben!) ruft die Betriebs¬ 
system-Routine KM WAIT CHAR auf, wartet also auf eine Taste. 


10 MEMORY &7FFF 
20 DATA &05,&80 
30 DATA &C3,&18,&BB 

40 DATA &57,&41,&49,&54,&43,&48,&41,&D2 

50 DATA 0 

60 DATA -1 

70 DATA &21,&00,&81 

80 DATA &01,&00,&80 

90 DATA &C3,&D1, &BC 

100 DATA -1 

110 RESTORE 20:FOR I=&8000 TO &8100:READ A 
120 IF A>=0 THEN POKE I,A:NEXT 
130 RESTORE 70:FOR I=&8200 TO &8300:READ A 
140 IF A>=0 THEN POKE I,A:NEXT 
150 CALL &8200 


1 Zeiger auf Befehlstabelle 
1 JP BB18, KM WAIT CHAR 
1 "WAITCHAR" 

1 Tabellenende 

' LD HL,8100 
' LD BC,8000 
1 JP BCD1 
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4.9 Ergänzungen zum Handbuch 

Im Handbuch des CPC 464 sind einige Möglichkeiten des Schneider-Basics 
nicht erklärt. Wir wollen diese erläutern. 

MID$ kann nicht nur als Funktion, sondern auch als Zuweisung verwendet 
werden, wenn ein Teil eines Strings durch einen anderen String ersetzt 
werden soll. Die Anweisungen A$="C 64" und MID$(A$,2,4)="PC 4" 
ergeben als neuen Wert von A$ den String "CPC 464". Es bietet sich dem 
Programmierer hier eine komfortable Möglichkeit, die Zerlegung eines 
Strings und die anschließende Verkettung durch einen Schritt zu ersetzen. 
Im Handbuch des CPC 664/6128 ist diese Zuweisung übrigens beschrieben. 

Die Funktion DEC$ ist ebenfalls nur im Handbuch des CPC 464 nicht 
beschrieben. Dies hat wohl den Grund, daß nach dem DEC$-SchIüsselwort 
zwei offene Klammern ("((") folgen müssen. Im CPC 664 und im CPC 6128 
ist dieser Fehler behoben worden. Der Zweck der DEC$-Funktion, der ein 
numerisches Argument und ein String-Argument übergeben werden muß: 
Sie formatiert eine Zahl entsprechend eines Formatstrings (genau wie bei 
PRINT USING). Der Ergebnis-String wird jedoch nicht sofort ausgedruckt, 
sondern zurückübergeben, so daß man ihn vor der Ausgabe noch weiter 
bearbeiten kann. Ein Beispiel: DEC$(-265.94,"###.#-") ergibt den String 
"265.9-". 


Bei der formatierten Ausgabe mit PRINT USING kann man zusätzliche 
Zeichen in den Formatstring einfügen, die mit ausgedruckt werden. Dies 
kann z.B. nützlich sein, wenn man statt der amerikanischen oder englischen 
die deutsche Währung "DM" an einer festen Stelle in der formatierten Aus¬ 
gabe einfügen möchte. Dies geschieht etwa auf folgende Weise: PRINT 
USING "DM ####.##";Betrag. Wenn in diesen direkt auszugebenden Zei¬ 
chen Formatierzeichen wie "#", " /v ", "+" usw. enthalten sein sollen, so muß 
vor jedem dieser Formatierzeichen ein Underscore-Character (SHIFT-0) 
eingefügt werden, damit die Formatierzeichen als direkt auszugebende Zei¬ 
chen erkannt werden. 
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5 Tabellen zu den Listings 


las Betriebs 


5.1.1 Das RAM des KERNEL: 


CPC 464 

Bl 00-Bl 01 
B102-B103 
Bl 04 


CPC 664 

B82D-B82E 

B82F-B830 

B831 


CPC 6128 

B82D-B82E 

B82F-B830 

B831 


Start der Asynchron Pending Queue 

Adresse der Letzten APQ-Eintrags 

Interrupt-Flags, für die Bearbeitung von TC undAPQ 


b7: 

1 

= APQ 

wi rd 

bearbeitet 

b6: 

0 

= APQ 

i st 

leer 

bO: 

1 

= Ticker aktiv, TC 


bearbeiten 


Bl 05 - Bl 06 

B832-B833 

B832-B833 

Zwischenspeicher für SP im 

B107-B180 

B834-B8AD 

B834-B8AD 

Interrupt 
<frei> 

B181-Bl 86 

B8AE-B8B3 

B8AE-B8B3 

Zwischenspeicher für BC, DE, HL 

B187-B18A 

B8B4-B8B7 

B8B4-B8B7 

Timer, 4 Bytes 

B18B 

B8B8 

B8B8 

Sperrbyte, verhindert Übertrag auf B18C 

B18C-B18D 

B8B9-B8BA 

B8B9-B8BA 

Start der FRAME FLY CHAIN 

B18E-B18F 

B8BB-B8BC 

B8BB-B8BC 

Start der FAST TICKER CHAIN 

B190-B191 

B8B0-B8BE 

B8BD-B8BE 

Start der TICKER CHAIN 

B192 

B8BF 

B8BF 

Frequenzteiler für Ticker (300Hz/6=50Hz) 

Bl93-Bl94 

B8C0-B8C1 

B8C0-B8C1 

Start der Synchron Pending Queue 

B195 

B8C2 

B8C2 

lfd. Sperr-Prioritat 

Bl96-BlA5 

B8C3-B8D2 

B8C3-B8D2 

Kopie des RSX-Strings (maximal $100 Bytes) 

B1A6-B1A7 

B8D3-B8D4 

B8D3-B8D4 

Adresse des Anfangs der VL der Background-ROMs 

B1A8 

B8D5 

B8D5 

B8D6 

laufende RAM-Konfiguration 
laufende ROM-Konfiguration/Nr. 

B1A9-B1AA 

B8D6-B8D7 

B8D7-B8D8 

Einsprung in lfd. ROM 

Bl AB 

B8D8 

B8D9 

ROM-Konfiguration für Einsprung 

B1AC-B1B9 

B8D9-B8F8 

B8DA-B8F9 

Tabelle der alten Hi-RAM-Zeiger 
für die Hintergrund-ROMs 1 .. 7 

Tabelle der alten Hi-RAM-Zeiger 

B1BA-B1C7 

B8F9-B8FF 

B8FA-B8FF 

für die Hintergrund-ROMs 0 .. 15 
<frei> 


5.1.2 Das RAM des MACHINE PACK: 

CPC 464 CPC 664/6128 

B804-B82C Printer translation table 

5.1.3 Das RAM des SCREEN PACK: 


CPC 464 CPC 664/6128 

B1C8 B7C3 Muriner des Mode (0..2) 
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B1C9-B1CA 

B7C4-B7C5 

SCR OFFSET 

Bl CB 

B7C6 

SCR BASE hi 

B1CC-B1CE 

B7C7-B7C9 

Indirection zu Force, AND, OR, XOR 
für Punktsetzen mit SCR WRITE 

B1CF-B1D6 


Bitmasken für Pixe Lauswahl (je nach Mode) 

B1D7 

B7D2 

Blink-Zähler für 2. Farbsatz 

B1D8 

B7D3 

Blink-Zähler für 1. Farbsatz 

B1D9 

B7D4 

BORDER-Farbwert für 2. Farbsatz 

B1DA-B1E9 

B7D5-B7E4 

INK-Farbwerte für 2. Farbsatz 

Bl EA 

B7E5 

BORDER-Farbwert für 1. Farbsatz 

BlEB-Bl FA 

B7E6-B7F5 

INK-Farbwerte für 1. Farbsatz 

Bl FB 

B7F6 

Flag für aktuell ausgewählten Farbsatz 
0=1. Farbsatz 
$FF = 2. Farbsatz 

Bl FC 

B7F7 

$FF = neue Farbwerte in Tabellen 

0 = Farbwerte an Gate Array übergeben 

Bl FD 

B7F8 

aktueller Blink-Zähler für Farb-Event 

B1FE-B206 

B7F9-B801 

Farbwechsel-Event-Block 


B802 

gerettete Graphik-Pen-Maske 


3803 

gerettete Graphik-Linienmaske 

B207-B208 


X-Offset zu nächstem Byte bei Linie 

B209-B20B 


<frei> 


5.1.4 Das RAM des TEXT SCREEN PACK: 


CPC 464 CPC 664/6128 


B20C 

B6B5 

Nummer des ausgewählten Windows 

B20D-B21B 

B6B6-B6C3 

Parameter-Block für Window 0 

B21C-B22A 

B6C4-B6D1 

Parameter-Block für Window 1 

B22B-B239 

B6D2-B6DF 

Parameter-Block für Window 2 

B23A-B248 

B6E0-B6ED 

Parameter-Block für Window 3 

B249-B257 

B6EE-B6FB 

Parameter-Block für Window 4 

B258-B266 

B6FC-B709 

Parameter-Block für Window 5 

B267-B275 

B70A-B717 

Parameter-Block für Window 6 

B276-B284 

B718-B725 

Parameter-Block für Window 7 

B285-B293 

B726-B733 

Parameter-Block des aktuellen Windows 

B285 

B726 

Cursorzeile (absolut) 

B286 

B727 

Cursorspalte (absolut) 

B287 

B728 

0 = Hardware-Scrolling 

B288 

B729 

obere Windowgrenze 

B289 

B72A 

linke Windowgrenze 

B28A 

B72B 

untere Windowgrenze 

B28B 

B72C 

rechte Windowgrenze 

B28C 

B72D 

Scrolling-Zähler 

B28D 


Cursor-Flag 

bO: 0 = enabled, 1 = disabled 
bl: 0 = ON, 1 = OFF 

B28E 


VDU-Flag 

0 = VDU disabled, keine Zeichenausgabe 
sonst VDU enabled 


B72E 

Cursor-/VDU-Flag 

bO: 0 = Cursor enabled, 1 = disabled 
bl: 0 = Cursor ON, 1 = Cursor OFF 

B7: 0 = VDU enabled, 1 = VDU disabled 

B28F 

B72F 

PEN-Farbmaske 

B290 

B730 

PAPER-Farbmaske 
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B291-B292 

B731-B732 

Indirection für Hintergrundmodus 

B293 

B733 

0 = Ausgabe auf Textposition (TAGOFF) 
sonst Ausgabe auf Graphikposition (TAG) 

B294 

B734 

Nurraner des 1. Zeichens der User-Matrizen 

B295 

B735 

0 = keine User-Matrizen 
$FF = User-Matrizen 

B296-B297 

B736-B737 

Adresse der User-Matrizen 

B298-B2B7 

B738-B757 

Raum für ungepackte Zeichenmatrix 

B2B8 

B758 

Zahl der Zeichen im Control-Buffer 

B2B9 

B759 

aktuelles Steuerzeichen 

B2BA-B2C2 

B75A-B762 

Control-Buffer für Zeichen, die auf Steuerzeichen folgen 

B2C3-B322 

B763-B7C2 

Steuerzeichentabeile 

(jeweils Zahl der nachfolgenden Zeichen und Ausführadresse) 

B323-B327 


<frei> 


5.1.5 Das RAM des GRAPHIC SCREEN PACK: 


CPC 464 CPC 664/6128 


B328-B329 

B693-B694 

Origin, X-Wert 

B32A-B32B 

B695-B696 

Origin, Y-Wert 

B32C-B32D 

B697-B698 

Cursorposition, X-Wert 

B32E-B32F 

B699-B69A 

Cursorposition, Y-Uert 

B330-B331 

B69B-B69C 

linke Window-Grenze 

B332-B333 

B69D-B69E 

rechte Window-Grenze 

B334-B335 

B69F-B6A0 

obere Window-Grenze 

B336-B337 

B6A1-B6A2 

untere Window-Grenze 

B338 

B6A3 

PEN-Farbmake 

B339 

B6A4 

PAPER-Farbmaske 

B33A-B341 


Zwischenspeicher für Zeichenmatrix 

B33A-B33B 


kleinere Schrittweite für Linie 

B33C-B33D 


größere Schrittweite für Linie 

B33E-B33F 


Differenz-Divisionsrest für Linie 

B340-B341 


kleinere Breite für Linie 

B342-B343 

B6A5-B6A6 

X-Startwert bzw. laufender X-Wert 

B344-B345 

B6A7-B6A8 

Y-Startwert bzw. laufender Y-Wert 

B346 


SFF = X-Differenz bei Linie ist größer 

B347-B34B 


<frei> 


B6A9-B6AA 

kleinere minus größere Differenz 


B6AB-B6AC 

kleinere Differenz 


B6AD 

Vorzeichen der X-Differenz 


B6AE 

Vorzeichen der Y-Differenz 


B6AF 

Flag für größere Differenz 


B6B0-B6B1 

größere Breite (Differenz+1) 


B6A5-B6A6 

GRA FILL-Bufferadresse 


B6A7-B6A8 

restliche Bufferlänge 


B6A9 

SFF = Buffer-Platz reicht aus 


B6AA 

Farbmaske der Füll-Farbe 


B6AB 

SFF = rechte Seite, S00 = linke Seite 


B6AC-B6AD 

alte obere Y-Grenze 


B6AE-B6AF 

neue untere Y-Grenze 


B6B0-B6B1 

neue obere Y-Grenze 


B6B2 

Flag für 1. Pixel einer Linie 


B6B3 

Linienmaske (MASK) 


B6B4 

Hintergrund-Modus 

SFF = transparent 
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5.1.6 Das RAM des KEYBOARD MANAGER: 

CPC 464 

CPC 664/6128 

B34C-B39B 

B496-B4E5 

KEY TRANSLATION TABLE 

B39C-B3EB 

B4E6-B535 

KEY SHIFT TABLE 

B3EC-B43B 

B536-B585 

KEY CONTROL TABLE 

B43C-B445 

B586-B58F 

Key Repeat Table 

B446-B4DD 

B590-B627 

Expansion String Buffer 

B4DE 

B628 

lfd. Exp String Count 

B4DF 

B629 

lfd. Exp String Code 

B4E0 

B62A 

Put Back Buffer 

B4E1-B4E2 

B62B-B62C 

Start des Exp String Buffers 

B4E3-B4E4 

B62D-B62E 

Ende des Exp String Buffers 

B4E5-B4E6 

B62F-B630 

Anfang des freien Exp String Buffers 

B4E7 

B631 

Shift Lock Flag (b7=1 f. Shift Lock) 

B4E8 

B632 

Caps Lock Flag (b7=1 f. Caps Lock) 

B4E9 

B633 

Startwert f. Wiederholungsverzögerung 

B4EA 

B634 

Startwert f. erste Verzögerung 

B4EB-B4F4 

B635-B63E 

Key State Map, Tabelle der neuen Tastenrückmeldungen 

B4F5-B4FE 

B63F-B648 

Tabelle der direkten Zeilenrückmeldungen 

B4FF-B508 

B649-B652 

Tabelle der positiven Zeilenrückmeldungen 

B509 

B653 

lfd. Verzögerungszähler 

B50A-B50B 

B654-B655 

Tastenkoordinaten der höchsten Taste 

B50C 

B656 

Break Flag, 0 = Break-Event wird nicht eingehängt 

B50D-B513 

B657-B65D 

Break Event Block 

B514-B53B 

B65E-B685 

Ringbuffer für Tastenkoordinaten 

B53C 

B686 

Anzahl der freien Einträge im Ringbuffer +1 

B53D 

B687 

Schreibzeiger in Ringbuffer 

B53E 

B688 

Anz. der Einträge im Ringbuffer +1 

B53F 

B689 

Lesezeiger in Ringbuffer 

B540 

B68A 

Anzahl der Einträge im Ringbuffer 

B541-B542 

B68B-B68C 

Adresse der KEY TRANSLATION TABLE 

B543-B544 

B68D-B68E 

Adresse der KEY SHIFT TABLE 

B545-B546 

B68F-B690 

Adresse der KEY CONTROL TABLE 

B547-B548 

B691-B692 

Adresse der Key Repeat Table 

B549-B54F 


<frei> 

5.1.7 Das RAM des SOUND MANAGER 

CPC 464 

CPC 664/6128 

B550 


restliche Aktivitäten 

B551 

Bl ED 

alte Aktivitäten 

B552 

Bl EE 

laufende Aktivitäten 

B553 

Bl EF 

Frequenzteiler (300Hz/3=100Hz) 

B554 

Bl FO 

Flag, zeigt an, ob ein Kanal bearbeitet werden muß 



(in diesem Fall <>0) 

B555-B55B 

Bl Fl-B1F7 

Sound Event Block 

B55C-B59A 

BlF8-B236 

Parameterblock, Kanal A 

B59B-B5D9 

B237-B275 

Parameterblock, Kanal B 

B5DA-B618 

B276-B2B4 

Parameterblock, Kanal C 

B619 

B2B5 

lfd. Kontrollbyte für PSG 

B61A-B709 

B2B6-B3A5 

Lautstärke-HülIkurven, Nummer 1 bis 15 belegen je 16 Bytes 

B70A-B7F9 

B3A6-B495 

Ton-Hüllkurven, Nummer 1 bis 15 belegen je 16 Bytes 

B7FA-B7FF 


<frei> 




Das Betriebssystem-RAM 163 


5.1.8 Das RAM des CASSETTE MANAGER: 

CPC 464 CPC 664/6128 

B800 Bl 18 Meldungs-Flag 

$FF = Meldungen unterdrücken 

B801 Bl 19 $FF = Meldung in zwei Stücke zerteilt 

B802 Bl 1A Eingabefile-Status 

464 664 

0 0 nicht geöffnet 

1 1 gerade eröffnet 

2 5 zeichenweise Datei 

3 2 Direkt-Datei 

4 3 Abbruch durch ESC 

5 4 CAS CATALOG aktiv 

B803-B804 BllB-BllC Adresse des Eingabebuffers 

B805-B806 BIID-BllE laufender Eingabebufferzeiger 

B807-B846 B11F-B15E Buffer für gesuchten Header 

B847 Bl 5 F Ausgabefile-Status 

464 664 

0 0 nicht geöffnet 

1 1 gerade eröffnet 

2 5 zeichenweise Datei 

3 2 Direkt-Datei 

4 3 Abbruch durch ESC 


B848-B849 

Bl60 - Bl 61 

Adresse des Ausgabebuffers 

B84A-B84B 

B162-B163 

laufender Ausgabebufferzeiger 

B84C-B88B 

B164-B1A3 

Buffer für auszugebenden Header 

B88C-B8CB 

B1A4-B1E3 

Buffer für gelesenen Header 

B8CC 

B1E4 

Ein-/Ausgabeflag 

B8CD 

B1E5 

bO: 1 = Eingabe aktiv 
bl: 1 = Ausgabe aktiv 

Block-Kennzeichen 

B8CE 

B1E6 

$2C = Header 
$16 = Daten 

Flanken-Flag für Eingabesignal 

B8CF 

B1E7 

$55 = nicht invertiertes Signal 
$AA = invertiertes Signal 

beim Lesen erkannte Zeitzählergrenze für 2 Flanken 

B8D0 

B1E8 

(abhängig von der Baudrate) 

zu verzögernder Zeitwert (bitverschobene Ausgabe) 

B8D1 

B1E9 

Baudraten-Korrekturzeitwert 

B8D2 

B1EA 

Baudraten-Hauptzeitwert 

B8D3-B8D4 

B1EB-B1EC 

Prüf-Wort für 256 Bytes 

B8D5-B8DB <frei> 

5.1.9 Das RAM des EDITOR: 


CPC 464 CPC 664/6128 

B8DC Bl 14 Flag, =$FF, wenn Copy Cursor=Edit Cursor 

B8DD Bl 15 Insert Flag, =0, wenn Insert Modus an 

B8DE-B8DF Bl 16-Bl 17 Koordinaten des Copy Cursors 
B8E0-B8E3 <frei> 
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5.1.10 Das RAM des FLOATING POINT PACK: 


CPC 464 CPC 664/6128 

B8E4-B8E7 B100-B103 Mantisse der RND-Zahl, normalisiert 

B8E8-B8EC B104-B108 FAC1, Zwischenspeicher f. FLO-Zahl 

B8ED-B8F1 B109-B10D FAC2, Zwischenspeicher f. FLO-Zahl 

B8F2-B8F6 B10E-B112 FAC3, Zwischenspeicher f. FLO-Zahl 

B8F7 Bl 13 RAD/DEG-Flag, =0 f. RAD 

B8F8-B8FF <frei> 



Das BASIC-System-RAM 165 


5.2 Das BASIC-System-RAM 

CPC 464 CPC 664/6128 


AC00 

AC00 

Flag für Spaces bei Token-Wandlung 

0 = alle Spaces werden übernoranen 

sonst: überflüssige Spaces werden unterdrückt 

AC01-AC1B 


User-Vektoren: 

AC01 


Eingabeschleife 

AC04 


Fehlerbehandlung 

AC07 


Befehl ausführen 

ACOA 


Funktionsauswertung 

ACOD 


Operanden-Auswertung 

AC10 


Item tokenisieren 

AC13 


Item wieder nach ASCII 

AC16 


Variable/Keyword mit Buchstaben tokenisieren 

AC19 


Keyword zu einem Token suchen 

ACIC 

AC01 

Flag für AUTO aktiv 

AC1D-AC1E 

AC02-AC03 

AUTO-Zeilennummer 

AC1F-AC20 

AC04-AC05 

AUTO-Schrittweite 

AC21 

AC06 

aktuelle Streamnummer 

AC22 

AC07 

aktueller Eingabekanal 

AC23 

AC08 

aktuelle Druckerposition 

AC24 

AC09 

Ausgabebreite (WIDTH) für Drucker 

AC25 

ACOA 

aktuelle Position für Kassette 


ACOB 

0 = ON BREAK CONT aktiv 

SFF = Unterbrechung durch ESC erlaubt 

AC26 

ACOC 

Flag für NEXT-Routine 

0: Test auf Schleifenende 

SFF: Schleifendurchlauf 

AC27-AC2B 

AC0D-AC11 

Zwischenspeicher für FOR-Startwert 

AC2C-AC2D 

AC12-AC13 

Zeiger nach zugehörigem NEXT-Token 

AC2E-AC2F 

AC14-AC15 

Zeilenadresse des zugehörigen WENDs 

AC30 

AC16 

Flag für Bearbeitung der synchronous Events: 


bO: 1 = Abbruch, Ausgabe von "Break" 
bl: 1 = Basic-Unterprogramm ausführen 
b2: 1 = ESC-Abbruch ermöglichen 

b6: 1 = Schleife beenden 

b7: 0 = KL DONE SYNC aufrufen 
AC31-AC35 AC17-AC1B Parameter-Block für Break-Event 
AC31 AC17 Priorität des unterbrochenen Events 

AC32-AC33 AC18-AC19 Rücksprung-Basic-PC 

AC34-AC35 AClA-AClB Adresse der ON BREAK-Routine 

AC36-AC37 AC1C-AC1D Zeiger auf Routinenadresse im Break-Event-Block 

AC38-AC43 AC1E-AC29 Sound-Queue 0, Event-Block 

AC3F-AC43 AC25-AC29 zugehöriger Parameter-Block 

AC3F AC25 Priorität des unterbrochenen Events 

AC40-AC41 AC26-AC27 Rücksprung-Basic-PC 

AC42-AC43 AC28-AC29 Adresse der SQ-Routine 

AC44-AC4F AC2A-AC35 Sound-Queue 1, Event-Block (Aufteilung 

AC50-AC5B AC36-AC41 Sound-Queue 2, Event-Block analog) 

AC5C-AC6D AC42-AC53 Event-Block 0 für EVERY/AFTER 

AC5C-AC61 AC42-AC47 zugehöriger Ticker-Chain-Kopf 

AC69-AC6D AC4F-AC53 zugehöriger Parameter-Block 

AC69 AC4F Priorität des unterbrochenen Events 

AC6A-AC6B AC50-AC51 Rücksprung-Basic-PC 

AC6C-AC6D AC52-AC53 Adresse der AFTER- bzw. EVERY-Routine 

AC6E-AC7F AC54-AC65 Event-Block 1 für EVERY/AFTER (Auftei- 
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AC80-AC91 

AC66-AC77 

Event-Block 2 für EVERY/AFTER lung 

AC92-ACA3 

AC78-AC89 

Event-Block 3 für EVERY/AFTER analog) 

ACA4-ADA5 

ACA8-AD8B 

Buffer für Eingabe und LIST 

ADA6-ADA7 

AD8C-AD8D 

Fehler-Zeilenadresse für ERRL 

ADA8-ADA9 

AD8E-AD8F 

Zeiger auf Anfang des Statements, 
in dem der letzte Fehler auftrat 

ADAA 

AD90 

AD91 

Nummer des Fehlers für ERRN 

Nummer des Ein-/Ausgabefehlers für DERR 

ADAB-ADAC 

AD92-AD93 

Basic-PC nach Abbruch für CONT 

ADAD-ADAE 

AD94-AD95 

Zeilenadresse nach Abbruch für CONT 

ADAF-ADBO 

AD96-AD97 

Adresse der ON ERROR-Routine 

ADB1 

AD98 

SFF = ON ERROR-Routine gerade aktiv 

ADB2-ADBA 

AD99-ADA1 

Parameter für SOUND-Befehl 

ADB2 

AD99 

Kanal-Status 

ADB3 

AD9A 

Nummer der ENV-Folge 

ADB4 

AD9B 

Nuuner der ENT-Folge 

ADB5-ADB6 

AD9C-AD9D 

Tonperiode 

ADB7 

AD9E 

Rauschperiode 

ADB8 

AD9F 

Lautstärke 

ADB9-ADBA 

ADAO-ADA1 

Tondauer 

ADBB-ADCA 

ADA2-ADB1 

Parameter für ENV und ENT 

ADCB-ADCF 

ADB2-ADB6 

Zwischenspeicher für Exponenten bei Potenzierung 

ADD0-AE03 

ADB7-ADEA 

1. Offsets der verketteten Variablenlisten für einfache 
Variablen (26 Offsets für die Anfangsbuchstaben "A" bis "Z") 

AE04-AE05 

ADEB-ADEC 

1. Offset für VL der DEF FN-Funktionen 

AE06-AE07 

ADED-ADEE 

1. Offset für VL der REAL-Felder 

AE08-AE09 

ADEF-ADFO 

1. Offset für VL der Integer-Felder 

AEOA-AEOB 

ADF1-ADF2 

1. Offset für VL der String-Felder 

AE0C-AE25 

ADF3-AEOC 

Typen für Variablen ohne Kennzeichen (26 

Typen für Anfangsbuchstaben "A" bis "Z") 

AE26 

AEOD 

0 = Default-Selbstdimensionierung ohne DIM 

AE27-AE28 

AEOE-AEOF 

Zeiger auf gesuchten Variablennamen 

AE29-AE2A 

AE10-AE11 

Zeiger auf bearbeiteten FN-Listeneintrag 

AE2B-AE2C 

AE12-AE13 

Zeiger auf FN-Liste (VL der Funktionsvariablen) 

AE2D 

AE14 

$3B = kein Linefeed nach Eingabe bei INPUT 

AE2E-AE2F 

AE15-AE16 

DATA-Zeilenadresse 

AE30-AE31 

AE17-AE18 

DATA-Zeiger 

AE32-AE33 

AE19-AE1A 

Basic-Stackpointer bei Statementanfang 

AE34-AE35 

AE1B-AE1C 

Zeiger (Basic-PC) auf aktuelles Statement 

bzw. Zeiger auf Basic-Unterprogramm für Event-Bearbeitung 

AE36-AE37 

AE1D-AE1E 

aktuelle Zeilenadresse 

AE 38 

AE 1F 

0 = kein Trace, SFF = Trace 

AE39 

AE20 

Flag für Tokenisierung 

$01 = Befehl mit Zeilennummer 

SFF = Variablenname 

AE3A 

AE21 

0 = keine Zeilenadressen im Programm 

AE3B-AE3C 

AE22-AE23 

Start-Löschadresse für DELETE 

AE3D-AE3E 

AE24-AE25 

zu löschende Länge für DELETE 

AE3F-AE40 

AE26-AE27 

Startadresse des Programms beim Laden 

AE41 

AE28 

0 = CHAIN, sonst CHAIN MERGE 

AE42 

AE29 

Filetyp 

AE43-AE44 

AE2A-AE2B 

Länge des Programns beim Laden 

AE45 

AE2C 

SFF = Programm im Speicher ist geschützt 

AE46-AE6D 

AE2D-AE51 

Buffer für Wandlung nach binär, BCD und ASCII 

AE6E 

AE52 

Zahl der Nachkormastellen für Formatierung 

AE6F 

AE 53 

AE54 

Zahl der Vorkommastellen für Formatierung 

Währungs-Zeichen (Dollar oder Pfund) 
für Formatierung bei PRINT USING 
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AE70-AE71 


Buffer-Endzeiger für Wandlung nach ASCII 

AE72-AE73 

AE55-AE56 

Adresse der CALL-/RSX-Rout ine 

AE74 

AE57 

ROM-Konfiguration für CALL-/RSX-Aufruf 

AE75-AE76 

AE58-AE59 

Basic-PC bei CALL-/RSX-Aufruf 

AE77-AE78 

AE5A-AE5B 

Stackpointer bei CALL-/RSX-Aufruf 

AE 79 

AE5C 

Tabulatorweite (ZONE) 

AE7A 

AE5D 

Flag für keine Ausgabe bei Ende des PRINT 

US ING-Formatstrings 

AE7B-AE7C 

AE5E-AE5F 

HIMEM-Zeiger 

AE7D-AE7E 

AE60-AE61 

Hi-RAM, Ende des freien RAMs 

AE7F-AE80 

AE62-AE63 

Lo-RAM (Token-Buffer-Zeiger) 

AE81-AE82 

AE64-AE65 

Zeiger auf Prograrranstart 

AE83-AE84 

AE66-AE67 

Zeiger auf Programmende 

AE85-AE86 

AE68-AE69 

Zeiger auf VariabLenstart 

AE87-AE88 

AE6A-AE6B 

Zeiger auf Start der Felder 

AE89-AE8A 

AE6C-AE6D 

Zeiger auf Ende der Felder 


AE6E 

$FF = Variablenbereich ist geschützt 

AE8B-B08A 

AE6F-B06E 

Basic-Software-Stack 

B08B-B08C 

B06F-B070 

Basic-Stackpointer 

B08D-B08E 

B071-B072 

Start der Strings 

B08F-B090 

B073-B074 

Ende der Strings 

B091 

B075 

Ein-/Ausgabebuffer-Status 



bO: 1 = Eingabebuffer benutzt 
bl: 1 = Ausgabebuffer benutzt 

b2: 1 = Bereich für Ein- und Ausgabebuffer reserviert 

B092-B093 

B076-B077 

Zeiger vor Ein-/Ausgabebuffer 

Zeiger auf Ein-/Ausgabebuffer 

B094-B095 

B078-B079 

Zwischenspeicher für Hi-RAM bei Reservierung des 

Ein-/Ausgabebuffer-Bereichs 

Zwischenspeicher für HIMEM+1 bei Reservierung des 

Ein-/Ausgabebuffer-Bereichs 

B096-B097 


Zwischenspeicher für Hi-RAM bei Reservierung eines 

User-Matrizen-Bereichs 

B098-B099 

B07A-B07B 

Offset für St ringbereich-Verschiebung beim Ändern von HIMEM 

B09A-B09B 

B07C-B07D 

Stringdescriptor-Stackpointer 

B09C-B0B9 

B07E-B09B 

Stringdescriptor-Stack 

BOBA-BOBC 

B09C-B09E 

aktueller Stringdescriptor 

BOBA 

B09C 

St ring länge 

BOBB-BOBC 

B09D-B09E 

Stringadresse 

BOBD-BOBE 


Zeiger auf Ende des Descriptors der höchsten Stringadresse be 
Garbage collection 

BOBF-BOCO 


höchste Stringadresse bei Garbage collection 

B0C1-B0C6 

B09F-B0A4 

Fließkemna-, Integer- oder Stringakkumulator (FAC) 

BOC1 

B09F 

Typ des FAC 



2 = Integer 

3 = String 

5 = Fließkomma (REAL) 

B0C2-B0C3 

B0A0-B0A1 

Integerzahl 

B0C2-B0C3 

BOAO-BOA1 

Zeiger auf Stringdescriptor 

B0C2-B0C6 

B0A0-B0A4 

REAL-Zahl 

B0C7-B0FF 

B0A5-B0FF 

<frei> 
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RAM 464 664 6128 Routine 


0000 0000 0000 RSTO: System Reset 
0008 0008 0008 RSTl: LO JUMP 
000B 000B 000B LO PCHL 
000E OOOE 000E JP (BC) 

0010 0010 0010 RST2: LO SIDE CALL 
0013 0013 0013 KL SIDE PCHL 
0016 0016 0016 JP (DE) 

0018 0018 0018 RST3: LO FAR CALL 
001B 001B 001B KL FAR PCHL 
001E 001E 001E JP (HL) 

0020 0020 0020 RST4: RAM LAM 
0023 0023 0023 KL FAR CALL 
0028 0028 0028 RST5: FIRM JUMP 
0030 0030 0030 RST6: USER 
0038 0038 0038 RST7: INTERRUPT 
003B 003B 003B EXT INTERRUPT VECTOR 
0044 0044 0044 Restore Hi Kernel Jumps 
BCC8 005C 005C 005C KL CHOKE OFF 
0077 0077 0077 Reset cont'd 2 
BDOD 0099 0099 0099 KL TIME PLEASE 
BD10 00A3 00A3 00A3 KL TIME SET 
00B1 00B1 00B1 Scan Events 

00E8 00E8 00E8 async., not Express Events einhängen 
01OA 010A 01OA async. PQ und Ticker Chain bearbeiten 
0153 0153 0153 KL KICK EVENT 
BCD7 0163 0163 0163 KL NEW FRAME FLY 

BCDA 016A 016A 016A KL ADD FRAME FLY 

BCDD 0170 0170 0170 KL DELETE FRAME FLY 
BCEO 0176 0176 0176 KL NEW FAST TICKER 

BCE3 017D 017D 017D KL ADD FAST TICKER 

BCE6 0183 0183 0183 KL DELETE FAST TICKER 
0189 0189 0189 Ticker Chain bearbeiten 
BCE9 01B3 01B3 01B3 KL ADD TICKER 
BCEC 01C5 01C5 01C5 KL DELETE TICKER 
BCEF 01D2 01D2 01D2 KL INIT EVENT 
BCF2 01E2 01E2 01E2 KL EVENT 

020A 0209 0209 Event wiederholt ausführen 
BCFE 021A 0219 0219 KL DO SYNC 

021C 021B 021B Event ausführen 
0223 0222 0222 Near Address Routine ausführen 
BCF5 0228 0227 0227 KL SYNC RESET 

022F 022E.022E Synchronous Event einhängen 
BCFB 0256 0255 0255 KL NEXT SYNC 

BD01 0277 0276 0276 KL DONE SYNC 

BCF8 0285 0284 0284 KL DEL SYNCHRONOUS 
BDOA 028E 028D 028D KL DISARM EVENT 

BD04 0295 0294 0294 KL EVENT DISABLE 

BD07 029B 029A 029A KL EVENT ENABLE 

BCD1 02A1 02A0 02A0 KL LOG EXT 

BCD4 02B2 02B1 02B1 KL FIND COMMAND 
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02 F4 

02 Fl 

02 Fl 

RSX-String in ROM suchen 

BCCB 

0329 

0326 

0326 

KL ROM WALK 

BCCE 

0332 

0330 

0330 

KL INIT BACK 


0363 

0369 

0369 

Koppeladresse suchen 


0373 

0379 

0379 

Add Event 


0382 

0388 

0388 

Delete Event 

BD5B 



0397 

KL RAM SELECT 


0391 

0397 

03A6 

wird ab B900 ins RAM kopiert 

bi s 

0579 

05 7A 

0589 



B900 

B900 

B900 

KL U ROM ENABLE 


B903 

B903 

B903 

KL U ROM DISABLE 


B906 

B906 

B906 

KL L ROM ENABLE 


B909 

B909 

B909 

KL L ROM DISABLE 


B90C 

B90C 

B90C 

KL ROM RESTORE 


B90F 

B90F 

B90F 

KL ROM SELECT 


B912 

B912 

B912 

KL CURR SELECTION 


B915 

B915 

B915 

KL PROBE ROM 


B918 

B918 

B918 

KL ROM DESELECT 


B91B 

B91B 

B91B 

KL LDIR 


B91E 

B91E 

B91E 

KL LDDR 


B921 

B921 

B921 

KL POLL SYNCHRONOUS 



B92A 

B92A 

KL SCAN NEEDED 


B939 

B941 

B941 

INTERRUPT ENTRY CONT'D 


B970 

B970 

B970 

EXT INTERRUPT ENTRY 


B97C 

B984 

B984 

KL LO PCHL CONT'D 


B982 

B98A 

B98A 

KL LO JUMP CONT'D 


B9A8 

B9B0 

B9B0 

Sprung nach DE ausführen 


B9B1 

B9B9 

B9B9 

KL FAR PCHL 


B9B9 

B9C1 

B9C1 

KL FAR CALL 


B9BF 

B9C7 

B9C7 

KL LO FAR CALL CONT'D 


BAI 0 

BAI 7 

BAI 7 

KL SIDE PCHL CONT'D 


BA16 

BAlD 

BA1D 

KL LO SIDE CALL CONT'D 


BA2E 

BA35 

BA35 

KL FIRM JUMP CONT'D 


BA4A 

BA51 

BA51 

KL L ROM ENABLE 


BA54 

BA58 

BA58 

KL L ROM DISABLE 


BA5E 

BA5F 

BA5F 

KL U ROM ENABLE 


BA68 

BA66 

BA68 

KL U ROM DISABLE 


BA72 

BA70 

BA70 

KL ROM RESTORE 


BA7E 

BA79 

BA79 

KL ROM SELECT 


BA83 

BA7E 

BA7E 

KL PROBE ROM 


BA8C 

BA87 

BA87 

KL ROM DESELECT 


BA92 

BA8D 

BA8D 

ROM-Nummer schreiben 


BAA2 

BA9D 

BA9D 

KL CURR SELECTION 


BAA6 

BAA1 

BAA1 

KL LDIR 


BAAC 

BAA7 

BAA7 

KL LDDR 


BAB2 

BAAD 

BAAD 

ROMS transparent abschalten 


BACB 

BAC6 

BAC6 

KL RAM LAM, HL 


BADC 

BAD 7 

BAD 7 

KL RAM LAM, IX 


0580 

05 7B 

0591 

RESET CONT’D 


05B4 

05AF 

05C5 

CRTC-Uerte, 50Hz 


05C4 

05BF 

05D5 

CRTC-Werte, 60Hz 

BDI 3 

05DC 

05D7 

05ED 

MC BOOT PROGRAM 

BDI 6 

060B 

0609 

061F 

MC START PROGRAM 


065C 

0657 

0677 

Einschalt-Meldung ausgeben 


066D 

066E 

0688 

Einschaltmeldung 
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06E8 

06E9 

06F9 

Ladefehler-Meldung ausgeben 


06EB 

06EC 

06FC 

Meldung ausgeben 


06F4 

06F5 

0705 

Ladefehler-Meldung 


0712 

0713 

0723 

Firmennamen-Adresse holen 


0727 

0728 

0738 

Firmennamen 


0775 



JP (HL) 

BD1C 

0776 

0766 

0776 

MC SET MODE 

BD22 

0786 

0776 

0786 

MC CLEAR INKS 

BD25 

0799 

077C 

078C 

MC SET INKS 


07AB 

079A 

07AA 

Farbwert in Gate Array schreiben 

BDI 9 

07BA 

07A4 

07B4 

MC WAIT FLYBACK 

BDI F 

07C6 

07B0 

07C0 

MC SCREEN OFFSET 

BD28 

07E6 

07D0 

07E0 

MC RESET PRINTER 


07EC 

07E1 

07F1 

Indirection für MC WAIT PRINTER 



07E7 

07F7 

Printer translation table 

BD58 


07FC 

080C 

MC PRINT TRANSLATION 

BD2B 

07F2 

080B 

081B 

MC PRINT CHAR 


07F8 

0825 

0835 

MC WAIT PRINTER 

BD31 

0807 

0834 

0844 

MC SEND PRINTER 

BD2E 

081B 

0848 

0858 

MC BUSY PRINTER 

BD34 

0826 

0853 

0863 

MC SOUND REGISTER 


0846 

0873 

0883 

Scan Keyboard 

BD37 

0888 

08BB 

08 BD 

JUMP RESTORE 


08AC 

08DC 

08DE 

Default-Adressentabelle 


0A8A 

OABO 

0AB4 

Indirections kopieren 

BBFF 

OAAO 

OABB 

OABF 

SCR INITIALIZE 

BC02 

0AB1 

OACC 

OADO 

SCR RESET 

BCOE 

OACA 

0AE5 

0AE9 

SCR SET MODE 

BC11 

OAEC 

0B08 

OBOC 

SCR GET MODE 


0AF2 

OBOE 

OB 12 

Mode 1 einschalten 

BC14 

0AF7 

0B13 

0B17 

SCR MODE CLEAR 


OB11 

0B2D 

0B31 

Bitmasken laden, Mode einschalten 

BC05 

0B3C 

0B33 

0B37 

SCR SET OFFSET 

BC08 

0B45 

0B38 

0B3C 

SCR SET BASE 

BD55 


0B41 

0B45 

SCR SET POSITION 

BCOB 

0B50 

0B52 

0B56 

SCR GET LOCATION 

BC17 

0B57 

0B59 

0B5D 

SCR CHAR LIMITS 

BC1A 

0B64 

0B66 

0B6A 

SCR CHAR POSITION 


0B95 

0B97 

0B9B 

Window-Parameter berechnen 

BC1D 

0BA9 

OBAB 

OBAF 

SCR DOT POSITION 



0BF2 

0BF6 

Masken für Pixel holen 

BC20 

0BF9 

0C01 

0C05 

SCR NEXT BYTE 

BC23 

0C05 

OCOD 

0C11 

SCR PREV BYTE 

BC26 

0C13 

OClB 

OC 1F 

SCR NEXT LINE 

BC29 

0C2D 

0C35 

0C39 

SCR PREV LINE 

BC59 

0C49 

0C51 

0C55 

SCR ACCESS 


0C68 

0C6O 

0C71 

SCR WRITE 

BC5C 

0C6B 

0C70 

0C74 

SCR PIXELS, Pixles forcieren 


0C72 

0C76 

0C7A 

XOR-Verknüpfung, Pixels invertieren 


OC 77 

0C7B 

0C7F 

AND-Verknüpfung, Pixels löschen 


0C7D 

0C81 

0C85 

OR-Verknüpfung, Pixels setzen 


0C82 

0C86 

0C8A 

SCR READ 

BC2C 

0CB6 

0C8A 

0C8E 

SCR INK ENCODE 

BC2F 

OCAO 

0CA3 

0CA7 

SCR INK DECODE 


OCAC 

OCAE 

0CB2 

Farbstift-Nummer berechnen 


0CC2 

0CC4 

0CC8 

Farbstiftnummer konvertieren 
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0CD2 

0CD4 

0CD8 

BC3E 

0CE4 

0CE6 

OCEA 

BC41 

0CE8 

OCEA 

OCEE 

BC32 

OCEC 

OCEE 

0CF2 

BC38 

0CF1 

0CF3 

0CF7 


ODOA 

ODOC 

OD 10 

BC35 

OD14 

0D16 

OD 1A 

BC3B 

0D19 

0D1B 

OD 1F 


0D2F 

0D31 

0D35 


0D3C 

0D3E 

0D42 


0D4F 

0D51 

0D55 


0D5B 

0D5D 

0D61 


0D6D 

0D6F 

0D73 


0D81 

0D83 

0D87 


0D93 

0D95 

0D99 

BC44 

0DB3 

0DB5 

0DB9 

BC47 

0DB7 

0DB9 

ODBD 

BC4A 

ODDF 

0DE1 

0DE5 

BC4D 

ODFA 

ODFC 

0E00 


0E24 

0E26 

0E2A 


0E37 

0E39 

0E3D 

BC50 

0E3E 

0E40 

0E44 


0EA4 

0EA6 

OEAA 


0EE6 

0EE8 

OEEC 

BC53 

0EF3 

0EF5 

0EF9 

BC56 

0F49 

0F26 

0F2A 

BC5F 

0FC4 

0F8F 

0F93 

BC62 

102F 

0F97 

0F9B 



0FA9 

OFAD 



OFBE 

0FC2 



1012 

1016 



1037 

103B 


104D 

104E 

1052 

BB4E 

1078 

1070 

1074 

BB51 

1088 

1080 

1084 


10A3 

109B 

109F 


10B7 

10AF 

10B3 


10D5 

10CD 

10D 1 

BBB4 

10E8 

10EO 

10E4 

BBB7 

1107 

10 F F 

1103 


1122 

111A 

111E 


112A 

1122 

1126 


113D 

1135 

1139 

BB6F 

115E 

1156 

115A 

BB72 

1169 

1161 

1165 

BB75 

1174 

116C 

1170 

BB78 

1180 

1178 

117C 


11SA 

1182 

1186 


1197 

118F 

1193 


11A8 

11AO 

11A4 


11 AB 

11A3 

11A7 

BB87 

11CE 

11C6 

11 CA 


11DA 

11D2 

11D6 

BB66 

120C 

1204 

1208 


1244 

123C 

1240 


124D 

1245 

1249 

BB69 

1256 

124E 

1252 


FarbtabeLlen initialisieren 

SCR SET FLASHING 

SCR GET FLASH ING 

SCR SET INK 

SCR SET BORDER 

Adresse in Farbmatrix berechnen 

SCR GET INK 

SCR GET BORDER 

Farbtabellenadressen holen 

Farbwechsel-Event-Block einhängen 

Farbwechsel-Event-Block aushängen 

Farbwechsel-Event - Routine 

Farbsätze wechseln 

Parameter des lfd. Farbsatzes holen 

Tabelle der Farbwerte entsprechend Nr. 

SCR FILL BOX 

SCR FLOOO BOX 

SCR CHAR INVERT 

SCR HARDWARE ROLL 

Textzeile teilweise füllen 

Offset zu SCR OFFSET addieren 

SCR SOFTWARE ROLL 

Rasterzeile kopieren 

Test auf Übertrag zu RA-Bits 

SCR UNPACK 

SCR REPACK 

SCR HORIZONTAL 

SCR VERTICAL 

Pen- und Linienmaske retten/setzen 
horizontale Linie ziehen 
vertikale Linie ziehen 
Linien-Parameter berechnen 
Default-Farbwerte 

TXT INITIALIZE 
TXT RESET 

alle Windows entsprechend aktuelle Window setzen 
alle Farben decodieren 

alle Farben codieren, Windows auf Default setzen 

TXT STR SELECT 

TXT SWAP STREAMS 

Window-Parameter kopieren 

Adresse der Window-Parameter holen 

Window-Default-Parameter setzen 

TXT SET COLUMN 

TXT SET ROW 

TXT SET CURSOR 

TXT GET CURSOR 

relative in absolute Position wandeln 
absolute in relative Position wandeln 
Cursor invertieren, Position prüfen 
Cursorposition prüfen, ggf. scrollen 
TXT VALIDATE 

Position in Grenzen forcieren 
TXT WIN ENABLE 

Spaltengrenze in zulässigen Bereich bringen 
Zeilengrenze in zulässigen Bereich bringen 
TXT GET WINDOW 
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1263 125B 125F TXT DRAW CURSOR 
1263 125B 125F TXT UNDRAW CURSOR 
BB8A 1268 1261 1265 TXT PLACE CURSOR 
BB8D 1268 1261 1265 TXT REMOVE CURSOR 
BB81 1279 1272 1276 TXT CUR ON 

BB84 1281 127A 127E TXT CUR OFF 

BB7B 1289 1282 1286 TXT CUR ENABLE 

BB7E 129A 1293 1297 TXT CUR DISABLE 

BB90 12A9 12A2 12A6 TXT SET PEN 

BB96 12AE 12A7 12AB TXT SET PAPER 

BB93 12BD 12B6 12BA TXT GET PEN 

BB99 12C3 12BC 12C0 TXT GET PAPER 

BB9C 12C9 12C2 12C6 TXT INVERSE 

BBA5 12D3 12D0 12D4 TXT GET MATRIX 

BBA8 12F1 12FE 1302 TXT SET MATRIX 

BBAB 12FD 12FA 12FE TXT SET M TABLE 

BBAE 132A 1327 132B TXT GET M TABLE 

BB5D 1334 1331 1335 TXT WR CHAR 

134A 1347 134B TXT WRITE CHAR 

1376 1373 1377 Textzeichen-Byte in Bildschirm speichern 
BB9F 137A 1377 137B TXT SET BACK 

BBA2 1387 1384 1388 TXT GET BACK 

1391 138E 1392 Byte setzen, Kopie der Matrix 
139F 139C 13A0 Byte setzen, OR-Verknüpfung 
BB63 13A7 13A4 13A8 TXT SET GRAPHIC 

BB60 13AB 13A8 13AC TXT RD CHAR 

13C0 13BA 13BE TXT UNWRITE 

13E3 13DD 13E1 gepackte Matrix suchen 

BB5A 1400 13FA 13FE TXT OUTPUT 

HOC 1406 140A TXT OJT ACTION 

BB57 144B 144E 1452 TXT VDU DISABLE 

BB54 1451 1455 1459 TXT VDU ENABLE 

BD40 145C 1460 TXT ASK STATE 

145B 1460 1464 Steuerzeichentabelle initialisieren 

146B 1470 1474 Steuerzeichentabelle (Default-Tabelle) 

BBB1 14CB UDO 14D4 TXT GET CONTROLS 

14CF 14D4 14D8 SOUND QUEUE-Parameter für CHR$<7) 

14D8 HDD 14E1 CHR$(7), Ton erzeugen 

14E3 14E8 14EC CHR$(22), Hintergrundmodus setzen 
14E8 14ED 14F1 CHR$(28), Farbstift setzen 

14F1 14F6 14FA CHR$(29), Rand setzen 
14F8 14FD 1501 CHR$(26), Window definieren 

1504 1509 150D CHR$(25), Zeichenmatrix definieren 

150F 1513 CHR$(0) 

150A 1515 1519 CHR$(8), Cursor left 
150F 151A 151E CHR$(9), Cursor right 
1514 151F 1523 CHR$(10), Cursor down/Line feed 
1519 1524 1528 CHR$(11), Cursor up 
152A 1535 1539 CHR$(30), Cursor home 
1530 153B,153F CHR$(13), Carriage return 

1538 1543 1547 CHR$(31), Cursorposition setzen 
BB6C 1540 154B 154F TXT CLEAR WINDOW, CHR$(12) 

154F 155A 155E CHR$(16), Zeichen unter dem Cursor löschen 
1556 1561 1565 CHR$(20), Bildschirm ab Cursor löschen 
156D 1574 1578 CHR$(19), Bildschirm bis Cursor löschen 
1584 158 b 158F CHR$(18), Zeile ab Cursor löschen 

158E 1595 1599 CHR$(17), Zeile bis Cursor löschen 
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BBBA 15B0 15A4 15A8 GRA INITIALIZE 

15D6 15CA 15CE Graphik-Pen und Paper decodieren 
BBBD 15DF 15D3 15D7 GRA RESET 

BD43 15E8 15EC GRA DEFAULT 

BBC3 15F1 15F7 15FB GRA MOVE RELATIVE 

BBCO 15F4 15FA 15FE GRA MOVE ABSOLUTE 

BBC6 15 FC 1602 1606 GRA ASK CURSOR 

BBC9 1604 160A 160E GRA SET ORIGIN 

BBCC 1612 1618 161C GRA GET ORIGIN 

161A 1620 1624 reale Cursorkoordinaten holen 
161D 1623 1627 Cursor setzen, reale Koordinaten holen 
BD4F 1626 162A GRA FROM USER 

1657 1659 165D Cursor-relative in absolute Koordinaten umrechnen 
1664 Test, ob Koordinaten für vertikale Linie innerhalb Grenzen sind 

16B0 Test, ob Koordinaten für horizont. Linie innerhalb Grenzen sind 

1666 166A Test, ob X-Koordinate im Window 

167C 1680 Test, ob Y-Koordinate im Window 

16FC 1690 1694 Test, ob Koordinaten innerhalb Grenzen sind 
BBCF 1734 16A1 16A5 GRA WIN WIDTH 

1760 16CD 16D1 X-Grenze in zulässige Grenzen bringen 
1770 16DD 16E1 Koordinaten halbieren 
BBD2 1779 16E6 16EA GRA WIN HEIGHT 

1792 16FF 1703 Y-Grenze in zulässigen Bereich bringen 
BBD5 17A6 1713 1717 GRA GET WINDOW WIDTH 
BBD8 17BC 1729 172D GRA GET WINDOW HEIGHT 
BBDB 17C5 1732 1736 GRA CLEAR WINDOW 

BBDE 17F6 1763 1767 GRA SET PEN 

BBE4 17FD 176A 176E GRA SET PAPER 

BBE1 1804 1771 1775 GRA GET PEN 

BBE7 180A 1776 177A GRA GET PAPER 

BBED 1810 177C 1780 GRA PLOT RELATIVE 

BBEA 1813 177F 1783 GRA PLOT ABSOLUTE 

1816 1782 1786 GRA PLOT 

BBF3 1824 1790 1794 GRA TEST RELATIVE 

BBF0 1827 1793 1797 GRA TEST ABSOLUTE 

182A 1796 179A GRA TEST 

BBF9 1836 17A2 17A6 GRA LINE RELATIVE 

BBF6 1839 17A5 17A9 GRA LINE ABSOLUTE 

BD4C 17A8 17AC GRA SET LINE MASK 

BD49 17AC 17B0 GRA SET FIRST 

183C 17B0 17b4 GRA LINE 

1887 188B reale Cursorkoordinaten als Startkoordinaten setzen 
1894 1898 Teilline für GRA LINE ziehen 
189A 189E vertikale Teil Linie ziehen 
18E7 18EB horizontale Teil Linie ziehen 
1935 1939 Zweierkomplement von HL bilden 
BBFC 1945 193C 1940 GRA WR CHAR 

19CF 19C0 19C4 Pixel für Buchstaben setzen 
BD46 1901 19D5 GRA SET BACK 

BD52 19D5 1909 GRA FILL 

1A4C 1A50 angrenzende Linien bearbeiten 

1A99 1A9D Parameter für Linie in Buffer speichern 

1AC7 1ACB Parameter für Linie nach anderer Seite in Buffer 

1AE3 1AE7 Linie nach oben ziehen, bis Sperrfarbe 

1AED 1AF1 nach oben gehen, bis Nicht-Sperrfarbe 

1B11 1B15 Linie nach unten ziehen, bis Sperrfarbe 

1B30 1B34 Test, ob Pixel in Sperrfarbe gesetzt ist 

1B3E 1B42 Test, ob Pixel in Sperrfarbe gesetzt ist 
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1B4B 1B4F aktuelle und Grenz-Position berechnen 

BBOO 19E0 1B5C 1B5C KM INITIALIZE 
BB03 1AIE 1B98 1B98 KM RESET 

1A36 Indirection für KM TEST BREAK 

1BB3 1BB3 Indirections des KM 
BB06 1A3C 1BBF 1BBF KM WAIT CHAR 

BB09 1A42 1BC5 1BC5 KM READ CHAR 

1A75 1BF8 1BF8 Put Back Buffer löschen 
BBOC 1A77 1BFA 1BFA KM CHAR RETURN 
BD3D 1BFE 1BFE KM FLUSH 

BB15 1A7B 1C04 1C04 KM EXP BUFFER RESET 

1A81 1C0A 1C0A KM EXP BUFFER CONT'D 

1AB3 1C3C 1C3C Default Expansion Strings 
BBOF 1ABD 1C46 1C46 KM SET EXPAND 

1AE5 1C6A 1C6A Platz für neuen String schaffen 
1B22 1CA7 1CA7 Anzahl der zu verschiebenden Bytes berechnen 
BB12 1B2E 1CB3 1CB3 KM GET EXPAND 

1B3E 1CC3 1CC3 Adresse eines Expansion Strings berechnen 
BB18 1B56 1CDB 1CDB KM WAIT KEY 

BB1B 1B5C 1CE1 1CE1 KM READ KEY 

1BA0 1D25 1D25 Keynummer nach ASCII wandeln 
BB21 1BB3 1D38 1D38 KM GET STATE 

BD3A 1D3C 1D3C KM SET LOCKS 

1BB7 1D40 1D40 Update Key State Map/MC SCAN KEYS 
1C18 1 DA1 1DA1 Tastenkoordinaten in Buffer schreiben 
1C2F 1DB8 1DB8 KM TEST BREAK 

1C48 1 DD 1 1 DD1 Tasten einer Zeile in Buffer schreiben 

BB24 1C5C 1DE5 1DE5 KM GET JOYSTICK 

BB42 1C69 1DF2 1DF2 KM GET DELAY 

BB3F 1C6D 1DF6 1DF6 KM SET DELAY 

BB45 1C71 1DFA 1DFA KM ARM BREAK 

BB48 1C82 1E0B 1E0B KM DISARM BREAK 

BB4B 1C90 1E19 1E19 KM BREAK EVENT 

BB3C 1CA6 1E2F 1E2F KM GET REPEAT 

BB39 1CAB 1E34 1E34 KM SET REPEAT 

BB1E 1CBD 1E45 1E45 KM TEST KEY 

1CCD 1E55 1E55 Adresse und Bitmaske holen 
1CED 1E75 1E75 Ringbuffer initialisieren 
1CFE 1E86 1E86 Eintrag in Buffer schreiben 
1D15 1E9D 1E9D Eintrag aus Buffer lesen 
1D2C 1EB4 1EB4 Zeiger in Ringbuffer berechnen 
BB2A 1D3E 1EC4 1EC4 KM GET TRANSLATE 

BB30 1D43 1EC9 1EC9 KM GET SHIFT 

BB36 1D48 1ECE 1ECE KM GET CTRL 

1D4B 1ED1 1 EDI Tastencode holen 

BB27 1D52 1ED8 1ED8 KM SET TRANSLATE 

BB2D 1D57 1EDD 1EDD KM SET SHIFT 

BB33 1D5C 1EE2 1EE2 KM SET CTRL 

1D5F 1EE5 1EE5 Tastencode setzen 

1D69 1EEF 1EEF KEY TRANSLATION TABLE 

1DB9 1F3F 1F3F KEY SHIFT TABLE 

1E09 1F8F 1F8F KEY CTRL TABLE 

BCA7 1E68 1FE9 1FE9 SOUND RESET 

1E9A 201A 201A Parameter-Blöcke initialisieren 
BCB6 1ECB 2050 2050 SOUND HOLD 
BCB9 1EE6 206B 206B SOUND CONTINUE 
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1F03 

208B 

208B 

Sound Event (asynchronous) 


1F61 

20D7 

20D7 

Scan Sound Queues 

BCAA 

1F9F 

2114 

2114 

SOUND QUEUE 


203A 

219C 

219C 

Datenblock Adresse berechnen 

BCB3 

204A 

21AC 

21AC 

SOUND RELEASE 

BCAD 

206C 

21 CE 

21 CE 

SOUND CHECK 

BCBO 

2089 

21EB 

21EB 

SOUND ARM EVENT 



2209 

2209 

Adresse eines Parameter-Blocks berechnen 


20A8 

2213 

2213 

nächsten Queue-Eintrag holen 


20B7 

2219 

2219 

Kanal aktivieren 


2118 

2280 

2280 

Queue in Haltezustand setzen 



2286 

2286 

Kanal aus lfd. Aktivitäten löschen 


211F 

2290 

2290 

Rendezvous-Bits auswerten 


2175 

22DE 

22DE 

Tondauer, Rauschen und ENV setzen 


21B2 

231B 

231B 

Default ENV-Folge 


21B6 

231F 

231F 

laufende ENV-Gruppe bearbeiten 


21BF 

232B 

232B 

ENV-Gruppe bearbeiten 


2213 

237B 

237B 

PSG-HülIkurve setzen 


223A 

23A2 

23A2 

Kanal deaktivieren 


2246 

23AE 

23AE 

nächste ENV-Gruppe setzen 


225 F 

23C7 

23C7 

laufende ENV-Kurve initialisieren 


2265 

23CD 

23 CD 

ENV-Kurve initialisieren 


2273 

23DB 

23DB 

Lautstärke setzen 


227F 



Kanal ausschalten, aus Aktivität herausnehmen 



23E7 

23E7 

Kanal abschalten 


228B 

23 E8 

23E8 

Kanal an/aus, Rauschen an/aus 


22AB 

2408 

2408 

ENT-Ende bearbeiten 


22C2 

241 F 

241F 

laufende ENT-Gruppe bearbeiten 


22CB 

2428 

2428 

ENT-Gruppe bearbeiten 


2303 

2460 

2460 

nächste ENT-Gruppe aktivieren 


2313 

2470 

2470 

nächste ENT-Gruppe setzen 


2324 

2481 

2481 

Periodendauer setzen 

BCBC 

2338 

2495 

2495 

SOUND AMPL ENVELOPE 

BCBF 

233D 

249A 

249A 

SOUND TONE ENVELOPE 


2340 

249D 

2490 

Hüllkurve kopieren 

BCC2 

2349 

24A6 

24A6 

SOUND A ADDRESS 

BCC5 

234E 

24AB 

24AB 

SOUND T ADDRESS 


2351 

24AE 

24AE 

Adresse der Hüllkurve berechnen 

BC65 

2370 

24BC 

24BC 

CAS INITIALIZE 

BC68 

237F 

24CE 

24CE 

CAS SET SPEED 

BC6B 

238E 

24E1 

24E1 

CAS NOISY 

BC77 

2392 

24E5 

24E5 

CAS IN OPEN 

BC8C 

23AB 

24FE 

24FE 

CAS OUT OPEN 

BC7A 

23FC 

2550 

2550 

CAS IN CLOSE 

BC7D 

2401 

2557 

2557 

CAS IN ABANDON 



256D 

256D 

Ein-/Ausgabebuffer ggf. löschen 

BC8F 

2415 

257F 

257F 

CAS OUT CLOSE 

BC92 

242E 

2599 

2599 

CAS OUT ABANDON 

BC80 

2435 

25A0 

25A0 

CAS IN CHAR 

BC95 

245B 

25 C6 

25C6 

CAS OUT CHAR 


248B 

25 F6 

25 F6 

Eingabestatus setzen 


248E 

25F9 

25F9 

Status setzen 

BC89 

2496 

2603 

2603 

CAS TEST EOF 

BC86 

249A 

2607 2607 

CAS RETURN 

BC83 

24AB 

2618 

2618 

CAS IN DIRECT 


24CF 

263 C 

263C 

Buffer kopieren 

BC98 

24EA 

2653 

2653 

CAS OUT DIRECT 
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BC9B 2528 

2692 

2692 

253 F 

26 AC 

26AC 

25A8 

271A 

271A 

25B5 

2727 

2727 

25C5 

2737 

2737 

25F3 

2760 

2760 

260B 

2778 

2778 

260D 

27AF 

27AF 

2614 

2786 

2786 

2666 

27D8 

27D8 

2673 

27E5 

27E5 

2688 

27FA 

27FA 

2695 

2807 

2807 

270C 

287E 

287E 

2711 

2883 

2883 

2713 

2885 

2885 

271F 

2891 

2891 

2726 

2898 

2898 

2743 

28B5 

28B5 

2760 

28D2 

28D2 

2783 

28F3 

28F3 

278D 

28FD 

28FD 

27A4 

2914 

2914 

27B6 

2926 

2926 

27B F 

292F 

292F 

27C5 

2935 

2935 

BCA1 2836 

29A6 

29A6 

BC9E 283F 

29AF 

29AF 

BCA4 2851 

29C1 

29C1 

2873 

29E3 

29E3 

289D 

2A0D 

2A0D 

28B8 

2A28 

2A28 

28C7 

2 A3 7 

2A37 

28F7 

2A67 

2A67 

2919 

2A89 

2A89 

2923 

2A93 

2A93 

2964 

2 AD 4 

2AD4 

2979 

2AE9 

2AE9 

2990 

2B00 

2B00 

29A6 

2B16 

2B16 

29B0 

2B20 

2B20 

29CD 

2B3D 

2B3D 

29D4 

2B44 

2B44 

29DD 

2B4D 

2B4D 

29F8 

2B68 

2B68 

2A08 

2B78 

2B78 

2A37 

2BA7 

2BA7 

BC6E 2A4B 

2BBB 

2BBB 

BC71 2A4F 

2BBF 

2BBF 

BC74 2A51 

2BC1 

2BC1 

2A72 

2BE2 

2BE2 

2A89 

2BF9 

2BF9 


CAS CATALOG 

Block von Kassette lesen 

Lesefehler auswerten 

falschen Block auswerten 

Namen und Block vergleichen 

Namen vergleichen 

Abbruch behandeln 

Motor ausschalten 

Block auf Kassette schreiben 

Fehler/Abbruch bei Ausgabe auswerten 

Meldung ausgeben, Motor ein 

ggf. auf Abbruch testen 

Meldung, Namen und "block xxx" ausgeben 

Meldung und CR ausgeben 

Meldung am linken Rand & CR ausgeben 

Meldung und Fehlernummer ausgeben 

Meldung am linken Rand ausgeben 

Meldung ausgeben 

Wort und Space ausgeben 

Meldung ausgeben, auf Taste warten 

Cursor auf 1. Spalte setzen 

ggf. Cursor auf nächste Zeile setzen 

Dezimal zahl ausgeben 

auf Großschrift forcieren 

Catalog-Flag holen 

Kassetten-Meldungen 

CAS READ 

CAS WRITE 

CAS CHECK 

Motor ein, Tastatur vorbereiten 
Block pageweise bearbeiten 
eine Page lesen 

eine Page lesen und vergleichen 
eine Page auf Band schreiben 
auf Synchronisation warten 
Synchronisation lesen/auswerten 
Synchronisation schreiben 
Blockendton schreiben 
Bit in Check-Word 'reinmurksen 
Check-Word holen 
Byte einiesen 

auf nächste Flanke warten, ESC testen 

auf nächste Flanke warten 

auf 2. Flanke im Bit warten 

Byte ausgeben 

Bit auf Band schreiben 

nächste Halbwelle ausgeben 

CAS START MOTOR 

CAS STOP MOTOR 

CAS RESTORE MOTOR 

Bandhochlaufzeit verzögern, Abbruch testen 
Verzögerung für Bandhochlaufzeit 
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464 

464 

664 

664 

6128 

6128 


RAM 

ROM 

RAM 

ROM 

RAM 

ROM 


BD3A 

2A98 

BD5B 

2C02 

BD5E 

2C02 

EDIT 




2C42 


2C42 

Zeichen in Buffer übernehmen 


2AC6 


2C48 


2C48 

Editor-Routine anspringen 


2AE0 


2C72 


2C72 

1. Editor-Sprungtabelle 


2B1C 


2CAE 


2CAE 

2. Editor-Sprungtabeüe 


2B2B 


2CFF 


2CFF 

BELL 


2B2F 


2CBD 


2CBD 

CRSR UP 


2B33 


2CC1 


2CC1 

CRSR DUN 


2B37 


2CC5 


2CC5 

CRSR RGHT 


2B3B 


2CC9 


2CC9 

CRSR LEFT 


2B42 


2CD0 


2CD0 

ESC 


2B69 


2CF3 


2CF2 

ENTER 


2B75 


2D03 


2D02 

CUR RGHT, BufferoO 


2B7E 


2D0B 


2D0A 

CUR DOWN, BufferoO 


2B89 


2D15 


2D14 

CTRL - CUR RGHT 


2B92 


2D1E 


2D1D 

CTRL-CUR DOWN 


2B93 


2D1F 


2D1E 

Zeichen in Buffer einfügen 


2BAA 


2D35 


2D34 

CUR LEFT, BufferoO 


2BB3 


2D3D 


2D3C 

CUR UP, BufferoO 


2BBD 


2D46 


2D45 

CTRL-CUR LEFT 


2BC7 


2D50 


2D4F 

CTRL-CUR UP 


2BC8 


2D51 


2D50 

Cursor in Buffer zurück 


2BEB 


2D74 


2D73 

Windowbreite und Cursorspalte holen 


2BF9 


2D82 


2D81 

CTRL-TAB 


2C01 


2D8A 


2D8A 

Zeichen in Buffer schreiben 


2C17 


2D9F 


2D9F 

Zeichen in Buffer einfügen 


2C3D 


2DC3 


2DC3 

DEL 


2C4A 


2DCD 


2DCD 

CLR 


2C6F 


2DF2 


2DF2 

Copy Cursor ausschalten 


2C76 


2DFA 


2DFA 

beide Cursor vergleichen 


2C82 


2E06 


2E06 

neue Copy Cursor-Zeile berechnen 


2C98 


2E17 


2E17 

SHIFT-CUR RGHT 


2C9D 


2E1C 


2E1C 

SHIFT-CUR LEFT 


2CA2 


2E21 


2E21 

SHIFT-CUR UP 


2CA7 


2E26 


2E26 

SHIFT-CUR DOWN 


2CAA 


2E29 


2E29 

Copy Cursor bewegen 


2CCD 


2E4A 


2E4A 

Copy Cursor anschalten 


2CD2 


2E4F 


2E4F 

Copy Cursor ausschalten 


2CD5 


2E52 


2E52 

Copy Cursor isnschalten 


2CEA 


2E65 


2E65 

COPY 


2D29 


2EA2 


2EA2 

Copy Cursor nach rechts 


2D2D 


2EA6 


2EA6 

Copy Cursor nach links 


2D2F 


2EA8 


2EA8 

Copy Cursor verschieben 




2EC1 


2EC1 

Copy Cursor ausgeschaltet? 


2D4A 


2EC7 


2EC7 

Cursor nach links 


2D50 


2ECD 


2ECD 

Cursor nach rechts 


2D54 


2ED1 


2ED1 

Cursor verschieben 


2D67 


2EE4 


2EE4 

Buffer ab HL ausgeben 


2D85 


2F02 


2F02 

Zeichen ausgeben 


2DA8 


2F25 


2F25 

Zeichen ausgeben 


2DD9 


2F56 


2F56 

Zeichen von Tastatur holen 


2DF6 





Adresse aus Tabelle holen 

BD3D 

2E18 

BD5E 

2F91 

BD61 

2F91 

FLO Zahl kopieren 

BD40 

2E29 

BD61 

2F9F 

BD64 

2F9F 

FLO INT nach REAL 
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BD43 

2E55 

BD64 

2FC8 

BD67 

2FC8 

FLO 4-Bytes nach REAL 

BD94 

2E5E 

BDB5 

2FD 1 

BDB8 

2FD 1 

FLO 5-Bytes nach REAL 

BD46 

2E66 

BD67 

2FD9 

BD6A 

2FD9 

FLO REAL nach INTEGER 

BD49 

2E8E 

BD6A 

3001 

BD6D 

3001 

FLO Zahl runden 

BD4C 

2EA1 

BD6D 

3014 

BD70 

3014 

FLO FIX-Funktion 

BD4F 

2EAC 

BD70 

3055 

BD73 

3055 

FLO INT-Funktion 

BD52 

2EB6 

BD73 

305F 

BD76 

305F 

FLO Zahl für Dezimal Wandlung aufbereiten 

BD55 

2F1D 

BD76 

30C6 

BD79 

30C6 

FLO Zahl mit 10 A A multiplizieren 


2F3E 





Restexponent und Zehnerpotenz holen 

BD97 

2F94 

BDB8 

3136 

BDBB 

3136 

FLO RND INITIALIZE 

BD9A 

2FA1 

BDBB 

3143 

BDBE 

3143 

FLO RND SEED 

BD9D 

2FB7 

BD7C 

3159 

BD7F 

3159 

FLO RND-Funktion 

BDAO 

2FE6 

BD88 

3188 

BD8B 

3188 

FLO letzter RND-Wert 


2FFA 


319C 


319C 

neues RND-Word generieren 

BD82 

300F 

BDA3 

31B1 

BDA6 

31B1 

FLO LOG10-Funktion 

BD7F 

3014 

BDAO 

31B6 

BDA3 

31B6 

FLO LOG-Funktion 


3017 


31B9 


31B9 

FLO LOGARITHMUS 


304F 


31EE 


31EE 

Konstanten für LOGARITHMUS 


3081 


3220 


3220 

diverse FLO-Konstanten 

BD85 

3090 

BDA6 

322F 

BDA9 

322 F 

FLO EXP-Funktion 


30C1 


3260 


3260 

Konstanten für EXP, 1. Polynom 


30D5 


3274 


3274 

Konstanten für EXP, 2. Polynom 


30FB 


329D 


329D 

diverse Konstanten für EXP 

BD79 

310A 

BD9A 

32AC 

BD9D 

32AC 

FLO SQR-Funktion 

BD7C 

310D 

BD9D 

32AF 

BDAO 

32AF 

FLO Potenzierung 


3182 


3324 


3324 

Vorzeichen des Ergebnisses bestimmen 

BD76 

31 A3 

BD97 

2F73 

BD9A 

2F73 

FLO PI-Funktion 


31A9 


2F78 


2F78 

Konstante Pi 

BD73 

31 AE 

BD94 

3345 

BD97 

3345 

FLO DEG/RAD 

BD8B 

31B2 

BDAC 

3349 

BDAF 

3349 

FLO COS-Funktion 

BD88 

31BC 

BDA9 

3353 

BDAC 

3353 

FLO SIN-Funktion 


31BD 


3354 


3354 

allgemeine SIN/COS-Funktion 


31EB 


3382 


3382 

Konstanten für SIN/COS 


321D 


33B4 


33B4 

diverse Konstanten für SIN/COS 

BD8E 

3231 

BDAF 

33C8 

BDB2 

33C8 

FLO TAN-Funktion 

BD91 

3241 

BDB2 

33D8 

BDB5 

33D8 

FLO ATN-Funktion 


3257 


33EE 


33EE 

Konstanten für ATN 


32A9 


3440 


3440 

Polynomberechnung mit Arg A 2 


32AC 


3443 


3443 

Polynomberechnung 


32D4 


3469 


3469 

Argument normalisieren für EXP 


32D5 


346A 


346A 

Argument normalisieren für SIN/COS 


32 FD 


35FB 


35FB 

FLO Kehrwert bilden 


3307 


3492 


3492 

Exponenten vergleichen 


330F 


2F8D 


2F8D 

Argument nach FAC1 kopieren 


3316 


2F87 


2F87 

Argument nach FAC3 kopieren 


331D 


3570 


3570 

Zahl quadrieren 


3328 


2F7D 


2F7D 

Konstante 1 holen 


3332 


2F82 


2F82 

Konstante 1 

BD5B 

3337 


349A 


349A 

FLO (HL):=(HL)-(DE) 

BD5E 

333B 

BD7F 

349E 

BD82 

349E 

FLO (HL):=(DE)-(HL) 

BD58 

333 F 

BD79 

34A2 

BD7C 

34A2 

FLO (HL):=(HL)+(DE) 


3340 


3 4 A3 


34A3 

alIgemeine Addition/Subtraktion 


335A 


34BC 


34BC 

Addieren 


3412 





FLO (HL) :=10*(HL) 

BD61 

3415 

BD82 

3577 

BD85 

3577 

FLO (HL) :=(HL)*(DE) 


3450 


35B0 


35B0 

Ergebnismantisse berechnen 


346C 


35CC 


35CC 

Byte mit FLO-Mantisse multiplizieren 


3493 


35F3 


35F3 

Byte mit FLO-Mantisse multiplizieren 
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349B 





FLO (HL):=(HL)/10 

BD64 349E 

BD85 

3604 

BD88 3604 

FLO (HL):=(HL)/(DE) 

3507 


3672 


3672 

byteweise dividieren 

3532 


3690 


3690 

Mantissenverglei ch 

3548 


36AF 


36AF 

Exponenten addieren, Vorzeichen berech. 

356C 


3603 


36D3 

Exponenten holen 

BD67 3578 





FLO (HL):=(HL)*2 A A 

BD6A 359A 

BD8B 

360 F 

BD8E 

360 F 

FLO Vergleich (HL)-(DE) 

BD70 35E8 

BD91 

3727 BD94 

3727 

FLO SGN-Funktion 

BD6D 35F8 

BD8E 

3731 

BD91 

3731 

Vorzeichen invertieren 

3604 





FLO Nachkonmastellen abschneiden 

3614 


3029 


3029 

Nachkonmastellen abschneiden 

363D 


373D 


373D 

FLO Argument rechtsverschieben 

3673 


3773 


3773 

FLO Zahl normalisieren 

36A1 


379C 


379C 

FLO 4-Byte Mantisse nach Real 

36BA 


37B7 


37B7 

Mantisse runden, Vorzeichen eintragen 

36E6 


37E2 


37E2 

Unterlauf, Null setzen 

36EC 


37E8 


37E8 

Überlauf, maximale positive Zahl setzen 

36EE 





Überlauf, maximalen Betrag setzen 

BDA3 3708 


DD2F 


DD2A 

INT Zweierkomp.-Zahl f. DezimalWandlung 






nach signed Binary, Wandlungs-Params 

BDA6 370E 


DD35 


DD30 

INT Dezimalwandlungs-Parameter für 






positive Integerzahl holen 

BDA9 3715 


DD3C 


DD37 

INT signed Binary nach Zweierkomplement 

BDAC 3728 


DD4F 


DD4A 

INT HL:=HL+DE 

BDB2 3730 


DD57 


DD52 

INT HL:=DE-HL 

BDAF 3731 


DD58 


DD53 

INT HL:=HL-DE 

BDB5 3739 


DD60 


DD5B 

INT HL:=HL*DE 

3745 


DD6C 


DD67 

Vorzeichen des Ergebnisses bestimmen 

BDBE 3750 


DD77 


DD72 

Vorzeichen lose Multiplikation 

BDB8 377A 


DDA1 


DD9C 

INT HL:=HL DIV DE 

BDBB 3781 


DDA8 


DD A3 

INT HL:=HL MCO DE 

3789 


DDBO 


DDAB 

INT Division 

BDC1 378C 


DDB3 


DDAE 

vorzeichenlose Division 

37D1 


DDEF 


DDEA 

INT HL:=ABS(HL) 

BDC7 37D4 


DDF2 


DDED 

INT HL:=-HL 

BDCA 37E0 


DDFE 


DDF9 

INT A:=SGN(HL) 

BDC4 37E9 


DE07 


DE02 

INT Vergleich HL-DE 
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5.4 Die Routinen des Basics 


5.4.1 Die Routinen nach Adressen sortiert 


464 

664 

6128 

cooo 

COOO 

COOO 

C006 

C006 

C006 

C03F 

C033 

C033 

C04C 

C040 

C040 

C052 

C046 

C046 

C064 

C058 

C058 


COAF 

COAF 

COCC 

COCD 

COCD 

C0D3 

CODE 

CODE 

C0D6 

C0E1 

C0E1 

CODF 

COEA 

COEA 

CI 02 

C10D 

Ci 0D 

C12B 

C128 

Ci 28 

CI 32 

C12F 

C12 F 


C13 F 

C13 F 

C13E 

C145 

C145 

Ci 62 

C166 

C166 

C16B 

C16F 

C16F 

C17A 

C189 

CI 89 

C18C 

CI 78 

CI 78 

C19D 

CI A4 

CI AI 

C1A2 

C1A9 

C1A6 

CI AF 

C136 

C136 

C1BA 

C1C1 

CI BE 

C1C0 

C1C7 

C1C4 

C1C6 

C1CD 

CI CA 

C1CB 

C1D2 

C1CF 


C1D7 

C1D4 

C1D0 

C1E8 

C1E5 

C1E3 

Ci FE 

Ci FB 

C1F5 

C210 

C20D 

CI FB 

C216 

C213 


C223 

C220 

C20A 

C23C 

C239 

C212 

C227 

C224 

C221 

C24B 

C248 

C22A 

C254 

C251 

C23C 

C265 

C262 

C24B 

C274 

C271 

C24F 

C278 

C275 

C25A 

C283 

C280 


C28C 

C289 


C29B 

C298 

C262 

C2A4 

C2A1 

C267 

C2CA 

C2C7 

C276 

C2AD 

C2AA 

C290 



C29F 

C2D2 

C2CF 


Routine 

Kennungen des Basics 

Basic-Kaltstart 

Meldung des Basics 

Name des ROMs 

Basic-Befehl EDIT 

Eingabeschleife 

normale Zeile holen/auswerten 

"Ready" 

AUTO ausschalten 
AUTO-Zeilennummer setzen 
Basic-Befehl AUTO 
AUTO-Eingabezeile holen 
Basic-Befehl NEW 
Basic-Befehl CLEAR 
Basic-Befehl CLEAR INPUT 
NEW Fortsetzung 

Ausdruckauswertung und I/O initialisieren 

Basic initialisieren 

Basic-Zeiger initialisieren 

Variablen löschen 

Ein-/Ausgabekanäle initialisieren 

neue Streamnutmter setzen 

neue Eingabekanal-Nummer setzen 

aktuelle Streamnunmer holen 

aktuelle Eingabekanalnummer holen 

optionale Streamnumner holen/setzen 

optionale Eingabekanalnurmer holen/setzen 

optionale Eingabekanalnr. transparent setzen/rücksetzen 

optionale Streamnunmer transparent setzen/rücksetzen 

optionale Filenunmer holen 

Filenummer holen 

Byte kleiner A holen 

Bytewert <2 (als Flag) holen 

Basic-Befehl PAPER 

Basic-Befehl PEN 

Basic-Befehl BORDER 

Basic-Befehl INK 

2 Farbwerte holen 

Farbstiftnunmer holen 

Basic-Befehl MODE 

Basic-Befehl CLS 

Window-Nunmer transparent setzen 

Basic-Funktion COPYCHRS 

Basic-Funktion VPOS 

Cursorzeile holen 

Basic-Funktion POS 

horizontale Position für I/O holen 

aktuelle Ausgabe-Breite holen 
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C2B9 

C2EA 

C2E7 

C2BF 



C2D2 

C302 

C2FF 

C2E1 

C311 

C30E 

C2FD 

C32B 

C328 

C312 

C341 

C33E 

C319 

C346 

C343 

C320 

C34D 

C34A 

C327 

C354 

C351 


C363 

C360 

C337 

C380 

C37D 

C341 

C38E 

C38B 

C34E 

C39B 

C398 

C356 

C3A3 

C3A0 

C35C 

C3AB 

C3A8 

C377 

C3C4 

C3C1 

C386 

C3D3 

C3D0 

C392 

C3E5 

C3E2 

C39C 

C3EF 

C3EC 

C3A8 

C3F8 

C3F5 

C3B5 

C3FF 

C3FC 

C3DF 



C3E3 

C42D 

C42A 

C3EA 

C434 

C431 

C3F8 

C43B 

C438 

C414 



C417 

C452 

C44F 


C45F 

C45C 

C424 



C439 

C472 

C46F 

C43C 

C475 

C472 

C453 

C482 

C47F 

C45E 

C495 

C492 

C46F 

C4A4 

C4A1 


C4D3 

C4D0 


C4D6 

C4D3 

C48C 

C4E1 

C4DE 

C4B5 

C509 

C506 


C515 

C512 

C4C6 

C53C 

C539 

C4CB 

C541 

C53E 

C4D0 

C546 

C543 

C4D5 

C54B 

C548 

C4E9 

C547 

C544 

C4EE 

C579 

C576 

C505 

C532 

C52F 

C50A 

C537 

C534 

C51A 

C58F 

C58C 


C59D 

C59A 


C5A1 

C59E 


C5B4 

C5B1 


C5C3 

C5C0 

C529 

C5D7 

C5D4 

C5FB 

C6A5 

C6A2 

C632 

C6DC 

C6D9 

C661 

C705 

C702 

C6C7 

C76A 

C767 


auf Platz in Zeile prüfen 

auf Platz in Zeile prüfen 

Basic-Befehl LOCATE 

Basic-Befehl WINDOW 

Basic-Befehl WINDOW SWAP 

Window-Nummer holen 

Basic-Befehl TAG 

Basic-Befehl TAGOFF 

Koordinaten holen 

Basic-Befehl CURSOR 

I/O initialisieren, String ausgeben 

String ausgeben 

Linefeed ausgeben 

Zeichen ausgeben 

Zeichen ausgeben 

Zeichen ausgeben (ohne LF-Behandlung) 

Bildschirm initialisieren 

Linefeed auf Bildschirm ausgeben 

Cursorspalte holen 

Linefeed an Drucker ausgeben 

Zeichen an Drucker ausgeben 

Druckkopfposition holen, nach A 

Basic-Befehl WIDTH 

Linefeed an Kassette ausgeben 

Zeichen an Kassette ausgeben 

Zeichen zurück in Kassettenbuffer 

Basic-Funktion EOF 

Zeichen von Kassette lesen 

Zeichen einiesen 

Zeichen von Tastatur holen 

auf ESC-Taste prüfen 

ESC-Abbruch einmal ermöglichen 

ESC-Abbruch ggf. einmal ermöglichen 

Break-Event-Rout ine 

nach ESC/Break auf Taste warten 

Basic-Befehl ON BREAK CONT 

ON BREAK CONT ausschalten 

Basic-Befehl ORIGIN 

Basic-Befehl CLG 

Basic-Befehl FILL 

Basic-Befehl DRAW 

Basic-Befehl DRAWR 

Basic-Befehl PLOT 

Basic-Befehl PLOTR 

Basic-Befehl TEST 

Basic-Funktion TESTR 

Basic-Befehl MOVE 

Basic-Befehl MOVER 

Graphik-Koordinaten holen 

Basic-Befehl GRAPHICS 

Basic-Befehl GRAPHICS PEN 

Basic-Befehl GRAPHICS PAPER 

Basic-Befehl MASK 

Basic-Befehl FOR 

Basic-Befehl NEXT 

offene FOR-Schleife suchen 

Stepwert ggf. addieren, Ende prüfen 

Basic-Befehl IF 
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C6E8 

C789 

C786 

C6ED 

C78F 

C78C 

C6F6 

C796 

C793 

C70F 

C7b3 

C7B0 

C72E 

C7D2 

C7CF 

C747 

C7EA 

C7E7 

C776 

C81D 

C81A 

C7B8 

C860 

C85D 

C7E3 

C885 

C882 

C807 

C8B5 

C8B2 

C847 

C8F5 

C8F2 

C861 

C914 

C911 

C879 

C929 

C926 

C8A4 

C954 

C951 

C8B6 

C964 

C961 

C8CB 

C979 

C976 

C8E1 

C99A 

C997 

C8E7 

C9A0 

C99D 

C8ED 

C9A6 

C9A3 

C924 

C9DD 

C9DA 

C940 

C9F8 

C9F5 

C95D 

CA 13 

CAl 0 

C971 

CA25 

CA22 

C979 

CA2D 

CA2A 

C99F 

CA53 

CA50 

C9B1 

CA65 

CA62 

C9C5 

CA79 

CA76 

CA18 

CACC 

CAC9 


CAEF 

CAEC 

CA3B 

CAFC 

CAF9 

CA43 

CB04 

CB01 

CA4C 

CBOD 

CBOA 

CA84 

CB3A 

CB37 

CA85 

CB3B 

CB38 


CB48 

CB45 


CB4C 

CB49 


CB50 

CB4D 

CA8F 

CB54 

CB51 

CA94 

CB58 

CB55 

CADF 

CBAD 

CBAA 

CAEA 

CBB8 

CBB5 

CAF3 

CBC1 

CBBE 

CB18 

CBE9 

CBE6 

CB 23 

CBF4 

CBF1 

CB33 

CC04 

CC01 

CB36 

CC07 

CC04 

CB4F 

CC1F 

CC1C 

CB5A 

CC29 

CC26 

CB65 

CC34 

CC31 


CC3A 

CC37 

CB6B 

CC41 

CC3E 

CB76 

CC4C 

CC49 

CB93 

CC69 

CC66 

CBAB 

CC81 

CC7E 

CBBO 

CC86 

CC83 

CBCO 

CC96 

CC93 

CBD9 

CCAE 

CCAB 

CBE5 

CCBB 

CCB8 


Basic-Befehl GOTO 

Basic-Befehl GOSUB 

GOSUB-Datensatz auf Stack 

Basic-Befehl RETURN 

GOSUB auf Basic-Stack suchen 

Basic-Befehl WHILE 

Basic-Befehl WEND 

offene WHILE-Schleife suchen 

Basic-Befehl ON 

Synchronous Events bearbeiten 

Break-Event Fortsetzung 

Zeilenadresse in Event-Block speichern 

Event-Routine für AFTER/EVERY/SQ 

RETURN Fortsetzung (AFTER/EVERY/SQ) 

RETURN Fortsetzung (ON BREAK) 

Basic-Befehl ON BREAK 
Basic-Befehl DI 
Basic-Befehl EI 

Events für Basic initialisieren 

Event-Block-Gruppe initialisieren 

Basic-Befehl ON SQ 

Adresse des SQ-Event-Blocks holen 

Basic-Befehl AFTER 

Basic-Befehl EVERY 

Basic-Funktion REMAIN 

Event-Block-Adresse berechnen 

zugehöriges NEXT suchen 

zugehöriges WEND suchen 

Eingabezeile für LINE INPUT holen 

Eingabezeile holen 

Buffer ausgeben, Zeile holen 

Zeile von Kassette holen 

Fehlernummer und -zeile initialisieren 

Fehlernurrener setzen 

Fehler entsprechend Byte nach Aufruf melden 
Ausgabe von "Syntax error" 

Ausgabe von "Improper argiment" 

Basic-Befehl ERROR 
Fehler behandeln 
Error-Zeilennummer holen 
"Division by zero" ausgeben 
"Overflow" ausgeben 

"Undefined line xxxxx in yyyyy" ausgeben 
"Undefined line" 

"Break in" Zeilennummer ausgeben 
Meldung mit Zeilennummer ausgeben 
"Break", " in " 

Basic-Befehl STOP 

Basic-Befehl END 

DERR setzen, "Broken in" melden 

"Break" ausgeben, Abbruch behandeln 

Programroende behandeln 

PC und Zeilenadresse für CONT retten 

CONT sperren 

PC und Zeilenadresse für CONT retten 
Basic-Befehl CONT 
ON ERROR ausschalten 
Basic-Befehl ON ERROR 




Die Routinen des Basics 183 


CBF8 CCCD CCCA 
CC03 CCD8 CCD5 
CC19 CCEB CCE8 
CC20 CCF2 CCEF 
CC2B CCFD CCFA 
CC45 CE8F CE8C 
CC5B CD 17 CD 14 
CE67 CEBB CEB8 
CE6D CEC6 CEC3 
CE7C CEDI CECE 
CE86 CEDB CED8 

CEE6 CEE3 
CE91 CEF8 CEF5 
CE9F CF06 CF03 
CEA5 CFOC CF09 
CEBO CF12 CFOF 
CEE1 CF4B CF48 
CEFB CF65 CF62 
CF07 CF70 CF6D 
CF1E CF88 CF85 
CF30 CF9A CF97 
CF59 CFC8 CFC5 
CF81 CFFO CFED 
CFAA D011 DOOE 
CFB9 D020 DOID 
CFC2 D02B D028 
CFCB D036 D033 
CFF2 

DOOD D077 D074 
D02C D095 D092 
D070 D0D4 D0D1 
D080 DODD DODA 
DOAE D105 Dl02 
DOBB Dl 13 Dl 10 
DOCA 

D11A Dl 17 

D12E D12B 
DODC Dl33 D130 
D0E5 D13C Dl39 
DOEE D145 D142 
D0F4 D14B D148 
DOFA D151 D14E 
D107 D164 D161 
D10E D16B D168 
Dl 17 Dl74 D171 
D130 D18D D18A 
D190 DlE8 D1E5 
D1AE D206 D203 
D1EA D242 D23F 
D1EE D246 D243 
D219 D26D D26A 
D246 D299 D296 
D256 D2AB D2A8 
D25F D2B7 D2B4 
D26A D2C1 D2BE 
D273 D2CA D2C7 
D285 D2DE D2DB 
D298 D2F0 D2ED 


Basic-Befehl ON ERROR GOTO 0 
Basic-Befehl RESUHE 
RESUME ohne Parameter 
RESUME NEXT 

Basic-Zeiger für RESUME setzen 
Adresse des Fehlerstrings holen 
Tabelle der Fehlermeldungen 
Byte-Ausdruck holen 
Byte-Ausdruck <>0 holen 
Integer von 0..32767 holen 
Integer von -32768..32767 holen 
Parameter für CALL/RSX holen 
Integer von -32768.-65535 holen 
String holen, vom Stringstack löschen 
Stringausdruck holen 
Zei lennufmternbereich holen 
Zeilennummer holen 
Ausdruck holen 
Teilausdruck holen 
Stringverknüpfung “+" 

Operator behandeln 
Vergleichsoperator auswerten 

Tabelle der Hierarchiecodes und Operatorenadressen 
numerischer Vergleich 
auswerten 
NOT auswerten 
EinzelOperanden holen 
Tabelle für Operandenauswertung 
Variablenwert holen 
Konstantenwert holen 
Ausdruck und ")" holen 
Funktionsauswertung 
Funktion anspringen (Gruppen 1/3) 

Funktion anspringen (Gruppe 2) 

Funktionsadressen, Tokens $40-$48 
Funktionsadressen, Tokens $40-$49 
Basic-Funktion DERR 
Basic-Funktion ERR 
Basic-Funktion TIME 
ERL auswerten 
Basic-Funktion HIMEM 
Variablenadresse nach FAC ("S)") 

Basic-Funktion XPOS 
Basic-Funktion YPOS 
Basic-Befehl DEF 
definierte Funktion auswerten 
Funktionsadressen, Tokens $71-$7F 
Funktionsadressen, Tokens $00-$1D 
Basic-Funktion MIN 
Basic-Funktion MAX 
Basic-Funktion ROUND 
Basic-Befehl CAT 
Basic-Befehl OPENOUT 
Basic-Befehl OPEN IN 
Eingabefile öffnen 
File Öffnen 

File öffnen Fortsetzung 
Basic-Befehl CLOSEIN 
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D2A1 D2F8 
D2AD D303 
D2C0 D316 
D30D D362 
D317 D36C 
D31E D373 
D329 D37E 
D341 D396 
D34E D3A1 
D367 D3BA 
D385 D3D7 
D3AE D400 
D3D8 D428 
D3FF D44F 
D409 D459 
D423 D473 
D439 D489 
D456 D4A3 
D494 D4DE 
D4C3 D508 
D4DB D520 
D4E7 D52C 
D4EB D530 
D4EF D534 
D4F4 D539 
D50A D54F 
D520 D563 
D525 D568 
D52A D56D 
D52F D572 
D534 D577 
D539 D57C 
D53E D581 
D543 D586 
D559 D59C 
D584 05C4 
D5AE D5ED 
D5BE D5FD 
D5C6 D605 
D5D2 

D611 
D5D9 D61A 
D5DB D61C 
D5EA D62A 
D5FC D63B 
D601 D640 
D614 D653 
D618 D657 
D61C D65B 
D64F D68C 
D654 D691 
D666 D6A2 
D67D D6B9 
D686 D6C2 
D690 D6CC 
D6A2 D6DE 
D6B3 D6EF 
D6C8 D704 


D2F5 Basic-Befehl CLOSEOUT 

D300 Kassette/Diskette initialisieren 

D313 Basic-Befehl SOUND 

D35F Bytewert für SOUND holen 

D369 Bytewert kleiner B holen 

D370 Basic-Befehl RELEASE 

D37B Basic-Funktion SQ 

D393 Integer von -128..+127 holen 

D39E Basic-Befehl ENV 

D3B7 Parametergruppe für ENV holen 

D3D4 Basic-Befehl ENT 

D3FD Parametergruppe für ENT holen 

D425 Parametergruppen für ENV/ENT holen 

D44C Integerwert von 0..4095 holen 

D456 Basic-Funktion INKEY 

D470 Basic-Funktion JOY 

D486 Basic-Befehl KEY 

D4A0 Basic-Befehl KEY DEF 

D4DB Basic-Befehl SPEED 

D505 Basic-Befehl SPEED WRITE 

D51D Basic-Funktion PI 

D529 Basic-Befehl DEG 

D52D Basic-Befehl RAD 

D531 Basic-Funktion SQR 

D536 Basic-Operator A 

D54C REAL-Funktion/-Operator ausführen 

D560 Basic-Funktion EXP 

D565 Basic-Funktion LOG10 

D56A Basic-Funktion LOG 

D56F Basic-Funktion SIN 

D574 Basic-Funktion COS 

D579 Basic-Funktion TAN 

D57E Basic-Funktion ATN 

D583 "Random number seed ? " 

D599 Basic-Befehl RANDOMIZE 
D5C1 Basic-Funktion RND 
D5EA Variablenbereich freigeben 
D5FA verkettete Listen der Variablen löschen 
D602 verkettete Listen der Felder löschen 
definierte Funktionen löschen 
D60E definierte Funktionen und Variablenoffsets 
D617 1. Offset der VL der Funktionen holen 

D619 1. Offset der VL der Variablen holen 

D627 1. Offset für VL der Felder holen 

D638 DEFREAL A-Z 
D63D DEF-Typflag in Tabelle 
D650 Basic-Befehl DEFSTR 
D654 Basic-Befehl DEFINT 
D658 Basic-Befehl DEFREAL 
D689 LET bzw. RSX-Wort auswerten 
D68E Basic-Befehl LET 
D69F FAC an Variable zuweisen 
D6B6 Basic-Befehl DIM 
D6BF Variable holen, ggf. neu anlegen 
D6C9 Variable holen, nicht anlegen 
D6DB FN-Eintrag suchen, ggf. anlegen 
D6EC einfache Variable holen, ggf. neu anlegen 
D701 Adresse aus Offset berechnen 


löschen 




Die Routinen des Basics 185 


D6D6 D712 D70F 
D6DE D71A D717 
D708 D744 D740 
D731 D769 D765 
D73D D773 D76F 
D749 D77F D77B 
D760 D7A2 D79E 
D777 D7AC D7A8 
D78A D7BC D7B8 
D7A5 D7D4 D7D0 
D7B5 D7E4 D7E0 
D7DB D80A D806 
D85A D887 D883 
D88A D8B7 D8B3 
D92B D927 
D906 D935 D931 
D92B D962 D95E 
D939 D970 D96C 
D97F D9B3 D9AF 
D999 D9CD D9C9 
D9C0 D9F4 D9F0 
D9CC DAOO D9FC 
D9FD DA24 DA20 
DA07 DA2E DA2A 
DA27 DA4D DA49 
DA30 DA56 DA52 
DA4B DA6E DA6A 
DA74 DA97 DA93 
DACE DAED DAE9 
DAE7 DB06 DB02 
DAF8 DB18 DB13 
DB1A DB36 DB31 
DB2B DB48 DB43 
DB47 DB60 DB5B 
DB77 DB7E DB79 
DB89 DB90 DB8B 
DBAD 

DBB6 DBB1 
DBBC DBC2 DBBD 
DBD3 DBD2 DBCD 
DC02 DBFC DBF7 
DC21 DClA DC15 
DC38 DC31 DC2C 
DC47 DC3D DC38 
DC66 DC5C DC57 
DC6E DC64 DC5F 
DC9D DC93 DC8E 
DCA8 DC9E DC99 
DCC6 DCBA DCB5 
DCDO DCC4 DCBF 
DCD9 DCCD 0CC8 
DCEB DCDF DCDA 
DD17 DDOF DDOA 
DD2F DD2A 
DE1A DE15 
DE1E DE19 
DE22 DE1D 
DE26 DE21 


Variable überlesen, Typ holen 

Variable suchen 

Eintrag in VL suchen 

Variablennamen überlesen 

FN-Ei nt rag neu anlegen 

einfache Variable neu anlegen 

Variablen-Offset ins Programm speichern 

Namenlänge holen, Platz berechnen 

Namen und Typ übertragen 

Eintrag in VL einhängen 

eine Variable dimensionieren 

Variablenadresse holen, auf Feld prüfen 

Indizes holen, auf Basic-Stack 

Feldvariable neu anlegen 

Word vom Basic-Stack holen 

Variablenname und Offset holen 

Variablennamen vom Basic-Stack 

Variablennamen auf Basic-Stack 

Variablentyp entsprechend Token setzen 

VL der Felder neu generieren 

Basic-Befehl ERASE 

ein Feld löschen 

FN-Listenzeiger löschen 

neuen Eintrag in FN-Liste generieren 

Eintrag in FN-Liste einhängen 

Eintrag aus FN-Liste aushängen 

Fünktionsvariable holen, in VL eintragen 

sämtliche Stringvariablen durchgehen 

VL durchgehen, Routine ausführen 

Stringbearbeitungsroutine ausführen 

Basic-Befehl LINE INPUT 

Zeile für LINE INPUT holen 

Basic-Befehl INPUT 

Eingabezeile holen und prüfen 

"?Redo from Start" 

ggf. Text ausgeben, Flags holen 

Eingabezeile von Tastatur holen 

Text für INPUT holen und ausgeben 

Eingabe an Variable zuweisen 

Eingabezeile überprüfen 

Eingabe auswerten 

Eingabestring holen 

numerische Eingabe (von Kassette/Diskette) 

Eingabestring holen (von Kassette/Diskette) 

Eingabezeile (von Kassette/Diskette) holen 

Eingabe bis Trennzeichen holen 

Zeichen holen, " ", TAB, LF überlesen 

Zeichen holen, CR/LF auswerten 

auf Space, TAB, LF, Komma, CR prüfen 

auf Space, TAB, LF prüfen 

Basic-Befehl RESTORE 

Basic-Befehl READ 

nächstes DATA-Element suchen 

Integer-Arithmetik (siehe 5.3) 

Test auf Konma 
Test auf Klanmer auf 
Test auf Klamner zu 
Test auf "=" 
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DD37 

DE2A 

DE25 

DD3F 

DE31 

DE2C 

DD4A 

DE3C 

DE37 

DD51 

DE4C 

DE47 

DD55 

DE46 

DE41 

DD61 

DE52 

DE4D 

DD71 

DE62 

DE5D 

DD74 

DE65 

DE60 

DDAB 

DE94 

DE8F 

DDCB 

DEAF 

DEAA 

DDD2 

DEB6 

DEB1 

DDD6 

DEBA 

DEB5 

DDE2 

DEC6 

DEC1 

DDE6 

DECA 

DEC5 

DDEB 

DECF 

DECA 

DE01 

DEE5 

DEEO 

DEBB 

DFA9 

DFA4 

DEE1 

DFCD 

DFC8 

DF09 DFF1 

DFEC 

DF25 

EOOD 

E008 

DF30 

E017 

E012 

DF35 

E01C 

E017 

DF4E 

E03F 

E03A 

DF89 

E075 

E070 

DFC8 

E0B4 

EOAF 

DFDC 

EOCB 

E0C6 

DFEA 

E0D6 

E0D1 

DFFF 

E0E7 

E0E2 

E04A 

E12B 

El 26 

E05A 

E13B 

El 36 

E080 

E161 

E15C 

E0B3 

E18E 

El 89 

EOBF 

E19A 

El 95 

EOCD 

E1A8 

El A3 

EODF 

E1BA 

E1B5 

E0E6 

E1C1 

E1BC 

EOFO 

E1 CB 

E1C6 

E0F7 

E1D2 

ElCD 

E10D 

E1E8 

E1E3 

E145 

E222 

E21D 


E23D 

E238 

El 63 

E259 

E254 

El 96 

E26B 

E266 

EIDE 

E2AF 

E2AA 

E1E7 

E2B8 

E2B3 

E1 FE 

E2CF 

E2CA 

E205 

E2D6 

E2D1 

E20F 

E2E0 

E2DB 

E21A 

E2EB 

E2E6 


E2F1 

E2EC 

E220 

E2FD 

E2F8 

E253 

E334 

E32F 

E2DD 

E3AD 

E3A8 

E2ED 

E3BD 

E3B8 

E313 

E3DC 

E3D7 

E327 

E3F0 

E3EB 

E354 

E41D 

E418 

E388 

E451 

E44C 


Test auf Zeichen nach Aufruf 
nächstes Zeichen holen 
auf Statementende prüfen 
Test auf Statementende 
Test auf Komma 

Spaces, TABs und LFs überlesen 

Statement nochmals ausführen 

Interpreterschleife 

Befehl ausführen 

Direkt-Modus einschalten 

Zeilenadresse nach HL holen 

Zeilennurmer/Direkt-Modus-Flag holen 

Basic-Befehl TRON 

Basic-Befehl TROFF 

Trace-Rout ine 

Adressen der Basic-Befehle 

Zeile tokenisieren 

ein Item tokenisieren 

Buchstaben auswerten 

Zeichen in Token-Buffer 

Tabelle der Tokens mit Sonderteil 

Zeile bis Statementende übernehmen 

Keyword/Variable tokenisieren 

Variablennamen auswerten 

Befehlstoken behandeln 

Tabelle der Tokens mit Zeilennummer 

Variablentyp feststellen 

Dezimal zahl tokenisieren 

Eingabe bis DE übernehmen 

Hex/Binärzahl tokenisieren 

Sonderzeichen auswerten 

Flag für Variable/Zeilennummer prüfen 

String in Buffer übernehmen 

RSX-Code auswerten 

Kennzeichen für Namen setzen 

. auswerten 

restliche Zeile übernehmen 
Basic-Befehl LIST 
Programmbereich listen 
Zeichen für LIST ausgeben 

Zeile/Zeilennummer für AUTO nach ASCII wandeln 

Basic-Zeile nach ASCII wandeln 

Item nach ASCII wandeln 

Konstante auswerten 

Variable auswerten 

Zeichen in LIST-Buffer 

RSX-Code auswerten 

Namen übertragen 

ggf. Space ausgeben 

REM-Token nach ASCII wandeln 

Keyword-Token nach ASCII wandeln 

Konstante nach ASCII wandeln 

Zeiger in Keyword-Tabelle holen 

Token suchen, Keywordadresse holen 

Token in Tabelle suchen 

String in Keyword-Tabelle suchen 

Adressen der Keyword-Tabellen 

Basic-Keyword-Tabellen 
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E64B 

E73B 

E736 

E676 

E766 

E761 

E687 

E775 

E770 

E69D 

E78B 

E786 

E6BC 



E6D2 

E7AA 

E7A5 

E70B 

E7E9 

E7E4 

E728 

E7F3 

E7EE 

E737 

E805 

E800 

E75A 

E81F 

E81A 

E767 

E82C 

E827 

E79A 

E861 

E85C 

E7A3 

E869 

E864 

E7C1 

E887 

E882 

E7DF 

E8A3 

E89E 

E864 

E925 

E920 

E888 

E949 

E944 

E89F 

E960 

E95B 

E8C1 

E97F 

E97A 

E8EF 

E9A8 

E9A3 

E8F3 

E9AC 

E9A7 

E8F3 

E9B2 

E9AD 

E8F3 

E9B2 

E9AD 

E8FF 

E9BE 

E9B9 

E923 

E9E2 

E9DD 

E935 

E9F4 

E9EF 

E943 

EA02 

E9FD 

E95C 

EA23 

EAlE 

E968 

EA2F 

EA2A 

E978 

EA39 

EA34 


EA4A 

EA45 

E989 

EA52 

EA4D 

E996 

EA5F 

EA5A 

E9BD 

EA7D 

EA78 

E9F6 

EABA 

EAB5 

EAOD 

EAD6 

EAD1 

EA30 

EAF6 

EAF1 

EA3C 

EB02 

EAFD 

EAA6 EB59 

EB54 

EAB5 

EB68 

EB63 


EC01 

EBFC 


ECOE 

EC09 

EB48 

EC1E 

EC19 

EB5E 

EC31 

EC2C 

EB84 

EC50 

EC4B 

EB8F 

EC59 

EC54 

EB9D 

EC67 

EC62 

EBA8 

EC72 

EC6D 

EBEF 

ECBB 

ECB6 

EC09 

ECE1 

ECDC 

EC2C 



EC3D 

ED11 

EDOC 

EC5C 

ED30 

ED2B 

EC87 

ED58 

ED53 

ECA3 

ED74 

ED6F 

ECBE 

ED8F 

ED8A 

ECC6 

ED97 

ED92 

ECCD 

ED9E 

ED99 


Tabelle der Keywords ohne Buchstaben 
Programm löschen 

Zeilenadressen im Programm eliminieren 

Zeilenadressen im Statement durch Zeilennrn. ersetzen 

Eingabezeile auswerten 

Zeile im Programm einfügen 

Bereich aus Programm löschen 

Basic-Befehl DELETE 

Löschbereich für DELETE holen 

Programmbereich für DELETE löschen 

Zeilenadresse holen 

Zeile suchen, ggf. Fehler ausgeben 

Zeile im Programm suchen 

nächsthöhere Zeile suchen 

Basic-Befehl RENUM 

Zeilennummer im Statement ersetzen 

bei Zeilennurmer im Statement Fehler ausgeben 

zugehöriges ELSE suchen 

Arrayindizes ggf. über lesen 

Basic-Befehl DATA 

Basic-Befehl REM 

Basic-Befehl ELSE 

Basic-Befehl 1 

Programm durchgehen, Routine ausführen 

nächstes Statement suchen, Fehler bei Programmende 

Statementende/THEN/ELSE suchen 

nächstes Item suchen 

String über lesen 

Variable überlesen 

Konstante überlesen 

REM bzw. überlesen 

Variablenoffsets löschen 

Offsets im Statement löschen 

Basic-Befehl RUN 

Basic-Befehl LOAD 

1. Block des Programms lesen/auswerteri 

Binärdatei laden 

Basic-Befehl CHAIN 

Basic-Befehl MERGE 

Programm mergen 

Programmzeichen einiesen 

EOF melden 

Zeile aus altem Programm kopieren 

Programmzeile von Kassette/Diskette laden 

Zwei-Byte-Wert von Kassette/Diskette laden 

1. Block des Prograrrms lesen 

normales bzw. ASCII-Programm mergen 

normales bzw. ASCII-Programm laden 

ASCII-Programm laden 

Basic-Befehl SAVE 

Tabelle für SAVE 

SAVE ,P 

SAVE ,B 

SAVE ,A 

ASCII nach binär wandeln 
String in positive Binärzahl wandeln 
String in positive Binärzahl wandeln 
Hex-/Binär-String nach Integer 
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ECDC 

EDAD 

EDA8 

ED44 

EE14 

EEOF 

ED53 

EE23 

EE1E 

ED77 EE47 

EE42 

EDC9 

EE99 

EE94 

EDCE 

EE9E 

EE99 

EE04 

EED4 

EECF 

EE1C 

EEEC 

EEE7 

EE35 

EF05 

EF00 

EE61 

EF31 

EF2C 

EE79 

EF49 

EF44 

EE82 

EF4F 

EF4A 

EE8F 

EF5F 

EF5A 

EE9D 

EF6D 

EF68 

EE9F 

EF6F 

EF6A 

EED4 

EF9B 

EF96 

EEE4 

EFAF 

EFAA 

EF01 

EFCC 

EFC7 

EFOA 

EFD5 

EFDO 

EF20 

EFEB 

EFE6 

EF27 

EFF2 

EFED 

EF88 

F05B 

F056 

EFAO 

F079 

F074 

EFB4 

F08C 

F087 

EFC8 

F09F 

F09A 

EFE1 

F0B9 

F0B4 

EFEF 

F0C7 

F0C2 

FOOE 

F0E3 

FODE 

F025 

F100 

FOFB 

F036 

Fl 18 

Fl 13 

F03D 

Fl 1 F 

Fl 1A 

F050 

F131 

F12C 

F05F 

F14A 

F145 


F14A 

F145 

F069 

F154 

F14 F 

F06F 



F07C 

F1F4 

Fl EF 

F096 

F18C 

F187 

F09B 



F0B7 

F18F 

F18A 

FODD 




F1C6 

FICI 

Fl 14 



Fl 19 




F1E4 

FlDF 

F158 

F20D 

F208 

F15F 

F214 

F20F 

F16D 

F21E 

F219 

Fl 77 

F228 

F223 

F17D 

F22E 

F229 

Fl 94 

F23F 

F23A 

F1A0 

F24A 

F245 

F1BA 

F261 

F25C 

F1BF 

F266 

F261 

F1F2 

F29E 

F299 

F1F6 

F2A2 

F29D 

F1 FD 

F2A9 

F2A4 

F208 




Dezimalstring nach Integer/REAL 

Vorzeichen im String bestinmen 

Ziffernstring nach unpacked BCD wandeln 

dezimalen Exponenten holen/berechnen 

nächstes Zeichen aus Zahl holen 

unpacked BCD nach Binär wandeln 

Zeilennummern-String wandeln 

Hex-/Binärstring nach Integer wandeln 

Dezimalstring nach Integer wandeln 

Ziffernwert berechnen 

positive Integerzahl ausgeben 

positive Integerzahl nach ASCII wandeln 

Zahl nach ASCII, kein positives Vorzeichen setzen 

Zahl nach ASCII, maximal 9 Ziffern 

Zahl formatiert nach ASCII wandeln 

Dezimalpunkt und Exponenten setzen 

normale Exponentialdarstellung 

normale Darstellung 

Zahl mit Nachkommastellen 

Exponentialdarstellung mit maximal 7 Mantissenstellen 

formatierte Exponentialdarstellung 

formatierte Darstellung 

Dezimalpunkt einfügen 

führende Nullen in Buffer 

Zahl runden 

Zahl bei letzter Stelle um 1 erhöhen 
Nullen an Zahl anhängen 
Nachkofrma-Nul len unterdrücken 

Vorkonmastellenzahl ohne Sonderzeichenstellen holen 

Nachkonroastellen (ohne holen 

Kocmia-Eintei lungen setzen 

ggf. führende Null in Buffer 

ggf. führendes "$" in Buffer 

ggf. führendes Währungszeichen setzen 

Vorzeichen setzen 

Zeichen ans Bufferende schreiben 

führende Zeichen vor die Zahl setzen 

Flag für Formatüberlauf setzen 

Vorzeichenflags holen 

Binärzahl nach ASCII-Mantisse wandeln 

Binärzahl nach BCD wandeln 

gepackte BCD-Zahl nach ASCII wandeln 

Zahl nach Binärst ring wandeln 

Zahl nach Hex-String wandeln 

Zahl nach Hex-/Binär-String wandeln 

Basic-Funktion PEEK 

Basic-Befehl POKE 

Basic-Funktion INP 

Basic-Befehl OUT 

Basic-Befehl WAIT 

Adresse und Byte holen 

RSX-Wort auswerten 

Basic-Befehl CALL 

Parameter holen, Routine ausführen 
ZONE-Default setzen 
Basic-Befehl ZONE 
Basic-Befehl PRINT 
PRINT Fortsetzung 
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F224 

F2C8 

F2C3 

F233 

F2D7 

F2D2 

F25C 

F31E 

F319 

F277 

F339 

F334 

F280 

F342 

F33D 

F295 

F357 

F352 

F2A0 

F362 

F35D 

F2AF 

F36E 

F369 

F2C4 

F383 

F37E 

F324 

F3D2 

F3CD 

F350 

F3FC 

F3F7 

F378 

F421 

F41C 

F3A3 

F436 

F431 

F3BA 

F44D 

F448 

F41B 

F4B3 

F4AE 


F507 

F502 

F47B 

F50D 

F508 

F4C4 

F544 

F53F 

F4EF 

F570 

F56B 


F58F 

F58A 

F501 

F5B0 

F5AB 


F5E5 

F5E0 


F5F1 

F5EC 

F51D 

F5FD 

F5F8 

F52C 

F60C 

F607 

F53A 

F61F 

F61A 

F549 

F62E 

F629 

F571 

F63E 

F640 

F58E 

F652 

F64F 

F5A0 

F665 

F662 

F5AC 

F671 

F66E 

F5B0 

F675 

F672 

F5CA 

F68F 

F68C 

F5D1 

F696 

F693 

F5E6 



F5F8 

F6BB 

F6B8 

F618 

F6F1 

F6E5 

F628 

F708 

F6FC 


F713 

F707 



F714 

F632 

F720 

F720 

F637 

F725 

F725 


F72A 

F72A 

F66D 

F759 

F759 

F671 

F75D 

F75D 

F675 

F761 

F761 

F69D 

F784 

F784 

F6CD 

F7B1 

F7B1 

F706 

F7E9 

F7E9 

F72E 



F743 



F750 

F808 

F808 

F7BB 

F865 

F865 

F7CB 

F879 

F879 

F7DC 

F88A 

F88A 


Tabelle für PRINT 

PRINT, Ausdruck ausgeben 

PRINT, Karma-Tabulator 

PRINT SPC 

PRINT TAB 

Spaces ausgeben 

Integer in Klammern holen 

Zahl der Spaces MOO Ausgabebreite 

PRINT USING 

Ausdruck formatiert ausgeben 

ggf. String ausgeben 

String für USING ausgeben 

numerischen Ausdruck ausgeben 

Formatstring für numerischen Ausdruck auswerten 

Formatstring weiter auswerten 

auf Währungszeichen prüfen 

Basic-Befehl WRITE 

RAM-Zeiger initialisieren 

Basic-Befehl MEMORY 

auf Platz oberhalb HIMEM prüfen 

Test auf Platz für Binärdatei 

Test, ob Adresse im Bereich liegt 

Adresse mit HIMEM+1 vergleichen 

Größe des Stringbereichs holen 

Programm/Variablen-Zeiger korrigieren 

Arrayzeiger korrigieren. 

Variablen in Stringbereich retten 

Variablenbereich schützen 

Variablen aus Stringbereich zurückholen 

Variablenbereich wieder ungeschützt 

Basic-Stackpointer initialisieren 

Eintrag vom Basic-Stack holen 

Basic-Stackpointer neu setzen 

Platz auf Basic-Stack reservieren 

Stringbereich löschen 

Stringbereich-Platz reservieren 

Stringbereich erweitern 

Platz für Programm/Variable schaffen 

auf Platz prüfen 

Bereich löschen 

Größe des freien Speicherplatzes holen 

höchste freie Adresse nach Programm holen 

Zeiger auf freien Basic-Bereich holen 

Eingabebuffer belegen 

Ausgabebuffer belegen 

Ein-/Ausgabebuffer reservieren 

Eingabebuffer frei geben 

Ausgabebuffer freigeben 

Ein-/Ausgabebuffer ggf. freigeben 

Basic-Befehl SYMBOL 

Basic-Befehl SYMBOL AFTER 

User-Matrix neu setzen 

Speicherbereich freigeben 

Platz im Speicher reservieren 

HIMEM neu setzen 

Offset zu Stringadresse addieren 

String überlesen, auf Stringstack 

String bis Zeilenende überlesen, auf Stringstack 
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F7E6 

F894 

F894 

F7F9 

F8A7 

F8A7 

F80F 

F8B7 

F8B7 

F828 

F8D0 

F8D0 


F8DC 

F8DC 

F834 

F8EC 

F8EC 

F839 

F8F1 

F8F1 

F842 

F8FA 

F8FA 

F863 

F91D 

F91D 

F88B 



F897 




F959 

F959 

F8BA 

F964 

F964 

F8C4 

F969 

F969 

F8CE 



F8EA 

F98F 

F98F 

F91E 

F9BC 

F9BC 

F93C 

F9D3 

F9D3 

F943 

F9D8 

F9D8 

F94B 

F9E2 

F9E2 

F971 

F9F3 

F9F3 

F993 

FA07 

FA07 

F9E9 

FA43 

FA43 

F9FB 

FA4F 

FA4F 

FAOA 

FA69 

FA69 

FA10 

FA6E 

FA6E 

FA16 

FA74 

FA74 

FA24 

FA7E 

FA7E 

FA2A 



FA36 

FA8D 

FA8D 


FAA1 

FAA1 

FA57 

FAAD 

FAAD 

FA70 



FA 77 

FABE 

FABE 

FA92 

FAD9 

FAD9 

FAA1 

FAE5 

FAE5 

FAD4 



FB1B 

FB4D 

FB4D 

FB21 

FB58 

FB58 

FB2E 

FB65 

FB65 

FB49 

FB8A 

FB8A 

FB59 

FB94 

FB94 

FB8F 

FBB9 

FBB9 

FBA6 



FBB3 

FBCC 

FBCC 

FBBA 

FBD3 

FBD3 

FBDA 

FBF5 

FBF5 

FBE8 

FC03 

FC03 

FBFF 

FC1F 

FC1F 


FC37 

FC37 

FC19 

FC41 

FC41 

FC3E 

FC64 

FC64 

FC7B 



FC9C 




FCE3 

FCE3 

FCB3 

FCF3 

FCF3 

FCC3 

FD03 

FD03 

FCCC 

FDOC 

FDOC 


String bis Trennzeichen übernehmen 

Routine weiterführen, String auf Stringstack 

Sonderzeichen am Stringende eliminieren 

String vom Stringstack löschen, ausgeben 

Teilstring ausgeben 

Basic-Funktion LOWER$ 

auf Kleinschrift forcieren 

Basic-Funktion UPPERS 

Stringverknüpfung "+" 

String kopieren 

Stringvergleich 

zwei Strings vom Stringstack 

Basic-Funktion BI NS 

Basic-Funktion HEXS 

Ausdruck und Stellenzahl holen 

Basic-Funktion DECS 

Basic-Funktion STRS 

Basic-Funktion LEFTS 

Basic-Funktion RIGHTS 

Basic-Funktion MIDS 

Teilstring holen 

Basic-Befehl MIDS 

String und Byte holen 

2. Byte für MIDS holen 

Basic-Funktion LEN 

Basic-Funktion ASC 

Basic-Funktion CHRS 

Basic-Funktion INKEYS 

String für INKEYS holen 

Basic-Funktion STRINGS 

FAC nach Byte/1. Stringzeichen wandeln 

Basic-Funktion SPACES 

1. Zeichen aus String holen 

Basic-Funktion VAL 

FAC nach Byte wandeln 

Basic-Funktion INSTR 

Suchstring in String suchen 

Strings in Stringbereich forcieren 

String in Stringbereich forcieren 

String in Stringbereich forcieren 

Descriptor ggf. auf Stringstack 

String kopieren, vom Stringstack löschen 

String in Stringbereich kopieren 

Stringdescriptor kopieren 

Stringdescriptorstack initialisieren 

Descriptor auf Stringstack und nach FAC 

String aus Stringbereich/Stringstack löschen 

String aus Stringbereich/Stringstack löschen 

Descriptor ggf. vom Stringstack löschen 

Test, ob Descriptor im Stringstack ist 

Platz für String reservierenFC2D FC53 FC53 Basic-Funktion FRE 
Garbage collection 

höchste Stringadresse außerhalb Stringbereich suchen 

ggf. höchste Stringadresse setzen 

Descriptoradresse eintragen 

Parameter für DezimalWandlung holen 

Dezimalwandlungsparams für positive Integerzahl holen 

Basic-Operator + 
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FCE1 

FD21 

FD21 

FCF5 

FD35 

FD35 

FD09 

FD49 

FD49 

FD 12 

FD52 

FD52 

FD37 

FD67 

FD67 

FD49 

FD79 

FD79 

FD58 

FD87 

FD87 

FD63 

FD92 

FD92 

FD6D 

FD9C 

FD9C 

FD77 

FDA6 

FDA6 

FD85 

FDBO 

FDBO 

FDA3 

FDC4 

FDC4 

FDAF 

FDD5 

FDD5 

FDE8 

FEOE 

FEOE 

FDED 

FE13 

FEI 3 

FE06 

FE2C 

FE2C 

FE15 

FE3B 

FE3B 

FE4F 

FE70 

FE70 

FE60 

FE89 

FE89 

FE63 

FE8C 

FE8C 

FE6A 

FE93 

FE93 

FE7C 

FEA5 

FEA5 

FE8D 

FEB6 

FEB6 

FE93 

FEBC 

FEBC 

FE9A 

FEC3 

FEC3 

FEA5 

FECE 

FECE 

FEC2 

FEEB 

FEEB 

FED7 

FEFF 

FEFF 

FEE5 

FFOD 

FFOD 

FEEC 

F F14 

FF14 

FEF3 

FF1B 

FF1B 

FF02 

FF2A 

FF2A 

FF05 

FF2D 

FF2D 

FFOA 

FF32 

FF32 

FFOD 

FF35 

FF35 

F Fl 6 

FF3E 

FF3E 

FF1D 

FF45 

FF45 

FF23 

FF4B 

FF4B 

FF27 

FF66 

FF66 

FF2D 

FF4F 

FF4F 

FF3C 

FF5E 

FF5E 

FF45 

FF66 

FF66 

FF4B 

FF6C 

FF6C 

F F 53 

FF74 

FF74 

FF62 

FF83 

FF83 

FF71 

FF92 

FF92 

FF7B 

FF9C 

FF9C 

FF7F 

FFAO 

FFAO 

FF83 

FFA4 

FFA4 

FF8A 

FFAB 

FFAB 

FF93 

FFB4 

FFB4 

FFAA 

FF CA 

FFCA 

FFB8 

FFD8 

FFD8 

FFBE 

FFDE 

FFDE 

FFC4 



FFCF 



FFDA 

FFE4 

FFE4 

FFE7 




Basic-Operator - 
Basic-Operator * 
numerischer Vergleich 
Basic-Operator / 

Basic-Operator \ 

Basic-Operator MOD 

Basic-Operator AND 

Basic-Operator OR 

Basic-Operator XOR 

Basic-Operator NOT 

Basic-Funktion ABS 

Vorzeichen von FAC holen 

Zahl runden, nach FAC 

Basic-Funktion FIX 

Basic-Funktion INT 

Integer mit Vorzeichen nach Integer 

Typen angleichen, Werte holen 

Integeroperanden nach REAL wandeln 

positive Integerzahl nach REAL wandeln 

Integer nach REAL wandeln 

Integer nach REAL wandeln 

4-Byte-Integer nach REAL wandeln 

Basic-Funktion CINT 

REAL im FAC nach Integer im FAC wandeln 

Operanden nach Integer wandeln 

FAC nach Integer wandeln 

Basic-Funktion UNT 

FAC-Typ angleichen 

FAC-Typ angleichen 

Basic-Funktion CREAL 

FAC löschen (FAC=0) 

Basic-Funktion SGN 

Zweierkomplements-Byte in A nach Integer in FAC 

positives Byte in A nach Integer in FAC 

Integer in HL nach FAC 

FAC auf REAL, Zeiger nach HL 

Zeiger auf FAC und Typ holen 

Typ des FAC nach A holen 

Typ des FAC holen, Flags setzen 

numerischen Wert aus FAC holen 

Test auf String, sonst Fehler. 

Typ des FAC holen, Flags setzen 

Wert nach FAC kopieren 

FAC auf Basic-Stack 

FAC kopieren 

Test auf Buchstabe 

Test auf Buchstabe, Ziffer, 

Test auf Ziffer oder Dezimalpunkt 

Test auf Ziffer 

auf Großschrift forcieren 

Adresse aus Tabelle entsprechend Zeichen holen 

Byte in Tabelle suchen 

HL und DE vergleichen 

HL und BC vergleichen 

DE:=HL-DE 

HL:=HL-DE 

BC:=HL-DE 

HL:=HL-BC 
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FFEC FFEC 
FFF2 FFEF FFEF 
FFF5 FFF5 FFF5 
FFF8 FFFB FFFB 
FFF9 FFFC FFFC 
FFFB FFFE FFFE 


Block nach unten verschieben, Länge in A 
Block nach unten verschieben, Länge in BC 
Block nach oben verschieben, Länge in BC 


JP(HL) 

JP(BC) 

JP(DE) 


5.4.2 Die Routinen alphabetisch sortiert 


464 

664 

6128 

E0E6 

E1C1 

E1BC 

CFB9 

D020 

D01D 

DB77 DB7E 

DB79 

CB33 

CC04 

CC01 

CB6B 

CC41 

CC3E 

CB4F 

CC1F 

CC1C 

CAEA 

CBB8 

CBB5 

CAF3 

CBC1 

CBBE 

D543 

D586 

D583 

COCC 

COCD 

COCD 

CB23 

CBF4 

CBF1 

CB 18 

CBE9 

CBE6 

EB8F 

EC59 

EC54 

EAOD 

EAD6 

EAD1 

D5D9 

D61A 

D617 

D5DB 

D61C 

D619 

D5EA 

D62A 

D627 

FA70 



C23C 

C265 

C262 

F9FB 

FA4F 

FA4F 

FE7C 

FEA5 

FEA5 

D6C8 D704 

D701 

FF93 

FFB4 

FFB4 

CC45 

CE8F 

CE8C 

C95D 

CA13 

CA10 


F5F1 

F5EC 

Fl 94 

F23F 

F23A 

DE01 

DEE5 

DEEO 

E354 

E41D 

E418 

C29F 

C2D2 

C2CF 

C1C0 

C1C7 

C1C4 

C1BA 

C1C1 

C1BE 

E8C1 

E97F 

E97A 

F53A 

F61F 

F61A 

ECA3 

ED74 

ED6F 

EBEF 

ECBB 

ECB6 

C43C 

C475 

C472 

FF8A 

FFAB 

FFAB 

F839 

F8F1 

F8F1 

C2B9 

C2EA 

C2E7 

C2BF 




F58F 

F58A 

F618 



DCDO 

DCC4 

DCBF 

DCC6 

DCBA 

DCB5 


Routine 

. auswerten 

auswerten 
"?Redo from Start" 

"Break in" Zeilennummer ausgeben 
"Break" ausgeben, Abbruch behandeln 
"Break", " in " 

"Division by zero" ausgeben 
"Overflow" ausgeben 
"Random number seed ? " 

"Ready" 

"Undefined line" 

"Undefined line xxxxx in yyyyy" ausgeben 
1. Block des Programms lesen 
1. Block des Programms lesen/auswerten 
1. Offset der VL der Funktionen holen 
1. Offset der VL der Variablen holen 
1. Offset für VL der Felder holen 

1. Zeichen aus String holen 
2 Farbwerte holen 

2. Byte für MID$ holen 

4-Byte-Integer nach REAL wandeln 

Adresse aus Offset berechnen 

Adresse aus Tabelle entsprechend Zeichen holen 

Adresse des Fehlerstrings holen 

Adresse des SQ-Event-Blocks holen 

Adresse mit HIMEM+1 vergleichen 

Adresse und Byte holen 

Adressen der Basic-Befehle 

Adressen der Keyword-Tabellen 

aktuelle Ausgabe-Breite holen 

aktuelle Eingabekanalnummer holen 

aktuelle Strearmuimier holen 

Arrayindizes ggf. überlesen 

Arrayzeiger korrigieren 

ASCII nach binär wandeln 

ASCII-Programn laden 

auf ESC-Taste prüfen 

auf Großschrift forcieren 

auf Kleinschrift forcieren 

auf Platz in Zeile prüfen 

auf Platz in Zeile prüfen 

auf Platz oberhalb HIMEM prüfen 

auf Platz prüfen 

auf Space, TAB, LF prüfen 

auf Space, TAB, LF, Kemna, CR prüfen 
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DD4A DE3C DE37 auf Statementende prüfen 
F507 F502 auf Währungszeichen prüfen 
F324 F3D2 F3CD Ausdruck formatiert ausgeben 
CEFB CF65 CF62 Ausdruck holen 
D070 D0D4 D0D1 Ausdruck und holen 

F8CE Ausdruck und Stellenzahl holen 

C'162 CI66 Ci 66 Ausdruckausyertung und I/O initialisieren 
C850 CB4D Ausgabe von "Improper argument" 

CB4C CB49 Ausgabe von "Syntax error" 

F637 F725 F725 Ausgabebuffer belegen 
F671 F75D F75D Ausgabebuffer freigeben 
C0D3 CODE CODE AUTO ausschalten 
C102 CiOD C10D AUTO-Eingahezeile holen 
C0D6 C0E1 C0E1 AUTO-Zeilennummer setzen 
C16B C16F C16F Basic initialisieren 
E8F3 E9B2 E9AD Basic-Befehl 1 
C971 CA25 CA22 Basic-Befehl AFTEF< 

CODF COEA COEA Basic-Befehl AUTO 
C221 C24B C248 Basic-Befehl BORDER 
F1BA F261 F25C Basic-Befehl CALL 
D246 D299 D296 Basic-Befehl CAT 
EA3C EB02 EAFD Basic-Befehl CHAIN 
C132 C12F C12F Basic-Befehl CLEAR 

C13F C13F Basic-Befehl CLEAR INPUT 
C485 C509 C506 Basic-Befehl CLG 
D298 D2F0 D2ED Basic-Befehl CLOSEIN 
D2A1 D2F8 D2F5 Basic-Befehl CLOSEOUT 
C25A C283 C280 Basic-Befehl CLS 
CBCO CC96 CC93 Basic-Befehl CONT 
C363 C360 Basic-Befehl CURSOR 
E8EF E9A8 E9A3 Basic-Befehl DATA 
Dl 17 Dl74 Dl71 Basic-Befehl DEF 
D618 D657 D654 Basic-Befehl DEFINT 
D61C D65B D658 Basic-Befehl DEFREAL 
D614 D653 D650 Basic-Befehl DEFSTR 
D4E7 D52C D529 Basic-Befehl DEG 
E728 E7F3 E7EE Basic-Befehl DELETE 
C8E1 C99A C997 Basic-Befehl DI 
D67D D6B9 D6B6 Basic-Befehl DIH 
C4C6 C53C C539 Basic-Befehl DRAW 
C4CB C541 C53E Basic-Befehl DRAWR 
C052 C046 C046 Basic-Befehl EDIT 
C8E7 C9A0 C99D Basic-Befehl EI 
E8F3 E9B2 E9AD Basic-Befehl ELSE 
CB65 CC34 CC31 Basic-Befehl END 
D385 D3D7 D3D4 Basic-Befehl ENT 
D34E D3A1 D39E Basic-Befehl ENV 
D9C0 D9F4 D9F0 Basic-Befehl ERASE 
CA8F CB54 CB51 Basic-Befehl ERROR 
C979 CA2D CA2A Basic-Befehl EVERY 
C515 C512 Basic-Befehl FILL 
C529 C5D7 C5D4 Basic-Befehl FOR 
C6ED C78F C78C Basic-Befehl GOSUB 
C6E8 C789 C786 Basic-Befehl GOTO 

C59D C59A Basic-Befehl GRAPHICS 
C5B4 C5B1 Basic-Befehl GRAPHICS PAPER 
C5A1 C59E Basic-Befehl GRAPHICS PEN 
C6C7 C76A C767 Basic-Befehl IF 
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C22A C254 C251 Basic-Befehl IHK 

DB2B DB48 DB43 Basic-Befehl INPUT 

D439 D489 D486 Basic-Befehl KEY 

D456 D4A3 D4A0 Basic-Befehl KEY DEF 

D654 D691 D68E Basic-Befehl LET 

DAF8 DBl8 DB 13 Basic-Befehl LINE INPUT 

E0F7 E1D2 El CD Basic-Befehl LIST 

E9F6 EABA EAB5 Basic-Befehl LOAD 

C2D2 C302 C2FF Basic-Befehl LOCATE 

C5C3 C5C0 Basic-Befehl MASK 
F4EF F570 F56B Basic-Befehl MEMORY 
EAA6 EB59 EB54 Basic-Befehl MERGE 
F993 FA07 FA07 Basic-Befehl MID$ 

C24F C278 C275 Basic-Befehl MODE 
C505 C532 C52F Basic-Befehl MOVE 
C50A C537 C534 Basic-Befehl MOVER 
C12B C128 C128 Basic-Befehl NEU 
C5FB C6A5 C6A2 Basic-Befehl NEXT 
C7E3 C885 C882 Basic-Befehl ON 
C8CB C979 C976 Basic-Befehl ON BREAK 

C4D3 C4D0 Basic-Befehl ON BREAK CONT 
CBE5 CCBB CCB8 Basic-Befehl ON ERROR 

CBF8 CCCD CCCA Basic-Befehl ON ERROR GOTO 0 

C940 C9F8 C9F5 Basic-Befehl ON SQ 

D25F D2B7 D2B4 Basic-Befehl OPENIN 

D256 D2AB D2A8 Basic-Befehl OPENOUT 

C48C C4E1 C4DE Basic-Befehl ORIGIN 

F177 F228 F223 Basic-Befehl OUT 

C20A C23C C239 Basic-Befehl PAPER 

C212 C227 C224 Basic-Befehl PEN 

C4D0 C546 C543 Basic-Befehl PLOT 

C4D5 C54B C548 Basic-Befehl PLOTR 

F15F F214 F20F Basic-Befehl POKE 

Fl FD F2A9 F2A4 Basic-Befehl PRINT 

D4EB D530 D52D Basic-Befehl RAD 

D559 D59C D599 Basic-Befehl RANDOMIZE 

DCEB DCDF DCDA Basic-Befehl READ 
D31E D373 D370 Basic-Befehl RELEASE 
E8F3 E9AC E9A7 Basic-Befehl REM 
E7DF E8A3 E89E Basic-Befehl RENUM 
DCD9 DCCD DCC8 Basic-Befehl RESTORE 
CC03 CCD8 CCD5 Basic-Befehl RESUME 
C70F C7B3 C7B0 Basic-Befehl RETURN 
E9BD EA7D EA78 Basic-Befehl RUN 
EC09 ECE1 ECDC Basic-Befehl SAVE 
D2C0 D316 D313 Basic-Befehl SOUND 
D494 D4DE D4DB Basic-Befehl SPEED 
D4C3 D508 D505 Basic-Befehl SPEED WRITE 
CB5A CC29 CC26 Basic-Befehl STOP 

F69D F784 F784 Basic-Befehl SYMBOL 

F6CD F7B1 F7B1 Basic-Befehl SYMBOL AFTER 

C319 C346 C343 Basic-Befehl TAG 

C320 C34D C34A Basic-Befehl TAGOFF 

C4E9 C547 C544 Basic-Befehl TEST 

DDE6 DECA DEC5 Basic-Befehl TROFF 

DDE2 DEC6 DEC1 Basic-Befehl TRON 

F17D F22E F229 Basic-Befehl UAIT 

C776 C81D C81A Basic-Befehl UEND 



C747 C7EA C7E7 
C3E3 C42D C42A 
C2E1 C311 C30E 
C2FD C32B C328 
F47B F50D F508 
F1F6 F2A2 F29D 
FD85 FDBO FDBO 
FAIO FA6E FA6E 
D53E D581 D57E 
F8BA F964 F964 
FA16 FA74 FA74 
FE8D FEB6 FEB6 
C29B C298 
D534 D577 D574 
FEEC FF14 FF 14 
F8EA F98F F98F 
D12E D12B 
C417 C452 C44F 
DODC D133 D130 
D520 D563 D560 
FDE8 FEOE FEOE 
FC2D FC53 FC53 
F8C4 F969 F969 
D0F4 D14B Dl48 
D409 D459 D456 
FA24 FA7E FA7E 
F16D F21E F219 
FAAl FAE5 FAE5 
FDED FE13 FE13 
D423 D473 D470 
F93C F9D3 F9D3 
FAOA FA69 FA69 
D52A D56D D56A 
D525 D568 D565 
F834 F8EC F8EC 
D1EE D246 D243 
F94B F9E2 F9E2 
DlEA D242 D23F 
F158 F20D F208 
D4DB D520 D51D 
C276 C2AD C2AA 
C99F CA53 CA50 
F943 F9D8 F9D8 
D584 D5C4 D5C1 
D219 D26D D26A 
FF02 FF2A FF2A 
D52F D572 D56F 
FA57 FAAD FAAD 
D329 D37E D37B 
D4EF D534 D531 
F91E F9BC F9BC 
FA36 FA8D FA8D 
D539 D57C D579 
C4EE C579 C576 
DOE5 D13C D139 
FEC2 FEEB FEEB 
F842 F8FA F8FA 
FA77 FABE FABE 


Befehl WHILE 
Befehl WIDTH 
Befehl WINDOW 
Befehl WINDOW SWAP 
Befehl WRITE 
Befehl ZONE 
Funktion ABS 
Funktion ASC 
Funktion ATN 
Funktion BI NS 
Funktion CHRS 
Funktion CI NT 
Funktion COPYCHRS 
Funktion COS 
Funktion CREAL 
Funktion DECS 
Funktion DERR 
Funktion EOF 
Funktion ERR 
Funktion EXP 
Funktion FIX 
Funktion FRE 
Funktion HEXS 
Funktion HIMEH 
Funktion INKEY 
Funktion INKEYS 
Funktion INP 
Funktion INSTR 
Funktion INT 
Funktion JOY 
Funktion LEFTS 
Funktion LEN 
Funktion LOG 
Funktion LOG10 
Funktion LOWERS 
Funktion MAX 
Funktion HIDS 
Funktion MIN 
Funktion PEEK 
Funktion PI 
Funktion POS 
Funktion REMAIN 
Funktion RIGHTS 
Funktion RND 
Funktion ROUND 
Funktion SGN 
Funktion SIN 
Funktion SPACES 
Funktion SQ 
Funktion SQR 
Funktion STRS 
Funktion STRINGS 
Funktion TAN 
Funktion TESTR 
Funktion TIME 
Funktion UNT 
Funktion UPPERS 
Funktion VAL 


Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
Basic- 
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C262 C2A4 C2A1 Basic-Funktion VPOS 
0107 D164 D16i Basic-Funktion XPOS 
Dl OE D16B Dl68 Basic-Funktion YPOS 
C006 C006 C006 Basic-Kaltstart 
E383 E451 E44C Basic-Keyword-Tabellen 
FCF5 FD35 FD35 Basic-Operator * 

FCCC FDOC FDOC Basic-Operator + 

FCE1 FD21 FD21 Basic-Operator - 
FD 12 FD52 FD52 Basic-Operator / 

E D58 FD87 FD87 Basic-Operator AND 
FD49 FD79 FD79 Basic-Operator MOD 
FD77 FDA6 FDA6 Basic-Operator NOT 
FD63 FD92 FD92 Basic-Operator OR 
FD6D FD9C FD9C Basic-Operator XOR 
FD37 FD67 FD67 Basic-Operator \ 

D4F4 D539 D536 Basic-Operator A 

F58E F652 F64F Basic-Stackpointer initialisieren 

F5AC F67i F66E Basic-Stackpointer neu setzen 

CC2B CCFD CCFA Basic-Zeiger für RESUME setzen 

C17A C1S9 C189 Basic-Zeiger initialisieren 

E163 E259 E254 Basic-Zeile nach ASCII wandeln 

FFDA FFE4 FFE4 BC:=HL-DEDDAB DE94 DE8F Befehl ausführen 

DFC8 E0B4 EOAF Befehlstoken behandeln 

E388 E949 E944 bei Zeilennurmier im Statement Fehler ausgeben 
E70B E7E9 E7E4 Bereich aus Programm löschen 
F6F1 F6E5 Bereich löschen 
C386 C3D3 C3D0 Bildschirm initialisieren 

EA30 EAF6 EAF1 Binärdatei laden 

F 087 F18F F18A Binärzahl nach ASCII-Mantisse wandeln 
FOOD Binärzahl nach BCD wandeLn 

FFF5 FFF5 FFF5 Block nach oben verschieben, Länge in BC 
FFEC FFEC Block nach unten verschieben, Länge in A 

FFF2 FFEF FFEF Block nach unten verschieben, Länge in BC 

C847 C8F5 C8F2 Break-Event Fortsetzung 
C45E C495 C492 Break-Event-Routine 
DF09 DFF1 DFEC Buchstaben auswerten 
CA43 CB04 CB01 Buffer ausgeben, Zeile holen 
FFAA FFCA FFCA Byte in Tabelle suchen 
C1 FS C216 C213 Byte kleiner A holen 
CE6D CEC6 CEC3 Byte-Ausdruck <>0 holen 
CE67 CEBB CEB8 Byte-Ausdruck holen 

C223 C220 Bytewert <2 (als Flag) holen 
D30D D362 D35F Bytewert für SOUND holen 
0317 D36C D369 Bytewert kleiner B holen 
CBAB CC81 CC7E CONT sperren 
C39C C3EF C3EC Cursorspalte holen 
C267 C2CA C2C7 Cursorzeile holen 
FFC4 DE:=HL-DE 

D6Q'I D640 D63Q DEF-Typflag in Tabelle 
D130 D18D D18A definierte Funktion auswerten 
D5D2 definierte Funktionen löschen 

D611 D60E definierte Funktionen und Variablenoffsets löschen 
D5FC D63B D638 DEFREAL A-Z 

CC3A CC37 DERR setzen, "Broken in" melden 
FBBA FBD3 FBD3 Descriptor auf Stringstack und nach FAC 
FB49 FB8A FB8A Descriptor ggf. auf Stringstack 
FBFF FC 1F FC1F Descriptor ggf. vom Stringstack löschen 
FCE3 FCE3 Descriptoradresse eintragen 
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ED77 

EE47 

EE42 

EFAO 

F079 

F074 

EED4 

EF9B 

EF96 

EE35 

EF05 

EFOO 

ECDC 

EDAD 

EDA8 

FCC3 

FD03 

FD03 

DFFF 

E0E7 

E0E2 

DDCB 

DEAF 

DEAA 

C3DF 



D9CC 

DAOO 

D9FC 

DEE1 

DFCD 

DFC8 

F675 

F761 

F761 


F72A 

F72A 

C19D 

Ci A4 

C1A1 

D7B5 

D7E4 

D7E0 

D6B3 

D6EF 

D6EC 

D749 

D77F 

D77B 

DBBC 

DBC2 

DBBD 

DC02 

DBFC 

DBF7 

E04A 

E12B 

El 26 

DC6E 

DC64 

DC5F 

F632 

F720 

F720 

F66D 

F759 

F759 

D26A 

D2C1 

D2BE 

C064 

C058 

C058 

DC21 

DC1A 

DC15 

DC47 DC3D 

DC38 

DC66 

DC5C 

DC57 

E6BC 




CAEF 

CAEC 

CA3B 

CAFC 

CAF9 

DB47 DB60 

DB5B 

DBAD 



DBD3 

DBD2 

DBCD 

DA30 

DA56 

DA52 

DA27 

DA4D 

DA49 

D7A5 

D7D4 

D7D0 

D708 

D744 

D740 

F5A0 

F665 

F662 

CFCB 

D036 

D033 


ECOE 

EC09 

DOEE 

D145 

D142 

CADF 

CBAD 

CBAA 

C453 




C482 

C47F 

C9B1 

CA65 

CA62 

C924 

C9DD 

C9DA 

C879 

C929 

C926 

C8ED 

C9A6 

C9A3 

EF20 

EFEB 

EFE6 

D666 

D6A2 

D69F 

FF53 

FF 74 

FF74 

F Fl 6 

FF3E 

FF3E 

FF62 

FF 83 

FF83 

FEF3 

FF1B 

F Fl B 

FA92 

FAD9 

FAD9 


FAA1 

FAA1 

FEA5 

FECE 

FECE 


dezimalen Exponenten holen/berechnen 
Dezimalpunkt einfügen 
Dezimalpunkt und Exponenten setzen 
Dezimalstring nach Integer wandeln 
Dezi mal st ring nach Integer/REAL 

Dezimalwandlungsparams für positive Integerzahl holen 

Dezimalzahl tokenisieren 

Direkt-Modus einschalten 

Druckkopfposition holen, nach A 

ein Feld löschen 

ein Item tokenisieren 

Ein-/Ausgabebuffer ggf. freigeben 

Ein-/Ausgabebuffer reservieren 

Ein-/Ausgabekanäle initialisieren 

eine Variable dimensionieren 

einfache Variable holen, ggf. neu anlegen 

einfache Variable neu anlegen 

Eingabe an Variable zuweisen 

Eingabe auswerten 

Eingabe bis DE übernehmen 

Eingabe bis Trennzeichen holen 

Eingabebuffer belegen 

Eingabebuffer frei geben 

Eingabefile öffnen 

Eingabeschleife 

Eingabestring holen 

Eingabestring holen (von Kassette/Diskette) 

Eingabezeile (von Kassette/Diskette) holen 

Eingabezeile auswerten 

Eingabezeile für LINE INPUT holen 

Eingabezeile holen 

Eingabezeile holen und prüfen 

Eingabezeile von Tastatur holen 

Eingabezeile überprüfen 

Eintrag aus FN-Liste aushängen 

Eintrag in FN-Liste einhängen 

Eintrag in VL einhängen 

Eintrag in VL suchen 

Eintrag vom Basic-Stack holen 

Einzeloperanden holen 

EOF melden 

ERL auswerten 

Error-Zeilennummer holen 

ESC-Abbruch einmal ermöglichen 

ESC-Abbruch ggf. einmal ermöglichen 

Event-Block-Adresse berechnen 

Event-Block-Gruppe initialisieren 

Event-Routine für AFTER/EVERY/SQ 

Events für Basic initialisieren 

Exponentialdarstellung mit maximal 7 Mantissenstellen 

FAC an Variable zuweisen 

FAC auf Basic-Stack 

FAC auf REAL, Zeiger nach HL 

FAC kopieren 

FAC löschen (FAC=0) 

FAC nach Byte wandeln 

FAC nach Byte/1. Stringzeichen wandeln 

FAC nach Integer wandeln 
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FED7 

FEFF 

FEFF 

FEE5 

FFOD 

FFOD 

C24B 

C274 

C271 

CA94 

CB58 

CB55 


CB48 

CB45 

CA85 

CB3B 

CB38 

CA84 

CB3A 

CB37 

D88A 

D8B7 

D8B3 

D273 

D2CA 

D2C7 

D285 

D2DE 

D2DB 

C1F5 

C210 

C20D 

F096 

F18C 

Fl 87 

E0B3 

E18E 

El 89 

D73D 

D773 

D76F 

D6A2 

D6DE 

D6DB 

D9FD 

DA24 

DA20 

EF88 

F05B 

F056 

EF27 

EFF2 

EFED 

F3BA 

F44D 

F448 

F41B 

F4B3 

F4AE 

DOBB 

Dl 13 

Dl 10 

DOAE 

D105 

Dl 02 

D1AE 

D206 

D203 

DOCA 




D11A 

Dl 17 

D190 

D1E8 

D1E5 

D080 

DODD 

DODA 

DA4B 

DA6E 

DA6A 

EFB4 

F08C 

F087 

F07C 

F1F4 

F1EF 

FC3E 

FC64 

FC64 


F1C6 

FICI 

F050 

F131 

F12C 

F05F 

F14A 

F145 


F14A 

F145 

FC9C 



E21A 

E2EB 

E2E6 

F350 

F3FC 

F3F7 

DB89 

DB90 

DB8B 

C72E 

C7D2 

C7CF 

C6F6 

C796 

C793 

C51A 

C58F 

C58C 

F628 

F708 

F6FC 

F51D 

F5FD 

F5F8 

ECCD 

ED9E 

ED99 

EE1C 

EEEC 

EEE7 

E05A 

E13B 

El 36 

F750 

F808 

F808 

FFBE 

FFDE 

FFDE 

FFB8 

FFD8 

FFD8 

FFE7 



FFCF 



C290 




F713 

F707 

FC7B 



C337 

C380 

C37D 

D85A 

D887 

D883 

FFOD 

FF35 

FF35 


FAC-Typ angleichen 
FAC-Typ angleichen 
Färbstiftnurmer holen 
Fehler behandeln 

Fehler entsprechend Byte nach Aufruf melden 
Fehlernummer setzen 

Fehlernummer und -zeile initialisieren 
Feldvariable neu anlegen 
File öffnen 

File öffnen Fortsetzung 

Filenummer holen 

Flag für Formatüberlauf setzen 

Flag für Variable/Zeilennunmer prüfen 

FN-Eintrag neu anlegen 

FN-Eintrag suchen, ggf. anlegen 

FN-Listenzeiger löschen 

formatierte Darstellung 

formatierte Exponentialdarstellung 

Formatstring für numerischen Ausdruck auswerten 

Formatstring weiter auswerten 

Funktion anspringen (Gruppe 2) 

Funktion anspringen (Gruppen 1/3) 

Funktionsadressen, Tokens $00-$1D 
Funktionsadressen, Tokens $40-$48 
Funktionsadressen, Tokens $40-$49 
Funktionsadressen, Tokens $71-$7F 
Funktionsauswertung 

Funktionsvariable holen, in VL eintragen 
führende Nullen in Buffer 
führende Zeichen vor die Zahl setzen 
Garbage collection 

gepackte BCD-Zahl nach ASCII wandeln 

ggf. führende Null in Buffer 

ggf. führendes "$" in Buffer 

ggf. führendes Währungszeichen setzen 

ggf. höchste Stringadresse setzen 

ggf. Space ausgeben 

ggf. String ausgeben 

ggf. Text ausgeben, Flags holen 

GOSUB auf Basic-Stack suchen 

GOSUB-Datensatz auf Stack 

Graphik-Koordinaten holen 

Größe des freien Speicherplatzes holen 

Größe des Stringbereichs holen 

Hex-/Binär-String nach Integer 

Hex-/Binärstring nach Integer wandeln 

Hex/Binärzahl tokenisieren 

HIMEM neu setzen 

HL und BC vergleichen 

HL und DE vergleichen 

HL:=HL-BC 

HL:=HL-DE 

horizontale Position für I/O holen 

höchste freie Adresse nach Prograrrcn holen 

höchste Stringadresse außerhalb Stringbereich suchen 

I/O initialisieren, String ausgeben 

Indizes holen, auf Basic-Stack 

Integer in HL nach FAC 
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F2A0 F362 F35D 
FE06 FE2C FE2C 
FE63 FE8C FE8C 
FE6A FE93 FE93 
D341 D396 D393 
CE86 CEDB CED8 
CE91 CEF8 CEF5 
CE7C CEDI CECE 
DD2F DD2A 
FE4F FE70 FE70 
D3FF D44F D44C 
DD74 DE65 DE60 
El96 E26B E266 
FFF9 FFFC FFFC 
FFFB FFFE FFFE 
FFF8 FFFB FFFB 
D2AD D303 D300 
COOO COOO COOO 
EODF E1BA E1B5 
E220 E2FD E2F8 
DF4E E03F E03A 
F03D Fl 1F F11A 
EIDE E2AF E2AA 
E253 E334 E32F 
E978 EA39 EA34 
D02C D095 D092 
C327 C354 C351 
D64F D68C D6Ö9 
C3A8 C3F8 C3F5 
C3EA C434 C431 
C392 C3E5 C3E2 
C34E C39B C398 
E737 E805 E800 
C03F C033 C033 
CB36 CC07 CC04 
C46F C4A4 C4A1 
FOOE F0E3 FODE 
F036 Fl18 Fl13 
C04C C040 C040 
D78A D7BC D7B8 
E20F E2E0 E2DB 
D777 D7AC D7A8 
C1AF Ci36 C136 
C1A2 C1A9 C1A6 
DA07 DA2E DA2A 
C13E C145 Ci45 
EF01 EFCC EFC7 
EEE4 EFAF EFAA 
COAF COAF 
EBA8 EC72 EC6D 
EB9D EC67 EC62 
CFC2 D02B D028 
EFEF F0C7 F0C2 
DC38 DC31 DC2C 
F3A3 F436 F431 
FF2D FF4F FF4F 
CFAA DO11 DOOE 
FD09 FD49 FD49 


Integer in Klanmern holen 
Integer mit Vorzeichen nach Integer 
Integer nach REAL wandeln 
Integer nach REAL wandeln 
Integer von -128..+127 holen 
Integer von -32768..32767 holen 
Integer von -32768..65535 holen 
Integer von 0..32767 holen 
Integer-Arithmetik (siehe 5.3) 
Integeroperanden nach REAL wandeln 
Integerwert von 0..4095 holen 
Interpreterschleife 
Item nach ASCII wandeln 
JP(BC) 

JP(DE) 

JP(HL) 

Kassette/Diskette initialisieren 
Kennungen des Basics 
Kennzeichen für Namen setzen 
Keyword-Token nach ASCII wandeln 
Keyword/Variable tokenisieren 
Kofrena-Einteilungen setzen 
Konstante auswerten 
Konstante nach ASCII wandeln 
Konstante überlesen 
Konstantenwert holen 
Koordinaten holen 
LET bzw. RSX-Wort auswerten 
Linefeed an Drucker ausgeben 
Linefeed an Kassette ausgeben 
Linefeed auf Bildschirm ausgeben 
Linefeed ausgeben 
Löschbereich für DELETE holen 
Meldung des Basics 
Meldung mit Zeilennummer ausgeben 
nach ESC/Break auf Taste warten 
Nachkonma-Nullen unterdrücken 
Nachkommastellen (ohne holen 

Name des ROMs 
Namen und Typ übertragen 
Namen übertragen 

Namenlänge holen, Platz berechnen 

neue Eingabekanal-Nummer setzen 

neue Streamnummer setzen 

neuen Eintrag in FN-Liste generieren 

NEU Fortsetzung 

normale Darstellung 

normale Exponentialdarstellung 

normale Zeile holen/auswerten 

normales bzw. ASCII-Programm laden 

normales bzw. ASCII-Programm mergen 

NOT auswerten 

Nullen an Zahl anhängen 

numerische Eingabe (von Kassette/Diskette) 

nunerischen Ausdruck ausgeben 

nisnerisehen Wert aus FAC holen 

numerischer Vergleich 

numerischer Vergleich 
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DD17 DDOF 

DDOA 

E943 

EA02 

E9FD 

E923 

E9E2 

E9DD 

EDC9 

EE99 

EE94 

DD3F 

DE31 

DE2C 

E7C1 

E887 

E882 

C632 

C6DC 

C6D9 

C7B8 

C860 

C85D 

F7BB 

F865 

F865 

E996 

EA5F 

EA5A 


C4D6 

C4D3 

CBD9 

CCAE 

CCAB 

FE9A 

FEC3 

FEC3 

CF30 

CF9A 

CF97 


C1D7 

C1D4 

C1CB 

C1D2 

C1CF 

C1E3 

CI FE 

CI FB 

C1C6 

Ci CD 

ClCA 

C1D0 

C1E8 

C1E5 


CEE6 

CEE3 

FCB3 

FCF3 

FCF3 

F1 BF 

F266 

F 261 

D3AE 

D400 

D3FD 

D367 D3BA 

D3B7 

D3D8 D428 

D425 

CB93 

CC69 

CC66 

CBBO 

CC86 

CC83 

F5B0 

F675 

F672 

F5F8 

F6BB 

F6B8 

FC19 

FC41 

FC41 

F743 



EE79 

EF49 

EF44 

EE82 

EF4F 

EF4A 

FE60 

FE89 

FE89 

FFOA 

FF32 

FF32 

F208 



F277 

F339 

F334 

F280 

F342 

F33D 

F2C4 

F383 

F37E 

F233 

F2D7 

F2D2 

F25C 

F31E 

F319 

E8FF 

E9BE 

E9B9 

E676 

E766 

E761 

EAB5 

EB68 

EB63 

F52C 

F60C 

F607 

E75A 

E81F 

E81A 

El 0D 

E1E8 

E1E3 

CB76 

CC4C 

CC49 


EC01 

EBFC 

EB5E 

EC31 

EC2C 

F4C4 

F544 

F53F 

FE93 

FEBC 

FEBC 

D50A 

D54F 

D54C 


EA4A 

EA45 


E 2 F1 

E2EC 

E0F0 

El CB 

El C6 

CC20 

CCF2 

CCEF 

CC19 

CCEB 

CCE8 


nächstes DATA-Element suchen 
nächstes Item suchen 

nächstes Statement suchen, Fehler bei Progranmende 

nächstes Zeichen aus Zahl holen 

nächstes Zeichen holen 

nächsthöhere Zeile suchen 

offene FOR-Schleife suchen 

offene WHILE-Schleife suchen 

Offset zu Stringadresse addieren 

Offsets im Statement löschen 

ON BREAK CONT ausschalten 

ON ERROR ausschalten 

Operanden nach Integer wandeln 

Operator behandeln 

optionale Eingabekanalnummer transparent setzen/rücksetzen 

optionale Eingabekanal nimmer holen/setzen 

optionale Filenurrmer holen 

optionale Streamnummer holen/setzen 

optionale Streamnummer transparent setzen/rücksetzen 

Parameter für CALL/RSX holen 

Parameter für Dezi mal Wandlung holen 

Parameter holen, Routine ausführen 

Parametergruppe für ENT holen 

Parametergruppe für ENV holen 

Parametergruppen für ENV/ENT holen 

PC und Zeilenadresse für CONT retten 

PC und Zeilenadresse für CONT retten 

Platz auf Basic-Stack reservieren 

Platz für Prograrrm/Variable schaffen 

Platz für String reservieren 

Platz im Speicher reservieren 

positive Integerzahl ausgeben 

positive Integerzahl nach ASCII wandeln 

positive Integerzahl nach REAL wandeln 

positives Byte in A nach Integer in FAC 

PRINT Fortsetzung 

PRINT SPC 

PRINT TAB 

PRINT USING 

PRINT, Ausdruck ausgeben 

PRINT, Kcxmia-Tabulator 

Programm durchgehen, Routine ausführen 

Programm löschen 

Programm mergen 

Programm/Variablen-Zeiger korrigieren 

Programmbereich für DELETE löschen 

Programmbereich listen 

Progranmende behandeln 

Programmzeichen einiesen 

Programmzeile von Kassette/Diskette laden 

RAM-Zeiger initialisieren 

REAL im FAC nach Integer im FAC wandeln 

REAL-Funktion/-Operator ausführen 

REM bzw. . überlesen 

REM-Token nach ASCII wandeln 
restliche Zeile übernehmen 
RESUME NEXT 
RESUME ohne Parameter 
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C8A4 

C954 

C951 

C8B6 

C964 

C961 

F7F9 

F8A7 

F8A7 

EOCD 

E1A8 

El A3 

E205 

E2D6 

E2D1 

Fl A0 

F24A 

F245 

EC87 

ED58 

ED53 

EC5C 

ED30 

ED2B 

EC3D 

ED 11 

EDOC 

F80F 

F8B7 

F8B7 

E080 

E161 

E15C 

F 295 

F357 

F352 

DD61 

DE52 

DE4D 

F72E 



DD71 

DE62 

DE5D 

E935 

E9F4 

E9EF 

C661 

C705 

C702 

FBDA 

FBF5 

FBF5 

FBE8 

FC03 

FC03 

C341 

C38E 

C38B 

F7E6 

F894 

F894 

F7DC 

F88A 

F88A 

FA2A 



F378 

F421 

F41C 

CE9F 

CF06 

CF03 

EOBF 

E19A 

EWS 

E327 

E3F0 

E3EB 

ECBE 

ED8F 

ED8A 

ECC6 

ED97 

ED92 

FB21 

FB58 

FB58 

FB2E 

FB65 

FB65 

FB8F 

FBB9 

FBB9 

F88B 



FB59 

FB94 

FB94 

F9E9 

FA43 

FA43 

F828 

F8D0 

F8D0 

E95C 

EA23 

EA1E 

F7CB 

F879 

F879 

CEA5 

CFOC 

CF09 

DAE7 

DB06 

DB02 

F5E6 



F5CA 

F68F 

F68C 

F5D1 

F696 

F693 

FBA6 



FBB3 

FBCC 

FBCC 

FB1B 

FB4D 

FB4D 

F897 



CF1E 

CF88 

CF85 

F863 

F91D 

F91D 

FAD4 



C807 

C8B5 

C8B2 

DA74 

DA97 

DA93 

CC5B 

CD 17 

CD 14 

CF81 

CFFO 

CFED 

E64B 

E73B 

E736 

DF30 

E017 

E012 

DFDC 

EOCB 

E0C6 

CFF2 




RETURN Fortsetzung (AFTER/EVERY/SQ) 

RETURN Fortsetzung (OM BREAK) 

Routine weiterführen, String auf Stringstack 

RSX-Code auswerten 

RSX-Code auswerten 

RSX-Wort auswerten 

SAVE ,A 

SAVE ,B 

SAVE ,P 

Sonderzeichen am Stringende eliminieren 
Sonderzeichen auswerten 
Spaces ausgeben 

Spaces, TABs und LFs überlesen 
Speicherbereich freigeben 
Statement nochmals ausführen 
Statementende/THEN/ELSE suchen 
Stepwert ggf. addieren, Ende prüfen 
String aus Stringbereich/Stringstack löschen 
String aus Stringbereich/Stringstack löschen 
String ausgeben 

String bis Trennzeichen übernehmen 

String bis Zeilenende überlesen, auf Stringstack 

String für !NKEY$ holen 

String für US ING ausgeben 

String holen, vom Stringstack löschen 

String in Buffer übernehmen 

String in Keyword-Tabelle suchen 

String in positive Binärzahl wandeln 

String in positive Binärzahl wandeln 

String in Stringbereich forcieren 

String in Stringbereich forcieren 

String in Stringbereich kopieren 

String kopieren 

String kopieren, vorn Stringstack löschen 
String und Byte holen 

String vom Stringstack löschen, ausgeben 
String überlesen 

String überlesen, auf Stringstack 
Stringausdruck holen 
Stringbearbeitungsroutine ausführen 
Stringbereich erweitern 
Stringbereich löschen 
Stringbereich-Platz reservieren 
Stringdescriptor kopieren 
Stringdescriptorstack initialisieren 
Strings in Stringbereich forcieren 
Stringvergleich 
Stringverknüpfung "+" 

Stringverknüpfung "+" 

Suchstring in String suchen 
Synchronous Events bearbeiten 
sämtliche Stringvariablen durchgehen 
Tabelle der Fehlermeldungen 

Tabelle der Hierarchiecodes und Operatorenadressen 

Tabelle der Keywords ohne Buchstaben 

Tabelle der Tokens mit Sonderteil 

Tabelle der Tokens mit Zeilennummer 

Tabelle für Operandenauswertung 
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F224 F2C8 F2C3 Tabelle für PRINT 
EC2C Tabelle für SAVE 

CF07 CF70 CF6D Teilausdruck holen 
F8DC FfiDC Teilstring ausgeben 
F971 F9F3 F9F3 Teilstring holen 
DE26 DE21 Test auf "=" 

FF71 FF92 FF92 Test auf Buchstabe 

FF7B FF9C FF9C Test auf Buchstabe, Ziffer, 

DElE DE19 Test auf Klammer auf 
DE22 DE1D Test auf Klammer zu 
DElA DE 15 Test auf Komma 
DD55 DE46 DE41 Test auf Komma 
F501 F5B0 F5AB Test auf Platz für Binärdatei 
DD51 DE4C DE47 Test auf Statementende 
FF3C FF5E FF5E Test auf String, sonst Fehler 
DD37 DE2A DE25 Test auf Zeichen nach Aufruf 
FF83 FFA4 FFA4 Test auf Ziffer 
FF7F FFAO FFAO Test auf Ziffer oder Dezimalpunkt 
F5E5 F5E0 Test, ob Adresse im Bereich liegt 
FC37 FC37 Test, ob Descriptor im Stringstack ist 
DBB6 DBB1 Text für INPUT holen und ausgeben 
E313 E3DC E3D7 Token in Tabelle suchen 
E2ED E3BD E3B8 Token suchen, Keywordadresse holen 
DDEB DECF DECA Trace-Routine 
FF27 FF66 FF66 Typ des FAC holen, Flags setzen 
FF45 FF66 FF66 Typ des FAC holen, Flags setzen 
FF23 FF4B FF4B Typ des FAC nach A holen 
FE15 FE3B FE3B Typen angleichen, Uerte holen 
EDCE EE9E EE99 unpacked BCD nach Binär wandeln 
F706 F7E9 F7E9 User-Matrix neu setzen 
E1E7 E2B8 E2B3 Variable auswerten 
D686 D6C2 D6BF Variable holen, ggf. neu anlegen 
D690 D6CC D6C9 Variable holen, nicht anlegen 
D6DE D71A D717 Variable suchen 
E968 EA2F EA2A Variable überlesen 
D6D6 D712 D70F Variable überlesen, Typ holen 
F571 Variablen aus Stringbereich zurückholen 

F549 Variablen in Stringbereich retten 

C18C C178 C178 Variablen löschen 

D76D D7A2 D79E Variablen-Offset ins Programm speichern 
D7DB D80A D806 Variablenadresse holen, auf Feld prüfen 
DOFA D151 D14E Variablenadresse nach FAC ("S) 11 ) 

D5AE D5ED D5EA Variablenbereich freigeben 
F62E F629 Variablenbereich schützen 
F63E F640 Variablenbereich wieder ungeschützt 
D906 D935 D931 Variablenname und Offset holen 
D939 D970 D96C Variablennamen auf Basic-Stack 
DF89 E075 E070 Variablennamen auswerten 
D92B D962 D95E Variablennamen vom Basic-Stack 
D731 D769 D765 Variablennamen überlesen 
E989 EA52 EA4D Variablenoffsets löschen 
D97F D9B3 D9AF Variablentyp entsprechend Token setzen 
DFEA E0D6 E0D1 Variablentyp feststellen 
D00D D077 D074 Variablenwert holen 
CF59 CFC8 CFC5 Vergleichsoperator auswerten 
D5C6 D605 D602 verkettete Listen der Felder löschen 
D5BE D5FD D5FA verkettete Listen der Variablen löschen 
D999 D9CD D9C9 VL der Felder neu generieren 
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DACE DAED DAE9 VL durchgehen, Routine ausführen 

F025 F100 FOFB Vorkonrmastellenzahl ohne Sonderzeichenstellen holen 

ED44 EE14 EEOF Vorzeichen im String bestimmen 

F069 F154 F14F Vorzeichen setzen 

FDA3 FDC4 FDC4 Vorzeichen von FAC holen 

F09B Vorzeichenflags holen 

FF4B FF6C FF6C Wert nach FAC kopieren 

C312 C341 C33E Window-Nummer holen 

C28C C289 Window-Nummer transparent setzen 
D92B D927 Word vom Basic-Stack holen 
EFE1 F0B9 F0B4 Zahl bei letzter Stelle um 1 erhöhen 
F2AF F36E F369 Zahl der Spaces MOD Ausgabebreite 
EE9F EF6F EF6A Zahl formatiert nach ASCII wandeln 
EFOA EFD5 EFDO Zahl mit Nachkonmastellen 

EE8F EF5F EF5A Zahl nach ASCII, kein positives Vorzeichen setzen 

EE9D EF6D EF68 Zahl nach ASCII, maximal 9 Ziffern 

Fl 14 Zahl nach Binärstring wandeln 

F1E4 FlDF Zahl nach Hex-/Binär-String wandeln 
F119 Zahl nach Hex-String wandeln 

EFC8 F09F F09A Zahl runden 
FDAF FDD5 FDD5 Zahl runden, nach FAC 
C3B5 C3FF C3FC Zeichen an Drucker ausgeben 
C3F8 C43B C438 Zeichen an Kassette ausgeben 
F06F Zeichen ans Bufferende schreiben 

C356 C3A3 C3A0 Zeichen ausgeben 

C35C C3AB C3A8 Zeichen ausgeben 

C377 C3C4 C3C1 Zeichen ausgeben (ohne LF-Behandlung) 

C424 Zeichen einlesen 

E145 E222 E21D Zeichen für LIST ausgeben 

DC9D DC93 DC8E Zeichen holen, " ", TAB, LF überlesen 

DCA8 DC9E DC99 Zeichen holen, CR/LF auswerten 

E1FE E2CF E2CA Zeichen in LIST-Buffer 

DF25 E00D E008 Zeichen in Token-Buffer 

C45F C45C Zeichen von Kassette lesen 
C439 C472 C46F Zeichen von Tastatur holen 
C414 Zeichen zurück in Kassettenbuffer 

FF1D FF45 FF45 Zeiger auf FAC und Typ holen 

F714 Zeiger auf freien Basic-Bereich holen 
E2DD E3AD E3A8 Zeiger in Keyword-Tabelle holen 
EB48 EC1E EC19 Zeile aus altem Programm kopieren 
DF35 E01C E017 Zeile bis Statementende übernehmen 
DB1A DB36 DB31 Zeile für LINE INPUT holen 
E6D2 E7AA E7A5 Zeile im Progranm einfügen 
E7A3 E869 E864 Zeile im Progranm suchen 
E79A E861 E85C Zeile suchen, ggf. Fehler ausgeben 
DEBB DFA9 DFA4 Zeile tokenisieren 
CA4C CBOD CBOA Zeile von Kassette holen 

E23D E238 Zeile/Zeilenmarmer für AUTO nach ASCII wandeln 
E767 E82C E827 Zeilenadresse holen 
C861 C914 C911 Zeilenadresse in Event-Block speichern 
DDD2 DEB6 DEB1 Zeilenadresse nach HL holen 
E687 E775 E770 Zeilenadressen im Progranm eliminieren 
E69D E78B E786 Zeilenadressen im Statement durch Zeilennimmern ersetzen 
CEE1 CF4B CF48 Zeilennimmer holen 
E864 E925 E920 Zeilennunmer im Statement ersetzen 
DDD6 DEBA DEB5 Zeilennunmer/Direkt-Modus-Flag holen 
EE04 EED4 EECF Zeilennimmern-String wandeln 
CEBO CF12 CFOF Zeilennurmernbereich holen 
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ED53 EE23 EE1E 
EE61 EF31 EF2C 
F1F2 F29E F299 
E89F E960 E95B 
C9C5 CA79 CA76 
CA18 CACC CAC9 
F959 F959 
EB84 EC50 EC4B 
FF05 FF2D FF20 


Ziffernstring nach unpacked BCD wandeln 

Ziffernwert berechnen 

ZONE-Default setzen 

zugehöriges ELSE suchen 

zugehöriges NEXT suchen 

zugehöriges WEND suchen 

zwei Strings vom Stringstack 

Zwei-Byte-Wert von Kassette/Diskette laden 

Zweierkomplements-Byte in A nach Integer in FAC 





5,5.1 Die Jump Restore-Vektoren, 


RAM 

464 

664 

6128 

bboo 

19E0 

1B5C 

1B5C 

BB03 

1A1E 

1B98 

1B98 

BB06 

1A3C 

1BBF 

1 BBF 

BB09 

1A42 

1BC5 

1BC5 

BBOC 

1A77 

1 BFA 

1BFA 

BBOF 

1ABD 

1C46 

1C46 

BBl 2 

1B2E 

1CB3 

1CB3 

BB15 

1A7G 

1C04 

1C04 

BB18 

1B56 

1CDB 

1CDB 

BBl B 

135C 

1CE1 

ICE 1 

BBl E 

1CBD 

1E45 

1E45 

BB21 

1BB3 

1D38 

1D38 

BB24 

1C5C 

1DE5 

1D E 5 

BB27 

1D52 

1ED8 

1ED8 

BB2A 

1D3E 

1EC4 

1EC4 

BB2D 

1D57 

1EDD 

1EDD 

BB30 

1D43 

1EC9 

1EC9 

BB33 

1D5C 

1EE2 

1EE2 

BB36 

1D48 

1ECE 

1ECE 

BB39 

1 CAB 

1E34 

1E34 

BB3C 

1CA6 

1E2F 

1E2F 

BB3F 

1C6D 

1DF6 

1DF6 

BB42 

1C69 

1DF2 

1DF2 

BB45 

1C71 

1DFA 

1DFA 

BB48 

1C82 

1E0B 

1EOB 

BB4B 

1C90 

1E19 

1E19 

BB4E 

1078 

1070 

1074 

BB51 

1088 

1080 

1084 

BB54 

1451 

1455 

1459 

BB57 

144B 

144E 

1452 

BB5A 

1400 

13 FA 

13FE 

BB5D 

1334 

1331 

1335 

BB60 

13AB 

13A8 

13AC 

BB63 

13A7 

13A4 

13A8 

BB66 

120C 

1204 

1208 

BB69 

1256 

124E 

1252 

BB6C 

1540 

154B 

154F 

BB6F 

115E 

1156 

115A 

BB72 

1169 

1161 

1165 

BB75 

1174 

116C 

1170 

BB78 

1180 

1178 

117C 

BB7B 

1289 

1282 

1286 

BB7E 

129A 

1293 

1297 

BB81 

1279 

1272 

1276 

BB84 

1281 

127A 

127E 

BB87 

11CE 

11C6 

11 CA 

BB8A 

1268 

1261 

1265 

BB8D 

1268 

1261 

1265 


Routine 

KM IMITIALIZE 
KM RESET 
KM WA IT CHAR 
KM READ CHAR 
KM CHAR RETURN 
KM SET EXPAND 
KM GET EXPAND 
KM EXP BUFFER RESET 
KM WAIT KEY 
KM READ KEY 
KM TEST KEY 
KM GET STATE 
KM GET JOYSTICK 
KM SET TRANSLATE 
KM GET TRANSLATE 
KM SET SHIFT 
KM GET SHIFT 
KM SET CTRL 
KM GET CTRL 
KM SET REPEAT 
KM GET REPEAT 
KM SET DELAY 
KM GET DELAY 
KM ARM BREAK 
KM DISARM BREAK 
KM BREAK EVENT 
TXT IMITIALIZE 
TXT RESET 
TXT VDU ENABLE 
TXT VDU DISABLE 
TXT OUTPUT 
TXT WR CHAR 
TXT RD CHAR 
TXT SET GRAPHIC 
TXT WIN ENABLE 
TXT GET WINDOW 
TXT CLEAR WINDOW 
TXT SET COLUMN 
TXT SET ROW 
TXT SET CURSOR 
TXT GET CURSOR 
TXT CUR ENABLE 
TXT CUR DISABLE 
TXT CUR ON 
TXT CUR OFF 
TXT VALIDATE 
TXT PLACE CURSOR 
TXT REMOVE CURSOR 


206 Tabellen zu den Listings 


BB90 12A9 12A2 12A6 
BB93 12 BD 12B6 12BA 
BB96 12AE 12A7 12AB 
BB99 12C3 12BC 12C0 
BB9C 12C9 12C2 12C6 
BB9F 137A 1377 137B 
BBA2 1387 1384 1388 
BBA5 12D3 12D0 12D4 
BBA8 12F1 12FE 1302 
BBAB 12 FD 12FA 12FE 
BBAE 132A 1327 132B 
BBB1 14CB 14D0 14D4 
BBB4 10E8 1OEO 10E4 
BBB7 1107 10FF 1103 
BBBA 15B0 15A4 15A8 
BBBD 15DF 15D3 15D7 
BBCO 15F4 15FA 15FE 
BBC3 15F1 15F7 15FB 
BBC6 15FC 1602 1606 
BBC9 1604 160A 160E 
BBCC 1612 1618 161C 
BBCF 1734 16A1 16A5 
BBD2 1779 16E6 16EA 
BBD5 17A6 1713 1717 
BBD8 17BC 1729 172D 
BBDB 17C5 1732 1736 
BBDE 17F6 1763 1767 
BBE1 1804 1771 1775 
BBE4 17FD 176A 176E 
BBE7 180A 1776 177A 
BBEA 1813 177F 1783 
BBED 1810 177C 1780 
BBFO 1827 1793 1797 
BBF3 1824 1790 1794 
BBF6 1839 17A5 17A9 
BBF9 1836 17A2 17A6 
BBFC 1945 193C 1940 
BBFF OAAO OABB OABF 
BC02 0AB1 OACC OADO 
BC05 0B3C 0B33 0B37 
BC08 0B45 0B38 0B3C 
BCOB 0B50 0B52 0B56 
BCOE OACA 0AE5 0AE9 
BC11 OAEC 0B08 OBOC 
BC14 0AF7 0B13 0B17 
BC17 0B57 0B59 0B5D 
BClA 0B64 0B66 0B6A 
BC1D 0BA9 OBAB OBAF 
BC20 0BF9 0C01 0C05 
BC23 0C05 OCOD 0C11 
BC26 0C13 0C1B OClF 
BC29 0C2D 0C35 0C39 
BC2C 0C86 0C8A 0C8E 
BC2F OCAO 0CA3 0CA7 
BC32 OCEC OCEE 0CF2 
BC35 0D14 0D16 ODlA 
BC38 0CF1 0CF3 0CF7 
BC3B 0D19 0D1B ODlF 


TXT SET PEN 

TXT GET PEN 

TXT SET PAPER 

TXT GET PAPER 

TXT INVERSE 

TXT SET BACK 

TXT GET BACK 

TXT GET MATRIX 

TXT SET MATRIX 

TXT SET M TABLE 

TXT GET M TABLE 

TXT GET CONTROLS 

TXT STR SELECT 

TXT SWAP STREAMS 

GRA INITIALIZE 

GRA RESET 

GRA MOVE ABSOLUTE 

GRA MOVE RELATIVE 

GRA ASK CURSOR 

GRA SET ORIGIN 

GRA GET ORIGIN 

GRA WIN WIDTH 

GRA WIN HEIGHT 

GRA GET WINDOW WIDTH 

GRA GET WINDOW HEIGHT 

GRA CLEAR WINDOW 

GRA SET PEN 

GRA GET PEN 

GRA SET PAPER 

GRA GET PAPER 

GRA PLOT ABSOLUTE 

GRA PLOT RELATIVE 

GRA TEST ABSOLUTE 

GRA TEST RELATIVE 

GRA LINE ABSOLUTE 

GRA LINE RELATIVE 

GRA WR CHAR 

SCR INITIALIZE 

SCR RESET 

SCR SET OFFSET 

SCR SET BASE 

SCR GET LOCATION 

SCR SET MODE 

SCR GET MODE 

SCR MODE CLEAR 

SCR CHAR LIMITS 

SCR CHAR POSITION 

SCR DOT POSITION 

SCR NEXT BYTE 

SCR PREV BYTE 

SCR NEXT LINE 

SCR PREV LINE 

SCR INK ENCODE 

SCR INK DECODE 

SCR SET INK 

SCR GET INK 

SCR SET BORDER 

SCR GET BORDER 
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BC3E 0CE4 0CE6 OCEA SCR SET FLASHING 

BC41 0CE8 OCEA OCEE SCR GET FLASHING 

BC44 0DB3 0DB5 0DB9 SCR FILL BOX 

BC47 0DB7 0DB9 ODBD SCR FLOOD BOX 

BC4A ODDF 0DE1 0DE5 SCR CHAR INVERT 

BC4D ODFA ODFC OEOO SCR HARDWARE ROLL 

BC50 0E3E 0E40 0E44 SCR SOFTWARE ROLL 

BC53 0EF3 0EF5 0EF9 SCR UNPACK 

BC56 0F49 0F26 0F2A SCR REPACK 

BC59 0C49 0C51 OC55 SCR ACCESS 

BC5C 0C6B 0C70 0C74 SCR PIXELS 

BC5F 0FC4 0F8F 0F93 SCR HORIZONTAL 

BC62 102F 0F97 0F9B SCR VERTICAL 

BC65 2370 24BC 24BC CAS INITIALIZE 

BC68 237F 24CE 24CE CAS SET SPEED 

BC6B 238E 24E1 24E1 CAS NOISY 

BC6E 2A4B 2BBB 2BBB CAS START MOTOR 

BC71 2A4F 2BBF 2BBF CAS STOP MOTOR 

BC74 2A51 2BC1 2BC1 CAS RESTORE MOTOR 

BC77 2392 24E5 24E5 CAS IN OPEN 

BC7A 23FC 2550 2550 CAS IN CLOSE 

BC7D 2401 2557 2557 CAS IN ABANDON 

BC80 2435 25A0 25A0 CAS IN CHAR 

BC83 24AB 2618 2618 CAS IN DIRECT 

BC86 249A 2607 2607 CAS RETURN 

BC89 2496 2603 2603 CAS TEST EOF 

BC8C 23AB 24FE 24FE CAS OUT OPEN 

BC8F 2415 257F 257F CAS OUT CLOSE 

BC92 242E 2599 2599 CAS OUT ABANDON 

BC95 245B 25C6 25C6 CAS OUT CHAR 

BC98 24EA 2653 2653 CAS OUT DIRECT 

BC9B 2528 2692 2692 CAS CATALOG 

BC9E 283F 29AF 29AF CAS WRITE 

BCAl 2836 29A6 29A6 CAS READ 

BCA4 2851 29C1 29C1 CAS CHECK 

BCA7 1E68 1FE9 1FE9 SOUND RESET 

BCAA 1F9F 2114 2114 SOUND QUEUE 

BCAD 206C 21CE 21CE SOUND CHECK 

BCBO 2089 21EB 21EB SOUND ARM EVENT 

BCB3 204A 21AC 21AC SOUND RELEASE 

BCB6 1 ECB 2050 2050 SOUND HOLD 

BCB9 1EE6 206B 206B SOUND CONTINUE 

BCBC 2338 2495 2495 SOUND AMPL ENVELOPE 

BCBF 233D 249A 249A SOUND TONE ENVELOPE 

BCC2 2349 24A6 24A6 SOUND A ADDRESS 

BCC5 234E 24AB 24AB SOUND T ADDRESS 

BCC8 005C 005C 005C KL CHOKE OFF 

BCCB 0329 0326 0326 KL ROM WALK 

BCCE 0332 0330 0330 KL INIT BACK 

BCD1 02A1 02A0 02A0 KL LOG EXT 

BCD4 02B2 02B1 02B1 KL FIND COMMAND 

BCD7 0163 0163 0163 KL NEW FRAME FLY 

BCDA 016A 016A 016A KL ADD FRAME FLY 

BCDD 0170 0170 0170 KL DELETE FRAME FLY 

BCEO 0176 0176 0176 KL NEW FAST TICKER 

BCE3 017D 017D 017D KL ADD FAST TICKER 

BCE6 0183 0183 0183 KL DELETE FAST TICKER 

BCE9 01B3 01B3 01B3 KL ADD TICKER 
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BCEC 01C5 01C5 01C5 
BCEF 01D2 01D2 0102 
BCF2 01E2 01E2 01E2 
BCF5 0228 0227 0227 
BCF8 0285 0284 0284 
BCFB 0256 0255 0255 
BCFE 021A 0219 0219 
BD01 0277 0276 0276 
BD04 0295 0294 0294 
BD07 029B 029A 029A 
BDOA 023E 028D 028D 
BDOD 0099 0099 0099 
BDlO 00A3 00A3 00A3 
BD13 05DC 05D7 05ED 
BD16 0608 0609 061F 
BDI9 07BA 07A4 07B4 
BD1C 0776 0766 0776 
BDIF 0706 07B0 07C0 
BD22 0786 0776 0786 
BD25 0799 077C 078C 
BD28 07E6 07D0 07E0 
BD2B 07F2 080B 081B 
BD2E 081B 0848 0858 
BD31 0807 0834 0844 
BD34 0826 0853 0863 
BD37 0888 088B 08BD 
BD3A 1D3C 1D3C 
BD3D 1BFE 1BFE 
BD40 145C 1460 
BD43 15E8 15EC 
BD46 19D1 19D5 
BD49 17AC 17B0 
BD4C 17A8 17AC 
BD4F 1626 162A 
BD52 19D5 19D9 
BD55 0B41 0B45 
BD58 07FC 080C 
BD5B 0397 


KL DELETE TICKER 
KL INIT EVENT 
KL EVENT 
KL SYNC RESET 
KL DEL SYNCHROMOUS 
KL NEXT SYNC 
KL DO SYNC 
KL DOME SYNC 
KL EVENT DISABLE 
KL EVENT ENABLE 
KL DISARM EVENT 
KL TIME PLEASE 
KL TIME SET 
MC BOOT PROGRAM 
MC START PROGRAM 
MC WAIT FLYBACK 
MC SET MODE 
MC SCREEN OFFSET 
MC CLEAR INKS 
MC SET INKS 
MC RESET PRINTER 
MC PRINT CHAR 
MC BUSY PRINTER 
MC SEND PRINTER 
MC SOUND REGISTER 
JUMP RESTORE 
KM SET LOCKS 
KM FLUSH 
TXT ASK STATE 
GRA DEFAULT 
GRA SET BACK 
GRA SET FIRST 
GRA SET LINE MASK 
GRA FROM USER 
GRA FILL 

SCR SET POSITION 
MC PRINT TRANSLATION 
KL RAM SELECT 


5.5.2 Nebentabelle nach 464-Vektoren sortiert 


464 464 664 664 6128 6128 

RAM ROM RAM ROM RAM ROM 

BD3A 2A98 BD5B 2C02 BD5E 2C02 EDIT 

BD3D 2E18 BD5E 2F91 BD61 2F91 FLO Zahl kopieren 

8D40 2E29 BD61 2F9F 8D64 2F9F FLO INT nach REAL 

BD43 2E55 BD64 2FC8 BD67 2FC8 FLO 4-Bytes nach REAL 
8D46 2E66 BD67 2FD9 8D6A 2FD9 FLO REAL nach INTEGER 

BD49 2E8E BD6A 3001 BD6D 3001 FLO Zahl runden 

BD4C 2EA1 BD6D 3014 BD70 3014 FLO FIX-Funktion 

BD4F 2EAC BD70 3055 BD73 3055 FLO INT-Funktion 

BD52 2EB6 BD73 305F BD76 305F FLO Zahl für Dezimal-Wandlung aufbereiten 

BD55 2F1D BD76 30C6 BD79 30C6 FLO Zahl mit 10~A multiplizieren 

BD58 333F BD79 34A2 BD7C 34A2 FLO (HL):=(HL)+(DE) 

BD5B 3337 349A 349A FLO (HL) : = (HL)-(DE) 




RAM-Vektoren 209 


BD5E 333B 
BD61 3415 
BD64 349E 
BD67 3578 
BD6A 359A 
BD6D 35F8 
BD70 35E8 
BD73 31AE 
BD76 31A3 
BD79 310A 
BD7C 310D 
BD7F 3014 
BD82 300F 
BD85 3090 
BD88 31BC 
BD8B 31B2 
BD8E 3231 
BD91 3241 
BD94 2E5E 
BD97 2F94 
BD9A 2FA1 
BD9D 2FB7 
BDAO 2FE6 
BDA3 3708 
BDA6 370E 
BDA9 3715 
BDAC 3728 
BDAF 3731 
BDB2 3730 
BDB5 3739 
BDB8 377A 
BDBB 3781 
BDBE 3750 
BDC1 378C 
BDC4 37E9 
BDC7 37D4 
BDCA 37E0 


BD7F 349E 
BD82 3577 
BD85 3604 

BD8B 36DF 
BD8E 3731 
BD91 3727 
BD94 3345 
BD97 2F73 
BD9A 32AC 
BD9D 32AF 
BDAO 31B6 
BDA3 31B1 
BDA6 322F 
BDA9 3353 
BDAC 3349 
BDAF 33C8 
BDB2 33D8 
BDB5 2FD1 
BDB8 3136 
BDBB 3143 
BD7C 3159 
BD88 3188 
DD2F 
DD35 
DD3C 
DD4F 
DD58 
DD57 
DD60 
DDAl 
DDA8 
DD 77 
DDB3 
DE07 
DDF2 
DDFE 


BD82 349E 
BD85 3577 
BD88 3604 

BD8E 36DF 
BD91 3731 
BD94 3727 
BD97 3345 
BD9A 2F73 
BD9D 32AC 
BDAO 32AF 
BDA3 31B6 
BDA6 31 Bl 
BDA9 322F 
BDAC 3353 
BDAF 3349 
BDB2 33C8 
BDB5 33D8 
BDB8 2FD1 
BDBB 3136 
BDBE 3143 
BD7F 3159 
BD8B 3188 
DD2A 
DD30 
DD37 
DD4A 
DD53 
DD52 
DD5B 
DD9C 
DDA3 
DD72 
DDAE 
DE02 
DDED 
DDF9 


FLO (HL) :=(DE)-(HL) 

FLO (HL):=(HL)*(DE) 

FLO (HL):=(HL)/(DE) 

FLO (HL) : = (HL)*2 A A 
FLO Vergleich (HL)-(DE) 

Vorzeichen invertieren 
FLO SGN-Funktion 
FLO DEG/RAD 
FLO PI - Funktion 
FLO SQR-Funktion 
FLO Potenzierung 
FLO LOG-Funktion 
FLO LOGIO-Funktion 
FLO EXP-Funktion 
FLO SIN-Funktion 
FLO COS-Funktion 
FLO TAN-Funktion 
FLO ATN-Funktion 
FLO 5-Bytes nach REAL 
FLO RND INITIALIZE 
FLO RND SEED 
FLO RND-Funktion 
FLO letzter RND-Wert 

INT Zweierkomp-Zahl für Dezimal-Wandlung holen 

INT Dezimal-Wandlung-Params für pos. Integer 

INT signed Binary nach Zweierkomplement 

INT HL:=HL+DE 

INT HL:=HL-DE 

INT HL:=DE-HL 

INT HL:=HL*DE 

INT HL:=HL DIV DE 

INT HL:=HL MOD DE 

vorzeichenlose Multiplikation 

vorzeichenlose Division 

INT Vergleich HL-DE 

INT HLHL 

INT A:=SGN(HL) 


5.5.3 Nebentabelle nach 664/6128-Vektoren sortiert 


464 

464 

664 

664 

6128 

6128 




RAM 

ROM 

RAM 

ROM 

RAM 

ROM 




BD3A 

2A98 

BD5B 

2C02 

BD5E 

2C02 

EDIT 


BD3D 

2E18 

BD5E 

2F91 

BD61 

2F91 

FLO 

Zahl 

kopieren 

BD40 

2E29 

BD61 

2F9F 

BD64 

2F9F 

FLO 

INT 

nach REAL 

BD43 

2E55 

BD64 

2FC8 

BD67 

2FC8 

FLO 

4-Bytes nach REAL 

BD46 

2E66 

BD67 

2FD9 

BD6A 

2FD9 

FLO 

REAL 

nach INTEGER 

BD49 

2E8E 

BD6A 

3001 

BD6D 

3001 

FLO 

Zahl 

runden 

BD4C 

2EA1 

BD6D 

3014 

BD70 

3014 

FLO 

FIX - 

Funktion 

BD4F 

2EAC 

BD70 

3055 

BD73 

3055 

FLO 

I NT - 

Funktion 

BD52 

2EB6 

BD73 

305F 

BD76 

305F 

FLO 

Zahl 

für Dezimal-Wandlung aufbereiten 

BD55 

2 F1D 

BD76 

30C6 

BD79 

30C6 

FLO 

Zahl 

mit 10 A A multiplizieren 

BD58 

333F 

BD79 

34A2 

BD7C 

34A2 

FLO 

(HL) 

:=(HL)+(DE) 

BD9D 

2FB7 

BD7C 

3159 

BD7F 

3159 

FLO 

RND- 

Funktion 

BD5E 

333B 

BD7F 

349E 

BD82 

349E 

FLO 

(HL) 

:=(DE)-(HL) 
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BD61 

3415 

BD82 

3577 

BD85 

3577 

FLO 

(HL) : = (HL)*(DE) 

BD64 

349E 

BD85 

3604 

BD88 

3604 

FLO 

(HL) : = (HL)/(DE) 

BDAO 

2FE6 

BD88 

3188 

BD8B 

3188 

FLO 

letzter RND-Wert 

BD6A 

359A 

BD8B 

36DF 

BD8E 

36DF 

FLO Vergleich (HL)-(DE) 

BD6D 

35F8 

BD8E 

3731 

BD91 

3731 

Vorzeichen invertieren 

BD70 

35E8 

BD91 

3727 

BD94 

3727 

FLO 

SGN-Funktion 

BD73 

31AE 

BD94 

3345 

BD97 

3345 

FLO 

DEG/RAD 

BD76 

31A3 

BD97 

2F73 

BD9A 

2F73 

FLO 

PI ■Funktion 

BD79 

310A 

BD9A 

32AC 

BD9D 

32AC 

FLO 

SQR-Funktion 

BD7C 

31OD 

BD9D 

32AF 

BDAO 

32AF 

FLO 

Potenzierung 

BD7F 

3014 

BDAO 

31B6 

BDA3 

31B6 

FLO 

LOG-Funktion 

BD82 

300F 

BDA3 

31 Bl 

BDA6 

31B1 

FLO 

LOG10-Funktion 

BD85 

3090 

BDA6 

322F 

BDA9 

322F 

FLO 

EXP-Funktion 

BD88 

31BC 

BDA9 

3353 

BDAC 

3353 

FLO 

SIN-Funktion 

BD8B 

31B2 

BDAC 

3349 

BDAF 

3349 

FLO 

COS-Funktion 

BD8E 

3231 

BDAF 

33C8 

BDB2 

33C8 

FLO 

TAN-Funktion 

BD91 

3241 

BDB2 

33D8 

BDB5 

33D8 

FLO 

ATN-Funktion 

BD94 

2E5E 

BDB5 

2FD1 

BDB8 

2 FD 1 

FLO 

5-Bytes nach REAL 

BD97 

2F94 

BDB8 

3136 

BDBB 

3136 

FLO 

RND INITIALIZE 

BD9A 

2FA1 

BDBB 

3143 

BDBE 

3143 

FLO 

RND SEED 


5.5.4 Die Indirections 

RAM 

464 

664 

6128 



BDCD 

1263 

125B 

125F 

TXT 

DRAW CURSOR 

BDD0 

1263 

125B 

125F 

TXT 

UNDRAW CURSOR 

BDD3 

134A 

1347 

134B 

TXT 

WRITE CHAR 

BDD6 

13C0 

13BA 

13BE 

TXT 

UNWRITE 

BDD9 

HOC 

1406 

140A 

TXT 

OUT ACT ION 

BDDC 

1816 

1782 

1786 

GRA 

PLOT 

BDDF 

182A 

1796 

179A 

GRA 

TEST 

BDE2 

183C 

17B0 

17B4 

GRA 

LINE 

BDE5 

0C82 

0C8C 

0C90 

SCR 

READ 

BDE8 

0C68 

0C6D 

0C71 

SCR 

WRITE 

BDEB 

0AF7 

0B13 

0B17 

SCR 

MODE CLEAR 

BDEE 

1C2F 

1DB8 

1DB8 

KM 

TEST BREAK 

BDF1 

07F8 

0825 

0835 

MC 1 

WAIT PRINTER 

BDF4 


1D40 

1D40 

KM 

SCAN KEYS 
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5.6 Die Basic-Tokens 

00 Zeilenende 

01 : 

02 markierte Integervariable 

03 markierte Stringvariable 

04 markierte REAL-Variable 

07 (??) 

08 (??) 

OB unmarkierte Integervariable 

0C unmarkierte Stringvariable 

0D unmarkierte REAL-Variable 

0D unmarkierte Variable ohne 

festgestellten Typ 
0E Konstante 0 

0F Konstante 1 

10 Konstante 2 

11 Konstante 3 

12 Konstante 4 

13 Konstante 5 

14 Konstante 6 

15 Konstante 7 

16 Konstante 8 

17 Konstante 9 

18 (Konstante 10) 

19 1-Byte-Konstante 

1A 2-Byte-Konstante 

1B 2-Byte-Konstante, binär 

IC 2-Byte-Konstante, hex 

ID Zeilenadresse (Zeiger 

auf Null am Zeilenende) 
iE Zeilennummer 

1F 5-Byte-REAL-Wert 

80 AFTER 

81 AUTO 

82 BORDER 

83 CALL 

84 CAT 

85 CHAIN 

86 CLEAR 

87 CLG 

88 CLOSEIN 

89 CLOSEOUT 

8A CLS 

8B CONT 

8C DATA 

8D DEF 

8E DEFINT 

8F DEFREAL 

90 DEFSTR 

91 DEG 

92 DELETE 

93 DIM 

94 DRAU 

95 DRAUR 

96 EDIT 

0197 ELSE 
98 END 
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99 ENT 

9A ENV 

9B ERASE 

9C ERROR 

9D EVERY 

9E FOR 

9F GOSUB 

AO GOTO 

AI IF 

A2 INK 

A3 INPUT 

A4 KEY 

A5 LET 

A6 LINE 

A7 LIST 

A8 LOAD 

A9 LOCATE 

AA MEMORY 

AB MERGE 

AC MID$ 

AD MODE 

AE MOVE 

AF MOVER 

BO NEXT 

Bl NEW 

B2 ON 

B3 ON BREAK 

B4 ON ERROR GOTO 0 

B5 ON SQ 

B6 OPENIN 

B7 OPENOUT 

B8 ORIGIN 

B9 OUT 

BA PAPER 

BB PEN 

BC PLOT 

BD PLOTR 

BE POKE 

BF PRINT 

01C0 1 

CI RAD 

C2 RANDOMIZE 

C3 READ 

C4 RELEASE 

C5 REM 

C6 RENUM 

C7 RESTORE 

C8 RESUME 

C9 RETURN 

CA RUN 

CB SAVE 

CC SOUND 

CD SPEED 

CE STOP ' 

CF SYMBOL 

DO TAG 

Dl TAGOFF 

02 TROFF 
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D3 

TRON 


D4 

WA IT 


D5 

WEND 


D6 

WH ILE 


D7 

WIDTH 


D8 

WINDOW 


D9 

WRITE 


DA 

ZONE 


DB 

Dl 


DC 

EI 


DD 

FILL (nur CPC 

664/6128) 

DE 

GRAPHICS (nur 

CPC 664/6128) 

DF 

MASK (nur CPC 

664/6128) 

EO 

FRAME (nur CPC 

: 664/6128) 

El 

CURSOR (nur CPC 664/6128) 

E3 

ERL 


E4 

FN 


E5 

SPC 


E6 

STEP 


E7 

SWAP 


EA 

TAB 


EB 

THEN 


EC 

TO 


ED 

USING 


EE 

> 


EF 

= 


FO 

>= 


FO 

= > 


Fl 

< 


F2 

<> 


F3 

<= 


F3 

= < 


F 4 

+ 


F5 

- 


F6 

* 


F7 

/ 


F8 

A, 


F9 

\ 


FA 

AND 


FB 

MOD 


FC 

OR 


FD. 

XOR 


FE 

NOT 


FFOO 

ABS 


FF01 

ASC 


FF02 

ATN 


FF 03 

CHR$ 


FF04 

CINT 


FF05 

COS 


FF06 

CREAL 


FF07 

EXP 


FF08 

FIX 


FF09 

FRE 


FFOA 

INKEY 


FFOB 

I NP 


FFOC 

INT 


FFOD 

JOY 


FFOE 

LEN 
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FFOF LOG 
FF10 LOGIO 
FF 11 LOWERS 
FF12 PEEK 
FF13 REMAIN 
FF14 SGN 
FF15 SIN 
FF16 SPACES 
F F17 SQ 
FF18 SQR 
FF19 SIRS 
FFlA TAN 
FF1B UNT 
FF1C UPPERS 
FF1D VAL 
FF40 EOF 
FF41 ERR 
FF42 HIMEM 
FF43 INKEYS 
FF44 PI 
FF45 RND 
FF46 TIME 
FF47 XPOS 
FF48 YPOS 

FF49 DERR (nur CPC 664/6128) 

FF71 BINS 
FF72 DECS 
FF73 HEXS 
FF74 INSTR 
FF75 LEFTS 
FF76 MAX 
FF77 MIN 
FF78 POS 
FF79 RIGHTS 
FF7A ROUND 
FF7B STRINGS 
FF7C TEST 
FF7D TESTR 

FF7E COPYCHRS (nur CPC 664/6128) 
FF7F VPOS 
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6 Die Listings der CPC-ROMs 

In diesem Teil finden Sie die Listings der ROMs des CPC 464, des CPC 
664 und des CPC 6128, jeweils getrennt nach Operating System und Basic. 
Nicht behandelt werden die DOS-ROMs von CPC 664 und CPC 6128. Die 
ROMs sind vollständig disassembliert und dokumentiert. Dort, wo sich kein 
Programm, sondern Tabellen oder andere Daten befanden, haben wir statt 
des Disassembler-Listings eine jeweils angemessene Repräsentation der 
Daten aufgenommen. Für die Dokumentation gilt, daß sie einen - hoffent¬ 
lich gelungenen - Kompromiß zwischen der nötigen Ausführlichkeit und 
dem doch sehr eingeschränkten Platz darstellt, der zur Darstellung teilweise 
komplexer Zusammenhänge zur Verfügung stand. Um dennoch möglichst 
viel Informationen liefern zu können, mußten wir an vieien Stellen 
Gebrauch von Abkürzungen machen, was zweifellos die Lesbarkeit des 
Listings ein wenig herabsetzt. Wir hoffen aber, einen guten Mittelweg 
gefunden zu haben. 

Wir haben versucht, die Darstellung der ROMs möglichst zu vereinheitli¬ 
chen, um so die Konsistenz des Listings zu erhöhen. Für alle Listings 
haben wir daher folgende Standards eingeführt: 

1. Wir haben die Listings in der allgemein, von Z80-Assemblern ver¬ 
wendeten Notation dargestellt. Darüberhinaus sind noch Sternchen¬ 
reihen eingefügt, um den Anfang einer Routine zu markieren. Dies 
wurde bei allen eigenständigeren Routinen gemacht. Routinenteile, 
die nur einen Sinn innerhalb einer größeren Routine haben (so z.B. 
Austrittspunkte aus Routinen), haben keine eigene Sternchenreihe 
erhalten, sind aber durch eine Leerzeile von der Hauptroutine abge¬ 
setzt. Alle Routinen, die mit einer Sternchenreihe gekennzeichnet 
wurden, sind auch in den entsprechenden Routinentabellen aufge¬ 
führt. Auch andere Einträge, so z.B ASCII-Tabellen, sind mit 
Sternchenreihen versehen. 

2. Bei Routinen, denen vom aufrufenden Programm Parameter über¬ 
geben werden müssen bzw. die an das aufrufende Programm Para¬ 
meter zurück übergeben, haben wir nach der Routinenüberschrift 
(also nach der Sternchenreihe) einen IN/OUT-Block eingefügt. 
Dabei sind unter IN die Parameter gelistet, die der Routine über¬ 
geben werden müssen, unter OUT diejenigen, die sie zurück über¬ 
gibt. Die Parameter werden nach dem Register bzw. der Speicher¬ 
stelle, über die sie übergeben werden, und nach ihrer Bedeutung 
aufgeführt. 
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3. Vielfach ist es nicht sinnvoll, bei einer Reihe von Prozessorbefehlen 
jeden einzelnen Befehl zu dokumentieren, z.B. wenn zwei Words 
über den Akku addiert werden oder eine FLO-Mantisse verschoben 
wird. In solchen Fällen wurden die Befehle mit einer gemeinsamen 
I Dokumentation versehen, was dadurch kenntlich gemacht ist, daß 
diese Texte um zwei Zeichen eingerückt sind. 


6.1 Die Listings des CRC 464-ROMs 

6.1.1 Das CPC-464-Betriebssystem 

Das Betriebssystem des CPC ist in verschiedene semantische Abschnitte 
gegliedert, sogenannte Packs. Diese Packs beginnen im CPC 464 bei den 
folgenden Adressen: 

1. Kernel (KL) $0000 

2. Machine Pack (MC) $0580 

3. Jump Restore $0888 

4. Screen Pack (SCR) $0AA0 

5. Text Screen Pack (TXT) $1078 

6. Graphics Screen Pack (GRA) |15B0 

7. Keyboard Manager (KM) $19E0 

8. Sound Manager (SOUND) $1E68 

9. Cassette Manager (CAS) $2370 

10. Editor (EDIT) $2A98 

11. Floating Point Arithmetics (FLO) $2E18 

12. Integer Arithmetics (INT) $3708 (Zeichensatz $3800) 

Im Listing sind die Packgrenzen jeweils durch eine Strichreihe gekennzei¬ 
chnet. 

Beim Listen des Betriebssystems mußten einige Besonderheiten berücksich¬ 
tigt werden. So die Tatsache, daß ein Teil des Kernels (von $0391 bis 
$0579) in das RAM ab $B900 kopiert wird, um dort unabhängig vom Status 
der einzelnen ROMs immer verfügbar zu sein. Im Listing wurde dieses 
Segment mit der RAM-Adresse UND der ROM-Adresse aufgeführt. 

Auch war die Routinentabelle des Jump Restore zu berücksichtigen. Sie 
wird ebenfalls in das RAM (ab $BB00) kopiert. Die einzelnen Spalten des 
Listings haben folgende Bedeutung: Die erste Spalte gibt die RAM-Adresse 
des jeweiligen Vektors an, die nächsten drei Spalten sind ein Hex-Dump 
des RAM. In der fünften Spalte steht die ROM-Adresse, die nächsten bei¬ 
den Spalten sind ein Hex-Dump des ROM. Dann kommt der disassemblier- 
te RAM-Vektor (mit jeweiliger Routinenadresse). In der letzten Spalte 
schließlich steht der Name der angesprungenen Routine. 
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. KERNEL (KL) . 

********************************** RSTOi System Reset 


0000 

01 

89 

7F 

LD 

BC,7F89 

U ROM ausschalten, 

0003 

ED 

49 


OUT 

(C),C 

L ROM einschalten 

0005 

C3 

80 

05 

JP 

0580 

System initialisieren 


********************************** RST1: LO JUMP 

(Sprung $0000-$3FFF) 

0008 C3 82 B9 JP B982 


********************************** I_q pCHL 

(Sprung $0000-$3FFF, PC in HL) 

000B C3 7C B9 JP B97C 

********************************** jp (ßC) 

000E C5 PUSH BC 

000F C9 RET 

********************************** RST2; LO SIDE CALL 

(Sprung $C000-$FFFF) 

0010 C3 16 BA JP BA16 

********************************** kl SIDE PCHL 

(Sprung $C000-$FFFF, Adr. in HL) 

0013 C3 10 BA JP BA10 

********************************** Jp ([)f) 

0016 D5 PUSH DE 

0017 C9 RET 

********************************** rst3: LO FAR CALL 

(Sprung über gesamten Bereich in beliebige, 
auch externe, ROMs) 

0018 C3 BF B9 JP B9BF 

********************************** kl FAR PCHL 

(Sprung wie RST3, Adr. in HL) 

001B C3 Bl B9 JP B9B1 

.********************************** jp (HL) 

001E E9 JP (HL) 

001F 00 NOP 

********************************** RST4* RAM LAM 

(Byte aus RAM holen) 

IN : HL: Adresse 
OUT: A: Byte 

0020 C3 CB BA JP BACB 

********************************** kl FAR CALL 

(wie LO FAR CALL, jedoch Adresse in HL) 

IN : HL: Adr. Aufrufadr. und Konfiguration 


0023 

C3 B9 B9 

JP 

B9B9 

0026 

00 

NOP 


0027 

00 

NOP 
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********************************** 


0028 

C3 

2E 

BA 

JP 

BA2E 

002B 

00 





002C 

ED 

49 


OUT 

(C),C 

002E 

D9 



EXX 


002F 

FB 



EI 


********************************** 

0030 

F3 



DI 


0031 

D9 



EXX 


0032 

21 

2B 

00 

LD 

HL,002B 

0035 

71 



LD 

(HL),C 

0036 

18 

08 


JR 

0040 

********************************** 

0038 

C3 

39 

B9 

JP 

B939 

********************************** 

003B 

C9 



RET 


003C 

00 



NOP 


003D 

00 



NOP 


003E 

00 



NOP 


003F 

00 



NOP 


0040 

CB 

Dl 


SET 

2,C 

0042 

18 

E8 


JR 

002C 

********************************** 

0044 

21 

40 

00 

LD 

HL,0040 

0047 

2D 



DEC 

L 

0048 

7E 



LD 

A,(HL) 

0049 

77 



LD 

(HL),A 

004A 

20 

FB 


JR 

NZ,0047 

004C 

3E 

C7 


LD 

A,C7 

004E 

32 

30 

00 

LD 

(0030),A 

0051 

21 

91 

03 

LD 

HL,0391 

0054 

11 

00 

B9 

LD 

DE,B900 

0057 

01 

E9 

01 

LD 

BC,01E9 

005A 

ED 

B0 


LD IR 


********************************** 


005C 

F3 



DI 


005D 

3A 

AB 

Bl 

LD 

A, (BlAB) 

0060 

ED 

5B 

A9 Bl 

LD 

DE,(BlA9) 

0064 

06 

CO 


LD 

B,C0 

0066 

21 

00 

Bl 

LD 

HL,Bl 00 

0069 

36 

00 


LD 

(HL),00 

006B 

23 



INC 

HL 

006C 

10 

FB 


DJNZ 

0069 

006E 

47 



LD 

B,A 

006F 

0E 

FF 


LD 

C, FF 

0071 

A9 



XOR 

C 


RST5: FIRM JUMP 
(Sprung mit L ROM ein) 


Zwischenspeicher f. Konfig. 
Konfig. ausgeben 

1. Registersatz wiederanschalten 
Interrupt erlauben 

RST6: USER 

Interrupt ausschalten 

2. Registersatz an 

Zeiger auf Buffer f. Konfig. 
Konfig. retten 


RST7: INTERRUPT 


EXT INTERRUPT VECTOR 


L ROM ausschalten 

und Schleife wieder durchlaufen 

Restore Hi Kernel Jumps 
$0000-$003F 
ins 
RAM 

kopieren 

Opcode f. RST0 

bei RST6 (USER) ablegen 

von $0391 

nach $B900 

$01E9 Bytes ins RAM 

kopieren 

KL CHOKE OFF 

OUT: C=00, wenn kein ext. ROM 
B: ROM No. 

DE: Einsprung in ROM 

lfd. Konfiguration 
Einsprung in lfd. Exp.ROM 
$C0 Bytes 
ab $B100 
löschen 


Konfiguration 
Flag 

Konfig.=$FF (64K RAM)? 
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0072 

CO 

RET 

NZ 

0073 

4F 

LD 

C,A 

0074 

5F 

LD 

E,A 

0075 

57 

LD 

D,A 

0076 

C9 

RET 



********************************** 


0077 

7C 



LD 

A,H 

0078 

B5 



OR 

L 

0079 

79 



LD 

A,C 

007A 

20 

04 


JR 

NZ,0080 

007C 

7D 



LD 

A,L 

007D 

21 

06 

CO 

LD 

HL.C006 

0080 

32 

A8 

Bl 

LD 

(B1A8),A 

0083 

32 

AB 

Bl 

LD 

(B1AB),A 

0086 

22 

A9 

Bl 

LD 

(B1A9),HL 

0089 

21 

FF 

AB 

LD 

HL,ABFF 

008C 

11 

40 

00 

LD 

DE,0040 

008F 

01 

FF 

B0 

LD 

BC,B0FF 

0092 

31 

00 

CO 

LD 

SP,C000 

0095 

DF 



RST 

18 

0096 

A9 

Bl 




0098 

C7 



RST 

00 


********************************** 


0099 

F3 



DI 


009A 

ED 

5B 

89 Bl 

LD 

DE,(B189) 

009E 

2A 

87 

Bl 

LD 

HL,(B187) 

00A1 

FB 



EI 


00A2 

C9 



RET 



********************************** 


00A3 

F3 



DI 


00A4 

AF 



XOR 

A 

00A5 

32 

8B 

Bl 

LD 

(B18B),A 

00A8 

ED 

53 

89 Bl 

LD 

(B189),DE 

00AC 

22 

87 

Bl 

LD 

(B187),HL 

00AF 

FB 



EI 


00B0 

C9 



RET 



********************************** 


00B1 

21 

87 

Bl 

LD 

HL,B187 

00B4 

34 



INC 

(HL) 

00B5 

23 



INC 

HL 

00B6 

28 

FC 


JR 

Z,00B4 

00B8 

06 

F5 


LD 

B.F5 

00BA 

ED 

78 


IN 

A, (C) 

00BC 

1 F 



RRA 


00BD 

30 

08 


JR 

NC,00C7 

00BF 

2A 

8C 

Bl 

LD 

HL,(B18C) 


sonst zurück 

durchgehend RAM? dann 
Flag und Einsprung 
auf null setzen 


Reset cont'd 2 
IN : HL: Einsprung 
(=0 f. Basic) 

C: ROM-Konfiguration 
OUT: DE: Lo-RAM 
HL: Hi-RAM 

BC: Ende User-System-RAM 
Einsprung 
gleich null? 

Konfiguration 
sonst weiter 
0 als Konfiguration 
als Default Einsprung 
lfd. Konfiguration setzen 
Konfig. f. Sprung setzen 
Einsprungadresse setzen 
Hi-RAM 
Lo-RAM 

Ende User-System-RAM 
Stackpointer Startwert 
Programm anspringen 
bei (B1A9) 
bei Rückkehr Reset 

KL TIME PLEASE 

OUT: DE,HL: 4 Bytes Timer 

Timer Hi Word 
Timer Lo Word 


KL TIME SET 

IN : DE,HL: 4 Bytes Timer 

Sperrbyte 

setzen 

Timer Hi setzen 
Timer Lo setzen 


Scan Events 
T imer 
erhöhen 

Zeiger auf nächstes Timer-Byte 
bei Übertrag dieses erhöhen 
Port B, PIO 
laden 

VSYNC ins Carry 

kein VSYNC? dann weiter 

Start Frame Fly Chain (FFC) 
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00C2 

7C 



LD 

A, H 

00C3 

B7 



OR 

A 

00C4 

C4 

53 

01 

CALL 

NZ,0153 

00C7 

2A 

8E 

Bl 

LD 

HL,(B18E) 

00CA 

7C 



LD 

A,H 

00CB 

B7 



OR 

A 

00CC 

C4 

53 

01 

CALL 

NZ,0153 

00CF 

CD 

61 

1 F 

CALL 

1F61 

00D2 

21 

92 

Bl 

LD 

HL,B192 

00D5 

35 



DEC 

(HL) 

00D6 

CO 



RET 

NZ 

00D7 

36 

06 


LD 

(HL),06 

00D9 

CD 

B7 

1B 

CALL 

1BB7 

00DC 

2A 

90 

Bl 

LD 

HL, (B190) 

00DF 

7C 



LD 

A,H 

00E0 

B7 



OR 

A 

00E1 

C8 



RET 

Z 

00E2 

21 

04 

Bl 

LD 

HL,B104 

00E5 

CB 

C6 


SET 

0,(HL) 

00E7 

C9 



RET 



************************************ 


00E8 

2B 




DEC 

HL 

00E9 

36 

00 



LD 

(HL),00 

00EB 

2B 




DEC 

HL 

00EC 

3A 

01 

Bl 


LD 

A, (B101) 

00EF 

B7 




OR 

A 

00F0 

20 

oc 



JR 

NZ,00FE 

00F2 

22 

00 

Bl 


LD 

(B100),HL 

00F5 

22 

02 

Bl 


LD 

(Bl 02),HL 

00F8 

21 

04 

Bl 


LD 

HL,Bl 04 

00FB 

CB 

F6 



SET 

6,(HL) 

00FD 

C9 




RET 


00FE 

ED 

5B 

02 

Bl 

LD 

DE,(B102) 

0102 

22 

02 

Bl 


LD 

(Bl 02),HL 

0105 

EB 




EX 

DE,HL 

0106 

73 




LD 

(HL),E 

0107 

23 




INC 

HL 

0108 

72 




LD 

(HL),D 

0109 

C9 




RET 


it Vr VrVr ** ir * ************ it ******** Vr itit Vr 

010A 

ED 

73 

05 

Bl 

LD 

(B105),SP 

010E 

31 

87 

Bl 


LD 

SP,Bl 87 

0111 

E5 




PUSH 

HL 

0112 

D5 




PUSH 

DE 

0113 

C5 




PUSH 

BC 

0114 

21 

04 

Bl 


LD 

HL,Bl 04 

0117 

CB 

76 



BIT 

6,(HL) 

0119 

28 

IE 



JR 

Z,0139 

011B 

CB 

FE 



SET 

7,(HL) 

01 ID 

2A 

00 

Bl 


LD 

HL,(Bl 00) 

0120 

7C 




LD 

A, H 

0121 

B7 




OR 

A 

0122 

28 

OE 



JR 

Z,0132 

0124 

5E 




LD 

E, (HL) 


gibt es Einträge 
in FFC ? 

dann FFC bearbeiten 
Start Fast Ticker Chain (FTC) 
gibt es Einträge 
in FTC? 

dann FTC bearbeiten 
Sound Queues durchgehen 
Frequenzteiler f„ Ticker Chain 
herunterzäh len 
<>0? dann zurück 
sonst TC-Zähler auf Startwert 
Tastatur abfragen 
Start Ticker Chain (TC) 
gibt es Einträge 
in der TC? 

sonst (TC leer) raus 

sonst Interrupt-Flag (INTFLG) 

bO f. TC bearbeiten setzen 


async, not Expr. Events einhängen 
IN : HL: Zeiger auf PQ-Zähler 
Zeiger auf KAPQ 
Hi-Byte löschen 

Zeiger auf das Lo-Byte d. KAPQ 
Start d. async. Pend. Queue 
bereits Einträge in der APQ? 
dann in bestehende Queue einh. 
sonst lfd. Event als APQ-Start 
und als Ende d. APQ setzen 
Interrupt-Flag 
b6 setzen f. APQ nicht leer 


letzter APQ-Eintrag 

Adr. lfd. Event dafür setzen 

und Adr. lfd. Event 
in die KAPQ des alten 
Events speichern 


async. PQ und Ticker Chain bearb. 
Stackpointer retten 

Register 
retten 

Interrupt Flag 
Einträge in APQ? 
sonst TC bearbeiten 
b7 INTFLG:=1 f. APQ in Bearb. 
Start d. APQ 
APQ 

zuende? 

dann ggf. TC bearbeiten 
KA d. lfd. Eintrags 




Die Listings des CPC 464-ROMs 221 


0125 

23 




INC 

HL 

0126 

56 




LD 

D, (HL) 

0127 

ED 

53 

00 

Bl 

LD 

(B100),DE 

012B 

23 




INC 

HL 

012C 

CD 

0A 

02 


CALL 

020A 

012 F 

F3 




DI 


0130 

18 

EB 



JR 

01 ID 

0132 

21 

04 

Bl 


LD 

HL,Bl 04 

0135 

CB 

46 



BIT 

0, (HL) 

0137 

28 

10 



JR 

Z, 0149 

0139 

36 

00 



LD 

(HL),00 

013B 

37 




SCF 


013C 

08 




EX 

AF,AF' 

013D 

CD 

89 

01 


CALL 

0189 

0140 

B7 




OR 

A 

0141 

08 




EX 

AF,AF 1 

0142 

21 

04 

Bl 


LD 

HL,Bl 04 

0145 

7E 




LD 

A, (HL) 

0146 

B7 




OR 

A 

0147 

20 

D2 



JR 

NZ,011B 

0149 

36 

00 



LD 

(HL),00 

014B 

Ci 




POP 

BC 

014C 

Dl 




POP 

DE 

014D 

El 




POP 

HL 

014E 

ED 

7B 

05 

Bl 

LD 

SP,(B105) 

0152 

C9 




RET 


********************************** 

0153 

5E 




LD 

E,(HL) 

0154 

23 




INC 

HL 

0155 

7E 




LD 

A,(HL) 

0156 

23 




INC 

HL 

0157 

B7 




OR 

A 

0158 

CA 

E2 

01 


JP 

Z,01E2 

015B 

57 




LD 

D, A 

015C 

D5 




PUSH 

DE 

015D 

CD 

E2 

01 


CALL 

01E 2 

0160 

El 




POP 

HL 

0161 

18 

FO 



JR 

0153 


in der APQ 
nach DE 

und als neuen APQ-Start setzen 
Zeiger auf PQ-Zähler 
Event ausführen 

nächsten APQ-Eintrag bearb. 
Interrupt-Flag 
Ticker aktiv? 
sonst raus 

Interrupt-Flags löschen 
CY:=1 f. 'Interrupt laufend' 
ins Interrupt Set 
Ticker Chain bearbeiten 
CY:=0 f. 'Interrupt frei 1 
ins Interrupt Set 
Interrupt Flags 
laden 

und testen 

APQ-Einträge? d. ausführen 
sonst Interrupt Flags löschen 
Register 

wiederherstellen 
Stackpointer wieder zurück 


KL KICK EVENT 

IN : HL: Start d. Chain (FFC/FTC) 
KA innerhalb 
der Chain 
nach A,E laden 
Zeiger auf PQ-Zähler 
letzter Eintrag? 
d. einhängen, raus 
KA nach DE 
und retten 
lfd. Event einhängen 
Zeiger nächster Event nach HL 
und nächsten Event bearbeiten 


********************************** NEW FRAME FLY 

IN : HL: Zeiger auf KAFFC 
DE: Routinenadresse 
B: Priority Byte 


C: ROM-Konfiguration 


0163 

E5 

PUSH 

HL 

Zeiger auf KAFFC 

0164 

23 

INC 

HL 

Zeiger auf 

0165 

23 

INC 

HL 

den PQ-Zähler 

0166 

CD D2 01 

CALL 

01D2 

Event Block aufbauen 

0169 

El 

POP 

HL 

Zeiger auf KAFFC 


********************************** 


016A 

11 

8C 

Bl 

LD 

DE.B18C 

016D 

C3 

73 

03 

JP 

0373 


KL ADD FRAME FLY 
IN : HL: Zeiger auf KAFFC 
Start der FFC 
Event in FFC einhängen 
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********** ****************** ****** 


0170 

11 

8C 

Bl 

LD 

DE,B18C 

0173 

C3 

82 

03 

JP 

0382 

********************************** 


0176 

E5 



PUSH 

HL 

0177 

23 



INC 

HL 

0178 

23 



INC 

HL 

0179 

CD 

D2 

01 

CALL 

01D2 

017C 

El 



POP 

HL 

********************************** 

017D 

11 

8E 

Bl 

LD 

DE,B18E 

0180 

C3 

73 

03 

JP 

0373 

********************************** 


0183 

11 

8E 

Bl 

LD 

DE,B18E 

0186 

C3 

82 

03 

JP 

0382 

********************************** 

0189 

2A 

90 

Bl 

LD 

HL, (B190) 

018C 

7C 



LD 

A,H 

018D 

B7 



OR 

A 

018E 

C8 



RET 

Z 

018 F 

5E 



LD 

E, (HL) 

0190 

23 



INC 

HL 

0191 

56 



LD 

D, (HL) 

0192 

23 



INC 

HL 

0193 

4E 



LD 

C, (HL) 

0194 

23 



INC 

HL 

0195 

46 



LD 

B, (HL) 

0196 

78 



LD 

A,B 

0197 

Bl 



OR 

C 

0198 

28 

16 


JR 

Z,01B0 

019A 

OB 



DEC 

BC 

019B 

78 



LD 

A,B 

019C 

Bl 



OR 

C 

019D 

20 

0E 


JR 

NZ,01AD 

019F 

D5 



PUSH 

DE 

01A0 

23 



INC 

HL 

01A1 

23 



INC 

HL 

01A2 

E5 



PUSH 

HL 

01A3 

23 



INC 

HL 

01A4 

CD 

E2 

01 

CALL 

01E2 

01A7 

El 



POP 

HL 

01A8 

46 



LD 

B, (HL) 

01A9 

2B 



DEC 

HL 

01AA 

4E 



LD 

C, (HL) 


KL DELETE FRAME FLY 
IN : HL: Zeiger auf KAFFC 
OUT: CY=0, wenn Ev. nicht in FFC 
Start der FFC 
Event aus FFC aushängen 


KL NEW FAST TICKER 
IN : HL: Zeiger auf KAFTC 
DE: Routinenadresse 
B: Priority Byte 
C: ROM-Konfiguration 
Zeiger auf KAFTC 
Zeiger auf 
den PQ-Zähler 
Event-Block aufbauen 
Zeiger auf KAFTC 

KL ADD FAST TICKER 
IN : HL: Zeiger auf KAFTC 
Start der FTC 
Event in FTC einhängen 

KL DELETE FAST TICKER 
IN : HL: Zeiger auf KAFTC 
OUT: CY=0, wenn Ev. nicht in FTC 
Start der FTC 
Event aus FTC aushängen 

Ticker Chain bearbeiten 

1. Eintrag in Ticker Chain 
Ticker Chain 
zuende? 
dann raus 
Koppeladr. d. 
lfd. Eintrags 
in TC nach DE 

Tick Count 
nach BC 

Tick Count 
gleich null? 

d. nächsten Eintrag bearbeiten 
Tick Count erniedrigen 
Tick Count 
ungleich null? 

d. speichern, nächst. Eintrag 
KATC retten 
HL: Zeiger auf 
Hi-Byte d. Reload Counts 
retten 

Zeiger auf KAPQ 
Event einhängen 
Zeiger auf Reload Count, Hi 
Reload Count 
nach BC laden 





Die Listings des CPC 464-ROMs 223 


01AB 

2B 

DEC 

HL 

01AC 

Dl 

POP 

DE 

01 AD 

70 

LD 

(HL),B 

01 AE 

2B 

DEC 

HL 

01AF 

71 

LD 

(HL ), C 

01 BO 

EB 

EX 

DE, HL 

01B1 

18 D9 

JR 

018C 


********************************** 


01B3 

E5 



PUSH 

HL 

01B4 

23 



INC 

HL 

01B5 

23 



INC 

KL 

01B6 

F3 



DI 


01B7 

73 



LD 

(H L >, E 

01B8 

23 



INC 

HL 

01B9 

72 



LD 

(HL),D 

01BA 

23 



INC 

HL 

01BB 

71 



LD 

(HL),C 

01BC 

23 



INC 

HL 

01BD 

70 



LD 

(HL),B 

01 BE 

El 



POP 

HL 

01 BF 

11 

90 

Bl 

LD 

DE,B190 

01C2 

C3 

73 

03 

JP 

0373 


********************************** 


01C5 

11 

90 

Bl 

LD 

DE,B190 

01C8 

CD 

82 

03 

CALL 

0382 

01 CB 

DO 



RET 

NC 

01CC 

EB 



EX 

DE,HL 

01 CD 

23 



INC 

HL 

01 CE 

5E 



LD 

E,(HL) 

01CF 

23 



INC 

HL 

01D0 

56 



LD 

D, (HL) 

01D1 

C9 



RET 



********************************** 


01D2 

F3 

DI 


01D3 

23 

INC 

HL 

01D4 

23 

INC 

HL 

01D5 

36 00 

LD 

(HL),00 

01D7 

23 

INC 

HL 

01D8 

70 

LD 

(KL),B 

01D9 

23 

INC 

HL 

01DA 

73 

LD 

(HL), E 

01DB 

23 

INC 

HL 

01DC 

72 

LD 

(HL),D 

01 DD 

23 

INC 

HL 


Zeiger auf nächsten Eintrag 
Reload Count 
in Ticker Kopf 
speichern 

Adr. d. nächsten Eintr. n. HL 
Ticker Chain weiter bearbeiten 

KL ADD TICKER 
IN : HL: Zeiger auf KATC 
DE: Tick Count 
BC: Reload Count 
Zeiger auf KATC 
Zeiger auf 
den Tick Count 

Tick Count 
setzen 


Reload Count 
setzen 

Zeiger auf KATC . 

Start Ticker Chain 

Event in Ticker Chain einhäng. 

KL DELETE TICKER 

IN : HL: Zeiger auf KATC 

OUT: DE: lfd. TC-Zähler 

CY=0, wenn Event nicht in TC 
Start Ticker Chain 
Event aus TC aushängen 
war nicht drin? d. raus 
Zeiger auf KATC, Hi nach HL 
Zeiger auf TC-Zähler 

lfd. TC-Zähler nach DE 


KL INIT EVENT 
IN : HL: Zeiger auf KAPQ 
DE: Routinenadresse 
B: Priority Byte 
C: ROM-Konfiguration 
OUT: HL: Zeiger auf User-Area 

Zeiger auf 
PQ-Count 

PQ-Count zurücksetzen 
Priority Byte 
setzen 

Routinenadresse 

setzen 


ROM-Konfiguration 
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01DE 

71 



LD 

(HL), C 


setzen 

01D F 

23 



INC 

HL 


Zeiger auf User-Area 

01EO 

FB 



EI 




01 El 

C9 



RET 




********************************** 

KL 

EVENT 







IN 

: HL: Zeiger auf KAPQ 

01E2 

23 



INC 

HL 


Zeiger 

01E3 

23 



INC 

HL 


auf PQ-Zähler 

01E4 

F3 



DI 




01E5 

7E 



LD 

A,(HL) 


PQ-Zähl er laden 

01E6 

34 



INC 

(HL) 


und erhöhen 

01E7 

FA 

06 

02 

JP 

M,0206 


war zw. $7F u. $FE? d. Count-' 

01EA 

B7 



OR 

A 


war <>0? ($01..$7E, $FF) 

01EB 

20 

13 


JR 

NZ,0200 


d. Count erhöht lassen, raus 

01ED 

23 



INC 

HL 


Zeiger auf Priority Byte 

01E E 

7E 



LD 

A,(HL) 


laden 

01EF 

2B 



DEC 

HL 


Zeiger auf PQ-Count 

01FO 

B7 



OR 

A 


Event synchronous? 

01 Fl 

F2 

2F 

02 

JP 

P,022F 


d. (n. Prior, geordn.) einhän 

01F4 

08 



EX 

AF,AF 1 


nicht im Interrupt? 

01F5 

30 

12 


JR 

NC,0209 


dann async. Event ausführen 

01F7 

08 



EX 

AF, AF 1 



01F8 

87 



ADD 

A 


Express Event? 

01F9 

F2 

E8 

00 

JP 

P,00E8 


sonst async. Event einhängen 

01 FC 

23 



INC 

HL 


Zeiger 

01 FD 

23 



INC 

HL 


auf Routinenadresse 

01 FE 

18 

23 


JR 

0223 


und Routine ausführen 

0200 

08 



EX 

AF,AF 1 


Interrupt nur wieder 

0201 

38 

01 


JR 

C,0204 


zulassen. 

0203 

FB 



El 



wenn Interruptbehandlung 

0204 

08 



EX 

AF,AF 1 


nicht laufend 

0205 

C9 



RET 




0206 

35 



DEC 

(HL) 


Zähler wieder zurücksetzen 

0207 

18 

F7 


JR 

0200 


und raus 

0209 

08 



EX 

AF,AF 1 



********************************** 

Event wiederholt ausführen 







IN 

: HL: Zeiger auf PQ-Zähler 

020A 

FB 



El 




020B 

7E 



LD 

A, (HL) 


Zähler laden 

020C 

B7 



OR 

A 


>127? 

020D 

F8 



RET 

M 


dann raus, Event 'geschützt 1 

020E 

E5 



PUSH 

HL 


Zeiger auf Zähler retten 

020F 

CD 

IC 

02 

CALL 

021C 


Event ausführen 

0212 

El 



POP 

HL 


Zeiger auf Zähler 

0213 

35 



DEC 

(HL) 


Zähler dekrementieren 

0214 

C8 



RET 

Z 


null? dann raus 

0215 

F2 

OE 

02 

JP 

P, 020E 


Count war <>0? d. weiter 

0218 

34 



INC 

(HL) 


sonst Count wieder :=0 setzen 

0219 

C9 



RET 



raus 

********************************** 

KL 

DO SYNC 







IN 

: HL: Zeiger KAPQ 

021A 

23 



INC 

HL 


Zeiger auf 

021B 

23 



INC 

HL 


PQ-Count berechnen 
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********************************** 


02 IC 

23 

INC 

HL 

021D 

7E 

LD 

A, (HL) 

021E 

23 

INC 

HL 

021 F 

1F 

RRA 


0220 

D2 B9 B9 

JP 

NC,B9B9 

********************************** 

0223 

5E 

LD 

E,(HL) 

0224 

23 

INC 

HL 

0225 

56 

LD 

D,(HL) 

0226 

EB 

EX 

DE,HL 

0227 

E9 

JP 

(HL) 


********************************** 


0228 

21 

00 

00 

LD 

HL,0000 

022B 

22 

94 

Bl 

LD 

(B194),HL 

022E 

C9 



RET 



********************************** 


022 F 

E5 

PUSH 

HL 

0230 

47 

LD 

B,A 

0231 

11 96 Bl 

LD 

DE,B196 

0234 

EB 

EX 

DE,HL 

0235 

2B 

DEC 

HL 

0236 

2B 

DEC 

HL 

0237 

56 

LD 

D,(HL) 

0238 

2B 

DEC 

HL 

0239 

5E 

LD 

E, (HL) 

023A 

7A 

LD 

A/D 

023B 

B7 

OR 

A 

023C 

28 07 

JR 

Z,0245 

023E 

13 

INC 

DE 

023 F 

13 

INC 

DE 

0240 

13 

INC 

DE 

0241 

1A 

LD 

A, (DE) 

0242 

B8 

CP 

B 

0243 

30 EF 

JR 

NC,0234 

0245 

Dl 

POP 

DE 

0246 

1B 

DEC 

DE 

0247 

23 

INC 

HL 

0248 

7E 

LD 

A, (HL) 

0249 

12 

LD 

(DE),A 

024A 

1B 

DEC 

DE 

024B 

72 

LD 

(HL),D 

024C 

2B 

DEC 

HL 

024D 

7E 

LD 

A, (HL) 

024E 

12 

LD 

(DE),A 

024F 

73 

LD 

(HL),E 

0250 

08 

EX 

AF,AF 1 

0251 

38 01 

JR 

C,0254 

0253 

FB 

EI 


0254 

08 

EX 

AF,AF 1 

0255 

C9 

RET 



Event ausführen 
IN : HL: Zeiger auf PQ-Count 
Zeiger auf Priority Byte 
Priority Byte Laden 
Zeiger auf Routinenadresse 
Far Call? 

dann entspr. behandeln 

Near Address Routine ausführen 
IN : HL: Zeiger auf Routinenadr. 
Routinenadresse 
nach DE 

Routinenadresse nach HL 
Routine ausführen, danach raus 

KL SYNC RESET 

lfd. Priorität und 
SPQ/Sperr-Prioritat löschen 


Synchronous Event einhängen 
IN : HL: Zeiger auf PQ-Zähler 
A: Priority Byte 
Zeiger auf Zähler retten 
Priority Byte 

Start d. Sync. PQ (SPQ) +3 
Zeiger auf KAPQ +3 nach HL 
Zeiger auf 
Koppe ladresse. Hi 
KAPQ nach DE 
laden 

Hi-Byte d. Koppeladresse 
letzter Eintrag in SPQ? 
d. lfd. Event Block anhängen 
Zeiger auf folgendes 
(neues) Priority Byte 
berechnen 

Priority Byte Laden 
mit lfd. Priorität vergleichen 
alte >= neue Prior.? d. weiter 
sonst Zeiger auf lfd. Event 
Zeiger auf KA, Hi 
Zeiger auf letzte KAPQ, Hi 
letzte KAPQ in lfd. 

Event Block eintragen, 
dabei Adr. d. lfd. 

Event Blocks in letzte 

KAPQ eintragen, 

lfd. Event also einhängen 


Interrupt nur zulassen 
wenn Interruptbehandlung 
nicht laufend 
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********************************** 


0256 

F3 



DI 


0257 

2A 

93 

Bl 

LD 

HL, (B193) 

025A 

7C 



LD 

A, H 

025B 

B7 



OR 

A 

025C 

28 

17 


JR 

Z,0275 

025E 

E5 



PUSH 

HL 

025F 

5E 



LD 

E,(HL) 

0260 

23 



INC 

HL 

0261 

56 



LD 

D,(HL) 

0262 

23 



INC 

HL 

0263 

23 



INC 

HL 

0264 

3A 

95 

Bl 

LD 

A,(Bl 95) 

0267 

BE 



CP 

(HL) 

0268 

30 

0A 


JR 

NC,0274 

026A 

F5 



PUSH 

AF 

026B 

7E 



LD 

A, (HL) 

026C 

32 

95 

Bl 

LD 

(B195),A 

026F 

ED 

53 

93 Bl 

LD 

(B193),DE 

0273 

Fl 



POP 

AF 

0274 

El 



POP 

HL 

0275 

FB 



EI 


0276 

C9 



RET 



********************************** 


0277 

32 

95 

Bl 

LD 

(B195),A 

027A 

23 



INC 

HL 

027B 

23 



INC 

HL 

027C 

35 



DEC 

(HL) 

027D 

C8 



RET 

Z 

02 7E 

F3 



DI 


027F 

F2 

2F 

02 

JP 

P,022F 

0282 

34 



INC 

(HL) 

0283 

FB 



EI 


0284 

C9 



RET 



********************************** 


0285 

CD 

8E 

02 

CALL 

028E 

0288 

11 

93 

Bl 

LD 

DE,B193 

028B 

C3 

82 

03 

JP 

0382 


********************************** 


028E 

23 

INC 

HL 

028F 

23 

INC 

HL 

0290 

36 C0 

LD 

(HL),C0 

0292 

2B 

DEC 

HL 

0293 

2B 

DEC 

HL 

0294 

C9 

RET 



KL NEXT SYNC 

OUT: A: alte Priorität 

HL: alte Event-Adresse 
CY:=1, wenn nächster Event 

Adr. d. lfd. Events 
kein Eintrag mehr 
in SPQ? 
dann raus 

Zeiger auf neuen Event Block 
Koppeladresse laden, 
d.h. Zeiger auf folgenden 
Event nach DE 

Zeiger auf Priority Byte 

Priorität d. lfd. Events laden 

und m. neuer Priorität vergl. 

lfd. Prior, größer? d. raus 

lfd. Priorität retten 

neue Priorität laden 

und als lfd. setzen 

neuen Event als lfd. setzen 

alte Priorität 

Adr. d. alten Events 


KL DONE SYNC 

IN : HL: Zeiger Event 

A: Priorität d. Events 
Priorität als lfd. setzen 
Zeiger auf 
PQ-Zähler 

Zähler erniedrigen 
schon null? dann raus 

sonst b7=0? d. einhängen 
sonst Count wiederherstellen 


KL DEL SYNCHRONOUS 
IN : HL: Zeiger a. Event, KAPQ 
Event abschalten 
und aus Sync. Pending Queue 
aushängen 

KL DISARM EVENT 

IN : HL: Zeiger a. Event, KAPQ 
OUT: HL unverändert 
Zeiger auf 
PQ-Zähler 

Zähler f. Event inaktiv setzen 
Zeiger auf Event 
wiederherstellen 
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********************************** 


0295 

21 

95 

Bl 

LD 

HL,B195 

0298 

CB 

EE 


SET 

5,(HL) 

029A 

C9 



RET 


********************************** 

029B 

21 

95 

Bl 

LD 

HL,B195 

029E 

CB 

AE 


RES 

5,(HL) 

02A0 

C9 



RET 


********************************** 


02A1 

E5 



PUSH 

HL 

02A2 

ED 

5B 

A6 Bl 

LD 

DE,(B1A6) 

02A6 

22 

A6 

Bl 

LD 

(BlA6),HL 

02A9 

73 



LD 

(HL),E 

02AA 

23 



INC 

HL 

02AB 

72 



LD 

(HL),D 

02AC 

23 



INC 

HL 

02AD 

71 



LD 

(HL),C 

02AE 

23 



INC 

HL 

02AF 

70 



LD 

(HL),B 

02B0 

El 



POP 

HL 

02B1 

C9 



RET 


********************************** 


02B2 

11 

96 

Bl 

LD 

DE,B196 

02B5 

01 

10 

00 

LD 

BC.0010 

02B8 

CD 

A6 

BA 

CALL 

BAA6 

02BB 

EB 



EX 

DE,HL 

02BC 

2B 



DEC 

HL 

02BD 

CB 

FE 


SET 

7,(HL) 

02BF 

2A 

A6 

Bl 

LD 

HL,(BlA6) 

02C2 

7D 



LD 

A,L 

02C3 

18 

10 


JR 

02D5 

02C5 

E5 



PUSH 

HL 

02C6 

23 



INC 

HL 

02C7 

23 



INC 

HL 

02C8 

4E 



LD 

C, (HL) 

02C9 

23 



INC 

HL 

02CA 

46 



LD 

B, (HL) 

02CB 

CD 

F4 

02 

CALL 

02F4 

02CE 

Dl 



POP 

DE 

02C F 

D8 



RET 

C 

02D0 

EB 



EX 

DE,HL 

02D1 

7E 



LD 

A, (HL) 

02D2 

23 



INC 

HL 

02D3 

66 



LD 

H, (HL) 

02D4 

6F 



LD 

L,A 

02D5 

B4 



OR 

H 

02D6 

20 

ED 


JR 

NZ.02C5 


KL EVENT DISABLE 

Priority Byte lfd. Event 
auf max. Priorität setzen 


KL EVENT ENABLE 

Priority Byte lfd. Event 
wieder normale Priorität setz. 


KL LOG EXT 

IN : HL: Zieladr. f. Eintrag 
C: ROM-No. 

Zieladresse retten 
Adr. d. 1. Eintrags in VL 
neu auf lfd. Eintrag setzen 
Adr. d. alten Eintrags 
als Koppeladr. setzen 


ROM- Nummer setzen 


KL FIND COMMAND 

IN : HL: Zeiger auf Befehlsstring 
OUT: HL: Aufrufadresse 

C: ROM-Konfiguration 
CY:=1, wenn String gefunden 
Zeiger auf RSX-String 
maximale Länge 

RSX-String nach SB196 kopieren 
Zeiger hinter die Kopie -> HL 
Zeiger auf letztes Zeichen 
ggf. als letztes Zeichen setz. 
Adr. d. 1. Eintrags in VL 
Lo-Byte 

ans Schleifenende springen 

Koppeladr. retten 
Zeiger auf 

ROM-Nimmer aus VL-Eintrag 
ROM-Nunmer laden 


RSX-Str. in entspr. ROM suchen 
Zeiger auf Eintrag 
String gefunden? d. raus 
Zeiger auf Koppeladr. 

Koppeladresse 
nach HL 
laden 

letzter Eintrag in VL? 
sonst nächsten Eintrag bearb. 
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02D8 

OE 

FF 


LD 

C, FF 

02DA 

oc 



INC 

C 

02DB 

CD 

83 

BA 

CALL 

BA83 

02DE 

F5 



PUSH 

AF 

02DF 

E6 

03 


AND 

03 

02E1 

47 



LD 

B,A 

02E2 

CC 

F4 

02 

CALL 

Z, 02F4 

02E5 

38 

09 


JR 

C,02F0 

02E7 

Fl 



POP 

AF 

02E8 

87 



ADD 

A 

02E9 

30 

EF 


JR 

NC,02DA 

02EB 

79 



LD 

A, C 

02EC 

B7 



OR 

A 

02ED 

28 

EB 


JR 

Z,02DA 

02EF 

C9 



RET 


02F0 

Fl 



POP 

AF 

02 F1 

C3 

OB 

06 

JP 

060B 


********************************** 


02F4 

21 

04 

CO 

LD 

HL,C004 

02F7 

78 



LD 

A, B 

02F8 

B7 



OR 

A 

02F9 

28 

04 


JR 

Z,02FF 

02FB 

60 



LD 

H, B 

02FC 

69 



LD 

L,C 

02FD 

0E 

FF 


LD 

C ' FF . 

02FF 

CD 

7E 

BA 

CALL 

BA7E 

0302 

C5 



PUSH 

BC 

0303 

5E 



LD 

E,(HL) 

0304 

23 



INC 

HL 

0305 

56 



LD 

D, (HL) 

0306 

23 



INC 

HL 

0307 

EB 



EX 

DE,HL 

0308 

18 

17 


JR 

0321 

03 0A 

01 

96 

Bl 

LD 

BC,B196 

030D 

0A 



LD 

A, (BC) 

030E 

BE 



CP 

(HL) 

030F 

20 

08 


JR 

NZ,0319 

0311 

23 



INC 

HL 

0312 

03 



INC 

BC 

0313 

87 



ADD 

A 

0314 

30 

F7 


JR 

NC.030D 

0316 

EB 



EX 

DE,HL 

0317 

18 

OC 


JR 

0325 

0319 

7E 



LD 

A, (HL) 

031A 

23 



INC 

HL 

031B 

87 



ADD 

A 

031C 

30 

FB 


JR 

NC,0319 

031E 

13 



INC 

DE 

031F 

13 



INC 

DE 

0320 

13 



INC 

DE 

0321 

7E 



LD 

A, (HL) 

0322 

B7 



OR 

A 


nicht gefund.? d. Anfangsno.-1 

ROM-Nunmer erhöhen 

ROM-Kennung holen 

und retten 

b1,b0 isolieren 

und nach B retten 

b1=fc>0=0? d. Str. in ROM suchen 

gefunden? d. System starten 

Kennung aus ROM 

b7=1? 

sonst nächstes ROM bearbeiten 

ROM-No. 

null? 

dann nächstes ROM bearbeiten 
raus, wenn ROM-No.<>0, b7=1 
ROM-Kennung 
System starten 

RSX-String in ROM suchen 
IN : BC: ROM-No. bzw. Tab.Adr. 
OUT: HL: Einsprung f. Kommando 
DE: Zeiger hinter Kommando 
CY:=1, wenn String gefunden 
Zeiger auf Adr. d. RSX-Strings 
Hi-Byte d. Tabellenadresse 
gleich null? 

d. C ROM-No., $C004 a. Default 
sonst Zeiger auf RSX-Tabelle 
nach HL laden 
Default ROM-No.: Basic 
ROM auswählen u. anschalten 
ROM-No. retten 
Zeiger auf RSX- 
Stringtabelle 
nach DE 

Zeiger auf Adressentabelle 
vertauschen 

in Schleifenende springen 

Zeiger auf Befehlsstring 
Zeichen aus Befehlsstring 
mit Zeichen aus Tabelle vergl. 
ungleich? dann nächsten String 
sonst Zeiger nächstes Zeichen 
setzen 

letztes Zeichen des Befehls? 
sonst weiter vergleichen 
d. Einsprungadresse nach HL 
und raus 

bei Ungleichheit bis 
Stringende in ROM-Tabelle 
lesen 

Zeiger auf nächsten 
RSX-Einsprung 
setzen 

1. Zeichen d. nächsten Strings 
Tabellenende? 
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0323 

20 

E5 


JR 

NZ,030A 

sonst weiter suchen 

0325 

CI 



POP 

BC 

alte Konfiguration 

0326 

C3 

8C 

BA 

JP 

BA8C 

wieder setzen 

********************************** 

KL ROM WALK 







IN : DE: Lo RAM 







HL: Hi RAM 







OUT: DE: Lo RAM, neu 







HL: Hi RAM, neu 

0329 

0E 

07 


LD 

C,07 

Start ROM-Nurtner 

032B 

CD 

32 

03 

CALL 

0332 

ROM ggf. in VL einh., in Tab 

032E 

0D 



DEC 

C 

ROM-Nummer erniedrigen 

032 F 

20 

FA 


JR 

NZ.032B 

noch nicht null? dann weiter 

0331 

C9 



RET 




********************************** INIT BACK 

IN : C: ROM-Nummer 
DE: Lo RAM 
HL: Hi RAM 
OUT: C: ROM-Nummer 

B: alte Konfiguration 
DE: Lo RAM, neu 
HL: Hi RAM, neu 


0332 

79 



LD 

A, C 

ROM-Nurm>er 

0333 

FE 

08 


CP 

08 

>7? 

0335 

DO 



RET 

NC 

dann zurück 

0336 

CD 

7E 

BA 

CALL 

BA7E 

ROM anschalten 

0339 

3A 

00 

CO 

LD 

A, (C000) 

ROM-Kennung 

033C 

E6 

03 


AND 

03 

b1,b0 isolieren 

033E 

3D 



DEC 

A 

b1=0, t>0=1? 

033 F 

20 

1 F 


JR 

NZ,0360 

sonst ROM aus, raus 

0341 

C5 



PUSH 

BC 

ROM-Nummer retten 

0342 

CD 

06 

CO 

CALL 

C006 

ROM anspringen 

0345 

D5 



PUSH 

DE 

Lo RAM Zeiger retten 

0346 

23 



INC 

HL 

Zeiger Hi RAM 

0347 

EB 



EX 

DE,HL 

nach DE 

0348 

21 

AA 

Bl 

LD 

HL,BlAA 

Tabellenanfang 

034B 

ED 

4B 

A8 Bl 

LD 

BC,(B1A8) 

lfd. ROM-Nummer 

034F 

06 

00 


LD 

B,00 


0351 

09 



ADD 

HL, BC 

zweimal f. zwei Bytes pro 

0352 

09 



ADD 

HL,BC 

Eintrag addieren 

0353 

73 



LD 

(HL) ,E 

altes Hi RAM 

0354 

23 



INC 

HL 

in T abe11e 

0355 

72 



LD 

(HL),D 

setzen 

0356 

21 

FC 

FF 

LD 

HL,FFFC 

altes Hi RAM +1 -4 

0359 

19 



ADD 

HL,DE 

ergibt Zeiger auf VL-Eintrag 

035A 

CD 

AI 

02 

CALL 

02A1 

ROM in VL eintragen 

035D 

2B 



DEC 

HL 

neuer Hi RAM Zeiger 

035E 

Dl 



POP 

DE 

neuer Lo RAM Zeiger 

035 F 

CI 



POP 

BC 

alte und lfd. ROM-Nunmer 

0360 

C3 

8C 

BA 

JP 

BA8C 

ROM wieder ausschalten 


********************************** Koppeladresse suchen 

IN : HL: Zeiger auf PQ-Zähler 
DE: gesuchte Adresse 
OUT: HL: Adr. d. Koppeladresse 
CY:=1, wenn gefunden 
Lo-Byte 


0363 7E 


LD 


A, (HL) 
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0364 

BB 

CP 

E 

0365 

23 

INC 

HL 

0366 

7E 

LD 

A,(HL) 

0367 

2B 

DEC 

HL 

0368 

20 03 

JR 

NZ,036D 

036A 

BA 

CP 

D 

036B 

37 

SCF 


036C 

C8 

RET 

Z 

036D 

B7 

OR 

A 

036E 

C8 

RET 

Z 

036F 

6E 

LD 

L,(HL) 

0370 

67 

LD 

H, A 

0371 

18 F0 

JR 

0363 


********************************** 


0373 

EB 

EX 

DE,HL 

0374 

F3 

DI 


0375 

CD 63 03 

CALL 

0363 

0378 

38 06 

JR 

C,0380 

037A 

73 

LD 

(HL),E 

037B 

23 

INC 

HL 

037C 

72 

LD 

(HL),D 

037D 

13 

INC 

DE 

03 7E 

AF 

XOR 

A 

037F 

12 

LD 

(DE),A 

0380 

FB 

EI 


0381 

C9 

RET 



********************************** 


0382 

EB 

EX 

DE,HL 

0383 

F3 

DI 


0384 

CD 63 03 

CALL 

0363 

0387 

30 06 

JR 

NC,038F 

0389 

1A 

LD 

A, (DE) 

038A 

77 

LD 

(HL),A 

038B 

13 

INC 

DE 

038C 

23 

INC 

HL 

038D 

1A 

LD 

A, (DE) 

038E 

77 

LD 

(HL),A 

038F 

FB 

EI 


0390 

C9 

RET 



********************************** 


B900 

0391 

C3 

5E 

BA 

JP 

BA5E 

B903 

0394 

C3 

68 

BA 

JP 

BA68 

B906 

0397 

C3 

4A 

BA 

JP 

BA4A 

B909 

039A 

C3 

54 

BA 

JP 

BA54 

B90C 

039D 

C3 

72 

BA 

JP 

BA72 

B90F 

03A0 

C3 

7E 

BA 

JP 

BA7E 

B912 

03A3 

C3 

A2 

BA 

JP 

BAA2 

B915 

03A6 

C3 

83 

BA 

JP 

BA83 


^gesuchtem Lo-Byte? 

Hi-Byte 
laden 

Zeiger wieder zurück 
ungleich? d. nächsten Eintrag 
Hi-Bytes auch gleich? 

CY:=1 f. evtl, gefunden 
wenn gleich, dann raus 
Listenende? 

dann raus, CY:=0 f. nicht gef. 
Zeiger auf nächsten Eintrag 
nach HL laden 

und nächsten Eintrag bearb. 

Add Event 

IN : HL: Zeiger auf KA d. Events 
DE: Zeiger auf entspr. Chain 
Adresse d. Events nach DE 

Event in Chain suchen 
gefunden? dann raus 
sonst Event 
an Chain 
hinten anhängen 
Zeiger auf Hi-Byte d. KA 
Markierung f. Kettenende 
setzen 


Delete Event 

IN : HL: Zeiger auf KA d. Events 
DE: Zeiger auf entspr. Chain 
OUT: CY:=1, wenn gef. u. gelöscht 
DE: Zeiger auf KA+1 
HL: Zeiger letzte KA+1 
Adresse d. Events nach DE 

Koppeladresse suchen 
nicht in Chain? dann raus 
sonst KA auf nächsten Event 
in vorige KA 
übertragen, d.h. 
lfd. Event aus Chain 
aushängen 


Kernel Hi Jumps 

KL U ROM ENABLE 
KL U ROM DISABLE 
KL L ROM ENABLE 
KL L ROM DISABLE 
KL ROM RESTORE 
KL ROM SELECT 
KL CURR SELECTION 
KL PROBE ROM 
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B918 

03A9 

C3 

8C 

BA 

JP 

BA8C 

KL ROH DESELECT 

B91B 

03AC 

C3 

A6 

BA 

JP 

BAA6 

KL LDIR 

B91E 

03AF 

C3 

AC 

BA 

JP 

BAAC 

KL LDDR 

******* ****** ********** *********** 

POLL SYNCHRONOUS 







OUT 

: CY=0, wenn kein Eintrag mit 








ausreichend. Priorität 

B921 

03B2 

3A 

94 

Bl 

LD 

A.CB194) 

lfd. sync. Event 

B924 

03B5 

B7 



OR 

A 

kein Eintrag in SPQ? 

B925 

03B6 

C8 



RET 

Z 

dann zurück 

B926 

03B7 

E5 



PUSH 

HL 


B927 

03B8 

F3 



DI 



B928 

03B9 

2A 

93 

Bl 

LD 

H L, (B193) 

Adr. d. lfd. sync. Events 

B92B 

03BC 

7C 



LD 

A, H 

Ende der Pending Queue? 

B92C 

03BD 

B7 



OR 

A 

Ende der Queue? 

B92D 

03BE 

28 

07 


JR 

Z,03C7 

dann raus 

B92F 

03C0 

23 



INC 

HL 

Zeiger auf Priorität 

B930 

03C1 

23 



INC 

HL 

d. lfd. Events 

B931 

03C2 

23 



INC 

HL 


B932 

03C3 

3A 

95 

Bl 

LD 

A,(B195) 

Zeiger auf lfd. Priorität 

B935 

03C6 

BE 



CP 

(HL) 

m. Prior, lfd. Event vergl. 

B936 

03C7 

El 



POP 

HL 


B937 

03C8 

FB 



EI 



B938 

03C9 

C9 



RET 



********************************** INTERRUPT ENTRY CONT'D 

B939 

03 CA 

F3 



DI 



B93A 

03CB 

08 



EX 

AF,AF 1 

Interrupt bereits laufend? 

B93B 

03CC 

38 

33 


JR 

C, 0401 

dann EXT INT ENTRY 

B93D 

03CE 

D9 



EXX 


Interrupt-Registersatz ein 

B93E 

03CF 

79 



LD 

A, C 

lfd. System Status (SYSTAT) 

B93F 

03D0 

37 



SCF 


CY:=1 f. Interruptbeh. lfd. 

B940 

03D1 

FB 



EI 


externen Interrupt zulassen 

B941 

03D2 

08 



EX 

AF,AF 1 


B942 

03D3 

F3 



DI 



B943 

03D4 

F5 



PUSH 

AF 

Akku retten 

B944 

03D5 

CB 

91 


RES 

2.C 

Lo-ROM 

B946 

03D7 

ED 

49 


OUT 

(C),C 

anschalten 

B948 

03D9 

CD 

Bl 

00 

CALL 

00B1 

Scan Events, Chains bearb. 

B94B 

03DC 

B7 



OR 

A 

CY:=0 

B94C 

03DD 

08 



EX 

AF,AF 1 

in Interrupt-Registersatz 

B94D 

03DE 

4F 



LD 

CjA 

alter SYSTAT 

B94E 

03DF 

06 

7F 


LD 

B,7 F 

ins Gate Array 

B950 

03E1 

3A 

04 

Bl 

LD 

A,(Bl 04) 

Interrupt-Flags 

B953 

03E4 

B7 



OR 

A 

testen 

B954 

03E5 

28 

14 


JR 

Z,03FB 

keine APQ-Eintr., TC inakt. 

B956 

03E7 

FA 

6A 

B9 

JP 

M, B96A 

APQ in Bearbeitung? d. raus 

B959 

03EA 

79 



LD 

Aj C 

SYSTAT 

B95A 

03EB 

E6 

OC 


AND 

OC 

ROM-Switches isolieren 

B95C 

03ED 

F5 



PUSH 

AF 

und retten 

B95D 

03EE 

CB 

91 


RES 

2,C 

Hi-ROM anschalten 

B95F 

03F0 

D9 



EXX 


norm. Registersatz 

B960 

03F1 

CD 

OA 

01 

CALL 

01 OA 

APQ u. TC bearbeiten 

B963 

03F4 

D9 



EXX 


Interrupt-Registersatz 

B964 

03F5 

El 



POP 

HL 

ROM-Switches 

B965 

03 F6 

79 



LD 

AjC 

SYSTAT 

B966 

03F7 

E6 

F3 


AND 

F3 

alten ROM-Status 

B968 

03F9 

B4 



OR 

H 

wiederherstellen 
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B969 

03FA 

4F 



LD 

C, A 


und nach C als SYSTAT 

B96A 

03FB 

ED 

49 


OUT 

(C),C 


SYSTAT ins GA schreiben 

B96C 

03FD 

D9 



EXX 



norm. Registersatz 

B96D 

03FE 

Fl 



POP 

AF 


alter Akku 

B96E 

03FF 

FB 



EI 




B96F 

0400 

C9 



RET 




********************************** 

EXT 

INTERRUPT ENTRY 

B970 

0401 

08 



EX 

AF, AF 1 


alter Akku 

B971 

0402 

El 



POP 

HL 


RET-Adresse löschen 

B972 

0403 

F5 



PUSH 

AF 


Akku retten 

B973 

0404 

CB 

Dl 


SET 

2,C 


Lo-ROM 

B975 

0406 

ED 

49 


OUT 

CC),C 


ausschalten 

B977 

0408 

CD 

3B 

00 

CALL 

003B 


externen Interrupt ausführ. 

B97A 

040B 

18 

CF 


JR 

03DC 


und in Interrupt-Behandlung 

********************************** 

KL 

LO PCHL CONT'D 








IN 

: HL<13..0>: Sprungadresse 
HL<15..14>: Konfiguration 

B97C 

040D 

F3 



DI 




B97D 

040E 

E5 



PUSH 

HL 


Sprungadr. u. Konfig. 

B97E 

040F 

D9 



EXX 



2. Registersatz 

B97F 

0410 

Dl 



POP 

DE 


Sprungadr. nach DE 

B980 

0411 

18 

06 


JR 

0419 


Sprung ausführen 

********************************** 

KL 

LO JUMP CONT'D 








IN 

: (SP): Sprungadr. u. Konfig. 








OUT 

: SP:=SP+2 

B982 

0413 

F3 



DI 




B983 

0414 

D9 



EXX 



2. Registersatz 

B984 

0415 

El 



POP 

HL 


RET-Adresse 

B985 

0416 

5E 



LD 

E,(HL) 

Sprungadr. nach Aufruf 

B986 

0417 

23 



INC 

HL 


nach DE 

B987 

0418 

56 



LD 

D, (HL) 


B988 

0419 

08 



EX 

AF,AF 1 


Akku retten 

B989 

041A 

7A 



LD 

A,D 


Konfig. nach A retten 

B98A 

041B 

CB 

BA 


RES 

7,D 


Konfig. löschen. 

B98C 

04 ID 

CB 

B2 


RES 

6,D 


ergibt Sprungadr. in DE 

B98E 

041F 

07 



RLCA 




B98F 

0420 

07 



RLCA 



Konfig.-Bits in A 

B990 

0421 

07 



RLCA 



in die Position b3/b2 

B991 

0422 

07 



RLCA 



schieben 

B992 

0423 

A9 



XOR 

C 



B993 

0424 

E6 

OC 


AND 

OC 


und in SYSTAT hinein 

B995 

0426 

A9 



XOR 

C 


setzen 

B996 

0427 

C5 



PUSH 

BC 


alten SYSTAT retten 

B997 

0428 

CD 

A8 

B9 

CALL 

B9A8 


Konfig. setzen, Rout. aufr. 

B99A 

042B 

F3 



DI 




B99B 

042C 

D9 



EXX 



alten Registersatz wieder 

B99C 

042D 

08 



EX 

AF,AF 1 


anschalten 

B99D 

042E 

79 



LD 

A,C 


neue Konfig. 

B99E 

042F 

CI 



POP 

BC 


alte Konfig. 

B99F 

0430 

E6 

03 


AND 

03 


neuen BiIdschirm-Modus 

B9A1 

0432 

CB 

89 


RES 

i,c 


in alten SYSTAT, 

B9A3 

0434 

CB 

81 


RES 

0,C 


d.h. beibehalten 

B9A5 

0436 

Bl 



OR 

C 



B9A6 

0437 

18 

01 


JR 

043A 


SYSTAT setzen 
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********************************** Sprung nach DE ausführen 

IN : DE: Sprungadresse 

A: Wert f. Gate Array 


B9A8 

0439 

D5 


PUSH 

DE 

Sprungadr. auf Stack 

B9A9 

043A 

4F 


LD 

C/A 

Byte f. Gate Array 

B9AA 

043 B 

ED 

49 

OUT 

(C),C 

ins Gate Array schreiben 

B9AC 

043D 

B7 


OR 

A 

CY:=0 f. Interrupt inaktiv 

B9AD 

043E 

08 


EX 

AF ,AF 1 

ins Interrupt-Carry 

B9AE 

043 F 

D9 


EXX 


norm. Registersatz an 

B9AF 

0440 

FB 


EI 



B9B0 

0441 

C9 


RET 


Routine anspringen 

***************** ***************** 

FAR PCHL 






IN 

: HL: Routinenadresse 







C: Konfig. f. Aufruf 

B9B1 

0442 

F3 


DI 



B9B2 

0443 

08 


EX 

AF,AF 1 

Akku retten 

B9B3 

0444 

79 


LD 

A, C 

Konfig. nach A 

B9B4 

0445 

E5 


PUSH 

HL 

Sprungadresse 

B9B5 

0446 

D9 


EXX 


1. Registersatz retten 

B9B6 

0447 

Dl 


POP 

DE 

Sprungadresse nach DE 

B9B7 

0448 

18 

15 

JR 

045F 

Sprung ausführen 

********************************** 

FAR CALL 






IN 

: HL: Zeiger auf Routinenadr. 







und Konfiguration 

B9B9 

044A 

F3 


DI 



B9BA 

044B 

E5 


PUSH 

HL 


B9BB 

044C 

D9 


EXX 



B9BC 

044D 

El 


POP 

HL 


B9BD 

044E 

18 

09 

JR 

0459 


********************************** 

LO FAR CALL CONT'D 






IN 

: ((SP)): Routinenadresse 







((SP)+2): Konfiguration 

B9BF 

0450 

F3 


DI 



B9C0 

0451 

D9 


EXX 


1. Registersatz retten 

B9C1 

0452 

El 


POP 

HL 

RET-Adresse nach HL 

B9C2 

0453 

5E 


LD 

E,(HL) 

auf Aufruf folgende 

B9C3 

0454 

23 


INC 

HL 

Adresse nach DE 

B9C4 

0455 

56 


LD 

D, (HL) 

laden 

B9C5 

0456 

23 


INC 

HL 

und neue RET-Adresse 

B9C6 

0457 

E5 


PUSH 

HL 

auf Stack 

B9C7 

0458 

EB 


EX 

DE,HL 

Adresse nach Aufruf nach HL 

B9C8 

0459 

5E 


LD 

E, (HL) 

Routinenadresse 

B9C9 

045A 

23 


INC 

HL 

nach DE 

B9CA 

045B 

56 


LD 

D, (HL) 

laden 

B9CB 

045C 

23 


INC 

HL 

Zeiger a. Konfig. f. Aufruf 

B9CC 

045D 

08 


EX 

AF,AF 1 

Akku retten 

B9CD 

045E 

7E 


LD 

A, (HL) 

Konfiguration laden 

B9CE 

045F 

FE 

FC 

CP 

FC 

externes ROM? 

B9D0 

0461 

30 

BE 

JR 

NC.0421 

sonst SYSTAT setzen 

B9D2 

0463 

06 

DF 

LD 

B,DF 

I/O-Adr. f. ROM-Auswahl 

B9D4 

0465 

ED 

79 

OUT 

(C),A 

ROM-Nummer setzen 

B9D6 

0467 

21 

A8 Bl 

LD 

HL.B1A8 

alte ROM-Nunmer 

B9D9 

046A 

46 


LD 

B, (HL) 

laden 

B9DA 

046B 

77 


LD 

(HL),A 

neue setzen 
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B9DB 

046C 

C5 



PUSH 

BC 

alte ROM-Nummer retten 

B9DC 

046D 

FD 

E5 


PUSH 

IY 


B9DE 

046F 

3D 



DEC 

A 

ROM-Nummer 

B9DF 

0470 

FE 

07 


CP 

07 

von 01..08? 

B9E1 

0472 

30 

OF 


JR 

NC,0483 

sonst raus 

B9E3 

0474 

87 



ADD 

A 

ggf. *2, f. 2 Bytes/Eintrag 

B9E4 

0475 

C6 

AC 


ADD 

AC 

und zu Tabellenstart 

B9E6 

0477 

6F 



LD 

L/A 

(B1AC) addieren 

B9E7 

0478 

CE 

Bl 


ADC 

Bl 

Ergebnis 

B9E9 

047A 

95 



SUB 

L 

nach HL 

B9EA 

047B 

67 



LD 

H,A 


B9EB 

047C 

7E 



LD 

A, (HL) 

Einsprung f. ROM 

B9EC 

047D 

23 



INC 

HL 

aus der Tabelle 

B9ED 

047E 

66 



LD 

H, (HL) 

holen. 

B9EE 

047F 

6F 



LD 

L,A 

nach HL 

B9EF 

0480 

E5 



PUSH 

HL 

und Einsprung 

B9F0 

0481 

FD 

El 


POP 

IY 

nach IY 

B9F2 

0483 

06 

7F 


LD 

B,7F 

I/O-Adr. d. Gate Array 

B9F4 

0485 

79 



LD 

A/C 

SYSTAT nach A 

B9F5 

0486 

CB 

D7 


SET 

2, A 

Lo-ROM ausschalten 

B9F7 

0488 

CB 

9F 


RES 

3, A 

Hi-ROM einschalten 

B9F9 

048A 

CD 

A8 

B9 

CALL 

B9A8 

Routine aufrufen 

B9FC 

048D 

FD 

El 


POP 

IY 


B9FE 

048F 

F3 



DI 



B9FF 

0490 

D9 



EXX 


1. Registersatz wieder an 

BAOO 

0491 

08 



EX 

AF ,AF 1 

alter Akku wieder an 

BA01 

0492 

59 



LD 

E,C 

alter SYSTAT 

BA02 

0493 

CI 



POP 

BC 

alte ROM-Nummer 

BA03 

0494 

78 



LD 

A,B 

nach A 

BA04 

0495 

06 

DF 


LD 

B,DF 

I/O-Adr. f. ROM-Auswahl 

BA06 

0497 

ED 

79 


OUT 

(C), A 

alte ROM-No. wieder setzen 

BA08 

0499 

32 

A8 

Bl 

LD 

(B1A8),A 

und als alte No. setzen 

BAOB 

049C 

06 

7F 


LD 

B,7F 

I/O-Adr. d. Gate Array 

BAOD 

049E 

7B 



LD 

A.E 

alten SYSTAT nach A 

BAOE 

049F 

18 

8F 


JR 

0430 

alte Konfig. wieder setzen 

********************************** £|_ 

SIDE PCHL CONT'D 







IN 

: HL: Routinenadresse 

BAI 0 

04 AI 

F3 



DI 



BA11 

04A2 

E5 



PUSH 

HL 

Adr. d. Routine 

BA12 

04A3 

D9 



EXX 


1. Registersatz retten 

BA13 

04A4 

Dl 



POP 

DE 

Routinenadresse nach DE 

BA14 

04A5 

18 

08 


JR 

04 AF 

Routine anspringen 

********************************** 

LO SIDE CALL CONT'D 







IN 

: (SP): Adr. d. Routinenadr. 







OUT 

: SP:=SP+2 

BA16 

04A7 

F3 



DI 



BAI 7 04A8 

D9 



EXX 


1. Registersatz retten 

B A18 

04A9 

El 



POP 

HL 

RET-Adresse vom Stack 

BA19 

04AA 

5E 



LD 

E,(HL) 

Adresse nach Aufruf 

BAI A 

04AB 

23 



INC 

HL 

nach DE laden 

BAlB 

04AC 

56 



LD 

D, (HL) 


BA1C 

04AD 

23 



INC 

HL 

neue RET-Adresse 

BA1D 

04AE 

E5 



PUSH 

HL 

auf Stack 

BA1E 

04AF 

08 



EX 

AF,AF' 

Akku retten 

BAI F 

04B0 

7A 



LD 

A,D 

Hi-Byte d. Adresse 

BA20 

04B1 

CB 

FA 


SET 

7,D 

Bit 14 u. 15 setzen f. 
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BA22 

04B3 

CB 

F2 


SET 

6/D 



Sprung ins Hi-ROM 

BA24 

04B5 

E6 

CO 


AND 

CO 



ROM-Select-Bits isolieren 

BA26 

04B7 

07 



RLCA 




und in bl,bO 

BA27 

04B8 

07 



RLCA 




schieben 

BA28 

04B9 

21 

AB 

Bl 

LD 

HL.B1AB 


Konfig. b. ROM-Einsprung 

BA2B 

04BC 

86 



ADD 

(HL) 



addieren 

BA2C 

04BD 

18 

A4 


JR 

0463 



und Sprung ausführen 

********************************** 

KL 

FI RH JUMP CONT'D 








IN 

: 

((SP)): Routinenadr. 

BA2E 

04BF 

F3 



DI 





BA2F 

04C0 

D9 



EXX 




1. Registersatz retten 

BA30 

04C1 

El 



POP 

HL 



Aufrufadresse 

BA31 

04C2 

5E 



LD 

E,(HL) 



Adresse nach Aufruf 

BA32 

04C3 

23 



INC 

HL 



nach DE 

BA33 

04C4 

56 



LD 

D, (HL) 



laden 

BA34 

04C5 

CB 

91 


RES 

2,0 



Lo-ROH 

BA36 

04C7 

ED 

49 


OUT 

(C),C 



einschalten 

BA38 

04C9 

ED 

53 

3F BA 

LD 

(BA3F) 

.DE 


Adr. f. CALL speichern 

BA3C 

04CD 

D9 



EXX 




1. Registersatz wieder ein 

BA3D 

04CE 

FB 



EI 





BA3E 

04CF 

CD 

3E 

BA 

CALL 

BA3E 



Routine auf rufen 

BA41 

04D2 

F3 



DI 





BA42 

04D3 

D9 



EXX 




2. Registersatz einschalten 

BA43 

04D4 

CB 

Dl 


SET 

2,0 



Lo-ROM wieder 

BA45 

04D6 

ED 

49 


OUT 

(C),C 



ausschalten 

BA47 

04D8 

D9 



EXX 




1. Registersatz 

BA48 

04D9 

FB 



EI 





BA49 

04DA 

C9 



RET 





********************************** 

KL 

L 

ROM ENABLE 

BA4A 

04DB 

F3 



DI 





BA4B 

04DC 

D9 



EXX 




2. Registersatz ein 

BA4C 

04DD 

79 



LD 

A,C 



SYSTAT nach A retten 

BA4D 

04DE 

CB 

91 


RES 

2.C 



Lo-ROM 

BA4F 

04E0 

ED 

49 


OUT 

(C),C 



einschalten 

BA51 

04E2 

D9 



EXX 




1. Registersatz ein 

BA52 

04E3 

FB 



EI 





BA53 

04E4 

C9 



RET 





********************************** 

KL 

L 

ROM DISABLE 

BA54 

04E5 

F3 



DI 





BA55 

04E6 

D9 



EXX 




2. Registersatz ein 

BA56 

04E7 

79 



LD 

A.C 



SYSTAT nach A retten 

BA57 

04E8 

CB 

Dl 


SET 

2,0 



Lo-ROM 

BA59 

04EA 

ED 

49 


OUT 

(C),C 



ausschalten 

BA5B 

04EC 

D9 



EXX 




1. Registersatz ein 

BA5C 

04ED 

FB 



EI 





BA5D 

04EE 

C9 



RET 





********************************** 

KL 

U 

ROM ENABLE 

BA5E 

04EF 

F3 



DI 





BA5F 

04F0 

D9 



EXX 




2. Registersatz ein 

BA60 

04 F1 

79 



LD 

A,C 



SYSTAT nach A retten 

BA61 

04F2 

CB 

99 


RES 

3,0 



Hi-ROM 

BA63 

04F4 

ED 

49 


OUT 

(C),C 



einschalten 

BA65 

04F6 

D9 



EXX 




1. Registersatz ein 

BA66 

04F7 

FB 



EI 
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BA67 

04F8 

09 


RET 




********************************** 

KL 

U ROM DISABLE 

BA68 

04F9 

F3 


DI 




BA69 

04 FA 

D9 


EXX 



2. Registersatz ein 

BA6A 

04FB 

79 


LD 

A,C 


SYSTAT nach A retten 

BA6B 

04FC 

CB 

D9 

SET 

3,C 


Hi-ROM 

BA6D 

04FE 

ED 

49 

OUT 

(C),C 


ausschalten 

BA6F 

0500 

D9 


EXX 



1. Registersatz ein 

BA70 

0501 

FB 


EI 




BA71 

0502 

09 


RET 




********************************** 

KL 

ROM RESTORE 

BA72 

0503 

F3 


DI 




BA73 

0504 

D9 


EXX 



2. Registersatz ein 

BA74 

0505 

A9 


XOR 

C 


b3,b2 d. Akkus 

BA75 

0506 

E6 

00 

AND 

oc 


in lfd. SYSTAT, d.h. 

BA77 

0508 

A9 


XOR 

c 


alte ROM-Setzung 

BA78 

0509 

4F 


LD 

C, A 


wieder 

BA79 

05 0A 

ED 

49 

OUT 

(C),C 


einschalten 

BA7B 

0500 

D9 


EXX 



1. Registersatz ein 

BA7C 

050D 

FB 


EI 




BA7D 

050E 

09 


RET 




********************************** 

KL 

ROM SELECT 







IN 

: C: ROM-Nummer 

BA7E 

050F 

CD 

5E BA 

CALL 

BA5E 


Hi-ROM einschalten 

BA81 

0512 

18 

OF 

JR 

0523 


ROM auswählen 

********************************** 

KL 

PROBE ROM 







IN 

: C: ROM-Nummer 







OUT 

: A: ROM-Kennung 

HL: Marke u. Versionsnummer 

BA83 

0514 

CD 

7E BA 

CALL 

BA7E 


ROM anschalten 

BA86 

0517 

3A 

00 00 

LD 

A,(C000) 

ROM-Kennung laden 

BA89 

051A 

2A 

01 CO 

LD 

HL,(C001) 

Marke u. Versionsno. laden 

********************************** 

KL 

ROM DESELECT 







IN 

: B<3..2>: neue ROM-Bits 

C: neue ROM-Nummer 

A: alte ROM-Bits 







OUT 

: A,B: alte ROM-Bits 

C: alte ROM-Nurrener 

BA8C 

051D 

F5 


PUSH 

AF 


ROM-Kennung retten 

BA8D 

051E 

78 


LD 

A,B 


alte ROM-Bits 

BA8E 

051F 

CD 

72 BA 

CALL 

BA72 


wieder setzen 

BA91 

0522 

Fl 


POP 

AF 


Akku wieder vom Stack 

********************************** 

ROM 

-Nimmer schreiben 







IN 

: A: alte ROM-Bits 

C: neue ROM-Numier 







OUT 

: A,B: alte Konfig. 

C: alte ROM-Nummer 

BA92 

0523 

E5 


PUSH 

HL 



BA93 

0524 

F3 


DI 




BA94 

0525 

06 

DF 

LD 

B,DF 


I/O-Adr. f. ROM-Auswahl 

BA96 

0527 

ED 

49 

OUT 

(C),C 


ROM-Nurmer schreiben 

BA98 

0529 

21 

A8 Bl 

LD 

HL.B1A8 

alte ROM-Nummer 
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BA9B 

052C 

46 



LD 

B,(HL) 


laden 

BA9C 

052D 

71 



LD 

(HL),C 


neue ROM-Nummer setzen 

BA9D 

052E 

48 



LD 

C,B 


alte ROM-Nummer nach C 

BA9E 

052F 

47 



LD 

B,A 


alte Konfig. nach B 

BA9F 

0530 

FB 



EI 




BAAO 

0531 

El 



POP 

HL 



BAA1 

0532 

C9 



RET 




********************************** 

KL 

CURR SELECTION 








OUT 

: A: lfd. ROM-Nummer 

BAA2 

0533 

3A 

A8 

Bl 

LD 

A, (BlA8) 

lfd. ROM-Nurrmer Laden 

BAA5 

0536 

C9 



RET 




********************************** 

KL 

LDIR 








IN 

: HL: Zeiger auf Quellblock 

DE: Zeiger auf Zielblock 

BC: Länge 








OUT 

: HL: Zeiger nach Quellblock 
DE: Zeiger nach Zielblock 

BC: inner 0 

V=0, N=0, H=0 

BAA6 

0537 

CD 

B2 

BA 

CALL 

BAB2 


ROMs vorübergeh. abschalten 

BAA9 

053A 

ED 

BO 


LDIR 



Block kopieren 

BAAB 

053C 

C9 



RET 




********************************** 

KL 

LDDR 








IN 

: HL: Zeiger a. Quellblockende 
DE: Zeiger auf Zielblockende 
BC: Länge 








OUT 

: HL: Zeiger vor Quellblock 

DE: Zeiger vor Zielblock 

BC: inner 0 

V=0, N=0, H=0 

BAAC 

053D 

CD 

B2 

BA 

CALL 

BAB2 


ROMs vorübergeh. abschalten 

BAAF 

0540 

ED 

B8 


LDDR 



Block kopieren 

BAB1 

0542 

C9 



RET 




********************************** 

ROMs transparent abschalten 

BAB2 

0543 

F3 



DI 




BAB3 

0544 

D9 



EXX 



2. Registersatz ein 

BAB4 

0545 

El 



POP 

HL 


RET-Adresse vom Stack 

BAB5 

0546 

C5 



PUSH 

BC 


alten SYSTAT retten 

BAB6 

0547 

CB 

Dl 


SET 

2,C 


beide ROMs 

BAB8 

0549 

CB 

D9 


SET 

3, C 


abschalten 

BABA 

054B 

ED 

49 


OUT 

(C),C 


neuen SYSTAT ausgeben 

BABC 

05 4D 

CD 

C7 

BA 

CALL 

BAC7 


restl. Routine erst ausf. 

BABF 

0550 

F3 



DI 



nach Beendigung derselben: 

BACO 

0551 

D9 



EXX 



2. Registersatz 

BAC1 

0552 

CI 



POP 

BC 


alten SYSTAT 

BAC2 

0553 

ED 

49 


OUT 

(C),c 


wiederherstellen 

BAC4 

0555 

D9 



EXX 



1. Registersatz ein 

BAC5 

0556 

FB 



EI 




BAC6 

0557 

C9 



RET 




BAC7 

0558 

E5 



PUSH 

HL 


Adr. d. aufruf. Routine 

BAC8 

0559 

D9 



EXX 



1. Registersatz ein 

BAC9 

055A 

FB 



EI 




BACA 

055B 

C9 



RET 



Routine anspringen 
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********************************** 

KL RAM LAM, HL 





(läßt Flags unverändert) 





IN : HL: Adresse 





OUT: A: Byte von (HL) 

BACB 

055C F3 


DI 


BACC 

055D D9 


EXX 

2. Registersatz ein 

BACD 

055E 59 


LD E,C 

SYSTAT nach E kopieren 

BACE 

055F CB D3 


SET 2,E 

alle 64KB RAM 

BADO 

0561 CB DB 


SET 3,E 

einschalten 

BAD2 

0563 ED 59 


OUT (C),E 

neuen SYSTAT ausgeben 

BAD4 

0565 D9 


EXX 

wieder 1. Registersatz ein 

BAD 5 

0566 7E 


LD A,(HL) 

Byte aus RAM laden 

BAD6 

0567 D9 


EXX 

2. Registersatz ein 

BAD7 

0568 ED 49 


OUT (C),C 

wieder alten SYSTAT setzen 

BAD9 

056A D9 


EXX 

1. Registersatz ein 

BADA 

056B FB 


EI 


BADB 

056C C9 


RET 


********************************** 

KL RAM LAM, IX 





IN : IX: Adresse 





OUT: A: Byte von (IX) 

BADC 

056D D9 


EXX 

2. Registersatz 

BADD 

056E 79 


LD A, C 

lfd. SYSTAT nach A 

BADE 

056F F6 OC 


OR OC 

beide ROMs 

BAEO 

0571 ED 79 


OUT (C), A 

ausschalten 

BAE2 

0573 DD 7E 

00 

LD A,(IX+00) Byte aus RAM laden 

BAE5 

0576 ED 49 


OUT (C),C 

alten SYSTAT wieder setzen 

BAE7 

0578 D9 


EXX 

1. Registersatz wieder ein 

BAE8 

0579 C9 


RET 


057A 

C7 

RST 

00 


057B 

C7 

RST 

00 


057C 

C7 

RST 

00 


057D 

C7 

RST 

00 


057E 

C7 

RST 

00 


057F 

C7 

RST 

00 










********************************** 

RESET CONT'D 

0580 

F3 

DI 



0581 

01 82 F7 

LD 

BC,F782 

KontrolIregister PIO 8255 

0584 

ED 49 

OUT 

<C),C 

initialisieren 

0586 

01 00 F4 

LD 

BC,F400 

$00 aus Port A 

0589 

ED 49 

OUT 

(C),c 

senden 

058B 

01 00 F6 

LD 

BC,F600 

$00 aus Port C 

058E 

ED 49 

OUT 

(C),C 

senden 

0590 

01 7F EF 

LD 

BC,EF7F 

$7F an den Drucker 

0593 

ED 49 

OUT 

(C),C 

schicken 

0595 

06 F5 

LD 

B,F5 

Port B, PIO 

0597 

ED 78 

IN 

A, (C) 

laden 

0599 

E6 10 

AND 

10 

Bit f. 50/60Hz Bildwiederh. 

059B 

21 C4 05 

LD 

HL,05C4 

Tabelle f. 50Hz 

059E 

20 03 

JR 

NZ.05A3 

wenn =1, d.h. 50Hz 

05A0 

21 D4 05 

LD 

HL,05D4 

sonst Tabelle f. 60Hz 

05A3 

01 OF BC 

LD 

BC.BCOF 

Adreßregister d. CRTC 

05A6 

ED 49 

OUT 

(C),c 

Adresse in CRTC schreiben 

05A8 

2B 

DEC 

HL 

nächstes Byte aus Tabelle 
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05A9 

7E 



LD 

A, (HL) 

05AA 

04 



INC 

B 

05AB 

ED 

79 


OUT 

(C), A 

05AD 

05 



DEC 

B 

05AE 

0D 



DEC 

C 

05AF 

F2 

A6 

05 

JP 

P,05A6 

05 B2 

18 

20 


JR 

05D4 

********************************** 

05B4 

3F 

28 

2E 8E 

26 00 

19 IE 

05BC 

00 

07 

00 00 

30 00 

C0 00 

********************************** 

05 C4 

3F 

28 

2E 8E 

1F 06 

19 1B 

05CC 

00 

07 

00 00 

30 00 

C0 00 

05D4 

11 

5C 

06 

LD 

DE,065C 

05D7 

21 

00 

00 

LD 

HL,0000 

05DA 

18 

32 


JR 

060E 

********************************** 

05DC 

31 

00 

C0 

LD 

SP,C000 

05DF 

E5 



PUSH 

HL 

05E0 

CD 

68 

IE 

CALL 

1E68 

05E3 

F3 



DI 


05E4 

01 

FF 

F8 

LD 

BC.F8FF 

05E7 

ED 

49 


OUT 

(C),C 

05E9 

CD 

5C 

00 

CALL 

005C 

05EC 

El 



POP 

HL 

05ED 

D5 



PUSH 

DE 

05EE 

C5 



PUSH 

BC 

05EF 

E5 



PUSH 

HL 

05F0 

CD 

IE 

1A 

CALL 

1 AI E 

05F3 

CD 

88 

10 

CALL 

1088 

05F6 

CD 

Bl 

0A 

CALL 

0AB1 

05 F9 

CD 

5E 

BA 

CALL 

BA5E 

05FC 

El 



POP 

HL 

05FD 

CD 

75 

07 

CALL 

0775 

0600 

CI 



POP 

BC 

0601 

Dl 



POP 

DE 

0602 

38 

07 


JR 

C.060B 

0604 

EB 



EX 

DE, HL 

0605 

48 



LD 

C, B 

0606 

11 

E8 

06 

LD 

DE.06E8 

0609 

18 

03 


JR 

060E 


********************************** 


060B 

11 

26 

07 

LD 

DE,0726 

060E 

F3 



DI 


060F 

ED 

56 


IM 

1 

0611 

D9 



EXX 


0612 

01 

00 

DF 

LD 

BC,DF00 


laden 

und ins entspr. CRTC-Register 
schreiben 

CRTC-Adreßregister 
Registernunmer erniedrigen 
bis alle CRTC-Register gesetzt 
Tabellen überspringen 

CRTC-Werte, 50 Hz 


CRTC-Werte, 60 Hz 


Zeiger auf Einschaltmeldung 
Kennz. f. Basic anspringen 
System starten 

HC BOOT PROGRAM 

IN : HL: Aufrufadr. d. Programms 
Stack Startwert 
Aufrufadr. retten 
SOUND RESET 

$FF an evtl, angeschl. Periph. 
senden 

Kernel initialisieren 
Auf rufadresse 
Einsprung lfd. ROM 
alte/neue ROM-Konfig. 
Aufrufadr. d. Programms 
KM RESET 
TXT RESET 
SCR RESET 

Hi-ROM einschalten 
Aufrufadr. d. Boot-Programns 
Lade-Routine ausführen 
alte/neue ROM-Konfig. 

Einsprung in lfd. ROM 
kein Fehler? d. System starten 
Einsprung in lfd. ROM 
alte ROM-Konfig. 

Adr. f. "PROGRAM LOAD FAILED" 
und System starten 

MC START PROGRAM 
IN : DE: Adr. f. Meldung 
HL: Adr. d. Progranms 
(=$0000 f. Basic) 

C: ROM-Konfiguration 
Zeiger auf RET (keine Meldung) 


2. Registersatz ein 
$00 als ROM-Nuroer 
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0615 

ED 

49 


OUT 

(C),c 

0617 

01 

FF 

F8 

LD 

BC,F8FF 

061A 

ED 

49 


OUT 

(C),C 

061C 

21 

00 

Bl 

LD 

HL,Bl 00 

061F 

11 

01 

Bl 

LD 

DE,Bl 01 

0622 

01 

FF 

07 

LD 

BC,07FF 

0625 

36 

00 


LD 

(HL),00 

0627 

ED 

B0 


LDIR 


0629 

01 

89 

7 F 

LD 

BC,7F89 

062C 

ED 

49 


OUT 

(C),C 

062E 

D9 



EXX 


062 F 

AF 



XOR 

A 

0630 

08 



EX 

AF,AF' 

0631 

31 

00 

CO 

LD 

SP,C000 

0634 

E5 



PUSH 

HL 

0635 

C5 



PUSH 

BC 

0636 

D5 



PUSH 

DE 

0637 

CD 

44 

00 

CALL 

0044 

063A 

CD 

88 

08 

CALL 

0888 

063D 

CD 

E0 

19 

CALL 

19E0 

0640 

CD 

68 

IE 

CALL 

1E68 

0643 

CD 

A0 

0A 

CALL 

0AA0 

0646 

CD 

78 

10 

CALL 

1078 

0649 

CD 

B0 

15 

CALL 

15B0 

064C 

CD 

70 

23 

CALL 

2370 

064 F 

CD 

E6 

07 

CALL 

07E6 

0652 

F8 



EI 


0653 

El 



POP 

HL 

0654 

CD 

75 

07 

CALL 

0775 

0657 

CI 



POP 

BC 

0658 

El 



POP 

HL 

0659 

C3 

77 

00 

JP 

0077 


‘b'it -ick •k'ü'ü'k'k'irk'k'it'kit'it'k'k'k'kifk'it'k'it'kititit’klt 


065C 

CD 

12 

07 


CALL 


0712 

065 F 

CD 

EB 

06 


CALL 


06EB 

0662 

21 

6D 

06 


LD 


HL,066D 

0665 

CD 

EB 

06 


CALL 


06EB 

0668 

21 

93 

06 


LD 


HL,0693 

066B 

18 

7E 



JR 


06EB 


066D 

20 

36 

34 

4B 

20 

4D 

69 

63 

0675 

72 

6F 

63 

6F 

6D 

70 

75 

74 

067D 

65 

72 

20 

20 

28 

76 

31 

29 

0685 

0D 

0A 

0D 

0A 

00 

43 

6F 

70 

068D 

79 

72 

69 

67 

68 

74 

20 

A4 

0695 

31 

39 

38, 

34 

20 

41 

6D 

73 

069D 

74 

72 

61 

64 

20 

43 

6F 

6E 

06A5 

73 

75 

6D 

65 

72 

20 

45 

6C 

06AD 

65 

63 

74 

72 

6F 

6E 

69 

63 

06B5 

73 

20 

70 

6C 

63 

0D 

0A 

20 

06BD 

20 

20 

20 

20 

20 

20 

20 

20 

06C5 

20 

20 

61 

6E 

64 

20 

4C 

6F 

06 CD 

63 

6F 

6D 

6F 

74 

69 

76 

65 

06D5 

20 

53 

6F 

66 

74 

77 

61 

72 

06DD 

65 

20 

4C 

74 

64 

2E 

0D 

0A 

06E5 

0D 

0A 

00 







setzen 

evtl. Peripherie $FF 
übergeben ® 

den Bereich von $B100 
bis SB8FF, d.h. 
den Arbeitsspeicher 
für das Operating System 
löschen 

Hi-ROM aus, Lo-ROM an, Mode 1 
setzen 

wieder 1. Registersatz 

CY:=0 f. nicht im Interrupt 

ins Interrupt-Carry 

Stack Startwert 

Einsrungadresse 

ROM -Konfiguratlon 

Adresse der Meldung 

Hi Kernel Jumps kopieren 

Jump Restore 

KM Init 

Sound Reset 

SCR Init 

TXT Init 

GRA Init 

CAS Init 

MC Reset Printer 

Adresse f. Meldung 
Meldung ausgeben 
ROM-Konfiguration 
Einsprungadresse 
Prograrmi/Basic anspringen 

Einschalt-Meldung ausgeben 
Firmennamen-Adresse holen 
Firmennamen ausgeben 
"64 K Mikrocomputer ..." 
ausgeben 

"(c) 1984 Amstrad Consumer..." 
ausgeben 

Einschaltmeldung 
64K Mic 
rocomput 
er (vl) 

Cop 
yright 
1984 Ams 
trad Con 
suner El 
ectronic 
s plc 

and Lo 
comotive 
Softwar 
e Ltd. 
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********************************** Ladef eh ler-Meldung ausget>en 
06E8 21 F4 06 LD HL,06F4 Zeiger auf Ladefehler-Meldung 


********************************** 


06EB 

7E 




LD 

A, (HL) 

06EC 

23 




INC 

HL 

06ED 

B7 




OR 

A 

06EE 

C8 




RET 

Z 

06EF 

CD 

00 

14 


CALL 

1400 

06F2 

18 

F7 



JR 

06EB 

********************************** 

06F4 

2A 

2A 

2A 

20 

50 52 

4F 47 

06FC 

52 

41 

4D 

20 

4C 4F 

41 44 

0704 

20 

46 

41 

49 

4C 45 

44 20 

070C 

2A 

2A 

2A 

0D 

0A 00 


********************************** 

0712 

06 

F5 



LD 

B,F5 

0714 

ED 

78 



IN 

A, (C) 

0716 

2F 




CPL 


0717 

E6 

0E 



AND 

0E 

0719 

0F 




RRCA 


071A 

21 

27 

07 


LD 

HL,0727 

071D 

3C 




INC 

A 

071E 

47 




LD 

B/A 

071F 

7E 




LD 

A,(HL) 

0720 

23 




INC 

HL 

0721 

B7 




OR 

A 

0722 

20 

FB 



JR 

NZ,071F 

0724 

10 

F9 



DJNZ 

071 F 

0726 

C9 




RET 


********************************** 

0727 

41 

72 

6E 

6 F 

6C 64 

00 0A 

072F 

20 

41 

6D 

73 

74 72 

61 64 

0737 

00 

0A 

20 

4F 

72 69 

6F 6E 

073F 

00 

0A 

20 

53 

63 68 6E 65 

0747 

69 

64 

65 

72 

00 0A 

20 41 

074 F 

77 61 

00 

0A 

20 53 

6F 6C 

0757 

61 

76 

6F 

78 

00 0A 

20 53 

075 F 

61 

69 

73 

68 

6F 00 

0A 20 

0767 

54 

72 

69 

75 

6D 70 

68 00 

076 F 

0A 

20 

49 

73 

70 00 


********************************** 

0775 

E9 




JP 

(HL) 

********************************** 

0776 

FE 

03 



CP 

03 

0778 

DO 




RET 

NC 

0779 

F3 




DI 


077A 

D9 




EXX 


077B 

CB 

89 



RES 

1,C 

077D 

CB 

81 



RES 

0,C 


Meldung ausgeben 
IN : HL: Adr. d. Meldung 
Zeichen aus Meldung 
Zeiger auf nächstes Zeichen 
Ende der Meldung? 
dann raus 

Zeichen auf Bildschirm ausgeb. 
und nächstes Zeichen bearb. 

Ladefehler-Meldung 
*** PROG 
RAM LOAD 

FAILED 
*** 

Firmennamen-Adresse holen 
OUT: HL: Adr. d. Firmennamens 
Port B, PIO 
laden 
Bits 1-4 
isolieren 

und nach unten schieben 
Anfang d. Namenstabelle 
'Namensnummer+1 
nach B als Zähler 
Zeichen aus Namen 
Zeiger auf nächstes Zeichen 
Namensende? 
sonst weiter lesen 
bis Nummer gleich null 


Firmennamen 
Arnold 
Amstrad 
Ori on 
Sehne 
ider A 
wa Sol 
avox S 
ai sho 
T riumph 
Isp 

JP (HL) 


MC SET MODE 
IN : A: Mode-Nummer 
Mode >2? 
dann zurück 

2. Registersatz an 
beide Mode-Bits in 
SYSTAT zurücksetzen 
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077F 

Bl 



OR 

C 


und mit neuen Mode-Bits verkn. 

0780 

4F 



LD 

C,A 


neuen SYSTAT 

0781 

ED 

49 


OUT 

(C),C 


ins GA setzen 

0783 

FB 



EI 




0784 

D9 



EXX 



1. Registersatz wieder an 

0785 

C9 



RET 




********************************** 

MC 

CLEAR INKS 







IN 

: DE: Adr. d. Farben 

0786 

C5 



PUSH 

BC 



0787 

D5 



PUSH 

DE 


Adr. d. Farben retten 

0788 

01 

10 

7F 

LD 

BC.7F10 


GA: Farbstift-Register 

078B 

CD 

AB 

07 

CALL 

07AB 


Border-Wert übergeben 

078E 

0E 

00 


LD 

C,00 


Farbstift 0, GA Register 

0790 

CD 

AB 

07 

CALL 

07AB 


Wert übergeben 

0793 

1B 



DEC 

DE 


Zeiger wieder auf gleich. Wert 

0794 

20 

FA 


JR 

NZ.0790 


schon alle Farben? 

0796 

Dl 



POP 

DE 



0797 

Ci 



POP 

BC 



0798 

C9 



RET 




********************************** 

MC 

SET INKS 







IN 

: Adr. d. Farbtabelle 

0799 

C5 



PUSH 

BC 



079A 

D5 



PUSH 

DE 



079B 

01 

10 

7F 

LD 

BC,7F10 


GA, Farbstift-Reg., Border 

079E 

CD 

AB 

07 

CALL 

07AB 


Wert übergeben 

07A1 

0E 

00 


LD 

C,00 


GA, Farbstift-Reg., Stift 0 

07A3 

CD 

AB 

07 

CALL 

07AB 


Wert übergeben 

07A6 

20 

FB 


JR 

NZ,07A3 


schon alle Stifte? 

07A8 

Dl 



POP 

DE 



07A9 

CI 



POP 

BC 



07AA 

C9 



RET 





********************************** 


07AB 

ED 

49 

OUT 

(C),C 

07AD 

1A 


LD 

A,(DE) 

07AE 

13 


INC 

DE 

07AF 

E6 

1 F 

AND 

1 F 

07B1 

F6 

40 

OR 

40 

07B3 

ED 

79 

OUT 

<C),A 

07B5 

OC 


INC 

C 

07B6 

79 


LD 

A,C 

07B7 

FE 

10 

CP 

10 

07B9 

C9 


RET 


********************************** 

078A 

F5 


PUSH 

AF 

07BB 

C5 


PUSH 

BC 

07BC 

06 

F5 

LD 

B,F5 

07BE 

ED 

78 

IN 

A, (C) 

07C0 

1F 


RRA 


07C1 

30 

FB 

JR 

NC,07BE 


Farbwert in Gate Array schreiben 
IN : C: Farbstift-Nummer 
DE: Tabellenzeiger 
OUT: C: nächste Farbstift-No. 

DE: Zeiger auf nächsten Wert 
Z:=1, wenn alle 16 Stifte 
Farbregister-Nummer ausgeben 
Farbwert aus Tabelle 
Zeiger auf nächsten Tab.-Wert 
Farbwertregister 
auswählen 

und Farbwert schreiben 
nächste Farbstift-Nummer 
nach A f. Vergleich 
schon alle 16 Farbstifte? 


MC WAIT FLYBACK 


Port B, PIO 
laden 

VSYNC ins Carry schieben 
nicht gesetzt? d. warten 
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07C3 

CI 

POP 

BC 

07C4 

Fl 

POP 

AF 

07C5 

C9 

RET 



********************************** 


07C6 

C5 


PUSH 

BC 

07C7 

0F 


RRCA 


07C8 

0F 


RRCA 


07C9 

E6 

30 

AND 

30 

07CB 

4F 


LD 

C, A 

07CC 

7C 


LD 

A, H 

07CD 

1F 


RRA 


07CE 

E6 

03 

AND 

03 

07D0 

Bl 


OR 

C 

07D1 

01 

0C BC 

LD 

BC.BC0C 

07D4 

ED 

49 

OUT 

<C),C 

07D6 

04 


INC 

B 

07D7 

ED 

79 

OUT 

(C),A 

07D9 

05 


DEC 

B 

07DA 

OC 


INC 

C 

07DB 

ED 

49 

OUT 

(C),C 

07DD 

04 


INC 

B 

07DE 

7C 


LD 

A, H 

07DF 

1F 


RRA 


07E0 

7D 


LD 

A,L 

07E1 

1F 


RRA 


07E2 

ED 

79 

OUT 

(C),A 

07E4 

CI 


POP 

BC 

07E5 

C9 


RET 



********************************** 
07E6 21 EC 07 LD HL,07EC 

07E9 C3 8A OA JP 0A8A 

********************************** 
07EC 03 

07ED Fl BD 

07EF C3 F8 07 JP 07F8 

********************************** 


07F2 

C5 

PUSH 

BC 

07F3 

CD Fl BD 

CALL 

BDF1 

07F6 

CI 

POP 

BC 

07F7 

C9 

RET 



********************************** 


07F8 01 32 00 LD BC,0032 

07FB CD 1B 08 CALL 081B 

07FE 30 07 JR NC f 0807 


MC SCREEN OFFSET 
IN : A: SCR BASE, in 16K Blöcken 
HL: SCR OFFSET 

SCR BASE nach b5,b4 
schieben 

signifik. Bits isolieren 
Ergebnis nach C 
SCR OFFSET, Hi 

wegen Adreßversch. nach unten 
RA-Bits:=0, oberste Zeichenzl. 
m. SCR BASE verknüpfen 
CRTC-Adreßregister, Reg. 12 
auswählen 

CRTC-Datenregister 
Startadresse Hi übergeben 
CRTC-Adreßregister 
Register 13 
auswählen 

CRTC-Datenregister 
durch 2 teilen, 
wegen Adreßverschiebung 


Startadresse lo übergeben 


MC RESET PRINTER 

Zeiger Indir. f. WAIT PRINTER 
Indirection kopieren 

Indirection f. MC WAIT PRINTER 
Länge des Blocks 
Ziel adresse 
Indirection 

MC PRINT CHAR 

IN : A: Zeichen 

OUT: CY:=1, wenn o.k. 

CY:=0, wenn busy 

Zeichen ausgeben 


MC WAIT PRINTER 
IN : A: Zeichen 
OUT: CY:=1, wenn o.k. 

CY:=0, wenn busy 
Wartezähler ($3200) 

Printer busy? 

nein? d. Zeichen an Printer 
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0800 

10 

F9 

DJNZ 

07FB 

0802 

0D 


DEC 

C 

0803 

20 

F6 

JR 

NZ,07FB 

0805 

B7 


OR 

A 

0806 

C9 


RET 


********************************** 


0807 

C5 


PUSH 

BC 

0808 

06 

EF 

LD 

B,EF 

080A 

E6 

7F 

AND 

7F 

080C 

ED 

79 

OUT 

(C) ,A 

080 E 

F6 

80 

OR 

80 

0810 

F3 


DI 


0811 

ED 

79 

OUT 

(C),A 

0813 

E6 

7F 

AND 

7F 

0815 

FB 


EI 


0816 

ED 

79 

OUT 

<C),A 

0818 

CI 


POP 

BC 

0819 

37 


SCF 


081A 

C9 


RET 


********************************** 

081B 

C5 


PUSH 

BC 

081C 

4F 


LD 

C,A 

081D 

06 

F5 

LD 

B,F5 

081 F 

ED 

78 

IN 

A,(C) 

0821 

17 


RLA 


0822 

17 


RLA 


0823 

79 


LD 

A.C 

0824 

CI 


POP 

BC 

0825 

C9 


RET 


********************************** 


0826 

F3 


DI 


0827 

06 

F4 

LD 

B,F4 

0829 

ED 

79 

OUT 

(C),A 

082B 

06 

F6 

LD 

B,F6 

082D 

ED 

78 

IN 

A, (C) 

082 F 

F6 

C0 

OR 

CO 

0831 

ED 

79 

OUT 

(C),A 

0833 

E6 

3F 

AND 

3F 

0835 

ED 

79 

OUT 

(C),A 

0837 

06 

F4 

LD 

B, F4 

0839 

ED 

49 

OUT 

(C),C 

083B 

06 

F6 

LD 

B, F6 

083D 

4F 


LD 

C, A 

083E 

F6 

80 

OR 

80 

0840 

ED 

79 

OUT 

<C),A 

0842 

ED 

49 

OUT 

(C),C 

0844 

FB 


EI 


0845 

C9 


RET 



weiter warten 

Hi-Byte (logisches Hi-Byte) 
und ggf. weiter warten 
CY:=0 f. busy 


MC SEND PRINTER 
IN : A: Zeichen 
OUT: CY:=1, f. fehlerfrei 

I/O-Adresse f. Printer 
Strobe löschen 
und Zeichen ausgeben 
Strobe setzen 

und ausgeben 
Strobe wieder löschen 

und ausgeben 

CY:=1 f. o.k. 


MC BUSY PRINTER 

OUT: CY:=1 f wenn Printer busy 

retten 
Port B, PIO 
laden 

Busy-Bit ins Carry 
schieben 


MC SOUND REGISTER 
IN : A: Register-Nummer 
C: Daten-Byte 

Port A, PIO 

Register-Nunmer an PSG 

Port C, PIO 

laden 

PSG auf 'Reg.-No. latchen 1 
setzen 

PSG auf 'inaktiv' 
setzen 
Port A, PIO 
Daten-Byte an PSG 
Port C, PIO 

alter Port C-Wert nach C 
PSG auf 'write' 
setzen, Daten übernehmen 
und PSG wieder inaktiv 
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********************************** 


0846 

01 

0E F4 

LD 

BC,F40E 

0849 

ED 

49 

CUT 

(C),C 

084B 

06 

F6 

LD 

B, F6 

084D 

ED 

78 

IN 

A, (C) 

084F 

E6 

30 

AND 

30 

0851 

4F 


LD 

C, A 

0852 

F6 

CO 

OR 

CO 

0854 

ED 

79 

OUT 

(C),A 

0856 

ED 

49 

OUT 

(C),C 

0858 

04 


INC 

B 

0859 

3E 

92 

LD 

A,92 

085B 

ED 

79 

OUT 

(C),A 

085D 

C5 


PUSH 

BC 

085E 

CB 

Fl 

SET 

6,C 

0860 

06 

F6 

LD 

B,F6 

0862 

ED 

49 

OUT 

(C),C 

0864 

06 

F4 

LD 

B,F4 

0866 

ED 

78 

IN 

A,(C) 

0868 

46 


LD 

B,(HL) 

0869 

77 


LD 

(HL),A 

086A 

A0 


AND 

B 

086B 

2F 


CPL 


086C 

12 


LD 

(DE) ,A 

086D 

23 


INC 

HL 

086E 

13 


INC 

DE 

086F 

OC 


INC 

C 

0870 

79 


LD 

A, C 

0871 

E6 

0F 

AND 

0F 

0873 

FE 

0A 

CP 

0A 

0875 

20 

E9 

JR 

NZ.0860 

0877 

Ci 


POP 

BC 

0878 

3E 

82 

LD 

A,82 

087A 

ED 

79 

OUT 

(C),A 

087C 

05 


DEC 

B 

087D 

ED 

49 

OUT 

(C),C 

087F 

C9 


RET 


0880 

C7 


RST 

00 

0881 

C7 


RST 

00 

0882 

C7 


RST 

00 

0883 

C7 


RST 

00 

0884 

C7 


RST 

00 

0885 

C7 


RST 

00 

0886 

C7 


RST 

00 

0887 

C7 


RST 

00 


Scan Keyboard 

IN : HL: Adr. prim. Rückm. 

DE: Adr. pos. Rückm. 

OUT: neue Tabellen 

Port A, PSG-Reg. No. 14 
auswählen 
Motor & WR DATA 
laden 

PSG inaktiv, Zeile 0 
Byte retten 
Reg.-No. in PSG 
übernehmen 

und PSG wieder 'inaktiv' 

Steuerregister 

A,B: Eingang, C: Ausgang 

setzen 

Steuerreg.-Adr. retten 
von PSG lesen 
Port C, PIO 

auf 'lesen' u. Tastaturzeile 
Rückmeldung v. Tastatur 
lesen 

letzter Wert b. Tastaturabfr. 
Rückmeldung in Tabelle 
m. letzter Rückmeldung 
verknüpfen und 
positiv abspeichern 
Zeiger auf nächstes Tab.-Byte 
Zeiger auf nächstes Tab.-Byte 
nächste Tastaturzeile 
nach A f. Vergleich 
schon 

die zehnte Zeile? 

sonst nächste Zeile abfragen 

Adr. d. Steuerregisters 

A,C: Ausgang, B: Eingang 

setzen 

Port C 

PSG 1 inaktiv', Zeile 0 
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JUMP RESTORE 


********************************** JUMP RESTORE 


0888 

11 

AC 

08 

LD 


DE.08AC 


Adresse der Default-Adressentabelle 

088B 

21 

00 

BB 

LD 


HL.BBOO 


Adresse der RAM-Sprungtabelle 

088E 

01 

CF 

BF 

LD 


BC.BFCF 


191 

Sprünge mit RST 08 

0891 

CD 

97 

08 

CALL 


0897 



Ansprünge kopieren 

0894 

01 

EF 

30 

LD 


BC,30EF 


48 Sprünge mit RST 28 

0897 

71 



LD 


(HL), 

c 


RST- 

Befehl setzen 

0898 

23 



INC 


HL 





0899 

1A 



LD 


A, (DE) 


Ansprung-Adresse lo 

089A 

77 



LD 


(HL), 

A 


kopieren 

089B 

13 



INC 


DE 





089C 

23 



INC 


HL 





0890 

EB 



EX 


DE,HL 




089E 

79 



LD 


A, C 



RST-Opcode 

089 F 

2F 



CPL 





b? 

gesetzt, wenn RST 08 

08A0 

07 



RLCA 




(für ROM-Konfiguration, 

08A1 

07 



RLCA 




oberes ROM aus, unteres ein) 

08A2 

E6 

80 


AND 


80 



ROM- 

Konfig.-Bit isolieren 

08A4 

B6 



OR 


(HL) 



urtd 

in Adresse hi setzen 

08A5 

EB 



EX 


DE,HL 




08A6 

77 



LD 


(HL), 

A 


Ansprung-Adresse hi speichern 

08A7 

13 



INC 


DE 





08A8 

23 



INC 


HL 





08A9 

10 

EC 


DJNZ 

0897 



weitere Sprungvektoren ? 

08AB 

C9 



RET 







********************************** 

Default 

:-Adressentabelle 

BB00 

CF 

EO 

99 

08AC 

EO 

19 

RST 

08 

19E0 

KM INITIALIZE 

BB03 

CF 

1E 

9A 

08AE 

iE 

1A 

RST 

08 

1 AI E 

KM RESET 

BB06 

CF 

3C 

9A 

08B0 

3C 

1A 

RST 

08 

1A3C 

KM WA IT CHAR 

BB09 

CF 

42 

9A 

08B2 

42 

1A 

RST 

08 

1A42 

KM READ CHAR 

BBOC 

CF 

77 

9A 

08B4 

77 

1A 

RST 

08 

1A77 

KM CHAR RETURN 

BBOF 

CF 

BD 

9A 

08B6 

BD 

1A 

RST 

08 

1ABD 

KM SET EXPAND 

BB12 

CF 

2E 

9B 

08B8 

2E 

1B 

RST 

08 

1B2E 

KM GET EXPAND 

BB15 

CF 

7B 

9A 

08BA 

7B 

1A 

RST 

08 

1A7B 

KM EXP BUFFER RESET 

BB18 

CF 

56 

9B 

08BC 

56 

1B 

RST 

08 

1B56 

KM WAIT KEY 

BBlB 

CF 

5C 

9B 

08BE 

5C 

1B 

RST 

08 

1B5C 

KM READ KEY 

BB1E 

CF 

BD 

9C 

08C0 

BD 

IC 

RST 

08 

1CBD 

KM TEST KEY 

BB21 

CF 

B3 

9B 

08C2 

B3 

1B 

RST 

08 

1BB3 

KM GET STATE 

BB24 

CF 

5C 

9C 

08C4 

5C 

IC 

RST 

08 

1C5C 

KM GET JOYSTICK 

BB27 

CF 

52 

9D 

08C6 

52 

ID 

RST 

08 

1D52 

KM SET TRANSLATE 

BB2A 

CF 

3E 

9D 

08C8 

3E 

ID 

RST 

08 

1D3E 

KM GET TRANSLATE 

BB2D 

CF 

57 

9D 

08CA 

57 

ID 

RST 

08 

1D57 

KM SET SHIFT 

BB30 

CF 

43 

9D 

08CC 

43 

ID 

RST 

08 

1D43 

KM GET SHIFT 

BB33 

CF 

5C 

9D 

08CE 

5C 

ID 

RST 

08 

1D5C 

KM SET CTRL 

BB36 

CF 

48 

9D 

08D0 

48 

ID 

RST 

08 

1D48 

KM GET CTRL 

BB39 

CF 

AB 

9C 

08D2 

AB 

IC 

RST 

08 

1CAB 

KM SET REPEAT 

BB3C 

CF 

A6 

9C 

08D4 

A6 

IC 

RST 

08 

1CA6 

KM GET REPEAT 

BB3F 

CF 

6D 

9C 

08D6 

6D 

IC 

RST 

08 

1C6D 

KM SET DELAY 

BB42 

CF 

69 

9C 

0808 

69 

IC 

RST 

08 

1C69 

KM GET DELAY 

BB45 

CF 

71 

9C 

08DA 

71 

IC 

RST 

08 

1C71 

KM ARM BREAK 

BB48 

CF 

82 

9C 

08DC 

82 

IC 

RST 

08 

1C82 

KM DISARM BREAK 

BB4B 

CF 

90 

9C 

08DE 

90 

IC 

RST 

08 

1C90 

KM BREAK EVENT 

BB4E 

CF 

78 

90 

08E0 

78 

10 

RST 

08 

1078 

TXT INITIALIZE 

BB51 

CF 

88 

90 

08E2 

88 

10 

RST 

08 

1088 

TXT RESET 

BB54 

CF 

51 

94 

08E4 

51 

14 

RST 

08 

1451 

TXT VDU ENABLE 
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BB57 

CF 

4B 

94 

08E6 

BB5A 

CF 

00 

94 

08E8 

BB5D 

CF 

34 

93 

08EA 

BB60 

CF 

AB 

93 

08EC 

BB63 

CF 

A7 

93 

08EE 

BB66 

CF 

OC 

92 

08F0 

BB69 

CF 

56 

92 

08F2 

BB6C 

CF 

40 

95 

08 F4 

BB6F 

CF 

5E 

91 

08F6 

BB72 

CF 

69 

91 

08F8 

BB75 

CF 

74 

91 

08FA 

BB78 

CF 

80 

91 

08FC 

BB7B 

CF 

89 

92 

08FE 

BB7E 

CF 

9A 

92 

0900 

BB81 

CF 

79 

92 

0902 

BB84 

CF 

81 

92 

0904 

BB87 

CF 

CE 

91 

0906 

BB8A 

CF 

68 

92 

0908 

BB8D 

CF 

68 

92 

090A 

BB90 

CF 

A9 

92 

090C 

BB93 

CF 

BD 

92 

090E 

BB96 

CF 

AE 

92 

0910 

BB99 

CF 

C3 

92 

0912 

BB9C 

CF 

C9 

92 

0914 

BB9F 

CF 

7A 

93 

0916 

BBA2 

CF 

87 

93 

0918 

BBA5 

CF 

D3 

92 

091A 

BBA8 

CF 

Fl 

92 

091C 

BBAB 

CF 

FD 

92 

091E 

BBAE 

CF 

2A 

93 

0920 

BBB1 

CF 

CB 

94 

0922 

BBB4 

CF 

E8 

90 

0924 

BBB7 

CF 

07 

91 

0926 

BBBA 

CF 

B0 

95 

0928 

BBBD 

CF 

DF 

95 

092A 

BBCO 

CF 

F4 

95 

092C 

BBC3 

CF 

Fl 

95 

092E 

BBC6 

CF 

FC 

95 

0930 

BBC9 

CF 

04 

96 

0932 

BBCC 

CF 

12 

96 

0934 

BBCF 

CF 

34 

97 

0936 

BBD2 

CF 

79 

97 

0938 

BBD5 

CF 

A6 

97 

093A 

BBD8 

CF 

BC 

97 

093C 

BBDB 

CF 

C5 

97 

093E 

BBDE 

CF 

F6 

97 

0940 

BBE1 

CF 

04 

98 

0942 

BBE4 

CF 

FD 

97 

0944 

BBE7 

CF 

OA 

98 

0946 

BBEA 

CF 

13 

98 

0948 

BBED 

CF 

10 

98 

094A 

BBFO 

CF 

27 

98 

094c 

BBF3 

CF 

24 

98 

094E 

BBF6 

CF 

39 

98 

0950 

BBF9 

CF 

36 

98 

0952 

BBFC 

CF 

45 

99 

0954 

BBFF 

CF 

AO 

8A 

0956 

BC02 

CF 

Bl 

8A 

0958 


4B 

14 

RST 

08 

144B 

00 

14 

RST 

08 

1400 

34 

13 

RST 

08 

1334 

AB 

13 

RST 

08 

13 AB 

A7 

13 

RST 

08 

13A7 

OC 

12 

RST 

08 

120C 

56 

12 

RST 

08 

1256 

40 

15 

RST 

08 

1540 

5E 

11 

RST 

08 

115E 

69 

11 

RST 

08 

1169 

74 

11 

RST 

08 

1174 

80 

11 

RST 

08 

1180 

89 

12 

RST 

08 

1289 

9A 

12 

RST 

08 

129A 

79 

12 

RST 

08 

1279 

81 

12 

RST 

08 

1281 

CE 

11 

RST 

08 

11 CE 

68 

12 

RST 

08 

1268 

68 

12 

RST 

08 

1268 

A9 

12 

RST 

08 

12A9 

BD 

12 

RST 

08 

12BD 

AE 

12 

RST 

08 

12AE 

C3 

12 

RST 

08 

12C3 

C9 

12 

RST 

08 

12C9 

7A 

13 

RST 

08 

137A 

87 

13 

RST 

08 

1387 

D3 

12 

RST 

08 

12D3 

Fl 

12 

RST 

08 

12 F1 

FD 

12 

RST 

08 

12FD 

2A 

13 

RST 

08 

132A 

CB 

14 

RST 

08 

14CB 

E8 

10 

RST 

08 

10E8 

07 

11 

RST 

08 

1107 

BO 

15 

RST 

08 

15B0 

DF 

15 

RST 

08 

15DF 

F4 

15 

RST 

08 

15F4 

Fl 

15 

RST 

08 

15F1 

FC 

15 

RST 

08 

15 FC 

04 

16 

RST 

08 

1604 

12 

16 

RST 

08 

1612 

34 

17 

RST 

08 

1734 

79 

17 

RST 

08 

1779 

A6 

17 

RST 

08 

17A6 

BC 

17 

RST 

08 

17BC 

C5 

17 

RST 

08 

17C5 

F6 

17 

RST 

08 

17F6 

04 

18 

RST 

08 

1804 

FD 

17 

RST 

08 

17FD 

OA 

18 

RST 

08 

180A 

13 

18 

RST 

08 

1813 

10 

18 

RST 

08 

1810 

27 

18 

RST 

08 

1827 

24 

18 

RST 

08 

1824 

39 

18 

RST 

08 

1839 

36 

18 

RST 

08 

1836 

45 

19 

RST 

08 

1945 

AO 

OA 

RST 

08 

OAAO 

Bl 

OA 

RST 

08 

0AB1 


TXT VDU DISABLE 

TXT OUTPUT 

TXT WR CHAR 

TXT RD CHAR 

TXT SET GRAPHIC 

TXT WIN ENABLE 

TXT GET WINDOW 

TXT CLEAR WINDOW 

TXT SET COLUMN 

TXT SET ROW 

TXT SET CURSOR 

TXT GET CURSOR 

TXT CUR ENABLE 

TXT CUR DISABLE 

TXT CUR ON 

TXT CUR OFF 

TXT VALIDATE 

TXT PLACE CURSOR 

TXT REMOVE CURSOR 

TXT SET PEN 

TXT GET PEN 

TXT SET PAPER 

TXT GET PAPER 

TXT INVERSE 

TXT SET BACK 

TXT GET BACK 

TXT GET MATRIX 

TXT SET MATRIX 

TXT SET M TABLE 

TXT GET M TABLE 

TXT GET CONTROLS 

TXT STR SELECT 

TXT SWAP STREAMS 

GRA INITIALIZE 

GRA RESET 

GRA HOVE ABSOLUTE 

GRA HOVE RELATIVE 

GRA ASK CURSOR 

GRA SET ORIGIN 

GRA GET ORIGIN 

GRA WIN WIDTH 

GRA WIN HEIGHT 

GRA GET WINDOW WIDTH 

GRA GET WINDOW HEIGHT 

GRA CLEAR WINDOW 

GRA SET PEN 

GRA GET PEN 

GRA SET PAPER 

GRA GET PAPER 

GRA PLOT ABSOLUTE 

GRA PLOT RELATIVE 

GRA TEST ABSOLUTE 

GRA TEST RELATIVE 

GRA LINE ABSOLUTE 

GRA LINE RELATIVE 

GRA WR CHAR 

SCR INITIAL IZE 

SCR RESET 
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BC05 

CF 

3C 

8B 

095A 

BC08 

CF 

45 

8B 

095 C 

BCOB 

CF 

50 

8B 

095 E 

BCOE 

CF 

CA 

8A 

0960 

BC11 

CF 

EC 

8A 

0962 

BC14 

CF 

F7 8A 

0964 

BC17 

CF 

57 

8B 

0966 

BC1A 

CF 

64 

8B 

0968 

BC1D 

CF 

A9 

8B 

096A 

BC20 

CF 

F9 

8B 

096C 

BC23 

CF 

05 

8C 

096E 

BC26 

CF 

13 

8C 

0970 

BC29 

CF 

2D 

8C 

0972 

BC2C 

CF 

86 

8C 

0974 

BC2F 

CF 

AO 

8C 

0976 

BC32 

CF 

EC 

8C 

0978 

BC35 

CF 

14 

8D 

097A 

BC38 

CF 

Fl 

8C 

097C 

BC3B 

CF 

19 8D 

097E 

BC3E 

CF 

E4 

8C 

0980 

BC41 

CF 

E8 

8C 

0982 

BC44 

CF 

B3 

8D 

0984 

BC47 

CF 

B7 

8D 

0986 

BC4A 

CF 

DF 

8D 

0988 

BC4D 

CF 

FA 

8D 

098A 

BC50 

CF 

3E 

8E 

098C 

BC53 

CF 

F3 

8E 

098E 

BC56 

CF 

49 

8F 

0990 

BC59 

CF 

49 

8C 

0992 

BC5C 

CF 

6B 

8C 

0994 

BC5F 

CF 

C4 

8F 

0996 

BC62 

CF 

2F 

90 

0998 

BC65 

CF 

70 

A3 

099A 

BC68 

CF 

7F 

A3 

099C 

BC6B 

CF 

8E 

A3 

099E 

BC6E 

CF 

4B 

AA 

09A0 

BC71 

CF 

4F 

AA 

09A2 

BC74 

CF 

51 

AA 

09A4 

BC77 

CF 

92 

A3 

09A6 

BC7A 

CF 

FC 

A3 

09A8 

BC7D 

CF 

01 

A4 

09AA 

BC80 

CF 

35 

A4 

09AC 

BC83 

CF 

AB 

A4 

09AE 

BC86 

CF 

9A 

A4 

09B0 

BC89 

CF 

96 

A4 

09B2 

BC8C 

CF 

AB 

A3 

09B4 

BC8F 

CF 

15 

A4 

09B6 

BC92 

CF 

2E 

A4 

09B8 

BC95 

CF 

5B A4 

09BA 

BC98 

CF 

EA 

A4 

09BC 

BC9B 

CF 

28 

A5 

09BE 

BC9E 

CF 

3F 

A8 

09C0 

BCA1 

CF 

36 

A8 

09C2 

BCA4 

CF 

51 

A8 

09C4 

BCA7 

CF 

68 

9E 

09C6 

BCAA 

CF 

9F 

9F 

09C8 

BCAD 

CF 

6C 

AO 

09CA 

BCBO 

CF 

89 

AO 

09CC 


3C 

OB 

RST 

08 

0B3C 

45 

OB 

RST 

08 

0B45 

50 

OB 

RST 

08 

OB50 

CA 

OA 

RST 

08 

OACA 

EC 

OA 

RST 

08 

OAEC 

F7 

OA 

RST 

08 

0AF7 

57 

OB 

RST 

08 

0B57 

64 

OB 

RST 

08 

0B64 

A9 

OB 

RST 

08 

0BA9 

F9 

OB 

RST 

08 

0BF9 

05 

OC 

RST 

08 

0C05 

13 

OC 

RST 

08 

0C13 

2D 

OC 

RST 

08 

0C2D 

86 

OC 

RST 

08 

0C86 

AO 

OC 

RST 

08 

OCAO 

EC 

OC 

RST 

08 

OCEC 

14 

OD 

RST 

08 

0D14 

Fl 

OC 

RST 

08 

0CF1 

19 

OD 

RST 

08 

0D19 

E4 

OC 

RST 

08 

0CE4 

E8 

OC 

RST 

08 

0CE8 

B3 

OD 

RST 

08 

0DB3 

B7 

OD 

RST 

08 

0DB7 

DF 

OD 

RST 

08 

ODDF 

FA 

OD 

RST 

08 

ODFA 

3E 

OE 

RST 

08 

0E3E 

F3 

OE 

RST 

08 

0EF3 

49 

OF 

RST 

08 

0F49 

49 

OC 

RST 

08 

0C49 

6B 

OC 

RST 

08 

0C6B 

C4 

OF 

RST 

08 

0FC4 

2F 

10 

RST 

08 

102 F 

70 

23 

RST 

08 

2370 

7F 

23 

RST 

08 

237F 

8E 

23 

RST 

08 

238E 

4B 

2A 

RST 

08 

2A4B 

4F 

2A 

RST 

08 

2A4F 

51 

2A 

RST 

08 

2A51 

92 

23 

RST 

08 

2392 

FC 

23 

RST 

08 

23FC 

01 

24 

RST 

08 

2401 

35 

24 

RST 

08 

2435 

AB 

24 

RST 

08 

24AB 

9A 

24 

RST 

08 

249A 

96 

24 

RST 

08 

2496 

AB 

23 

RST 

08 

23AB 

15 

24 

RST 

08 

2415 

2E 

24 

RST 

08 

242E 

5B 

24 

RST 

08 

245B 

EA 

24 

RST 

08 

24EA 

28 

25 

RST 

08 

2528 

3F 

28 

RST 

08 

283 F 

36 

28 

RST 

08 

2836 

51 

28 

RST 

08 

2851 

68 

IE 

RST 

08 

1E68 

9F 

1F 

RST 

08 

1F9F 

6C 

20 

RST 

08 

206C 

89 

20 

RST 

08 

2089 


SCR SET OFFSET 
SCR SET BASE 
SCR GET LOCATION 
SCR SET MODE 
SCR GET MODE 
SCR MODE CLEAR 
SCR CHAR LIMITS 
SCR CHAR POSITION 
SCR DOT POSITION 
SCR NEXT BYTE 
SCR PREV BYTE 
SCR NEXT LINE 
SCR PREV LINE 
SCR INK ENCODE 
SCR INK DECODE 
SCR SET INK 
SCR GET INK 
SCR SET BORDER 
SCR GET BORDER 
SCR SET FLASHING 
SCR GET FLASHING 
SCR FILL BOX 
SCR FLOOD BOX 
SCR CHAR INVERT 
SCR HARDWARE ROLL 
SCR SOFTWARE ROLL 
SCR UNPACK 
SCR REPACK 
SCR ACCESS 
SCR PIXELS 
SCR HORIZONTAL 
SCR VERTICAL 
CAS INITIALIZE 
CAS SET SPEED 
CAS NOISY 
CAS START MOTOR 
CAS STOP MOTOR 
CAS RESTORE MOTOR 
CAS IN OPEN 
CAS IN CLOSE 
CAS IN ABANDON 
CAS IN CHAR 
CAS IN DIRECT 
CAS RETURN 
CAS TEST EOF 
CAS OUT OPEN 
CAS OUT CLOSE 
CAS OUT ABANDON 
CAS OUT CHAR 
CAS OUT DIRECT 
CAS CATALOG 
CAS WRITE 
CAS READ 
CAS CHECK 
SOUND RESET 
SOUND QUEUE 
SOUND CHECK 
SOUND ARM EVENT 
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BCB3 

CF 

4A 

AO 

09CE 

4A 

20 

RST 

08 

204A 

SOUND RELEASE 

BCB6 

CF 

CB 

9E 

0900 

CB 

IE 

RST 

08 

1ECB 

SOUND HOLD 

BCB9 

CF 

E6 

9E 

09D2 

E6 

IE 

RST 

08 

1EE6 

SOUND CONTINUE 

BCBC 

CF 

38 

A3 

09D4 

38 

23 

RST 

08 

2338 

SOUND AMPL ENVELOPE 

BCBF 

CF 

3D 

A3 

0906 

3D 

23 

RST 

08 

233D 

SOUND TONE ENVELOPE 

BCC2 

CF 

49 

A3 

09D8 

49 

23 

RST 

08 

2349 

SOUND A ADDRESS 

BCC5 

CF 

4E 

A3 

09DA 

4E 

23 

RST 

08 

234 E 

SOUND T ADDRESS 

BCC8 

CF 

5C 

80 

09DC 

5C 

00 

RST 

08 

005C 

KL CHOKE OFF 

BCCB 

CF 

29 

83 

09DE 

29 

03 

RST 

08 

0329 

KL ROM WALK 

BCCE 

CF 

32 

83 

09E0 

32 

03 

RST 

08 

0332 

KL INIT BACK 

BCD1 

CF 

AI 

82 

09E2 

AI 

02 

RST 

08 

02A1 

KL LOG EXT 

BCD4 

CF 

B2 

82 

09E4 

B2 

02 

RST 

08 

02B2 

KL FIND COMMAND 

BCD7 

CF 

63 

81 

09E6 

63 

01 

RST 

08 

0163 

KL NEW FRAME FLY 

BCDA 

CF 

6A 

81 

09E8 

6A 

01 

RST 

08 

016A 

KL ADD FRAME FLY 

BCDD 

CF 

70 

81 

09EA 

70 

01 

RST 

08 

0170 

KL DELETE FRAME FLY 

BCEO 

CF 

76 

81 

09EC 

76 

01 

RST 

08 

0176 

KL NEW FAST TICKER 

BCE3 

CF 

7D 

81 

09EE 

7D 

01 

RST 

08 

017D 

KL ADD FAST TICKER 

BCE6 

CF 

83 

81 

09F0 

83 

01 

RST 

08 

0183 

KL DELETE FAST TICKER 

BCE9 

CF 

B3 

81 

09F2 

B3 

01 

RST 

08 

01B3 

KL ADD TICKER 

BCEC 

CF 

C5 

81 

09F4 

C5 

01 

RST 

08 

01C5 

KL DELETE TICKER 

BCEF 

CF 

D2 

81 

09F6 

D2 

01 

RST 

08 

01D2 

KL INIT EVENT 

BCF2 

CF 

E2 

81 

09F8 

E2 

01 

RST 

08 

01E2 

KL EVENT 

BCF5 

CF 

28 

82 

09FA 

28 

02 

RST 

08 

0228 

KL SYNC RESET 

BCF8 

CF 

85 

82 

09FC 

85 

02 

RST 

08 

0285 

KL DEL SYNCHRONOUS 

BCFB 

CF 

56 

82 

09FE 

56 

02 

RST 

08 

0256 

KL NEXT SYNC 

BCFE 

CF 

1A 

82 

OAOO 

1A 

02 

RST 

08 

021A 

KL DO SYNC 

BDOI 

CF 

77 

82 

0A02 

77 

02 

RST 

08 

0277 

KL DONE SYNC 

BD04 

CF 

95 

82 

0A04 

95 

02 

RST 

08 

0295 

KL EVENT DISABLE 

BD07 

CF 

9B 

82 

0A06 

9B 

02 

RST 

08 

029B 

KL EVENT ENABLE 

BDOA 

CF 

8E 

82 

0A08 

8E 

02 

RST 

08 

028E 

KL DISARM EVENT 

BDOD 

CF 

99 

80 

OAOA 

99 

00 

RST 

08 

0099 

KL TIME PLEASE 

BDI 0 

CF 

A3 

80 

OAOC 

A3 

00 

RST 

08 

00A3 

KL TIME SET 

BD13 

CF 

DC 

85 

OAOE 

DC 

05 

RST 

08 

05DC 

MC BOOT PROGRAM 

BDI 6 

CF 

OB 

86 

0A10 

OB 

06 

RST 

08 

060B 

MC START PROGRAM 

BD19 

CF 

BA 

87 

0A12 

BA 

07 

RST 

08 

07BA 

MC WAIT FLYBACK 

BDlC 

CF 

76 

87 

0A14 

76 

07 

RST 

08 

0776 

MC SET MODE 

BDI F 

CF 

C6 87 

0A16 

C6 

07 

RST 

08 

07C6 

MC SCREEN OFFSET 

BD22 

CF 

86 

87 

0A18 

86 

07 

RST 

08 

0786 

MC CLEAR INKS 

BD25 

CF 

99 

87 

0A1A 

99 

07 

RST 

08 

0799 

MC SET INKS 

BD28 

CF 

E6 

87 

0A1C 

E6 

07 

RST 

08 

07E6 

MC RESET PRINTER 

BD2B 

CF 

F2 

87 

0A1E 

F2 

07 

RST 

08 

07F2 

MC PRINT CHAR 

BD2E 

CF 

1B 

88 

0A20 

1B 

08 

RST 

08 

081B 

MC BUSY PRINTER 

BD31 

CF 

07 

88 

0A22 

07 

08 

RST 

08 

0807 

MC SEND PRINTER 

BD34 

CF 

26 

88 

0A24 

26 

08 

RST 

08 

0826 

MC SOUND REGISTER 

BD37 

CF 

88 

88 

0A26 

88 

08 

RST 

08 

0888 

JUMP RESTORE 

BD3A 

CF 

98 

AA 

0A28 

98 

2A 

RST 

08 

2A98 

EDIT 

BD3D 

EF 

18 

2E 

0A2A 

18 

2E 

RST 

28 

2E18 

FLO Zahl kopieren 

BD40 

EF 

29 

2E 

0A2C 

29 

2E 

RST 

28 

2E29 

FLO INT nach REAL 

BD43 

EF 

55 

2E 

0A2E 

55 

2E 

RST 

28 

2E55 

FLO 4-Bytes nach REAL 

BD46 

EF 

66 

2E 

0A30 

66 

2E 

RST 

28 

2E66 

FLO REAL nach INTEGER 

BD49 

EF 

8E 

2E 

0A32 

8E 

2E 

RST 

28 

2E8E 

FLO Zahl runden 

BD4C 

EF 

AI 

2E 

0A34 

AI 

2E 

RST 

28 

2EA1 

FLO Nachkomnast. abschn. 

BD4F 

EF 

AC 

2E 

0A36 

AC 

2E 

RST 

28 

2EAC 

FLO INT-Funktion 

BD52 

EF 

B6 

2E 

0A38 

B6 

2E 

RST 

28 

2EB6 

FLO Params f. Dez.-Wand. 

BD55 

EF 

ID 

2F 

0A3A 

ID 

2F 

RST 

28 

2F1D 

FLO Zahl mit 10 A A mult. 

BD58 

EF 

3F 

33 

0A3C 

3F 

33 

RST 

28 

333F 

FLO (HL):=(HL)+(DE) 

BD5B 

EF 

37 

33 

0A3E 

37 33 

RST 

28 

3337 

FLO (HL) :=(HL)-(DE) 

BD5E 

EF 

3B 

33 

0A40 

3B 

33 

RST 

28 

333B 

FLO (HL):=(DE)-(HL) 
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BD61 

EF 

15 

34 

0A42 

15 

34 

RST 

28 

3415 

FLO 

(HL):=(HL)*(DE) 

BD64 

EF 

9E 

34 

0A44 

9E 

34 

RST 

28 

349E 

FLO 

(HL):=(HL)/(DE) 

BD67 

EF 

78 

35 

0A46 

78 

35 

RST 

28 

3578 

FLO 

(HL):=(HL)*2 A A 

BD6A 

EF 

9A 

35 

0A48 

9A 

35 

RST 

28 

359A 

FLO Vergleich (HL)-(DE) 

BD6D 

EF 

F8 

35 

0A4A 

F8 

35 

RST 

28 

35 F8 

Vorzeichen invertieren 

BD70 

EF 

E8 35 

0A4C 

E8 

35 

RST 

28 

35E8 

FLO 

SGN-Funktion 

BD73 

EF 

AE 

31 

0A4E 

AE 

31 

RST 

28 

31AE 

FLO DEG/RAD 

BD76 

EF 

A3 

31 

0A50 

A3 

31 

RST 

28 

31A3 

FLO 

PI-Funktion 

BD79 

EF 

OA 

31 

0A52 

OA 

31 

RST 

28 

310A 

FLO 

SQR-Funktion 

BD7C 

EF 

OD 

31 

0A54 

OD 

31 

RST 

28 

31 OD 

FLO 

Potenzierung 

BD7F 

EF 

14 

30 

0A56 

14 

30 

RST 

28 

3014 

FLO 

LOG-Funktion 

BD82 

EF 

OF 

30 

0A58 

OF 

30 

RST 

28 

300F 

FLO 

LOGIO-Funktion 

BD85 

EF 

90 

30 

0A5A 

90 

30 

RST 

28 

3090 

FLO 

EXP-Funktion 

BD88 

EF 

BC 

31 

OA5C 

BC 

31 

RST 

28 

31BC 

FLO 

SIN-Funktion 

BD8B 

EF 

B2 

31 

0A5E 

B2 

31 

RST 

28 

31B2 

FLO 

COS-Funktion 

BD8E 

EF 

31 

32 

0A60 

31 

32 

RST 

28 

3231 

FLO 

TAN-Funktion 

BD91 

EF 

41 

32 

0A62 

41 

32 

RST 

28 

3241 

FLO 

ATN-Funktion 

BD94 

EF 

5E 

2E 

0A64 

5E 

2E 

RST 

28 

2E5E 

FLO 

5 Bytes nach REAL 

BD97 

EF 

94 

2F 

0A66 

94 

2F 

RST 

28 

2F94 

FLO 

RND INITIALIZE 

BD9A 

EF 

AI 

2F 

0A68 

AI 

2F 

RST 

28 

2FA1 

FLO 

RND SEED 

BD9D 

EF 

B7 2F 

0A6A 

B7 2F 

RST 

28 

2FB7 

FLO 

RND-Funktion 

BDAO 

EF 

E6 

2F 

0A6C 

E6 

2F 

RST 

28 

2FE6 

FLO 

letzter RND-Wert 

BDA3 

EF 

08 

37 

0A6E 

08 37 

RST 

28 

3708 

INT 

Params f. Dez.-Wand 

BDA6 

EF 

OE 

37 

0A70 

OE 

37 

RST 

28 

370E 

INT 

Dez.-Par. f. pos. Z 

BDA9 

EF 

15 

37 

0A72 

15 

37 

RST 

28 

3715 

INT 

sig. Bin.>2er Komp. 

BDAC 

EF 

28 37 

0A74 

28 37 

RST 

28 

3728 

INT 

HL:=HL+DE 

BDAF 

EF 

31 

37 

0A76 

31 

37 

RST 

28 

3731 

INT 

HL:=HL-DE 

BDB2 

EF 

30 

37 

0A78 

30 

37 

RST 

28 

3730 

INT 

HL:=DE-HL 

BDB5 

EF 

39 

37 

0A7A 

39 

37 

RST 

28 

3739 

INT 

HL:=HL*DE 

BDB8 

EF 

7A 

37 

0A7C 

7A 

37 

RST 

28 

377A 

INT 

HL:=HL DIV DE 

BDBB 

EF 

81 

37 

0A7E 

81 

37 

RST 

28 

3781 

INT 

HL:=HL MOD DE 

BDBE 

EF 

50 

37 

0A80 

50 

37 

RST 

28 

3750 

vorzeichenlose Multipl. 

BDC1 

EF 

8C 

37 

0A82 

8C 

37 

RST 

28 

378C 

vorzeichenlose Division 

BDC4 

EF 

E9 

37 

0A84 

E9 

37 

RST 

28 

37E9 

INT Vergleich HL-DE 

BDC7 

EF 

D4 

37 

0A86 

D4 

37 

RST 

28 

37D4 

INT 

HL:=-HL 

BDCA 

EF 

EO 

37 

0A88 

EO 

37 

RST 

28 

37E0 

INT 

A:=SGN(HL) 


0A8A 

4E 

LD 

C, (HL) 

0A8B 

06 00 

LD 

B,00 

0A8D 

23 

INC 

HL 

0A8E 

5E 

LD 

E, (HL) 

0A8F 

23 

INC 

HL 

0A90 

56 

LD 

D, (HL) 

0A91 

23 

INC 

HL 

0A92 

ED BO 

LDIR 


0A94 

C9 

RET 


0A95 

C7 

RST 

00 

0A96 

C7 

RST 

00 

0A97 

C7 

RST 

00 

0A98 

C7 

RST 

00 

0A99 

C7 

RST 

00 

0A9A 

C7 

RST 

00 


Indirection(s) kopieren 
IN : HL: Zeiger auf Tabelle 

(HL): Zahl d. zu kop. Bytes 
(HL+1): Zieladresse im RAM 
ab (HL+3): Ansprünge f. Ind. 
Zahl der Bytes 
Zahl der Bytes hi =0 

Zieladresse im RAM 
nach DE 


Indirection(s) kopieren 
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0A9B 

C7 

RST 

00 

0A9C 

C7 

RST 

00 

0A9D 

C7 

RST 

00 

0A9E 

C7 

RST 

00 

0A9F 

C7 

RST 

00 


SCREEN PACK (SCR) 


********************************** SCR INITIALIZE 


0AA0 

11 

4D 

10 

LD 

DE,104D 

Zeiger auf Default-Farbwerte 

0AA3 

CD 

86 

07 

CALL 

0786 

Farbstifte und Rand setzen 

0AA6 

3E 

CO 


LD 

A,CO 

Bildschirmspeicher ab SCOOO 

0AA8 

32 

CB 

Bl 

LD 

CB1CB),A 

SCR BASE setzen 

OAAB 

CD 

Bl 

OA 

CALL 

0AB1 

SCR RESET, Tabellen initialisieren 

OAAE 

C3 

F2 

OA 

JP 

0AF2 

Mode 1 einschalten 

********************************** 

SCR RESET 







(Tabellen initialisieren) 

0AB1 

AF 



XOR 

A 

Null 

0AB2 

CD 

49 

OC 

CALL 

0C49 

Force-Mode f. SCR WRITE 

0AB5 

21 

BE 

OA 

LD 

HL.OABE 

Adresse der ROM-Tabelle 

0AB8 

CD 

8A 

OA 

CALL 

0A8A 

Indirections kopieren 

OABB 

C3 

D2 

OC 

JP 

0CD2 

Farbwerttabellen initialisieren 

OABE 

09 





Anzahl der zu kopierenden Bytes 

OABF 

E5 

8D 




Zieladresse im RAM 

0AC1 

C3 

82 

OC 

JP 

0C82 

SCR READ 

0AC4 

C3 

68 

OC 

JP 

0C68 

SCR WRITE 

0AC7 

C3 

F7 

OA 

JP 

0AF7 

SCR MODE CLEAR 

********************************** 

SCR SET MODE 







(Mode einstellen) 

IN : A: Mode-Nummer 

OACA 

E6 

03 


AMD 

03 

Mode von 0 bis 3 

OACC 

FE 

03 


CP 

03 

Mode >=3 ? 

OACE 

DO 



RET 

MC 

ja? dann zurück 

OACF 

F5 



PUSH 

AF 

Mode retten 

OADO 

CD 

4F 

OD 

CALL 

0D4F 

Event-Block f. Farbwechsel aushängen 

0AD3 

Fl 



POP 

AF 

Mode 

0AD4 

5F 



LD 

E, A 

nach E 

0AD5 

CD 

B7 

10 

CALL 

10B7 

bei allen Windows Paper/Pen decod. 

0AD8 

F5 



PUSH 

AF 

aktuelle Windownurrmer 

0AD9 

CD 

D6 

15 

CALL 

15D6 

Paper u. Pen der Graphik holen 

OADC 

E5 



PUSH 

HL 

und retten 

OADD 

7B 



LD 

A,E 

Mode 

OADE 

CD 

11 

OB 

CALL 

OB11 

Bitmasken laden, Mode einschalten 

0AE1 

CD 

EB 

BD 

CALL 

BDEB 

Bildschirm löschen, Event-Block einh 

0AE4 

El 



POP 

HL 

Pen/Paper von Graphik 

0AE5 

CD 

B6 

15 

CALL 

15B6 

wieder setzen 

0AE8 

Fl 



POP 

AF 

aktuelle Windownummer 

0AE9 

C3 

D5 

10 

JP 

10D5 

Farben codieren, Windows auf Default 
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********************************** 


OAEC 

3A 

C8 

Bl 

LD 

A,(B1C8) 

OAEF 

FE 

01 


CP 

01 

0AF1 

C9 



RET 


********************************** 

0AF2 

3E 

01 


LD 

A, 01 

0AF4 

CD 

11 

OB 

CALL 

Obi i 

********************************** 

0AF7 

CD 

4F 

0D 

CALL 

0D4F 

OAFA 

21 

00 

00 

LD 

HL,0000 

OAFD 

CD 

3C 

OB 

CALL 

0B3C 

0B00 

2A 

CA 

Bl 

LD 

H L, (B1 CA) 

0B03 

2E 

00 


LD 

L, 00 

0B05 

54 



LD 

D.H 

0B06 

IE 

01 


LD 

E, 01 

0B08 

01 

FF 

3F 

LD 

BC,3FFF 

0B0B 

75 



LD 

(HL) ,L 

0B0C 

ED 

B0 


LD IR 


OBOE 

C3 

3C 

0D 

JP 

0D3C 


******* ** * ****************** * ** ** * 


0B11 

21 

3A 

OB 


LD 

HL, 0B3A 

OB 14 

FE 

01 



CP 

01 

0B16 

38 

08 



JR 

C, 0B20 

OB 18 

21 

36 

OB 


LD 

HL, 0B36 

0B1B 

28 

03 



JR 

Z,0B20 

0B1D 

21 

2E 

OB 


LD 

HL,0B2E 

0B20 

11 

CF 

Bl 


LD 

DE,B1CF 

0B23 

01 

08 

00 


LD 

BC,0008 

0B26 

ED 

B0 



LD I R 


0B28 

32 

C8 

Bl 


LD 

(B1C8),A 

0B2B 

C3 

76 

07 


JP 

0776 

0B2E 

80 

40 

20 

10 

08 04 

02 01 

0B36 

88 

44 

22 

11 



0B3A 

AA 

55 






SCR GET MODE 
(Mode-Nummer holen) 

OUT: Ä: Mode-Nummer 

CY=1 u. Z=0 f. Mode 0 
CY=0 u. Z=1 f. Mode 1 
CY=0 u. Z=0 f. Mode 2 
Mode-Nummer laden 
Flags entsprechend setzen 

Mode 1 einschalten 
Mode-Nummer 

Bitmasken laden, Mode einschalten 
SCR MODE CLEAR 

(Bildschirm löschen, Event-Block einh.) 
Event-Block f. Farbwechsel aush. 

SCR OFFSET=0 
SCR OFFSET setzen 
SCR BASE 
Lo-Byte löschen 
Adresse +1 
nach DE 

Zähler f. 16K-Bereich 
1. Byte löschen 

16K-Block löschen (Farbstift 0) 
Farbwechsel-Event generieren u. einh. 

Bitmasken laden, Mode einschalten 
IN : A: Mode-Nummer 
Adresse f. Mode 0 

Mode 0? 

Adresse f. Mode 1 
Mode 1? 

Adresse f. Mode 2 

Zeiger auf Bitmasken im RAM 

Zahl der Bytes 

Bitmasken ins RAM kopieren 

Mode speichern 

und an Gate Array übergeben 

Bitmasken f. Mode 2 
Bitmasken f. Mode 1 
Bitmasken f. Mode 0 


********************************** 


0B3C 

7C 


LD 

A, H 

0B3D 

E6 

07 

AND 

07 

0B3F 

67 


LD 

H,A 

0B40 

22 

C9 Bl 

LD 

(B1C9),HL 

0B43 

18 

05 

JR 

0B4A 


SCR SET OFFSET 
(SCR OFFSET setzen) 

IN : HL: SCR OFFSET 
RA-Bits löschen, 
oberste Rasterzeile 
des Zeichenblocks auswählen 
SCR OFFSET speichern 
und an CRTC übergeben 


********************************** 


SCR SET BASE 
(SCR BASE setzen) 

IN : A: SCR BASE (hi) 




Die Listings der CPC-ROMs 253 


0B45 

E6 

CO 


AND 

C0 

0B47 

32 

CB 

Bl 

LD 

(BlCB),A 

0B4A 

CD 

50 

OB 

CALL 

0B50 

0B4D 

C3 

C6 

07 

JP 

07C6 


**************** ☆*☆☆☆****#**&*##**☆ 


0B50 

2A 

C9 

Bl 

LD 

HL,(B1C9) 

0B53 

3A 

CB 

Bl 

LD 

A,(Bl CB) 

0B56 

C9 



RET 



********** ***A******************** 


0B57 

CD 

EC 

0A 

CALL 

0AEC 

0B5A 

01 

18 

13 

LD 

BC,1318 

0B5D 

D8 



RET 

C 

0B5E 

06 

27 


LD 

B,27 

0B60 

C8 



RET 

Z 

0B61 

06 

4F 


LD 

B,4F 

0B63 

C9 



RET 



********************************** 


0B64 

D5 



PUSH 

DE 

0B65 

CD 

EC 

0A 

CALL 

0AEC 

0B68 

06 

04 


LD 

B,04 

0B6A 

38 

05 


JR 

C,0B71 

0B6C 

06 

02 


LD 

B,02 

0B6E 

28 

01 


JR 

Z,0B71 

0B70 

05 



DEC 

B 

0B71 

C5 



PUSH 

BC 

0B72 

5C 



LD 

E,H 

0B73 

16 

00 


LD 

D ,00 

0B75 

62 



LD 

H,D 

0B76 

D5 



PUSH 

DE 

0B77 

54 



LD 

D,H 

0B78 

5D 



LD 

E,L 

0B79 

29 



ADD 

HL,HL 

0B7A 

29 



ADD 

HL,HL 

0B7B 

19 



ADD 

HL,DE 

0B7C 

29 



ADD 

HL,HL 

0B7D 

29 



ADD 

HL,HL 

0B7E 

29 



ADD 

HL,HL 

0B7F 

29 



ADD 

HL,HL 

0B80 

Dl 



POP 

DE 

0B81 

19 



ADD 

HL,DE 

0B82 

10 

FD 


DJNZ 

0B81 

0B84 

ED 

5B 

C9 Bl 

LD 

DE,(B1C9) 

0B88 

19 



ADD 

HL,DE 

0B89 

7C 



LD 

A,H 

0B8A 

E6 

07 


AND 

07 

0B8C 

67 



LD 

H,A 

0B8D 

3A 

CB 

Bl 

LD 

A, (B1CB) 


oberste Bits isolieren 
SCR BASE speichern 
SCR OFFSET holen 
Adressen an CRTC übergeben 

SCR GET LOCATION 
OUT: HL: SCR OFFSET 
A: SCR BASE 
SCR OFFSET laden 
SCR BASE laden 


SCR CHAR LIMITS 
OUT: B: max. Spalte 
C: max. Zeile 
Mode holen 
Spalte 19, Zeile 24 
Mode 0? 

Spalte 39 
Mode 1? 

Spalte 79 


SCR CHAR POSITION 
IN : H: Spalte 
L: Zeile 

OUT: HL: Adresse der Zeichenpos. 
B: Anz. d. Bytes pro Zeichen 

Mode holen 
4 Bytes pro Zeichen 
Mode 0? 

2 Bytes pro Zeichen 
Mode 1? 

1 Byte pro Zeichen 

Zahl d. Bytes / Zeichen retten 

Spalte 

Spalte hi=0 setzen 
Zeile hi=0 setzen 
Spalte retten 
Zei le 
nach DE 

Zei le 
mit 80 

(80 Bytes pro Zeile) 
multiplizieren 


Spalte 

Spalte je nach Mode 
1-, 2- oder 4-fach addieren 
SCR OFFSET 
addieren 
Übertrag 
auf RA-Bits 
löschen 
SCR BASE 
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0B90 

84 

ADD 

H 

0B91 

67 

LD 

H,A 

0B92 

CI 

POP 

BC 

0B93 

Dl 

POP 

DE 

0B94 

C9 

RET 



********************************** 


0B95 

7B 

LD 

A.E 

0B96 

95 

SUB 

L 

0B97 

3C 

INC 

A 

0B98 

87 

ADD 

A 

0B99 

87 

ADD 

A 

0B9A 

87 

ADD 

A 

0B9B 

5F 

LD 

E,A 

0B9C 

7A 

LD 

A,D 

0B9D 

94 

SUB 

H 

0B9E 

3C 

INC 

A 

0B9F 

57 

LD 

D, A 

0BA0 

CD 64 OB 

CALL 

0B64 

0BA3 

AF 

XOR 

A 

0BA4 

82 

ADD 

D 

0BA5 

10 FD 

DJNZ 

0BA4 

0BA7 

57 

LD 

D.A 

0BA8 

C9 

RET 



********************************** 


0BA9 

D5 


PUSH 

DE 

OBAA 

EB 


EX 

DE,HL 

OBAB 

21 

C7 00 

LD 

HL,00C7 

OBAE 

B7 


OR 

A 

OBAF 

ED 

52 

SBC 

HL,DE 

OBB1 

7D 


LD 

A,L 

0BB2 

E6 

07 

AND 

07 

0BB4 

87 


ADD 

A 

0BB5 

87 


ADD 

A 

0BB6 

87 


ADD 

A 

0BB7 

4F 


LD 

C, A 

0BB8 

7D 


LD 

A, L 

0BB9 

E6 

F8 

AND 

F8 

OBBB 

6F 


LD 

L, A 

OBBC 

54 


LD 

D, H 

OBBD 

5D 


LD 

E,L 

OBBE 

29 


ADD 

HL,HL 

OBBF 

29 


ADD 

HL,HL 


zu Hi-Byte addieren 
=Adresse der Zeichenposition 
Zahl der Bytes pro Zeichen 


Window-Parameter berechnen 
IN : H: linke Grenze 
L: obere Grenze 
D: rechte Grenze 
E: untere Grenze 

OUT: HL: BiIdschirmadr. links ob. 
D: Zahl der Bytes pro Zeile 
E: RasterzeiLenzahl im Wind, 
untere Grenze 

- obere Grenze 

+1 =Zahl der Zeichenzeilen 
mal 8 
ergibt 

Zahl der Rasterzeilen 
nach E 

rechte Grenze 

- linke Grenze 

+1 = Zahl der Zeichen / Zeile 
nach D 

Zahl der Bytes / Zeichen n. B 
Zahl der Zeichen pro Zeile 
mit Zahl der Bytes 
pro Zeichen multiplizieren 
nach D 


SCR DOT POSITION 
IN : HL: Y-Koordinate 
DE: X-Koordinate 
OUT: HL: Bildschirmadresse 

C: Maske für diesen Punkt 
DE: Adresse der Maske 
B: Maske für signif. Bits f. 

Punktstell, innerh. Byte 
X-Koordinate retten 

maximale Y-Koordinate 
Carry löschen 

Y-Koordinate wandeln, oben =0 
Y-Koordinate lo 
RA-Bits isolieren 
von Bit 0 bis Bit 2 
nach Bit 3 bis Bit 5 
(RA-Bit-Stellung für CRTC) 
RA-Bits nach C 
Y-Koordinate lo 
RA-Bits 
löschen 

Y-Koordinate hi 
und lo nach DE 
mal 10, da 80 Bytes 
pro Zeichenzeile 
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0BC0 

19 


ADD 

HL,DE 

0BC1 

29 


ADD 

HL,HL 

0BC2 

Dl 


POP 

DE 

0BC3 

CD 

EC 0A 

CALL 

OAEC 

0BC6 

06 

01 

LD 

B, 01 

0BC8 

38 

06 

JR 

C,0BD0 

OBCA 

06 

03 

LD 

B,03 

OBCC 

28 

02 

JR 

Z,0BD0 

OBCE 

06 

07 

LD 

B ,07 

0BD0 

78 


LD 

A,B 

OBDl 

A3 


AND 

E 

0BD2 

F5 


PUSH 

AF 

0BD3 

78 


LD 

A,B 

0BD4 

0F 


RRCA 


0BD5 

CB 

3A 

SRL 

D 

0BD7 

CB 

1B 

RR 

E 

0BD9 

0F 


RRCA 


OBDA 

38 

F9 

JR 

C,0BD5 

OBDC 

19 


ADD 

HL,DE 

OBDD 

ED 

5B C9 Bl 

LD 

DE,(B1C9) 

0BE1 

19 


ADD 

HL,DE 

0BE2 

7C 


LD 

A,H 

0BE3 

E6 

07 

AND 

07 

0BE5 

67 


LD 

H,A 

0BE6 

3A 

CB Bl 

LD 

A, (BlCB) 

0BE9 

84 


ADD 

H 

OBEA 

81 


ADD 

C 

OBEB 

67 


LD 

H, A 

OBEC 

Fl 


POP 

AF 

OBED 

E5 


PUSH 

HL 

OBEE 

16 

00 

LD 

D, 00 

0BF0 

5F 


LD 

E,A 

0BF1 

21 

CF Bl 

LD 

H L,B1CF 

0BF4 

19 


ADD 

HL,DE 

0BF5 

4E 


LD 

C,(HL) 

0BF6 

EB 


EX 

DE,HL 

0BF7 

El 


POP 

HL 

0BF8 

C9 


RET 



0BF9 

2C 


INC 

L 

OBFA 

CO 


RET 

NZ 

OBFB 

24 


INC 

H 

OBFC 

7C 


LD 

A,H 

OBFD 

E6 

07 

AND 

07 

OBFF 

CO 


RET 

NZ 

ocoo 

7C 


LD 

A,H 

0C01 

D6 

08 

SUB 

08 

0C03 

67 


LD 

H, A 

0C04 

C9 


RET 



********************************** 


OC05 

7D 

LD 

A,L 

0C06 

2D 

DEC 

L 

0C07 

B7 

OR 

A 

0C08 

CO 

RET 

NZ 


und 8 Graphik- (Raster-) 
Zeilen pro Zeichenzeile 
X-Koordinate 
Mode holen 
Maske für Bit 0 
Mode 0? 

Maske für Bit 0 und Bit 1 
Mode 1? 

Maske für Bit 0 bis Bit 2 
Maske f. Punktstellung im Byte 
PunktstelL innerh. Byte isol. 
und retten 

Maske f. Punktstellung im Byte 

X-Koordinate 
halbieren 

weit. Bits f. Punktst. sign.? 
dann diese eliminieren 
zu Adresse der Zeile addieren 
SCR OFFSET 
addieren 
Übertrag 
auf RA-Bits 
löschen 
SCR BASE 

zu Hi-Byte addieren 

RA-Bits addieren 

ergibt Bildschirmadresse 

Punktstellung innerhalb Byte 

Bildschirmadresse retten 

Punktstellung hi löschen 

Punktstellung lo 

Adresse der Tab. der Bitmasken 

Punktstellung (Maskenr.) add. 

Maske laden 

Adresse der Maske nach DE 
Bildschirmadresse nach HL 


SCR NEXT BYTE 

IN/OUT: HL: Bildschirmadresse 
Lo-Byte erhöhen 
kein Übertrag? 

Hi-Byte erhöhen 


kein Übertrag auf RA-Bits? 
sonst RA-Bits wieder herstell. 


SCR PREV BYTE 

IN/OUT: HL: Bildschirmadresse 
Lo-Byte 
erniedrigen 

kein Übertrag? 
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0C09 

7C 


LD 

A, H 

0C0A 

25 


DEC 

H 

0C0B 

E6 

07 

AND 

07 

0C0D 

CO 


RET 

NZ 

0C0E 

7C 


LD 

A, H 

OCOF 

C6 

08 

ADD 

08 

0C11 

67 


LD 

H,A 

0C12 

C9 


RET 


********************************** 

0C13 

7C 


LD 

A, H 

OCH 

C6 

08 

ADD 

08 

0C16 

67 


LD 

H,A 

0C17 

E6 

38 

AND 

38 

0C19 

CO 


RET 

NZ 

OClA 

7C 


LD 

A,H 

0C1B 

D6 

40 

SUB 

40 

0C1D 

67 


LD 

H,A 

0C1E 

7D 


LD 

A, L 

OCl F 

C6 

50 

ADD 

50 

0C21 

6F 


LD 

L,A 

0C22 

DO 


RET 

NC 

0C23 

24 


INC 

H 

0C24 

7C 


LD 

A, H 

0C25 

E6 

07 

AND 

07 

0C27 

CO 


RET 

NZ 

0C28 

7C 


LD 

A, H 

0C29 

D6 

08 

SUB 

08 

0C2B 

67 


LD 

H,A 

0C2C 

C9 


RET 



********************************** 


Hi-Byte erniedrigen 

kein Übertrag auf RA-Bits? 

sonst RA-Bits wieder herstell. 

SCR NEXT LINE 

IN/OUT: HL: Bildschirmadresse 
RA-Bits erhöhen 

kein Übertrag auf SCR BASE ? 
sonst SCR BASE wieder herst. 

Zeiger auf nächste Zeile 
(80 Bytes/Z.) 
kein Übertrag? 
sonst Hi-Byte erhöhen 

kein Übertrag auf RA-Bits? 
sonst RA-Bits wieder herstell. 

SCR PREV LINE 

IN/OUT: HL: Bildschirmadresse 
RA-Bits erniedrigen 

kein Übertrag auf SCR BASE ? 
SCR BASE-Bits wieder herstell. 


0C2D 

7C 


LD 

A, H 

0C2E 

D6 

08 

SUB 

08 

0C30 

67 


LD 

H.A 

0C31 

E6 

38 

AND 

38 

0C33 

FE 

38 

CP 

38 

0C35 

CO 


RET 

NZ 

0C36 

7C 


LD 

A.H 

0C37 

C6 

40 

ADD 

40 

0C39 

67 


LD 

H.A 

0C3A 

TD 


LD 

A, L 

0C3B 

D6 

50 

SUB 

50 

0C3D 

6F 


LD 

L,A 

0C3E 

DO 


RET 

NC 

0C3F 

7C 


LD 

A.H 

0C40 

25 


DEC 

H 

0C41 

E6 

07 • 

AND 

07 

0C43 

CO 


RET 

NZ 

0C44 

7C 


LD 

A.H 

0C45 

C6 

08 

ADD 

08 

0C47 

67 


LD 

H.A 

0C48 

C9 


RET 



Zeiger auf vorige Zeile 
(80 Bytes/Z.) 
kein Übertrag? 

sonst Hi-Byte erniedrigen 

kein Übertrag auf RA-Bits? 

sonst RA-Bits wieder herstell. 
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* ****** ** *** * ******* * **** Ar ***** *** 


0C49 

E6 

03 


AND 

03 

0C4B 

21 

6B 

OC 

LD 

HL,0C6B 

0C4E 

28 

0F 


JR 

Z,0C5F 

0C50 

FE 

02 


CP 

02 

0C52 

21 

72 

OC 

LD 

HL,0C72 

0C55 

38 

08 


JR 

C,0C5F 

0C57 

21 

77 

OC 

LD 

HL,0C77 

0C5A 

28 

03 


JR 

Z,0C5F 

0C5C 

21 

7D 

OC 

LD 

HL,0C7D 

0C5F 

3E 

C3 


LD 

A,C3 

0C61 

32 

cc 

Bl 

LD 

(B1CC),A 

0C64 

22 

CD 

Bl 

LD 

(Bl CD),HL 

0C67 

C9 



RET 


********************************** 


0C68 

C3 CC Bl 

JP 

B1CC 

********************************** 

0C6B 

7E 

LD 

A,(HL) 

0C6C 

A8 

XOR 

B 

0C6D 

Bl 

OR 

C 

0C6E 

A9 

XOR 

C 

0C6F 

A8 

XOR 

B 

0C70 

77 

LD 

(HL),A 

0C71 

C9 

RET 


********************************** 

0C72 

78 

LD 

A,B 

0C73 

AI 

AND 

C 

0C74 

AE 

XOR 

(HL) 

0C75 

77 

LD 

(HL),A 

0C76 

C9 

RET 


********************************** 

0C77 

79 

LD 

A, C 

0C78 

2F 

CPL 


0C79 

B0 

OR 

B 

0C7A 

A6 

AND 

(HL) 

0C7B 

77 

LD 

(HL), A 

0C7C 

C9 

RET 


********************************** 

0C7D 

78 

LD 

A,B 

0C7E 

AI 

AND 

C 

0C7F 

B6 

OR 

(HL) 

OC80 

77 

LD 

(HL), A 

0C81 

C9 

RET 



SCR ACCESS 

IN : A: Nisnmer des Modus 
Modus von 0 bis 3 
Adresse für Force-Mode 
=0? dann Force-Mode 

Adresse für XOR-Mode 
=1? dann XOR-Mode 
Adresse für AND-Mode 
=2? dann AND-Mode 
Adresse für OR-Mode 
Opcode für JP 
speichern 

Adresse für Indirection setzen 


SCR WRITE 

IN : HL: Adr. in Video-RAM 
B: Pen Byte 

C: Bitmaske für Pixelauswahl 
Irtdirect. zu FORCE/XOR/AND/OR 

SCR PIXELS, Pixles forcieren 

IN : wie $0C68 

Byte aus Video-RAM 
Pen-Pixels in O-Bits wandeln 
Bits aus Maske setzen 
genau diese wieder loschen 
O-Bits in Pen-Pixels wandeln 
und Byte wieder in Video-RAM 


XOR-Verknüpfung, Pixels invert. 
IN : wie S0C68 
Pen-Byte 

Bits für Pixels isolieren 
und diese invertieren 
Byte wieder in Video-RAM 


AND-Verknüpfung, Pixels löschen 
IN : wie S0C68 
Bitmaske 

zu ändernde Bits auf 0 setzen 
nur Pen-Pixels löschen 
entsprechende Pixels löschen 
Byte wieder in Video-RAM 


OR-Verknüpfung, Pixels setzen 
IN : wie S0C68 
Pen-Byte 

zu ändernde Bits isolieren 

und diese setzen 

Byte wieder in Video-RAM 
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********************************** 


0C82 7E LD A,(HL) 

0C83 C3 AC OC JP OCAC 

********************************** 


0C86 

C5 



PUSH 

BC 

0C87 

D5 



PUSH 

DE 

0C88 

CD 

C2 

OC 

CALL 

0CC2 

0C8B 

5F 



LD 

E,A 

0C8C 

06 

08 


LD 

B, 08 

0C8E 

3A 

CF 

Bl 

LD 

A, (B1CF) 

0C91 

4F 



LD 

C,A 

0C92 

CB 

OB 


RRC 

E 

0C94 

17 



RLA 


0C95 

CB 

09 


RRC 

C 

0C97 

38 

02 


JR 

C,0C9B 

0C99 

CB 

03 


RLC 

E 

0C9B 

10 

F5 


DJNZ 

0C92 

0C9D 

Dl 



POP 

DE 

0C9E 

Ci 



POP 

BC 

0C9F 

C9 



RET 



********************************** 


0CA0 

C5 



PUSH 

BC 

0CA1 

47 



LD 

B,A 

0CA2 

3A 

CF 

Bl 

LD 

A, (BlCF) 

0CA5 

4F 



LD 

C, A 

0CA6 

78 



LD 

A»B 

0CA7 

CD 

AC 

OC 

CALL 

OCAC 

0CAA 

Ci 



POP 

BC 

0CAB 

C9 



RET 



********************************** 


OCAC 

D5 



PUSH 

DE 

OCAD 

11 

CO 

o 

00 

LD 

DE,0008 

OCBO 

OF 



RRCA 


0CB1 

CB 

12 


RL 

D 

0CB3 

CB 

09 


RRC 

C 

0CB5 

38 

02 


JR 

C,0CB9 

0CB7 

CB 

1A 


RR 

D 

0CB9 

ID 



DEC 

E 

OCBA 

20 

F4 


JR 

NZ,0CB0 

OCBC 

7A 



LD 

A,D 

OCBD 

CD 

C2 

OC 

CALL 

0CC2 

OCCO 

Dl 



POP 

DE 

0CC1 

C9 



RET 



SCR READ 

IN : HL: Bildschirmadresse 
C: Bitmaske für Pixel 
OUT: A: Farbstift-Nr. 

Byte aus Bildschirm 
Farbstift berechnen 

SCR INK ENCODE 
IN : A: Farbstift 
OUT: A: Farbmaske 


BiIdsch.-Wert aus Färbst, ber. 
BiIdschirm-Farbstift-Wert 
Zähler für Maskenbits 
1. Bitmaske für Pixelsauswahl 
nach C 

Bit aus BiIdsch.-Farbstift 
in Farbmaske übertragen 
Bitmaske für Pixelauswahl 
wieder Pixel 0 ? d. näch. Bit 
sonst dieses Bit f. nä. Pixel 
weitere Bits ? 


SCR INK DECODE 
IN : A: Farbmaske 
OUT: A: Farbstift 

Farbmaske 

1. Bitmaske für Pixelauswahl 

nach C 

Farbmaske 

Farbstift berechnen 


Farbstift-Nummer berechnen 
IN : A: Farbmaske 

C: Bitmaske für Pixelauswahl 
OUT: A: Farbstift-Nurmer 

Zähler für 8 Farbmaskenbits 
Bit aus Farbmaske 
in BiIdsch.-Farbstift übertr. 
Bitmaske für Pixelstellung 
Pixel 0 ? 

sonst Maskenbit nicht übertr. 

weitere Maskenbits ? 

BiIdschirm-Farbstiftnr. 
Farbstiftnummer berechnen 
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********************************** Färbstiftnummer konvertieren 


IN : A: BiLdschirm-Wert 
OUT: A: Register-Wert 
bzw. 

IN : A: Register-Wert 
OUT: A: Bi Idschirm-Wert 


0CC2 

57 



LD 

D/A 

Wert retten 

0CC3 

CD 

EC 

OA 

CALL 

OAEC 

Mode-Nummer holen 

0CC6 

7A 



LD 

A,D 

Wert 

0CC7 

DO 



RET 

NC 

nicht Mode 0 ? 

0CC8 

OF 



RRCA 



0CC9 

OF 



RRCA 


Bit 1 und Bit 2 

OCCA 

CE 

00 


ADC 

00 


OCCC 

OF 



RRCA 



OCCD 

9F 



SBC 

A 

des Werts 

OCCE 

E6 

06 


AND 

06 


OCDO 

AA 



XOR 

D 

vertauschen 

0CD1 

C9 



RET 



********************************** 

Farbtabellen initialisieren 

0CD2 

21 

4D 

10 

LD 

HL,104D 

Zeiger auf Default-Werte 

0CD5 

11 

D9 

Bl 

LD 

DE,B1D9 

Zeiger auf RAM-Farbwerte 

0CD8 

01 

22 

00 

LD 

BC.0022 

Länge für 2 Farbsätze 

OCDB 

ED 

BO 


LDIR 


Werte kopieren 

OCDD 

AF 



XOR 

A 

1. Farbsatz 

OCDE 

32 

FB 

Bl 

LD 

(BlFB),A 

auswählen 

0CE1 

21 

OA 

OA 

LD 

HL,OAOA 

Zähl-Werte gleichlang 


********************************** SCR SET FLASH ING 

IN : L: Zählwert für 1. Farbsatz 
H: Zählwert für 2. Farbsatz 

0CE4 22 D7 Bl LD (B1D7),HL Zählwerte setzen 

0CE7 C9 RET 


********************************** 


0CE8 2A D7 Bl LD HL,(B1D7) 

OCEB C9 RET 


SCR GET FLASHING 

OUT: L: Zählwert für 1. Farbsatz 
H: Zählwert für 2. Farbsatz 
Zählwerte holen 


********************************** SCR SET INK 

IN : A: Farbstiftnurrroer 


B: 1. Farbnummer 
C: 2. Farbnumier 


OCEC 

E6 OF 

AND 

OF 

Farbstift von 

OCEE 

3C 

INC 

A 

1 bis 16 

OCEF 

18 01 

JR 

0CF2 

Farbnurrmern zuordnen 


******************** ************** 


0CF1 

AF 



XOR 

A 

0CF2 

5F 



LD 

E,A 

0CF3 

78 



LD 

A,B 

0CF4 

CD 

OA 

OD 

CALL 

ODOA 

0CF7 

46 



LD 

B, (HL) 

0CF8 

79 



LD 

A,C 

0CF9 

CD 

OA 

OD 

CALL 

ODOA 


SCR SET BORDER 
IN : B: 1. Farbnumver 
C: 2. Farbnumver 
Farbstift 0 für BORDER 
Farbstiftnummer 

1. Farbnunmer 

Adresse in Farbmatrix holen 
Farbwert entsprechend Nr. 

2. Farbwert 

Adresse in Farbmatrix holen 
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OCFC 

4E 



LD 

C,(HL) 

OCFD 

7B 



LD 

A,E 

OCFE 

CD 

2F 

0D 

CALL 

0D2F 

OD01 

71 



LD 

(HL),C 

0D02 

EB 



EX 

DE, HL 

0D03 

70 



LD 

(HL),B 

0D04 

3E 

FF 


LD 

A, FF 

0D06 

32 

FC 

Bl 

LD 

(Bl FC),A 

0D09 

C9 



RET 



***** * ** ******************** ** * * * -A- 


0D0A 

E6 

IF 

AND 

IF 

0D0C 

C6 

93 

ADD 

93 

0D0E 

6F 


LD 

L,A 

0D0F 

CE 

0D 

ADC 

OD 

0D11 

95 


SUB 

L 

0D12 

67 


LD 

H,A 

0D13 

C9 


RET 



****** **************************** 


OD 14 

E6 

OF 

AND 

OF 

OD 16 

3C 


INC 

A 

0D17 

18 

01 

JR 

0D1A 

********************************** 


0D19 

AF 



XOR 

A 

0D1A 

CD 

2F 

OD 

CALL 

0D2F 

0D1D 

1A 



LD 

A, (DE) 

0D1E 

5E 



LD 

E,(HL) 

OD 1 F 

CD 

24 

OD 

CALL 

0D24 

0D22 

41 



LD 

B, C 

0D23 

7B 



LD 

A,E 

0D24 

OE 

00 


LD 

C,00 

0D26 

21 

93 

OD 

LD 

HL,0D93 

0D29 

BE 



CP 

(HL) 

0D2A 

C8 



RET 

Z 

0D2B 

23 



INC 

HL 

0D2C 

OC 



INC 

C 

0D2D 

18 

FA 


JR 

0D29 


********************************** 


0D2F 

5F 



LD 

E,A 

0D30 

16 

00 


LD 

D, 00 

0D32 

21 

EA 

Bl 

LD 

HL,BlEA 

0D35 

19 



ADD 

HL, DE 

0D36 

EB 



EX 

DE,HL 

0D37 

21 

EF 

FF 

LD 

HL,FFEF 

0D3A 

19 



ADD 

HL,DE 


Farbwert entsprechend Nr. 
Färbstif tnurrmer 
Adressen in Tabellen holen 
2. Farbwert 

und 1. Farbwert setzen 
Kennzeichen für neue Farbwerte 
setzen 


Adresse in Farbmatrix berechnen 
IN : Farbnurrmer 
OUT: Adresse des Farbwerts 
Farbnurrmer von 0..15 
Basisadresse der Farbmatrix 
(S0D93) 
addieren 


SCR GET INK 

IN : A: Färbstiftnumner 
OUT: B: 1. Farbnurrmer 
C: 2. Farbnurrmer 
Färbstiftnummer 
von 1..16 


SCR GET BORDER 
OUT: B: 1. Farbnummer 
C: 2. Farbnurmer 
Farbstift 0 für BORDER 
Adressen in Farbtabellen holen 
Wert aus 1. Farbsatz 
Wert aus 2. Farbsatz 
1. Farbwert in Tabelle suchen 

1. Farbnurrmer nach B 

2. Farbwert 

Zähler für Farbnurrmer 
Adresse der Farbmatrix 
Farbwert gefunden ? 
dann Farbnurmer in C 
Zeiger in Tabelle 
und Farbnurrmer erhöhen 
weiter suchen 

Farbtabellenadressen holen 
IN : A: Färbstiftnummer 
OUT: DE: Zeiger auf 1. Farbwert 
HL: Zeiger auf 2. Farbwert 
Färbst i f tnunrmer 
Numrer hi =0 

Basisadressee d. 1. Farbsatzes 
Numrer addieren 
Adresse d. 1. Farbwerts n. DE 
2. Farbsatz 
$11 Bytes früher 
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0D3B C9 RET 


***** * ******* * * * * * ***** * * fr ** * **** * 


0D3C 

21 

FE 

Bl 

LD 

HL,B1FE 

0D3F 

E5 



PUSH 

HL 

0D40 

CD 

70 

01 

CALL 

0170 

0D43 

CD 

6D 

0D 

CALL 

0D6D 

0D46 

11 

5B 

0D 

LD 

DE,0D5B 

0D49 

06 

81 


LD 

B,81 

0D4B 

El 



POP 

HL 

0D4C 

C3 

63 

01 

JP 

0163 


********************************** 


0D4F 

21 

FE 

Bl 

LD 

HL,Bl FE 

0D52 

CD 

70 

01 

CALL 

0170 

0D55 

CD 

81 

0D 

CALL 

0D81 

0D58 

C3 

86 

07 

JP 

0786 


********************************** 


0D5B 

21 

FD 

Bl 

LD 

HL,Bl FD 

0D5E 

35 



DEC 

(HL) 

0D5F 

28 

OC 


JR 

Z,0D6D 

0D61 

2B 



DEC 

HL 

0D62 

7E 



LD 

A,(HL) 

0D63 

B7 



OR 

A 

0D64 

C8 



RET 

Z 

0D65 

CD 

81 

0D 

CALL 

0D81 

0D68 

CD 

99 

07 

CALL 

0799 

0D6B 

18 

0F 


JR 

0D7C 


********************************** 


0D6D 

CD 

81 

0D 

CALL 

0D81 

0D70 

32 

FD 

Bl 

LD 

(Bl FD),A 

0D73 

CD 

99 

07 

CALL 

0799 

0D76 

21 

FB 

Bl 

LD 

HL,B1FB 

0D79 

7E 



LD 

A,(HL) 

0D7A 

2F 



CPL 


0D7B 

77 



LD 

(HL),A 

0D7C 

AF 



XOR 

A 

0D7D 

32 

FC 

Bl 

LD 

(Bl FC),A 

0D80 

C9 



RET 



********************************** 


0D81 

11 

EA 

Bl 


LD 

DE,BlEA 

0D84 

3A 

FB 

Bl 


LD 

A,(BlFB) 

0D87 

B7 




OR 

A 

0D88 

3A 

D8 

Bl 


LD 

A,(B1D8) 

0D8B 

C8 




RET 

Z 

0D8C 

11 

D9 

Bl 


LD 

DE,B1D9 

0D8F 

3A 

D7 

Bl 


LD 

A,(BlD7) 

0D92 

C9 




RET 


********************************** 

0D93 

14 

04 

15 

IC 

18 ID 

0C 05 

0D9B 

0D 

16 

06 

17 

IE 00 

1 F 0E 

0DA3 

07 

0F 

12 

02 

13 1A 

19 1B 


Farbwechsel-Event-Block einhängen 
Adresse des Event-Blocks 
retten 

Block aus Chain (FFC) löschen 
Farbsätze wechs., Zähler init. 
Adresse der Event-Routine 
Priority Byte, async. Block 
Adresse des Event-Blocks 
KL NEW FRAME FLY, Block gener. 

Farbwechsel-Event-Block aushängen 
Adresse des Event-Blocks 
Block aus Chain (FFC) löschen 
Paranteter des lfd. Farbsatzes 
MC CLEAR INKS, Farben init. 

Farbwechsel- Event - Routine 
Adresse des Zählers 
Zähler herunterzählen 
=0 ? dann Farben wechseln 

Flag für neue Farbwerte 
keine neuen Farbwerte ? 
dann zurück 

Parameter d. lfd. Farbsatzes 
Farben an Gate-Array übergeben 
Flag für neue Farben löschen 

Farbsätze wechseln 

Param. d. lfd. Farbsatzes hol. 

Zähler neu setzen 

Farben an Gate-Array übergeben 

Flag für 1./2. Farbsatz 
invertieren 

(anderen Farbsatz auswählen) 
Flag für neue Farbwerte 
löschen 


Param. des lfd. Farbsatzes holen 
OUT: DE: Adresse der Farbtabelle 
A: Zählerwert 

Adresse der 1. Farbwerttabelle 
Flag für 1./2. Farbsatz 

Zählerwert für 1. Farbsatz 
1. Farbsatz ? dann zurück 
Adresse der 2. Farbwerttabelle 
Zählerwert für 2. Farbsatz 


Tabelle der Farbwerte entspr. Nr. 
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ODAB OA 03 OB 01 08 09 10 11 
********************************** 


0DB3 4F LD C,A 

0DB4 CD 95 OB CALL 0B95 

********************************** 


0DB7 

E5 



PUSH 

HL 

0DB8 

7A 



LD 

A,D 

0DB9 

CD 

E8 

0E 

CALL 

0EE8 

ODBC 

30 

09 


JR 

NC.0DC7 

0DBE 

42 



LD 

B,D 

0DBF 

71 



LD 

<HL),C 

0DC0 

CD 

F9 

OB 

CALL 

0BF9 

0DC3 

10 

FA 


DJNZ 

0DBF 

0DC5 

18 

10 


JR 

0DD7 

0DC7 

C5 



PUSH 

BC 

0DC8 

D5 



PUSH 

DE 

0DC9 

71 



LD 

(HL),C 

0DCA 

15 



DEC 

D 

0DCB 

28 

08 


JR 

Z.0DD5 

0DCD 

4A 



LD 

C,D 

0DCE 

06 

00 


LD 

B, 00 

0DD0 

54 



LD 

D»H 

0DD1 

5D 



LD 

E« L 

0DD2 

13 



INC 

DE 

0DD3 

ED 

B0 


LDIR 


0DD5 

Dl 



POP 

DE 

0DD6 

CI 



POP 

BC 

0DD7 

El 



POP 

HL 

0DD8 

CD 

13 

0C 

CALL 

0C13 

0DDB 

ID 



DEC 

E 

0DDC 

20 

D9 


JR 

NZ,0DB7 

0DDE 

C9 



RET 



********************************** 


0DDF 

78 

LD 

A/B 

0DE0 

A9 

XOR 

C 

0DE1 

4F 

LD 

C # A 

ODE2 

CD 64 OB 

CALL 

0B64 

0DE5 

16 08 

LD 

D,08 

0DE7 

E5 

PUSH 

HL 

0DE8 

C5 

PUSH 

BC 

0DE9 

7E 

LD 

A, (HL) 

0DEA 

A9 

XOR 

C 


SCR FILL BOX 

IN : H: linke Grenze der Box 
L: obere Grenze 
D: rechte Grenze 
E: untere Grenze 
A: Füll-Byte (Farbmaske) 
Färb-Füll-Byte 

Param. aus Grenzen berechnen 

SCR FLOOD BOX 

IN : HL: Bildschirmadresse 

E: Zahl der Rasterzeilen 
D: Zahl der Bytes pro Zeile 
C: Füll-Byte (Farbmaske) 
Bildschirmadresse retten 
Zahl der Bytes in einer Zeile 
Übertrag zu RA-Bits ? 
nein ? d. Speicherblock füllen 
Zahl der Bytes pro Zeile 
Byte in Video-RAM speichern 
Zeiger auf nächstes Byte 
weitere Bytes in dies. Zeile ? 
nächste Zeile 


1. Byte setzen 
restliche Zahl der Bytes 
keine weiteren in dieser ZI. ? 
Zahl der Bytes 
Zahl hl=0 

BiIdschirmadresse 
+1 als 
Zieladresse 

Speicherblock entspr. füllen 


BiIdschirmadresse 
Adresse d. nächst. Rasterzeile 
Zähler für Rasterzeilen 
weitere Rasterzeilen ? 


SCR CHAR INVERT 
IN : H: Spalte 
L: Zeile 
B: Paper-Byte 
C: Pen-Byte 
Pen-Byte 

Unterschiede zu Paper-Byte 
nach C, gibt Invertier.-Byte 
BiIdschirmadr., Bytes/Zeichen 
Zähler für Rasterzeilen 
BiIdschirmadresse 
Bytes/Zeichen, Invert.-Byte 
Byte aus Bildschirm 
Paper-/Pen-Pixels vertauschen 
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ODEB 

77 



LD 

(HL),A 

ODEC 

CD 

F9 

OB 

CALL 

0BF9 

ODEF 

10 

F8 


DJNZ 

0DE9 

0DF1 

CI 



POP 

BC 

0DF2 

El 



POP 

HL 

0DF3 

CD 

13 

OC 

CALL 

0C13 

0DF6 

15 



DEC 

D 

0DF7 

20 

EE 


JR 

NZ,0DE7 

0DF9 

C9 



RET 



********************************** 


ODFA 

4F 



LD 

C,A 

ODFB 

C5 



PUSH 

BC 

ODFC 

11 

DO 

FF 

LD 

DE,FFD0 

ODFF 

06 

30 


LD 

B,30 

0E01 

CD 

24 

0E 

CALL 

0E24 

0E04 

CI 



POP 

BC 

0E05 

CD 

BA 

07 

CALL 

07BA 

0E08 

78 



LD 

A,B 

0E09 

B7 



OR 

A 

0E0A 

20 

0D 


JR 

NZ.0E19 

0E0C 

11 

B0 

FF 

LD 

DE,FFB0 

0E0F 

CD 

37 

0E 

CALL 

0E37 

OE 12 

11 

00 

00 

LD 

DE,0000 

OE 15 

06 

20 


LD 

B, 20 

0E17 

18 

OB 


JR 

0E24 

OE 19 

11 

50 

00 

LD 

DE,0050 

0E1C 

CD 

37 

0E 

CALL 

0E37 

OE 1 F 

11 

B0 

FF 

LD 

DE,FFB0 

0E22 

06 

20 


LD 

B,20 


********************************** 


0E 24 

2A 

C9 

Bl 

LD 

HL,(B1C9) 

0E27 

19 



ADD 

HL,DE 

0E28 

7C 



LD 

A, H 

0E29 

E6 

07 


AND 

07 

0E2B 

67 



LD 

H, A 

0E2C 

3A 

CB 

Bl 

LD 

A,(B1CB) 

0E2F 

84 



ADD 

H 

0E30 

67 



LD 

H, A 

0E31 

50 



LD 

D, B 

0E32 

IE 

08 


LD 

E,08 

0E34 

C3 

B7 

0D 

JP 

0DB7 


********************************** 


0E37 

2A 

C9 

Bl 

LD 

H L, (B1C9 ) 

0E3A 

19 



ADD 

HL,DE 

0E3B 

C3 

3C 

OB 

JP 

0B3C 


und Byte wieder speichern 
Adresse des nächsten Bytes 
weitere Bytes ? 

Bytes/Zeichen, Invert.-Byte 
BiIdschirmadresse 
Adr. der nächsten Rasterzeile 
Zähler für Rasterzeilen 
weitere Rasterzeilen ? 


SCR HARDWARE ROLL 
IN : A: Paper-Byte 

B=0 für nach unten scrollen 
B=$FF für nach oben scrollen 
Paper-Byte 

und Scroll-Flag retten 
Offset f. unbenutzte Bytes 
Zahl der Bytes im unben. Ber. 
unben. Bereich m. Paper-B. fü. 
Scroll-Flag/Paper-Byte 
auf Strahlrücklauf warten 
Scroll-Flag 

nach oben scrollen ? 

BiIdsch.-Start 80 Bytes vorher 
Offset zu SCR OFFSET addieren 
Offset für 1. Bildschirmzeile 
Zahl der Bytes ($50-$30) 
restl. 1. BiIdschirmzl. füllen 
BiIdsch.-Start 80 Bytes später 
Offset zu SCR OFFSET addieren 
Offset f. letzte BiIdschirmzl. 
Zahl der Bytes ($50-$30) 

Textzeile teilweise füllen 
IN : C: Paper-Byte 

B: Zahl der zu füllenden 
Bytes pro Zeile 
DE: Offs, zu BiIdsch.-Start 
SCR OFFSET 
Offset addieren 

eventuellen Übertrag 
zu RA-Bits 
wieder löschen 
SCR BASE 
addieren 

gibt Bildschirmadresse 
Zahl der zu füllenden Byte/Zl. 
Zahl der Rasterzeilen 
Bereich füllen 

Offset zu SCR OFFSET addieren 
IN : DE: Offset 
SCR OFFSET 
Offset addieren 
SCR OFFSET neu setzen 
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********************************** 


0E3E 

F5 



PUSH 

AF 

0E3F 

78 



LD 

A,B 

0E40 

B7 



OR 

A 

0E41 

28 

30 


JR 

Z,0E73 

0E43 

E5 



PUSH 

HL 

0E44 

CD 

95 

OB 

CALL 

0B95 

0E47 

E3 



EX 

(SP),HL 

0E48 

2C 



INC 

L 

0E49 

CD 

64 

OB 

CALL 

0B64 

0E4C 

4A 



LD 

C,D 

0E4D 

7B 



LD 

A,E 

0E4E 

D6 

08 


SUB 

08 

0E50 

47 



LD 

B, A 

0E51 

28 

17 


JR 

Z.0E6A 

0E53 

Dl 



POP 

DE 

0E54 

CD 

BA 

07 

CALL 

07BA 

0E57 

C5 



PUSH 

BC 

0E58 

E5 



PUSH 

HL 

0E59 

D5 



PUSH 

DE 

0E5A 

CD 

A4 

0E 

CALL 

0EA4 

0E5D 

El 



POP 

HL 

0E5E 

CD 

13 

OC 

CALL 

0C13 

0E61 

EB 



EX 

DE,HL 

0E62 

El 



POP 

HL 

0E63 

CD 

13 

OC 

CALL 

0C13 

0E66 

CI 



POP 

BC 

0E67 

10 

EE 


DJNZ 

0E57 

0E69 

D5 



PUSH 

DE 

0E6A 

El 



POP 

HL 

0E6B 

51 



LD 

D,C 

0E6C 

IE 

08 


LD 

E,08 

0E6E 

Fl 



POP 

AF 

0E6F 

4F 



LD 

C, A 

OE 70 

C3 

B7 

0D 

JP 

0DB7 

0E73 

E5 



PUSH 

HL 

0E74 

D5 



PUSH 

DE 

0E75 

CD 

95 

OB 

CALL 

0B95 

0E78 

4A 



LD 

C,D 

0E79 

7B 



LD 

A,E 

0E7A 

D6 

08 


SUB 

08 

0E7C 

47 



LD 

B, A 

0E7D 

Dl 



POP 

DE 

0E7E 

E3 



EX 

(SP),HL 

0E7F 

28 

E9 


JR 

Z,0E6A 

0E81 

C5 



PUSH 

BC 

0E82 

6B 



LD 

L,E 

0E83 

54 



LD 

D, H 

0E84 

IC 



INC 

E 


SCR SOFTWARE ROLL 
IN : A: Paper-Byte 

B=0 für nach unten scrollen 
B=$FF für nach oben scrollen 
H: linke Window-Grenze 
L: obere Grenze 
D: rechte Grenze 
E: untere Grenze 
Paper-Byte retten 
ScrolL-F Lag 

nach unten scrollen ? 

Grenzen links/oben 
Window-Parameter berechnen 
BiIdsch.-Adr. retten, Gr. zur. 
nächste Zeile (Quellzeile) 

BiIdschirmadresse ber. 

Bytes pro Zeile im Window 

Rasterzeilen im Window 

-8, 1 Textzl. nicht kopieren 

Zahl der zu kop. Rasterzeilen 

Null ? dann fertig 

BiIdschirmadr. d. vorig. Zeile 

auf Strahlrücklauf warten 

Bytes pro Zeile/Rasterzei lenz. 

Quell-BiIdschirmadresse 

Ziel-BiIdschirmadresse 

eine Rasterzeile kopieren 

alte Zieladresse 

Adr. der nächsten Rasterzeile 

neue Zieladresse nach DE 

alte Quelladresse 

Adr. der nächsten Rasterzeile 

Bytes pro Zeile/Zeilenzähler 

weitere Rasterzeilen ? 

letzte Zieladresse 

Adresse d. zu löschenden Zeile 
Zahl der Bytes pro Zeile 
Zahl der Rasterzeilen 
Paper-Byte 
nach C 

Textzeile löschen 

Grenzen für links/oben 
und rechts/unten retten 
Window-Parameter berechnen 
Bytes pro Zeile im Window 
Rasterzeilenzahl im Window 
-8, 1 Textzl. nicht kopieren 
Zahl d. zu kop. Rasterzeilen 
Windowgrenzen rechts/oben, 
links/unten, Löschzeilenadr. 
keine Zeile zu kopieren ? 

Zahl d. Zeilen/Bytes pro Zeile 
Grenze unten 
Grenze links 
unterste Zeile +1 
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0E85 

CD 

64 

OB 

CALL 

0B64 

0E88 

EB 



EX 

DE,HL 

0E89 

CD 

64 

OB 

CALL 

0B64 

0E8C 

CI 



POP 

BC 

0E8D 

CD 

BA 

07 

CALL 

07BA 

0E90 

CD 

2D 

OC 

CALL 

0C2D 

0E93 

E5 



PUSH 

HL 

0E94 

EB 



EX 

DE,HL 

0E95 

CD 

2D 

OC 

CALL 

0C2D 

0E98 

E5 



PUSH 

HL 

0E99 

C5 



PUSH 

BC 

0E9A 

CD 

A4 

OE 

CALL 

0EA4 

0E9D 

CI 



POP 

BC 

0E9E 

Dl 



POP 

DE 

0E9F 

El 



POP 

HL 

OEAO 

10 

EE 


DJNZ 

0E90 

0EA2 

18 

C6 


JR 

0E6A 


********************************** 


BiIdschirmadr. f. unten/Links 
nach DE, als Quelladresse 
Büdsch.-Adr. f. unten+1/l inks 
Zahl d. Zeilen/Bytes pro Zeile 
auf Strahlrücklauf warten 
Adr. der vorigen Rasterzeile 
Zieladresse retten 
Quelladresse nach HL 
Adr. der vorigen Rasterzeile 
Quelladresse retten 

eine Rasterzeile kopieren 

Quelladresse 
Zieladresse 

weitere Rasterzeilen ? 
oberste Textzeile löschen 

Rasterzeile kopieren 
IN : HL: Adresse der Quellzeile 
DE: Adresse der Zielzeile 
C: zu kopierende Bytezahl 
Bytezahl hi=0 

Übertrag zu RA-Bits bei 
Zielzeile ? 

. kein Übertrag zu RA-Bits bei 
Quellzeile ? d. direkt kop. 
Zahl der Bytes retten 

Zahl der Bytes bis zun näch¬ 
sten Übertrag aufs Hi-Byte 
als Länge 

Zeile bis dorthin kopieren 
alte Zahl der Bytes 

Zahl der kopierten Bytes 
abziehen, gibt Zahl der noch 
zu kopierenden Bytes 
nach C 

RA-Bits der Quelladresse 
wieder hersteilen 

zweite Zeilenhälfte kopieren 


0EA4 

06 

00 


LD 

B,00 

0EA6 

CD 

E6 

OE 

CALL 

0EE6 

0EA9 

38 

16 


JR 

C,0EC1 

OEAB 

CD 

E6 

OE 

CALL 

0EE6 

OEAE 

30 

25 


JR 

NC,0ED5 

0EB0 

C5 



PUSH 

BC 

0EB1 

AF 



XOR 

A 

0EB2 

95 



SUB 

L 

0EB3 

4F 



LD 

C,A 

0EB4 

ED 

BO 


LDIR 


0EB6 

Ci 



POP 

BC 

0EB7 

2F 



CPL 


0EB8 

3C 



INC 

A 

0EB9 

81 



ADD 

C 

OEBA 

4F 



LD 

C, A 

OEBB 

7C 



LD 

A, H 

OEBC 

D6 

08 


SUB 

08 

OEBE 

67 



LD 

H, A 

OEBF 

18 

14 


JR 

0ED5 

OECl 

CD 

E6 

OE 

CALL 

0EE6 

0EC4 

38 

12 


JR 

C,0ED8 

0EC6 

C5 



PUSH 

BC 

0EC7 

AF 



XOR 

A 

0EC8 

93 



SUB 

E 

0EC9 

4F 



LD 

C, A 

OECA 

ED 

BO 


LDIR 


OECC 

Ci 



POP 

BC 

OECD 

2F 



CPL 


OECE 

3C 



INC 

A 

OECF 

81 



ADD 

C 

0ED0 

4F 



LD 

C, A 

OED 1 

7A 



LD 

A.D 

0ED2 

D6 

08 


SUB 

08 

0ED4 

57 



LD 

D,A 

0ED5 

ED 

BO 


LDIR 



Zeile wie oben in zwei 
Hälften kopieren 
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0ED7 

C9 



RET 


0ED8 

41 



LD 

B»C 

0ED9 

7E 



LD 

A,(HL) 

OEDA 

12 



LD 

(DE ),A 

OEDB 

CD 

F9 

OB 

CALL 

0BF9 

OEDE 

EB 



EX 

DE, HL 

OEDF 

CD 

F9 

OB 

CALL 

0BF9 

0EE2 

EB 



EX 

DE,HL 

0EE3 

10 

F4 


DJNZ 

0ED9 

0EE5 

C9 



RET 



********************************** 


0EE6 

79 

LD 

A.C 

0EE7 

EB 

EX 

DE,HL 

0EE8 

3D 

DEC 

A 

0EE9 

85 

ADD 

L 

OEEA 

DO 

RET 

NC 

OEEB 

7C 

LD 

A, H 

OEEC 

E6 07 

AND 

07 

OEEE 

EE 07 

XOR 

07 

0EF0 

CO 

RET 

NZ 

OE F1 

37 

SCF 


0EF2 

C9 

RET 



********************************** 


0EF3 

CD 

EC 

0A 

CALL 

OAEC 

0EF6 

06 

08 


LD 

B, 08 

0EF8 

38 

31 


JR 

C, 0F2B 

0E FA 

28 

06 


JR 

Z,0F02 

0EFC 

01 

08 

00 

LD 

BC,0008 

0EFF 

ED 

B0 


LDIR 


0F01 

C9 



RET 


0F02 

4E 



LD 

C,(HL) 

0F03 

23 



INC 

HL 

0F04 

E5 



PUSH 

HL 

0F05 

C5 



PUSH 

BC 

0F06 

06 

04 


LD 

B, 04 

0F08 

21 

CF 

Bl 

LD 

HL,B1CF 

0F0B 

AF 



XOR 

A 

0F0C 

CB 

01 


RLC 

C 

0F0E 

30 

01 


JR 

NC,0F11 

0F10 

B6 



OR 

(HL) 

0F11 

23 



INC 

HL 

0 F12 

10 

F8 


DJNZ 

OFOC 

0F14 

12 



LD 

(DE),A 

0F15 

13 



INC 

DE 

0F16 

06 

04 


LD 

B,04 

0F18 

21 

CF 

Bl 

LD 

HL,B1CF 

0F1B 

AF 



XOR 

A 


Zahl der Bytes als Zähler 
ein Byte 
kopieren 

nächstes Byte für Quelladresse 
nächstes Byte für Zieladresse 
Heitere Bytes zu kopieren ? 


Test auf Übertrag zu RA-Bits 
IN : DE: Bildschirmadresse 

C: Zahl der Bytes ab dort 
OUT: HL: Bildschirmadresse 

CY=1 für Übertrag zu RA-Bits 
Zahl der Bytes 
Bildschirmadresse nach DE 
Offset zu letztem Byte 
zim Lo-Byte der Adresse add. 
kein Übertrag zu Hi-Byte ? 

Hi-Byte 
Übertrag zu 
RA-Bits ? 
nein ? 

sonst CY=1 für Übertrag 


SCR UNPACK 

IN : HL: Adr. d. gepackten Matrix 
DE: Zieladresse für 
ungepackte Matrix 
Mode holen 
Zähler für Zeilen 
Mode 0 ? 

Mode 1 ? 

8 Bytes zu kopieren 
gepackte Matrix kopieren 


Byte aus gepackter Matrix 
Zeiger auf nächstes Matrixbyte 
retten 

Rasterzeilen-Zähler 
4 Pixels pro ungepackten Byte 
Adr. d. Masken f. Pixelauswahl 
ungepacktes Byte löschen 
Pixel-Bit aus gepackter Matrix 
Pixel nicht gesetzt ? 
sonst entspr. Bits setzen 
Zeiger auf nächste Maske 
weitere Pixels im ungep. Byte? 
ungepacktes Byte speichern 
nächstes Byte in ungep. Matrix 
nächste 4 Pixels aus 
gepackter Matrix 
entsprechend in ungepackte 
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OFlC 

CB 

01 

RLC 

C 

0F1E 

30 

01 

JR 

NC.0F21 

0F2O 

B6 


OR 

(HL) 

0F21 

23 


INC 

HL 

0F22 

10 

F8 

DJNZ 

0F1C 

0F24 

12 


LD 

(DE),A 

0F25 

13 


INC 

DE 

0F26 

CI 


POP 

BC 

0F27 

El 


POP 

HL 

0F28 

10 

D8 

DJNZ 

0F02 

0F2A 

C9 


RET 


0F2B 

4E 


LD 

C, (HL) 

0F2C 

23 


INC 

HL 

0F2D 

E5 


PUSH 

HL 

0F2E 

C5 


PUSH 

BC 

0F2F 

06 

04 

LD 

B,04 

0 F31 

AF 


XOR 

A 

0F32 

21 

CF Bl 

LD 

HL,B1CF 

0F35 

CB 

01 

RLC 

C 

0F37 

30 

01 

JR 

NC,0F3A 

0F39 

7E 


LD 

A, (HL) 

0F3A 

23 


INC 

HL 

0F3B 

CB 

01 

RLC 

C 

0F3D 

30 

01 

JR 

NC,0F40 

0F3F 

B6 


OR 

(HL) 

0F40 

12 


LD 

(DE),A 

0F41 

13 


INC 

DE 

0F42 

10 

ED 

DJNZ 

0F31 

0F44 

CI 


POP 

BC 

0F45 

El 


POP 

HL 

0F46 

10 

E3 

DJNZ 

0F2B 

0F48 

C9 


RET 



* it irit irit ir it ir it it ir itir it ☆ it irit ☆ it itir irit it it it * it <r <r it iAr 


0F49 

4F 



LD 

C# A 

0F4A 

CD 

64 

OB 

CALL 

0B64 

0F4D 

CD 

EC 

OA 

CALL 

OAEC 

0F50 

06 

08 


LD 

B, 08 

0F52 

38 

45 


JR 

C.0F99 

0F54 

28 

OB 


JR 

Z,0F61 

0F56 

7E 



LD 

A, (HL) 

0F57 

A9 



XOR 

C 

0F58 

2F 



CPL 


0F59 

12 



LD 

(DE),A 

0F5A 

13 



INC 

DE 

0F5B 

CD 

13 

oc 

CALL 

0C13 

0F5E 

10 

F6 


DJNZ 

0F56 

0F60 

C9 



RET 


0F61 

E5 



PUSH 

HL 

0F62 

D5 



PUSH 

DE 

0F63 

E5 



PUSH 

HL 


Matrix übertragen 


weitere Rasterzeilen ? 


Byte aus gepackter Matrix 
Zeiger auf nächstes Matrixbyte 
retten 

Rasterzeilen-Zähler 
4 ungep. Bytes pro gep. Byte 
ungepacktes Byte löschen 
Adr. d. Masken f. Pixelauswahl 
nächstes Bit aus ungep. Matrix 
Pixel nicht gesetzt ? 

Maske f. 1. Pixel aüsgewählt 
Zeiger auf Maske f. 2. Pixel 
nächstes Bit aus ungep. Matrix 
Pixel nicht gesetzt ? 

Maske f. 2. Pixel ausgewählt 
ungepacktes Byte speichern 
Zeiger auf nächst, ungep. Byte 
weitere ungep. Bytes ? 


weitere Rasterzeilen ? 


SCR REPACK 
IN : H: Spalte 
L: Zeile 
A: Pen-Byte 
DE: Zieladresse für 
gepackte Matrix 
Pen-Byte 

BiIdschirmadr. berechnen 
Mode holen 
8 Rasterzeilen 
Mode 0 ? 

Mode 1 ? 

Byte aus Bildschirm 

Pen-Pixels als O-Bits 

Pen-Pixels als 1-Bits 

Byte in gepackte Matrix sp. 

Zeiger in gepackter Matrix 

Adresse d. nächst. Rasterzeile 

weitere Rasterzeilen ? 
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0F64 

7E 



LD 

A, (HL) 

0F65 

A9 



XOR 

C 

0F66 

21 

CF 

Bl 

LD 

HL # Bl CF 

0F69 

16 

04 


LD 

D,04 

0F6B 

F5 



PUSH 

AF 

0F6C 

A6 



AND 

(HL) 

0F6D 

20 

01 


JR 

NZ,0F70 

0F6F 

37 



SCF 


0F70 

CB 

13 


RL 

E 

0F72 

23 



INC 

HL 

0F73 

Fl 



POP 

AF 

0F74 

15 



DEC 

D 

0F75 

20 

F4 


JR 

NZ,0F6B 

0F77 

El 



POP 

HL 

0F78 

CD 

F9 

OB 

CALL 

0BF9 

0F7B 

7E 



LD 

A,(HL) 

0F7C 

A9 



XOR 

C 

0F7D 

21 

CF 

Bl 

LD 

HL.B1CF 

0F80 

16 

04 


LD 

D,04 

0F82 

F5 



PUSH 

AF 

0F83 

A6 



AND 

(HL) 

0F84 

20 

01 


JR 

NZ,0F87 

0F86 

37 



SCF 


0F87 

CB 

13 


RL 

E 

0F89 

23 



INC 

HL 

0F8A 

Fl 



POP 

AF 

0F8B 

15 



DEC 

D 

0F8C 

20 

F4 


JR 

NZ,0F82 

0F8E 

El 



POP 

HL 

0F8F 

73 



LD 

(HL),E 

0F90 

EB 



EX 

DE,HL 

0F91 

13 



INC 

DE 

0F92 

El 



POP 

HL 

0F93 

CD 

13 

0C 

CALL 

0C13 

0F96 

10 

C9 


DJNZ 

0F61 

0F98 

C9 



RET 


0F99 

E5 



PUSH 

HL 

0F9A 

D5 



PUSH 

DE 

0F9B 

16 

04 


LD 

D,04 

0F9D 

7E 



LD 

A,(HL) 

0F9E 

E5 



PUSH 

HL 

0F9F 

A9 



XOR 

C 

OFAO 

F5 



PUSH 

AF 

0FA1 

21 

CF 

Bl 

LD 

HL,B1CF 

0FA4 

A6 



AND 

(HL) 

0FA5 

20 

01 


JR 

NZ,0FA8 

0FA7 

37 



SCF 


0FA8 

CB 

13 


RL 

E 

OFAA 

Fl 



POP 

AF 

OFAB 

23 



INC 

HL 

OFAC 

A6 



AND 

(HL) 

OFAD 

20 

01 


JR 

NZ,OFBO 

OFAF 

37 



SCF 


OFBO 

CB 

13 


RL 

E 

0FB2 

El 



POP 

HL 

0FB3 

CD 

F9 

OB 

CALL 

0BF9 

0FB6 

15 



DEC 

D 


Byte aus Bildschirm 

Pen-Pixels als O-Bits 

Adr. d. Masken f. Pixelauswahl 

4 Pixels pro Byte 

Pen-Pixel-Bits 

Bits f. diesen Pixel isolieren 
Pixel nicht in Pen-Farbe ? 
sonst 1-Bit in gepackte Matrix 
Bit in gepackte Matrix rotier. 
Adr. d. Maske f. nächst. Pixel 
Pen-Pixel-Bits 

weitere Pixels ? 


nächste 4 Pixels in 
nächstem Bildschirmbyte 
entsprechend packen 


gepacktes Byte speichern 

Zeiger in gepackte Matrix 
Bildschirmadresse 
Adresse d. nächst. Rasterzeile 
weitere Rasterzeilen ? 


4 ungep. Bytes pro gep. Byte 
Byte aus Bildschirm 
Bildschirmadresse retten 
Pen-Pixels als O-Bits 
Pen-Pixel-Bits 

Adr. d. Masken f. Pixelauswahl 
Bits f. diesen Pixel isolieren 
Pixel nicht in Pen-Farbe ? 
sonst 1-Bit in gepackte Matrix 
Bit in gepackte Matrix rotier. 
Pen-Pixel-Bits 

Adr. d. Maske f. nächst. Pixel 
nächsten Pixel analog 
in Matrix-Byte 
übertragen 


Adr. d. nächst. BiIdsch.-Bytes 
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0FB7 

20 

E4 


JR 

NZ,0F9D 

weitere ungepackte Bytes ? 

0FB9 

El 



POP 

HL 


OFBA 

73 



LD 

(HL),E 

gepacktes Byte speichern 

OFBB 

EB 



EX 

DE,HL 


OFBC 

13 



INC 

DE 

Zeiger auf nächst. Matrix-Byte 

OFBD 

El 



POP 

HL 

Bi Idschirmadresse 

OFBE 

CD 

13 

OC 

CALL 

0C13 

Adr. der nächsten Rasterzeile 

0FC1 

10 

D6 


DJNZ 

0F99 

weitere Rasterzeilen ? 

0FC3 

C9 



RET 



********************************** 

SCR HORIZONTAL 







IN : DE: X-Startkoordinate 







BC: X-Endkoordinate 

HL: Y-Koordinate 

A: Pen-Byte 

0FC4 

F5 



PUSH 

AF 

Pen-Byte retten 

0FC5 

E5 



PUSH 

HL 

Y-Koordinate retten 

0FC6 

7A 



LD 

A,D 

Zweierkomplement 

0FC7 

2F 



CPL 


der X-Startkoordinate 

0FC8 

67 



LD 

H, A 

nach HL 

0FC9 

7B 



LD 

A,E 


OFCA 

2F 



CPL 



OFCB 

6F 



LD 

L/A 


OFCC 

23 



INC 

HL 


OFCD 

09 



ADD 

HL,BC 

X-Endk. minus X-Startk. 

OFCE 

23 



INC 

HL 

+1= Zahl der X-Positionen 

OFCF 

E3 



EX 

(SP),HL 

retten, Y-Koordinate zurück 

OFDO 

AF 



XOR 

A 

Lo-Byte der X-Startkoord. 

0FD1 

93 



SUB 

E 

negieren, für Abstand zum 

0FD2 

F5 



PUSH 

AF 

nächsten vollen Byte retten 

0FD3 

CD 

A9 

OB 

CALL 

0BA9 

BiIdsch.-Adr. und Maske ber. 

0FD6 

E5 



PUSH 

HL 

Bildschirmadresse retten 

OFD7 

78 



LD 

A,B 

signif. Bits f. Pixelstellung 

0FD8 

2F 



CPL 


invertieren, gibt 

OFD9 

6F 



LD 

L,A 

signif. Bits f. BiIdsch.-Adr. 

OFDA 

26 

FF 


LD 

H, FF 

im Hi-Byte alle Bits signifik. 

OFDC 

22 

07 

B2 

LD 

(B207),HL 

sign. Bits als X-Offset/Byte 

OFDF 

El 



POP 

HL 

BiIdschirmadresse 

OFEO 

Fl 



POP 

AF 

neg. Lo-Byte der X-Startkoord. 

OFE1 

AO 



AND 

B 

sign. Bits f. Pixeist. isol. 

0FE2 

47 



LD 

B, A 

gibt Pixel zahl bis näch. 8yte 

0FE3 

28 

45 


JR 

Z,102A 

keine ? dann sofort byteweise 

0FE5 

E3 



EX 

(SP),HL 

BiIdsch.-Adr. r., X-Pos.-Zahl 

OFE6 

18 

03 


JR 

OFEB 


0FE8 

1A 



LD 

A, (DE) 

Bitmaske d. nächsten Pixels 

OFE9 

Bl 



OR 

C 

Bit(s) f. Pixel zusätzl. setz. 

OFEA 

4F 



LD 

C,A 

neue Bitmaske 

OFEB 

2B 



DEC 

HL 

X-Positionen-Zahl herunterz. 

OFEC 

7C 



LD 

A, H 


OFED 

B5 



OR 

L 


OFEE 

28 

34 


JR 

Z, 1024 

keine weiteren X-Positionen ? 

OFFO 

13 



INC 

DE 

Zeiger auf nächste Bitmaske 

OFF1 

10 

F5 


DJNZ 

0FE8 

weit. Pixels vor nächs. Byte ? 

0FF3 

EB 



EX 

DE,HL 

Zahl der X-Positionen nach DE 

OFF4 

El 



POP 

HL 

BiIdschirmadresse 

0FF5 

Fl 



POP 

AF 

Pen-Byte 

0FF6 

47 



LD 

B, A 

nach B 

OFF7 

CD 

E8 

BD 

CALL 

BDE8 

SCR URITE, Pixel(s) setzen 
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OFFA 

CD 

F9 

OB 

CALL 

0BF9 

OFFD 

E5 



PUSH 

HL 

OFFE 

2A 

07 

B2 

LD 

HL,(B207) 

1001 

19 



ADD 

HL,DE 

1002 

30 

OC 


JR 

NC,1010 

1004 

EB 



EX 

DE,HL 

1005 

El 



POP 

HL 

1006 

0E 

FF 


LD 

C, FF 

1008 

CD 

E8 

BD 

CALL 

BDE8 

100B 

CD 

F9 

OB 

CALL 

0BF9 

100E 

18 

ED 


JR 

OFFD 

1010 

7B 



LD 

A,E 

1011 

B7 



OR 

A 

1012 

28 

0E 


JR 

Z,1022 

1014 

AF 



XOR 

A 

1015 

21 

CF 

Bl 

LD 

HL,B1CF 

1018 

B6 



OR 

(HL) 

1019 

23 



INC 

HL 

101A 

ID 



DEC 

E 

101B 

20 

FB 


JR 

NZ,1018 

101D 

4F 



LD 

C,A 

101E 

El 



POP 

HL 

101 F 

C3 

E8 

BD 

JP 

BDE8 

1022 

El 



POP 

HL 

1023 

C9 



RET 


1024 

El 



POP 

HL 

1025 

Fl 



POP 

AF 

1026 

47 



LD 

B,A 

1027 

C3 

E8 

BD 

JP 

BDE8 

102A 

Dl 



POP 

DE 

102B 

Fl 



POP 

AF 

102C 

47 



LD 

B,A 

102D 

18 

CE 


JR 

OFFD 


Adresse des nächsten Bytes 
retten 

neg. X-Offset zu nächstem Byte 
Offset v. X-Pos.-Zahl abziehen 
kein weiteres volles Byte ? 
Zahl der X-Positionen nach DE 
BiIdschirmadresse 
Maske, alle Pixels ausgewählt 
SCR WRITE, Pixels setzen 
Adresse des nächsten Bytes 
nächstes Byte 

Zahl der restl. X-Positionen 

keine weiteren ? 

Bitmaske f. kein Pixel 

Adr. d. Masken f. Pixelauswahl 

Bit(s) f. Pixel setzen 

Adr. Bitmaske f. nächst. Pixel 

weitere X-Positionen ? 

Bitmaske 

BiIdschirmadresse 

SCR WRITE, Pixel(s) setzen 

Bildschirmadresse 


Bildschirmadresse 

Pen-Byte 

nach B 

SCR WRITE, Pixel(s) setzen 
Zahl der X-Positionen 
Pen-Byte 
nach B 

byteweise bearbeiten 


********************************** 


102F 

F5 


PUSH 

AF 

1030 

E5 


PUSH 

HL 

1031 

7C 


LD 

A,H 

1032 

2F 


CPL 


1033 

67 


LD 

H, A 

1034 

7D 


LD 

A,L 

1035 

2F 


CPL 


1036 

6F 


LD 

L,A 

1037 

23 


INC 

HL 

1038 

09 


ADD 

HL,BC 

1039 

23 


INC 

HL 

103A 

E3 


EX 

(SP),HL 

103B 

CD A9 

OB 

CALL 

0BA9 

103E 

Dl 


POP 

DE 

103 F 

Fl 


POP 

AF 

1040 

47 


LD 

B,A 

1041 

CD E8 

BD 

CALL 

BDE8 


SCR VERTICAL 

IM : HL: Y-Startkoordinate 
BC: Y-Endkoordinate 
DE: X-Koordinate 
A: Pen-Byte 
Pen-Byte retten 
Y-Startkoordinate retten 
Zweierkomplement 
der Y-Startkoordinate 
nach HL 


Y-Endkoord. minus Y-Startk. 

+1 =Zahl der Y-Positionen 
retten, Y-Startk. zurück 
BiIdschirmadr. und Maske holen 
Zahl der Y-Positionen 
Pen-Byte 
nach B 

SCR WRITE, Pixel setzen 
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1044 

CD 

2D 

OC 


CALL 

0C2D 

Adr. der vorigen Rasterzeile 

1047 

1B 




DEC 

DE 

Zahl der Y-Positionen 

1048 

7A 




LD 

A/D 

weitere Y-Positionen 

1049 

B3 




OR 

E 

(Rasterzeilen) 

104A 

20 

F5 



JR 

NZ,1041 

zu bearbeiten ? 

104C 

C9 




RET 




Default-Farbwerte 

104D 

04 

04 





BORDER-Werte 

104F 

0A 

13 

OC 

OB 

14 15 

OD 06 


1057 

IE 

1F 

07 

12 

19 04 

17 04 

INK-Werte 

105 F 

04 

OA 

13 

OC 

OB 14 

15 OD 


1067 

06 

IE 

1 F 

07 

12 19 

OA 07 


106F 

C7 




RST 

00 


1070 

C7 




RST 

00 


1071 

C7 




RST 

00 


1072 

C7 




RST 

00 


1073 

C7 




RST 

00 


1074 

C7 




RST 

00 


1075 

C7 




RST 

00 


1076 

C7 




RST 

00 


1077 

C7 




RST 

00 
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TEXT SCREEN (TXT) 


***** * ******* ** *********** * * ** *** * 


1078 

CD 

88 

10 

CALL 

1088 

107B 

AF 



XOR 

A 

107C 

32 

95 

B2 

LD 

(B295),A 

107F 

21 

01 

00 

LD 

HL,0001 

1082 

CD 

3D 

11 

CALL 

113D 

1085 

C3 

A3 

10 

JP 

10A3 

********************************** 

1088 

21 

91 

10 

LD 

HL,1091 

108B 

CD 

8A 

0A 

CALL 

0A8A 

108E 

C3 

5B 

14 

JP 

145B 

1091 

0F 





1092 

CD 

BD 




1094 

C3 

63 

12 

JP 

1263 

1097 

C3 

63 

12 

JP 

1263 

109A 

C3 

4A 

13 

JP 

134A 

1090 

C3 

CO 

13 

JP 

13C0 

10A0 

C3 

OC 

14 

JP 

HOC 

********************************** 

10A3 

3E 

08 


LD 

A, 08 

10A5 

11 

0D 

B2 

LD 

DE,B20D 

10A8 

21 

85 

B2 

LD 

HL,B285 

10AB 

01 

0F 

00 

LD 

BC,000F 

10AE 

ED 

B0 


LDIR 


10B0 

3D 



DEC 

A 

10B1 

20 

F5 


JR 

NZ,10A8 

10B3 

32 

OC 

B2 

LD 

(B20C),A 

10B6 

C9 



RET 

********************************** 

10B7 

3A 

0C 

B2 

LD 

A,(B20C) 

10BA 

4F 



LD 

C, A 

10BB 

06 

08 


LD 

B,08 

10BD 

78 



LD 

A, B 

10BE 

3D 



DEC 

A 

10B F 

CD 

E8 

10 

CALL 

10E8 

10C2 

CD 

DO 

BD 

CALL 

BDD0 

10C5 

CD 

C3 

12 

CALL 

12C3 

10C8 

32 

90 

B2 

LD 

(B290),A 

10CB 

CD 

BD 

12 

CALL 

12BD 

10CE 

32 

8F 

B2 

LD 

(B28F),A 

10D1 

10 

EA 


DJNZ 

10BD 

10D3 

79 



LD 

A, C 

10D4 

C9 



RET 


********************************** 


10D5 

4F 


LD 

C, A 

10D6 

06 

08 

LD 

B,08 

10D8 

78 


LD 

A,B 

10D9 

3D 


DEC 

A 

10DA 

CD 

E8 10 

CALL 

10E8 


TXT INITIALIZE 
TXT RESET 

Flag für User-Matrix 
löschen 

PAPER 0, PEN 1 
Default-Parameter setzen 
alle Windows initialisieren 

TXT RESET 

Zeiger auf Block 
Indirections kopieren 
Steuerzeichen-Tab. init. 

Zahl der zu kopierenden Bytes 

Zieladresse im RAM 

TXT DRAW CURSOR 

TXT UNDRAW CURSOR 

TXT WRITE CHAR 

TXT UNWRITE 

TXT OUT ACT ION 

alle Windows entspr. akt. Window 
Zähler für Windows 
Zeiger auf Params f. Window 0 
Zeiger auf akt. Window-Params 
Länge der Window-Parameter 
akt. Window kopieren 

weitere Windows ? 

Window 0 auswählen 


alle Farben decodieren 
OUT: C: akt. Window 

aktuelle Window-Nunmer 

nach C retten 

Zähler für 8 Windows 

akt. Zählerwert 

Window von 0..7 

Window auswählen 

Cursor ausschalten 

Paper-Wert holen 

und speichern (uncodiert!) 

Pen-Wert holen 

und speichern (uncodiert!) 

weitere Windows ? 

alte Window-Nunmer 


alle Farben cod., Wind, auf Def. 
IN : A: anschließend auszuwäh¬ 
lende Window-Nunmer 
Window-Nunmer retten 
Zähler für 8 Windows 
akt. Zählerwert 
Window von 0. .7 
Window auswählen 
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10DD 

C5 



PUSH 

BC 

10DE 

2A 

8F 

B2 

LD 

HL,(B28F) 

10E 1 

CD 

3D 

11 

CALL 

113D 

10E4 

CI 



POP 

BC 

10E5 

10 

Fl 


DJNZ 

10D8 

10E7 

79 



LD 

A,C 


********************************** 


10E8 

E6 

07 


AND 

07 

10EA 

21 

OC 

B2 

LD 

HL,B20C 

10ED 

BE 



CP 

(HL) 

10EE 

C8 



RET 

Z 

10E F 

C5 



PUSH 

BC 

10F0 

D5 



PUSH 

DE 

10 F1 

4E 



LD 

C, (HL) 

10F2 

77 



LD 

(HL),A 

10F3 

47 



LD 

B,A 

10F4 

79 



LD 

A.C 

10F5 

CD 

2A 

11 

CALL 

112A 

10F8 

CD 

22 

11 

CALL 

1122 

10 FB 

78 



LD 

A, B 

10FC 

CD 

2A 

11 

CALL 

112A 

10FF 

EB 



EX 

DE,HL 

1100 

CD 

22 

11 

CALL 

1122 

1103 

79 



LD 

A,C 

1104 

Dl 



POP 

DE 

1105 

CI 



POP 

BC 

1106 

C9 



RET 


********************************** 


1107 

3A 

OC 

B2 

LD 

A, (B20C) 

110A 

F5 



PUSH 

AF 

hob 

79 



LD 

A,C 

110C 

CD 

E8 

10 

CALL 

10ES 

110F 

78 



LD 

A,B 

1110 

32 

0C 

B2 

LD 

(B20C),A 

1113 

CD 

2A 

11 

CALL 

112A 

1116 

D5 



PUSH 

DE 

1117 

79 



LD 

A, C 

1118 

CD 

2A 

11 

CALL 

112A 

111B 

El 



POP 

HL 

nie 

CD 

22 

11 

CALL 

1122 

111 F 

Fl 



POP 

AF 

1120 

18 

C6 


JR 

10E8 

************* * ******* * * ********* * 


1122 

C5 


PUSH 

BC 

1123 

01 

0F 00 

LD 

BC,000F 

1126 

ED 

B0 

LDIR 


1128 

Ci 


POP 

BC 

1129 

C9 


RET 



Paper-/Pen-Werte (uncodiert!) 
Default-Parameter setzen 

weitere Windows ? 
neue Window-Nimmer 

TXT STR SELECT 
IN : A: neue Window-Nurrmer 
OUT: A: alte Window-Nummer 
Window-Nummer von 0..7 
akt. Window-Nummer 
Window bereits ausgewählt ? 
dann fertig 


alte Window-Nummer 
neue Window-Nummer setzen 
neue Nunrmer 
alte Nimmer 

Adr. der lfd./alten Parameter 

laufende in alte Params kop. 

neue Window-Nimmer 

Adr. der lfd./neuen Parameter 

vertauschen 

neue in laufende Params kop. 
alte Window-Nummer 


TXT SWAP STREAMS 
IN : B: 1. Window-Nummer 
C: 2. Window-Nimmer 
aktuelle Window-Nummer 
retten 

2. Window-Nr. 

als akt. setzen, Params kop. 

1. Window-Nr. 

als akt. Nr. f. Zurückkopieren 
Adresse der Params d. 1. Nr. 
retten 

2. Window-Nr. 

Adresse der Params d. 2. Nr. 
Adresse f. 1. Nr. als Quelle 
Params v. 1. in 2. Window kop. 
alte akt. Window-Nurrmer 
wieder setzen 

Window-Parameter kopieren 
IN : HL: QuelLadresse 
DE: Zieladresse 

Länge der Params eines Windows 
Parameter kopieren 
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********************************** 


112A 

E6 

07 

AND 

07 

112C 

5F 


LD 

E ,A 

112D 

87 


ADD 

A 

112E 

87 


ADD 

A 

112F 

87 


ADD 

A 

1130 

87 


ADD 

A 

1131 

93 


SUB 

E 

1132 

C6 

0D 

ADD 

0D 

1134 

5F 


LD 

E,A 

1135 

CE 

B2 

ADC 

B2 

1137 

93 


SUB 

E 

1138 

57 


LD 

D,A 

1139 

21 

85 B2 

LD 

HL,B285 

113C 

C9 


RET 



********************************** 


113D 

EB 



EX 

DE,HL 

113E 

3E 

03 


LD 

A,03 

1140 

32 

8D 

B2 

LD 

(B28D),A 

1143 

7A 



LD 

A,D 

1144 

CD 

AE 

12 

CALL 

12AE 

1147 

7B 



LD 

A,E 

1148 

CD 

A9 

12 

CALL 

12A9 

114B 

AF 



XOR 

A 

114C 

CD 

A7 

13 

CALL 

13A7 

114F 

CD 

7A 

13 

CALL 

137A 

1152 

21 

00 

00 

LD 

HL,0000 

1155 

11 

7F 

7F 

LD 

DE,7F7F 

1158 

CD 

OC 

12 

CALL 

120C 

115B 

C3 

51 

14 

JP 

1451 


********************************** 


115E 

3D 



DEC 

A 

115F 

21 

89 

B2 

LD 

HL,B289 

1162 

86 



ADD 

(HL) 

1163 

2A 

85 

B2 

LD 

HL,(B285) 

1166 

67 



LD 

H,A 

1167 

18 

0E 


JR 

1177 


********************************** 


1169 

3D 



DEC 

A 

116A 

21 

88 

B2 

LD 

HL,B288 

116D 

86 



ADD 

(HL) 

116E 

2A 

85 

B2 

LD 

HL,(B285) 

1171 

6F 



LD 

L,A 

1172 

18 

03 


JR 

1177 


Adr. der Window-Parameter holen 
IN : A: Window-Nummer 
OUT: DE: Adr. der zugeh. Params 
HL: Adr. der Ifd. Parameter 
Window-Nummer von 0..7 


mal 15, da 15 Parameter- 
Bytes pro Window 


SB20D (Basisadresse der 
Window-Parameter-Tabelle 
addieren 


Adr. der laufenden Parameter 


Window-Default-Parameter setzen 
IN : H: Paper-Wert (uncodiert!) 
L: Pen-Wert (uncodiert!) 
Paper-/Pen-Wert 

Flag für Cursor OFF und 
DISABLED setzen 
Paper-Wert 
setzen 
Pen-Wert 
setzen 

Flag für TAGOFF 
setzen 

FORCE-Hintergrund-Modus 
Grenzen links/oben 
Grenzen rechts/unten 
Windowgrenzen setzen 
VDU-Flag auf ENABLED 

TXT SET COLUMN 
IN : A: Spalte 

relativer Spaltenwert +1 
+ linke Windowgrenze 
gibt absolute Position 
Cursorposition 
Spalte neu setzen 
Cursor neu setzen 

TXT SET ROW 
IN : A: Zeile 

relativer Zeilenwert -1 
+ obere Windowgrenze 
gibt absolute Position 
Cursorposition 
Zeile neu setzen 
Cursor neu setzen 
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********************************** 


1174 

CD 

SA 

11 

CALL 

11SA 

1177 

CD 

DO 

BD 

CALL 

BDDO 

117A 

22 

85 

B2 

LD 

(B285),HL 

117D 

C3 

CD 

BD 

JP 

BDCD 


********************************** 


1180 

2A 

85 

B2 

LD 

HL, (B285) 

1183 

CD 

97 

11 

CALL 

1197 

1186 

3A 

8C 

B2 

LD 

A, (B28C) 

1189 

C9 



RET 


********************************** 


118A 

3A 88 

B2 

LD 

A,(B288) 

118D 

3D 


DEC 

A 

118E 

85 


ADD 

L 

118F 

6F 


LD 

L,A 

1190 

3A 89 

B2 

LD 

A,(B289) 

1193 

3D 


DEC 

A 

1194 

84 


ADD 

H 

1195 

67 


LD 

H,A 

1196 

C9 


RET 



********************************** 


1197 

3A 88 

B2 

LD 

A,(B288) 

119A 

95 


SUB 

L 

119B 

2F 


CPL 


119C 

3C 


INC 

A 

119D 

3C 


INC 

A 

119E 

6F 


LD 

L,A 

119F 

3A 89 

B2 

LD 

A,(B289) 

11A2 

94 


SUB 

H 

11 A3 

2F 


CPL 


11 A4 

3C 


INC 

A 

11A5 

3C 


INC 

A 

11A6 

67 


LD 

H,A 

11A7 

C9 


RET 



********************************** 


11AS CD DO BD CALL BDDO 
********************************** 


11AB 

2A 

85 

B2 

LD 

HL,(B285) 

11 AE 

CD 

DA 

11 

CALL 

11DA 

11 Bl 

22 

85 

B2 

LD 

(B285),HL 

11B4 

D8 



RET 

C 


TXT SET CURSOR 
IN : H: Spalte 
L: Zeile 

relative in absolute Position 
TXT UNDRAW CURSOR 
neue Cursorposition setzen 
TXT DRAW CURSOR 

TXT GET CURSOR 
OUT: H: Spalte 
L: Zeile 

A: Scrolling-Zähler 
Cursorposition 

in relative Position wandeln 
Scrolling-Zähler 


relative in absolute Pos. wandeln 
IN/OUT: H: Spalte 
L: Zeile 

obere Uindowgrenze 
-1 = Offset 
zu Zeile addieren 
als absolute Zeile 
linke Windowgrenze 
-1 = Offset 
zu Spalte addieren 
als absolute Spalte 


absolute in relative Pos. wandeln 
IN/OUT: H: Spalte 
L: Zeile 

obere Windowgrenze 
- Zeile 

Zweierkomplement, 

Zeile-obere Grenze 

+1 

gibt relative Zeile 
mit rechter Windowgrenze 
und Spalte 
ebenso 
verfahren 


Cursor invert., Position prüfen 
OUT: H: Cursorspalte 
L: Cursorzeile 
TXT UNDRAW CURSOR 

Cursorpos. prüfen, ggf. scrollen 
OUT: H: Cursorspalte 
L: Cursorzeile 
Cursorposition 

innerh. Windowgrenzen bringen 

und wieder setzen 

war Zeile innerhalb Grenzen ? 
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11B5 

E5 



PUSH 

HL 

11B6 

21 

8C 

B2 

LD 

HL, B28C 

11B9 

78 



LD 

A,B 

11BA 

87 



ADD 

A 

11BB 

3C 



INC 

A 

11B C 

86 



ADD 

(HL) 

11BD 

77 



LD 

(HL),A 

11BE 

CD 

56 

12 

CALL 

1256 

11 CI 

3A 

90 

B2 

LD 

A, (B290) 

11C4 

F5 



PUSH 

AF 

11C5 

DC 

3E 

OE 

CALL 

C,0E3E 

11C8 

Fl 



POP 

AF 

11C9 

D4 

FA 

0D 

CALL , 

NC,0DFA 

11CC 

El 



POP 

HL 

11 CD 

C9 



RET 



************************************ 


11 CE 

CD 

8A 

11 

CALL 

118A 

11D1 

CD 

DA 

11 

CALL 

11DA 

11D4 

F5 



PUSH 

AF 

11D5 

CD 

97 

11 

CALL 

1197 

11D8 

Fl 



POP 

AF 

11D9 

C9 



RET 



**☆#****☆*****#*•&**■&*# **•**-&** 


11DA 

3A 

8B 

B2 

LD 

A,(B28B) 

iidd 

BC 



CP 

H 

11DE 

F2 

E6 

11 

JP 

P,11E6 

11 El 

3A 

89 

B2 

LD 

A,(B289) 

11E4 

67 



LD 

H, A 

11E5 

2C 



INC 

L 

11E6 

3A 

89 

B2 

LD 

A,(B289) 

11E9 

3D 



DEC 

A 

11EA 

BC 



CP 

H 

11EB 

FA 

F3 

11 

JP 

M,11F3 

11EE 

3A 

8B 

B2 

LD 

A,(B28B) 

11 Fl 

67 



LD 

H,A 

11F2 

2D 



DEC 

L 

11F3 

3A 

88 

B2 

LD 

A,(B288) 

11F6 

3D 



DEC 

A 

11F7 

BD 



CP 

L 

11F8 

F2 

06 

12' 

JP 

P,1206 

11 FB 

3A 

8A 

B2 

LD 

A,(B28A) 

11 FE 

BD 



CP 

L 

11 FF 

37 



SCF 


1200 

F0 



RET 

P 

1201 

6F 



LD 

L,A 

1202 

06 

FF 


LD 

B, FF 


Cursorposition retten 
Adr. des Scrolling-Zählers 
Scrolling-Flag 

A=1 für nach unten, A=$FF 
für nach oben scrollen 
zu Zähler addieren 
Scrolling-Zähler wieder setzen 
Window-Parameter holen 
Paper-Byte f. zu löschende ZI. 
Paper-Byte und Flag retten 
ggf. softwaremäßig scrollen 

ggf. hardwaremäßig scrollen 
Cursorposition zurück 


TXT VALIDATE 
IN/OUT: H: Spalte 
L: Zeile 

OUT: CY=1 für Position o.k. 

CY=0 für Scrolling 
relative in absolute Position 
innerhalb Grenzen bringen 
Scroll-Flag retten 
absolute in relative Position 
Scroll-Flag 


Position in Grenzen forcieren 
IN/OUT: H: Spalte 
L: Zeile 

OUT: CY=0, wenn Scrolling nötig 
dann: 

B=0 für nach unten scrollen 
B=$FF für nach oben scrollen 
rechte Grenze 
Spalte <= rechte Grenze ? 
dann o.k. 

sonst linke Grenze 
als Spalte 
Zeile erhöhen 
linke Grenze 

Spalte > linke Grenze-1 ? 
dann o.k. 

sonst rechte Grenze 
als Spalte 
Zeile erniedrigen 
obere Grenze 

Zeile <= obere Grenze-1 ? 
dann korrigieren 
untere Grenze 
Zeile <= untere Grenze 
CY=1 für innerhalb Grenzen 
dann o.k., fertig 
sonst untere Grenze als Zeile 
Flag für nach oben scrollen 
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1204 

B7 

OR 

A 

1205 

C9 

RET 


1206 

3C 

INC 

A 

1207 

6F 

LD 

L» A 

1208 

06 00 

LD 

B, 00 

120A 

B7 

OR 

A 

120B 

C9 

RET 



***#**■&**************☆**■**##****** 


120C 

CD 

57 

OB 

CALL 

0B57 

120 F 

7C 



LD 

A,H 

1210 

CD 

44 

12 

CALL 

1244 

1213 

67 



LD 

H,A 

1214 

7A 



LD 

A,D 

1215 

CD 

44 

12 

CALL 

1244 

1218 

57 



LD 

D,A 

1219 

BC 



CP 

H 

121A 

30 

02 


JR 

NC,121E 

121C 

54 



LD 

D, H 

121D 

67 



LD 

H,A 

121E 

TD 



LD 

A,L 

121F 

CD 

4D 

12 

CALL 

124D 

1222 

6F 



LD 

L,A 

1223 

TB 



LD 

A,E 

1224 

CD 

4D 

12 

CALL 

124D 

1227 

5F 



LD 

E,A 

1228 

BD 



CP 

L 

1229 

30 

02 


JR 

NC,122D 

122B 

5D 



LD 

E,L 

122C 

6F 



LD 

L, A 

122D 

22 

88 

B2 

LD 

(B288),HL 

1230 

ED 

53 

8A B2 

LD 

(B28A),DE 

1234 

7C 



LD 

A, H 

1235 

B5 



OR 

L 

1236 

20 

06 


JR 

NZ,123E 

1238 

7A 



LD 

A,D 

1239 

A8 



XOR 

B 

123A 

20 

02 


JR 

NZ,123E 

123C 

7B 



LD 

A,E 

123D 

A9 



XOR 

C 

123E 

32 

87 

B2 

LD 

(B287),A 

1241 

C3 

77 

11 

JP 

1177 


**** *tV **************** * ********** * 


1244 

B7 

OR 

A 

1245 

F2 49 12 

JP 

P,1249 

1248 

AF 

XOR 

A 

1249 

B8 

CP 

B 

124A 

D8 

RET 

C 

124B 

78 

LD 

A,B 

124C 

C9 

RET 



CY=0 für Scrolling nötig 

obere Grenze 

als Zeile setzen 

Flag für nach unten scrollen 

CY=0 für Scrolling nötig 


TXT WIN ENABLE 
IN : H,D: Spaltengrenzen 
L,E: Zeilengrenzen 
maximale Grenzen holen 
linke Grenze 

in zulässige Grenzen bringen 
und wieder setzen 
rechte Grenze 

in zulässige Grenzen bringen 
und wieder setzen 

rechte >= linke Grenze ? 
sonst linke als rechte 
und rechte als linke Grenze 


ebenso mit oberer und 
unterer Grenze verfahren 


Grenzen links/oben 
und rechts/unten setzen 
Grenze links 
oder oben <>0 ? 
dann Software-Scrolling 
rechte Grenze 
nicht maximale Grenze ? 
dann Software-Scrolling 
obere Grenze 
= Maximalgrenze ? 

Flag f. Soft-/Hardware-Scroll. 
Cursor nach links/oben setzen 


Spaltengrenze in zuläss. Bereich 
IN/OUT: A: Window-Spaltengrenze 

B: maximale Spaltengrenze 

Grenze >=0 ? 
sonst Null als Grenze 
Grenze < Maximalwert ? 
dann zurück 

sonst Maximalwert als Grenze 
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********************************** 


124D 

B7 

OR 

A 

124E 

F2 52 12 

JP 

P,1252 

1251 

AF 

XOR 

A 

1252 

B9 

CP 

C 

1253 

D8 

RET 

C 

1254 

79 

LD 

A, C 

1255 

C9 

RET 



********************************** 


1256 

2A 

88 

B2 

LD 

HL,(B288) 

1259 

ED 

5B 

8A B2 

LD 

DE,(B28A) 

125D 

3A 

87 

B2 

LD 

A,(B287) 

1260 

C6 

FF 


ADD 

FF 

1262 

C9 



RET 



********************************** 


1263 

3A 8D B2 

LD 

A,(B28D) 

1266 

B7 

OR 

A 

1267 

CO 

RET 

NZ 


********************************** 


1268 

C5 



PUSH 

BC 

1269 

D5 



PUSH 

DE 

126A 

E5 



PUSH 

HL 

126B 

CD 

AB 

11 

CALL 

11 AB 

126E 

ED 

4B 

8F B2 

LD 

BC,(B28F) 

1272 

CD 

DF 

0D 

CALL 

ODDF 

1275 

El 



POP 

HL 

1276 

Dl 



POP 

DE 

1277 

CI 



POP 

BC 

1278 

C9 



RET 



********************************** 


1279 

F5 



PUSH 

AF 

127A 

3E 

FD 


LD 

A, FD 

127C 

CD 

8B 

12 

CALL 

128B 

127F 

Fl 



POP 

AF 

1280 

C9 



RET 


********************************** 

1281 

F5 



PUSH 

AF 

1282 

3E 

02 


LD 

A,02 

1284 

CD 

9C 

12 

CALL 

129C 

1287 

Fl 



POP 

AF 

1288 

C9 



RET 


********************************** 

1289 

3E 

FE 


LD 

A, FE 

128B 

F5 



PUSH 

AF 

128C 

CD 

DO 

BD 

CALL 

BDDO 


Zeilengrenze in zuläss. Bereich 
IN/OUT: A: Window-Zeilengrenze 

C: maximale Zeilengrenze 

Grenze >=0 ? 
sonst Null als Grenze 
Grenze < Maximalwert ? 
dann zurück 

sonst Maximalwert als Grenze 


TXT GET WINDOW 
OUT: H: linke Grenze 
L: obere Grenze 
D: rechte Grenze 
E: untere Grenze 
CY=0 für Hardware-Scrolling 
Grenzen links/oben 
Grenzen rechts/unten 
Scrolling-Flag 
CY=0 bei Hardware-Scrolling 


TXT DRAW/UNDRAW CURSOR 
Cursor-Flag 

Cursor OFF oder DISABLED ? 
dann zurück 

TXT PLACE/REMOVE CURSOR 


Cursorpos. prf., ggf. scrollen 
Pen- und Paper-Byte 
Cursor invertieren 


TXT CUR ON 

Bit 1, ON/OFF-Flag 
Flag auf ON setzen 


TXT CUR OFF 

Bit 1, ON/OFF-Flag 
Flag auf OFF setzen 


TXT CUR ENABLE 

Bit 0, ENABLE/DISABLE-Flag 

TXT UNDRAW CURSOR, ggf. inv. 
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128F 

Fl 



POP 

AF 

1290 

E5 



PUSH 

HL 

1291 

21 

8D 

B2 

LD 

HL,B28D 

1294 

A6 



AND 

(HL) 

1295 

77 



LD 

(HL),A 

1296 

El 



POP 

HL 

1297 

C3 

CD 

BD 

JP 

BDCD 

★ ******★★★★★★★*★**★★*★**★★★* ■*★**★★ 

129A 

3E 

01 


LD 

A,01 

129C 

F5 



PUSH 

AF 

129D 

CD 

DO 

BD 

CALL 

BDDO 

12A0 

Fl 



POP 

AF 

12A1 

E5 



PUSH 

HL 

12A2 

21 

8D 

B2 

LD 

HL,B28D 

12A5 

B6 



OR 

(HL) 

12A6 

77 



LD 

(HL),A 

12A7 

El 



POP 

HL 

12A8 

C9 



RET 



12A9 

21 

8F 

B2 

LD 

HL,B28F 

12AC 

18 

03 


JR 

12B1 

**★★★*★*★*★★★★★*★**★★★********★★** 

12AE 

21 

90 

B2 

LD 

HL,B290 

12B1 

F5 



PUSH 

AF 

12B2 

CD 

DO 

BD 

CALL 

BDDO 

12B5 

Fl 



POP 

AF 

12B6 

CD 

86 

OC 

CALL 

0C86 

12B9 

77 



LD 

(HL),A 

12BA 

C3 

CD 

BD 

JP 

BDCD 

********************************** 

12BD 

3A 

8F 

B2 

LD 

A, (B28F) 

12C0 

C3 

A0 

OC 

JP 

OCAO 


*****★ ★★★***★**■**★**★★★★*★★***★★*★ 


12C3 

3A 

90 

B2 

LD 

A,(B290) 

12C6 

C3 

AO 

OC 

JP 

OCAO 

★★★******★★******************★★*★★ 

12C9 

2A 

8F 

B2 

LD 

HL,(B28F) 

12CC 

7C 



LD 

A, H 

12CD 

65 



LD 

H,L 

12CE 

6F 



LD 

L/A 

12CF 

22 

8F 

B2 

LD 

(B28F),HL 

12D2 

C9 



RET 



Adr. des Cursor-Flags 
entsprechendes Bit löschen 
und Flags wieder setzen 

TXT DRAW CURSOR 

TXT CUR DISABLE 

Bit 0, ENABLE/DISABLE-Flag 

TXT UNDRAW CURSOR 


Adr. des Cursor-Flags 
entsprechendes Bit setzen 
und Flags wieder setzen 


TXT SET PEN 

IN : A: Färbstift-Nummer 
Adresse f. akt. Pen-Wert 
Wert setzen 

TXT SET PAPER 

IN : A: Farbstift-Nummer 

Adresse f. akt. Paper-Wert 
neuen Wert retten 
TXT UNDRAW CURSOR 
neuer Wert 

zugeh. Farbmaske berechnen 
und Wert setzen 
TXT DRAW CURSOR 

TXT GET PEN 

OUT: A: Farbstift-Nunmer 
Pen-Farbmaske 

zugeh. Farbstift-Nr. berechnen 

TXT GET PAPER 
OUT: A: Farbstift-Nummer 
Paper-Farbmaske 

zugeh. Farbstift-Nr. berechnen 

TXT INVERSE 

Paper- und Pen-Byte 

vertauschen 

und wieder setzen 
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******☆☆************£*****☆☆***•&#* 


12D3 

D5 



PUSH 

DE 

12D4 

5F 



LD 

E/A 

12D5 

CD 

2A 

13 

CALL 

132A 

12D8 

30 

09 


JR 

NC,12E3 

12DA 

57 



LD 

D,A 

12DB 

7B 



LD 

A,E 

12DC 

92 



SUB 

D 

12DD 

3F 



CCF 


12DE 

30 

03 


JR 

NC,12E3 

12E0 

5F 



LD 

E,A 

12E1 

18 

03 


JR 

12E6 

12E3 

21 

00 

38 

LD 

HL,3800 

12E6 

F5 



PUSH 

AF 

12E7 

16 

00 


LD 

D,00 

12E9 

EB 



EX 

DE,HL 

12EA 

29 



ADD 

HL,HL 

12EB 

29 



ADD 

HL,HL 

12EC 

29 



ADD 

HL,HL 

12ED 

19 



ADD 

HL,DE 

12EE 

Fl 



POP 

AF 

12EF 

Dl 



POP 

DE 

12F0 

C9 



RET 



********************************** 


12F1 

EB 



EX 

DE,HL 

12F2 

CD 

D3 

12 

CALL 

12D3 

12F5 

DO 



RET 

NC 

12F6 

EB 



EX 

DE,HL 

12F7 

01 

08 

00 

LD 

BC,0008 

12FA 

ED 

B0 


LDIR 


12FC 

C9 



RET 



TXT GET MATRIX 
IN : A: Nr. des Zeichens 
OUT: HL: Adresse der Matrix 
CY=1, wenn User-Matrix 

Nr. des Zeichens 

Parameter d. User-Matrix holen 

keine User-Matrix ? 

Nr. d. 1. User-Matrix-Zeichens 
akt. Zeichen 
minus 1. Zeichen 

Zeichen nicht in User-Matrix ? 
Nr. innerhalb User-Matrix 
Adresse berechnen 
Basisadresse der ROM-Matrizen 
Flag f. User-Matrix retten 
Nr. des Zeichens hi =0 

Numner mal 8 


plus Basisadresse 
Flag f. User-Matrix 


TXT SET MATRIX 
IN : A: Zeichen 

HL: Adresse der Matrix 
Adresse d. neuen Matrix n. DE 
Zieladresse f. Matrix holen 
keine User-Matrix ? 
Zieladresse nach DE 
Länge der Matrix 
Matrix kopieren 


* * * *********** * * ******* * ******** * * 


TXT SET M TABLE 

IN : D=0, wenn User-Matrix 

E: 1. Zeichen in User-Matrix 


12FD 

E5 


PUSH 

HL 

12FE 

7A 


LD 

A,D 

12FF 

B7 


OR 

A 

1300 

16 

00 

LD 

D,00 

1302 

20 

19 

JR 

NZ.131D 

1304 

15 


DEC 

D 

1305 

D5 


PUSH 

DE 

1306 

4B 


LD 

C, E 

1307 

EB 


EX 

DE,HL 

1308 

79 


LD 

A,C 

1309 

CD 

D3 12 

CALL 

12D3 

130C 

7C 


LD 

A,H 

130D 

AA 


XOR 

D 


HL: Zeiger auf User-Matrix 
OUT: CY=1, wenn alte User-Matrix 
HL: Adr. d. alten User-Matr. 
A: 1. Zeichen in alter Matr. 
Zeiger auf User-Matrix retten 
Flag für User-Matrix 

Kennz. für keine User-Matrix 
keine User-Matrix ? 
sonst SFF für User-Matrix 
Flag/1.Zeichen retten 
1. Zeichen 

Zeiger für Matrix nach DE 
akt. Zeichen 

Adr. (aus alter Matrix) n. HL 
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130E 

20 

04 



JR 

NZ,1314 

1310 

TD 




LD 

A, L 

1311 

AB 




XOR 

E 

1312 

28 

08 



JR 

Z,131C 

1314 

C5 




PUSH 

BC 

1315 

CD 

F7 

12 


CALL 

12F7 

1318 

CI 




POP 

BC 

1319 

OC 




INC 

C 

131A 

20 

EC 



JR 

NZ,1308 

131C 

Dl 




POP 

DE 

131D 

CD 

2A 

13 


CALL 

132A 

1320 

ED 

53 

94 

B2 

LD 

(B294),DE 

1324 

Dl 




POP 

DE 

1325 

ED 

53 

96 

B2 

LD 

(B296),DE 

1329 

C9 




RET 



********************************** 


132A 

2A 

94 

B2 

LD 

HL,(B294) 

132D 

7C 



LD 

A, H 

132E 

0F 



RRCA 


132F 

TD 



LD 

A, L 

1330 

2A 

96 

B2 

LD 

HL,(B296) 

1333 

C9 



RET 



********************************** 


1334 

47 



LD 

B,A 

1335 

3A 

8E 

B2 

LD 

A, (B28E) 

1338 

B7 



OR 

A 

1339 

C8 



RET 

Z 

133A 

C5 



PUSH 

BC 

133B 

CD 

A8 

11 

CALL 

11A8 

133E 

24 



INC 

H 

133F 

22 

85 

B2 

LD 

<B285),HL 

1342 

25 



DEC 

H 

1343 

Fl 



POP 

AF 

1344 

CD 

D3 

BD 

CALL 

BDD3 

1347 

C3 

CD 

BD 

JP 

BDCD 


********************************** 


134A 

E5 



PUSH 

HL 

134B 

CD 

D3 

12 

CALL 

12D3 

134E 

11 

98 

B2 

LD 

DE.B298 

1351 

D5 



PUSH 

DE 

1352 

CD 

F3 

0E 

CALL 

0EF3 

1355 

Dl 



POP 

DE 

1356 

El 



POP 

HL 

1357 

CD 

64 

OB 

CALL 

0B64 

135A 

0E 

08 


LD 

C,08 

135C 

C5 



PUSH 

BC 

135D 

E5 



PUSH 

HL 

135E 

C5 



PUSH 

BC 


Quell- und Zieladresse für 
Zeichenmatrix gleich ? 

dann nicht weiter kopieren 
Nr. des akt. Zeichens 
Matrix in neue Matrix kopieren 
Nr. des akt. Zeichens 
nächstes Zeichen 
weitere Zeichen ? 

Flag/Nr. des 1. Zeichens 
Params der alten Matrix holen 
Flag/1. Zeichen setzen 
Adresse der User-Matrix 
setzen 


TXT GET M TABLE 

OUT: CY=1, wenn User-Matrix 

HL: Adresse d. User-Matrix 
A: Nr. des 1. Zeichens 
Flag/Nr. des 1. Zeichens 

Flag ins Carry 

Nr. des 1. Zeichens 

Adresse der User-Matrix 


TXT WR CHAR 
IN : A: Zeichen 
Zeichen retten 
VDU-Flag 

disabled ? dann zurück 
Zeichen retten 

Cursor invert., Position prf. 
Cursorspalte erhöhen 
Cursorpos. neu setzen 
alte Cursorspalte 
auszugebendes Zeichen 
TXT URITE CHAR, Zeichen ausg. 
Cursor wieder an, Pos. prüfen 

TXT WRITE CHAR 
IN : A: Zeichen 
H: Spalte 
L: Zeile 

Spalte/Zeile retten 

Adr. der Zeichenmatrix n. HL 

Adr. f. ungepackte Matrix 

Matrix auf BiIdschirmformat 
Adresse der ungepackten Matrix 
Text - Spalte/Zeile 
BiIdschirmadr./Bytezahl holen 
Zahl der Rasterzeilen 
Zeilenzähler/Bytezahl retten 
BiIdschirmadr. der 1. Spalte 
Zeilen- und Bytezähler retten 
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135F 

D5 



PUSH 

DE 

1360 

EB 



EX 

DE,HL 

1361 

4E 



LD 

C,(HL) 

1362 

CD 

76 

13 

CALL 

1376 

1365 

CD 

F9 

OB 

CALL 

0BF9 

1368 

Dl 



POP 

DE 

1369 

13 



INC 

DE 

136A 

CI 



POP 

BC 

136B 

10 

Fl 


DJNZ 

135E 

136D 

El 



POP 

HL 

136E 

CD 

13 

OC 

CALL 

0C13 

1371 

CI 



POP 

BC 

1372 

0D 



DEC 

C 

1373 

20 

E7 


JR 

NZ,135C 

1375 

C9 



RET 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


1376 2A 91 B2 LD HL f <B291) 

1379 E9 JP (HL) 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


137A 

21 

91 

13 

LD 

HL,1391 

137D 

B7 



OR 

A 

137E 

28 

03 


JR 

Z,1383 

1380 

21 

9F 

13 

LD 

HL,139F 

1383 

22 

91 

B2 

LD 

(B291),HL 

1386 

C9 



RET 



kkkkkkkkkkkk kk'kk'k kkkkkkkkkkkkkkk kk 


1387 

2A 

91 

B2 

LD 

HL,(B291) 

138A 

11 

6F 

EC 

LD 

DE,EC6F 

138D 

19 



ADD 

HL,DE 

138E 

7C 



LD 

A, H 

138F 

B5 



OR 

L 

1390 

C9 



RET 



kkkk kkkkkkkkkkkkk kkkkkkkkkkkkkkkkk 


1391 

2A 8F B2 

LD 

HL,(B28F) 

1394 

79 

LD 

A, C 

1395 

2F 

CPL 


1396 

A4 

AND 

H 

1397 

47 

LD 

B,A 

1398 

79 

LD 

A, C 

1399 

A5 

AND 

L 

139A 

B0 

OR 

B 

139B 

0E FF 

LD 

C, FF 

139D 

18 03 

JR 

13A2 


Zeiger in ungepackte Matrix 
nach HL 

Byte aus ungepackter Matrix 
in Bildschirm setzen 
Adresse des nächsten Bytes 

nächstes Matrix-Byte 
Bytezähler 

weitere Bytes in dies. Zeile ? 
Adr. der 1. Rasterspalte d. Z. 
Adr. d. nächsten Rasterzeile 
Zeilenzähler/Bytezahl 

weitere Rasterzeilen ? 


Textzeichen-Byte auf Bildschirm 
IN : DE: Bildschirmadresse 

C: Textzeichen-Matrix-Byte 
Adr. entspr. Hintergrund-Modus 
entsprechende Routine ausführ. 

TXT SET BACK 

IN : A=0 für Pixel-Kopie 
entsprechend Matrix 
A=1 für 0R-Verknüpfung 
Adresse für Kopie-Modus 

Modus ausgewählt ? 

sonst Adresse für OR-Modus 

setzen 


TXT GET BACK 

OUT: Z=1 für Pixel-Kopie 
entsprechend Matrix 
Z=0 für OR-Verknüpfung 
Adresse entsprechend Modus 

Kopie-Modus (Adresse $1391)? 
dann Z=1 


Byte setzen, Kopie der Matrix 
IN : DE: Bildschirmadresse 

C: Textzeichen-Matrix-Byte 
Paper- und Pen-Maske 
Matrix-Byte 

O-Bits aus Matrix 
entsprechend Paper-Maske 
Paper-Pixels retten 
Matrix-Byte 

1-Bits entspr. Pen-Maske 
Paper-Bits dazu 
alle Bits verändern 
Byte setzen 
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★★★★■fr***************************** 


139F 

3A 

8F 

B2 

LD 

A,(B28F) 

13A2 

47 



LD 

B,A 

13A3 

EB 



EX 

DE,HL 

13A4 

C3 

6B 

OC 

JP 

0C6B 


★ ★★★★★★★★★★Vf********************** 


13A7 32 93 B2 LD (B293),A 

13AA C9 RET 


13AB 

E5 



PUSH 

HL 

13AC 

D5 



PUSH 

DE 

13AD 

C5 



PUSH 

BC 

13AE 

CD 

DO 

BD 

CALL 

BDDO 

13B1 

2A 

85 

B2 

LD 

HL,(B285) 

13B4 

CD 

D6 

BD 

CALL 

BDD6 

13B7 

F5 



PUSH 

AF 

13ß8 

CD 

CD 

BD 

CALL 

BDCD 

13BB 

Fl 



POP 

AF 

13BC 

CI 



POP 

BC 

13BD 

Dl 



POP 

DE 

13BE 

El 



POP 

HL 

13BF 

C9 



RET 



**£★*★★★★*★★*★*★★★*★★★**★★****★**★ 


13C0 

3A 

8F 

B2 

LD 

A,(B28F) 

13C3 

11 

98 

B2 

LD 

DE,B298 

13C6 

E5 



PUSH 

HL 

13C7 

D5 



PUSH 

DE 

13C8 

CD 

49 

0F 

CALL 

0F49 

13CB 

CD 

E3 

13 

CALL 

13E3 

13CE 

Dl 



POP 

DE 

13CF 

El 



POP 

HL 

13D0 

30 

01 


JR 

NC,13D3 

13D2 

CO 



RET 

NZ 

13D3 

3A 

90 

B2 

LD 

A,(B290) 

13D6 

D5 



PUSH 

DE 

13D7 

CD 

49 

0F 

CALL 

0F49 

13DA 

Dl 



POP 

DE 

13DB 

06 

08 


LD 

B,08 

13DD 

1A 



LD 

A, (DE) 

13DE 

2F 



CPL 


13DF 

12 



LD 

(DE),A 

13E0 

13 



INC 

DE 

13E1 

10 

FA 


DJNZ 

13DD 


Byte setzen, OR-Verknüpfung 
IN : DE: BiLdschirmadresse 

C: Textzeichen-Matrix-Byte 
Pen-Byte 
nach B 

BiLdschirmadresse nach HL 
Pixel(s) zusätzlich setzen 

TXT SET GRAPHIC 

IN : A=0 für Zeichen an Textpos. 
A<>0 f. Graphik-Positionen 


TXT RD CHAR 

OUT: CY=1 f. Zeich. identifiziert 
Z=1 für Space 
A: Zeichen 


TXT UNDRAW CURSOR 
Cursorposition 
TXT UNWRITE, Zeichen lesen 
Zeichen und Flags retten 
TXT UNDRAW CURSOR 


TXT UNWRITE 
IN : H: Spalte 
L: Zeile 

OUT: CY=1 f. Zeich. identifiziert 
Z=1 für Space 
A: Zeichen 
Pen-Byte 

Adr. f. gepackte Matrix 
Spalte/Zeile 
Adresse f. Matrix 
Matrix aus Bildsch. packen 
gepackte Matrix suchen 
Adresse der Matrix 
Spalte/Zeile 
Matrix nicht gefunden ? 
kein Space ? dann zurück 
Paper-Byte 

Matrix aus Bildschirm packen 

8 Rasterzeilen 
Byte aus Matrix 
invertieren 
und wieder speichern 

weitere Rasterzeilen ? 
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********************************** 


13E3 

0E 

00 


LD 

C,00 

13E5 

79 



LD 

A,C 

13E6 

CD 

D3 

12 

CALL 

12D3 

13E9 

11 

98 

B2 

LD 

DE,B298 

13EC 

06 

08 


LD 

B, 08 

13EE 

1A 



LD 

A, (DE) 

13EF 

BE 



CP 

(HL) 

13F0 

20 

09 


JR 

NZ,13FB 

13F2 

23 



INC 

HL 

13F3 

13 



INC 

DE 

13F4 

10 

F8 


DJNZ 

13EE 

13F6 

79 



LD 

A, C 

13F7 

FE 

20 


CP 

20 

13F9 

37 



SCF 


13FA 

C9 



RET 


13FB 

OC 



INC 

C 

13 FC 

20 

E7 


JR 

NZ,13E5 

13FE 

AF 



XOR 

A 

13 F F 

C9 



RET 


********************************** 

1400 

F5 



PUSH 

AF 

1401 

C5 



PUSH 

BC 

1402 

D5 



PUSH 

DE 

1403 

E5 



PUSH 

HL 

1404 

CD 

D9 

BD 

CALL 

BDD9 

1407 

El 



POP 

HL 

1408 

Dl 



POP 

DE 

1409 

CI 



POP 

BC 

140A 

Fl 



POP 

AF 

140B 

C9 



RET 



********************************** 


140C 

4F 



LD 

Cf A 

140D 

3A 

93 

B2 

LD 

A,(B293) 

1410 

B7 



OR 

A 

1411 

79 



LD 

A,C 

1412 

C2 

45 

19 

JP 

NZ,1945 

1415 

21 

B8 

B2 

LD 

HL,B2B8 

1418 

46 



LD 

B,(HL) 

1419 

78 



LD 

A,B 

141A 

FE 

0A 


CP 

0A 

141C 

30 

28 


JR 

NC,1446 

141E 

B7 



OR 

A 

141 F 

20 

06 


JR 

NZ,1427 

1421 

79 



LD 

A,C 

1422 

FE 

20 


CP 

20 

1424 

D2 

34 

13 

JP 

NC,1334 

1427 

04 



INC 

B 

1428 

70 



LD 

(HL) ,B 

1429 

58 



LD 

E,B 


gepackte Matrix suchen 
IN : gep. Matrix ab $B298 
OUT: CY=1, wenn gefunden 
Z=1, wenn Space 
Z: Zeichen 
Zeichenzähler 
akt. Zeichen 

Adresse der Matrix holen 
Zeiger auf gesuchte Matrix 
8 Rasterzeilen 
Byte aus gesuchter Matrix 
mit gegebener Matrix vergl. 
ungleich ? dann näch. Zeichen 


weitere Rasterzeilen/Bytes ? 
gefundenes Zeichen 
Z=1, wenn Space 
CY=1 für gefunden 

Nr. des Zeichens erhöhen 

weitere Zeichen ? 

sonst CY=0 für nicht gefunden 


TXT OUTPUT 
IN : A: Zeichen 


TXT OUT ACTION 


TXT OUT ACTION 
IN : A: Zeichen 
Zeichen 

Graphik-(TAG-)Flag 
Zeichen 

gesetzt ? dann an Graphikpos. 
Adr. d. Control-Buffer-Zäh ler 
Zahl der Zeichen im Buffer 

schon maximale Länge ? 
dann Buffer löschen 

schon Zeichen im Buffer ? 
Zeichen 

kein Steuerzeichen ? 

dann direkt ausgeben 

Zahl d. Zeichen im Buffer erh. 

Zeichenzahl neu setzen 

Länge des Buffers 
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142A 

16 

00 


LD 

D, 00 

142C 

19 



ADD 

HL,DE 

142D 

71 



LD 

(HL),C 

142E 

3A 

B9 

B2 

LD 

A,(B2B9) 

1431 

5F 



LD 

E,A 

1432 

21 

C3 

B2 

LD 

HL,B2C3 

1435 

19 



ADD 

HL,DE 

1436 

19 



ADD 

HL,DE 

1437 

19 



ADD 

HL,DE 

1438 

7E 



LD 

A, (HL) 

1439 

B8 



CP 

B 

143A 

DO 



RET 

NC 

143B 

23 



INC 

HL 

143C 

5E 



LD 

E,(HL) 

143D 

23 



INC 

HL 

143E 

56 



LD 

D, (HL) 

143F 

21 

B9 

B2 

LD 

HL,B2B9 

1442 

79 



LD 

A,C 

1443 

CD 

16 

00 

CALL 

0016 

1446 

AF 



XOR 

A 

1447 

32 

B8 

B2 

LD 

(B2B8),A 

144A 

C9 



RET 


***** •Ar ** * * * * * * *** ***** * * * *** * **** * 

144B 

CD 

9A 

12 

CALL 

129A 

144E 

AF 



XOR 

A 

144F 

18 

05 


JR 

1456 


* * * * * * it ** * * * * *********** * ***** *** * 


1451 

CD 

89 

12 

CALL 

1289 

1454 

3E 

FF 


LD 

A, FF 

1456 

32 

8E 

B2 

LD 

(B28E),A 

1459 

18 

EB 


JR 

1446 


********************************** 


145B 

AF 



XOR 

A 

145C 

32 

B8 

B2 

LD 

(B2B8),A 

145F 

21 

6B 

14 

LD 

HLJ46B 

1462 

11 

C3 

B2 

LD 

DE,B2C3 

1465 

01 

60 

00 

LD 

BC,0060 

1468 

ED 

B0 


LDIR 


146A 

C9 



RET 



********************************** 


146B 

00 

E2 

14 

14E2, 

CHR$(0) 

146E 

01 

34 

13 

1334, 

CHR$(1) 

1471 

00 

9A 

12 

129A, 

CHR$(2) 

1474 

00 

89 

12 

1289, 

CHR$(3) 

1477 

01 

CA 

0A 

0ACA, 

CHR$(4) 

147A 

01 

45 

19 

1945, 

CHR$(5) 

147D 

00 

51 

14 

1451, 

CHR$(6) 

1480 

00 

D8 

14 

14D8, 

CHR$(7) 

1483 

00 

0A 

15 

150A, 

CHR$(8) 

1486 

00 

0F 

15 

150F, 

CHR$(9) 


Länge hi=0 

zu Basisadresse addieren 
Zeichen speichern 
zugeh. Steuerzeichen 
nach E 

Adr. d. Steuerzeichentabelle 
Nr. des Steuerzeichens 
3 mal addieren, da 3 Bytes 
pro Eintrag 

Zahl der benötigten Zeichen 
noch nicht genug Zeichen ? 
dann zurück 

Zeiger auf Ausführadresse 
Adresse 
nach DE 

Zeiger auf Control Buffer 
zuletzt übergebenes Zeichen 
Steuerzeichen-Routine ausführ. 
Zahl der Zeichen im Control- 
Buffer=0 


TXT VDU DISABLE 
TXT CUR DISABLE 
Null für disabled 


TXT VDU ENABLE 
TXT CUR ENABLE 
$FF für enabled 
VDU-Flag setzen 
Control-Buffer-Zähler lösch. 

Steuerzeichentabelle init. 

Control-Buffer-Zähler 
löschen 

Zeiger a. Default-Werte im ROM 
Zeiger auf RAM-Bereich 
$20 Steuerzeichen, 3 Bytes/Z. 
Steuerzeichentabelle kopieren 


Steuerzeichentabelle (Default) 

( Zahl der auf das Steuerzeichen 
folgenden Bytes sowie 
Ausführadresse ) 

Zeiger auf RET 

TXT WR CHAR (direkte Ausgabe) 

TXT CUR DISABLE 

TXT CUR ENABLE 

SCR SET MODE 

GRA WR CHAR 

TXT VDU ENABLE 

Ton ausgeben 

Cursor Left 

Cursor right 
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1489 

00 

14 

15 

1514, CHRS(10) 

148C 

00 

19 

15 

1519, CHR$(11) 

148F 

00 

40 

15 

1540, CHR$(12) 

1492 

00 

30 

15 

1530, CHR$(13) 

1495 

01 

AE 

12 

12AE, CHR$(14) 

1498 

01 

A9 

12 

12A9, CHR$(15) 

149B 

00 

4F 

15 

154F, CHR$(16) 

149E 

00 

8E 

15 

158E, CHR$(17) 

14A1 

00 

84 

15 

1584, CHR$(18) 

14A4 

00 

6D 

15 

156D, CHR$(19) 

14A7 

00 

56 

15 

1556, CHR$(20) 

14AA 

00 

4B 

14 

144B, CHR$(21) 

14 AD 

01 

E3 

14 

14E3, CHR$(22) 

14B0 

01 

49 

OC 

0C49, CHR$(23) 

14B3 

00 

C9 

12 

12C9, CHR$(24) 

14B6 

09 

04 

15 

1504, CHR$(25) 

14B9 

04 

F8 

14 

14F8, CHR$(26) 

14BC 

00 

E2 

14 

14E2, CHR$(27) 

HBF 

03 

E8 

14 

14E8, CHR$(28) 

14C2 

02 

Fl 

14 

14F1, CHR$(29) 

14C5 

00 

2A 

15 

152A, CHR$(30) 

14C8 

02 

38 

15 

1538, CHR$(31) 


********************************** 

14CB 21 C3 B2 LD HL,B2C3 

14CE C9 RET 

********************************** 
14CF 87 00 00 5A 00 00 OB 14 
14D7 00 


********************************** 


14D8 

DD 

LH 

LU 


PUSH 

IX 

14DA 

21 

CF 

14 

LD 

HL,14CF 

HDD 

CD 

9F 

1 F 

CALL 

1 F9F 

14E0 

DD 

El 


POP 

IX 

14E2 

C9 



RET 


********************************** 

14E3 

0F 



RRCA 


14E4 

9F 



SBC 

A 

14E5 

C3 

7A 

13 

JP 

137A 


********************************** 


14E8 

23 

INC 

HL 

14E9 

7E 

LD 

A, (HL) 

14EA 

23 

INC 

HL 

HEB 

46 

LD 

B,(HL) 

14EC 

23 

INC 

HL 

14ED 

4E 

LD 

C,(HL) 

14EE 

C3 EC 0C 

JP 

0CEC 

********************************** 

14 F1 

23 

INC 

HL 

14F2 

46 

LD 

B,(HL) 

14F3 

23 

INC 

HL 


Cursor down/Linefeed 
Cursor up 
TXT CLEAR WINDOW 
Carriage return 
TXT SET PAPER 
TXT SET PEN 

Zeichen unter Cursor löschen 
Zeile bis Cursor löschen 
Zeile ab Cursor löschen 
Bildschirm bis Cursor löschen 
Bildschirm ab Cursor löschen 
TXT VDU DISABLE 
Hintergrundmodus auswählen 
SCR ACCESS 
TXT INVERSE 
Zeichenmatrix setzen 
Window definieren 
Zeiger auf RET 
Farbstift definieren (INK) 

Rand setzen (BORDER) 

Cursor home (links oben) 
Cursorposition setzen (LOCATE) 


TXT GET CONTROLS 

OUT: HL: Adr. Steuerzeichentab. 


SOUND QUEUE-Parameter für CHR$(7) 


CHR$(7), Ton erzeugen 

Zeiger auf Parameter 
SOUND QUEUE, Ton erzeugen 


CHRS(22), Hintergrundmodus setzen 
Flag ins Carry 
Flag nach 00/$FF 
TXT SET BACK, Modus setzen 

CHR$(28), Farbstift setzen 

Farbstiftnr. 

1. Farbnr. 

2. Farbnr. 

SCR SET INK, Farbstift setzen 
CHR$(29), Rand setzen 
1. Farbnr. 
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14F4 

4E 


LD 

C,(HL) 

14F5 

C3 Fl 

OC 

JP 

0CF1 

********************************** 

14F8 

23 


INC 

HL 

14F9 

56 


LD 

D,(HL> 

14FA 

23 


INC 

HL 

14 FB 

7E 


LD 

A,(HL) 

14FC 

23 


INC 

HL 

KFD 

5E 


LD 

E, (HL) 

14FE 

23 


INC 

HL 

14FF 

6E 


LD 

L,(HL) 

1500 

67 


LD 

H,A 

1501 

C3 0C 

12 

JP 

120C 

********************************** 

1504 

23 


INC 

HL 

1505 

7E 


LD 

A,(HL) 

1506 

23 


INC 

HL 

1507 

C3 Fl 

12 

JP 

12F1 


********************************** 


150A 

11 

00 

FF 

LD 

DE,FFOO 

150D 

18 

0D 


JR 

151C 

********************************** 

150F 

11 

00 

01 

LD 

DE,0100 

1512 

18 

08 


JR 

151C 

********************************** 

1514 

11 

01 

00 

LD 

DE,0001 

1517 

18 

03 


JR 

151C 

********************************** 

1519 

11 

FF 

00 

LD 

DE,00FF 

151C 

D5 



PUSH 

DE 

151D 

CD 

A8 

11 

CALL 

11A8 

1520 

Dl 



POP 

DE 

1521 

TD 



LD 

A, L 

1522 

83 



ADD 

E 

1523 

6F 



LD 

L,A 

1524 

7C 



LD 

A,H 

1525 

82 



ADD 

D 

1526 

67 



LD 

H,A 

1527 

C3 

7A 

11 

JP 

117A 

********************************** 

152A 

2A 

88 

B2 

LD 

HL,(B288) 

152D 

C3 

77 

11 

JP 

1177 


********************************** 
1530 CD A8 11 CALL 11AS 

1533 3A 89 B2 LD A,(B289) 

1536 18 EE JR 1526 


2. Farbnr. 

SCR SET BORDER, Rand setzen 
CHR$(26), Window definieren 
Spalten¬ 
grenzen 
und Zeilen* 
grenzen laden 

TXT WIN ENABLE, Grenzen setzen 

CHR$(25), Zeichenmatrix def. 

Nr. des Zeichens 

Adresse der Matrix 

TXT SET MATRIX, Matrix zuordn. 

CHR$(8), Cursor left 

Offset f. Spalte erniedrigen 


CHR$(9), Cursor right 

Offset f. Spalte erhöhen 


CHR$(10), Cursor down/Linefeed 
Offset f. Zeile erhöhen 


CKR$(11), Cursor up 

Offset f. Zeile erniedrigen 

Cursor invert., Position prf. 


Offset zu Zeile, 


2. Offset zu Spalte addieren 

Pos. setzen, Cursor wieder an 

CHR$(30), Cursor home 

Windowgrenzen links/oben 
absolute Cursorposition setzen 


CHR$(13), Carriage return 

Cursor invert., Pos. nach HL 
linke Window-Grenze 
als Spalte setzen 
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********************************** 


1538 

23 




INC 

HL 

1539 

56 




LD 

D,<HL) 

153A 

23 




INC 

HL 

153B 

5E 




LD 

E, (HL) 

153C 

EB 




EX 

DE,HL 

153D 

C3 

74 

11 


JP 

1174 

********************************** 

1540 

CD 

DO 

BD 


CALL 

BDD0 

1543 

2A 

88 

B2 


LD 

HL, (B288) 

1546 

22 

85 

B2 


LD 

(B285),HL 

1549 

ED 

5B 

8A 

B2 

LD 

DE,(B28A) 

154D 

18 

48 



JR 

1597 

********************************** 

154 F 

CD 

A8 

11 


CALL 

11A8 

1552 

54 




LD 

D, H 

1553 

5D 




LD 

E,L 

1554 

18 

41 



JR 

1597 

********************************** 

1556 

CD 

84 

15 


CALL 

1584 

1559 

2A 

88 

B2 


LD 

HL,(B288) 

155C 

ED 

5B 

8A 

B2 

LD 

DE, (B28A) 

1560 

3A 

85 

B2 


LD 

A, (B285) 

1563 

6F 




LD 

L,A 

1564 

2C 




INC 

L 

1565 

BB 




CP 

E 

1566 

3A 

90 

B2 


LD 

A, (B290) 

1569 

DC 

B3 

0D 


CALL 

C,0DB3 

156C 

C9 




RET 


********************************** 

156D 

CD 

8E 

15 


CALL 

158E 

1570 

2A 

88 

B2 


LD 

HL,(B288) 

1573 

3A 

8B 

B2 


LD 

A, (B28B) 

1576 

57 




LD 

D,A 

1577 

3A 

85 

B2 


LD 

A,(B285) 

157A 

3D 




DEC 

A 

157B 

5F 




LD 

E,A 

157C 

BD 




CP 

L 

157D 

3A 

90 

B2 


LD 

A, (B290) 

1580 

D4 

B3 

0D 


CALL 

NC,0DB3 

1583 

C9 




RET 


********************************** 

1584 

CD 

A8 

11 


CALL 

11A8 

1587 

5D 




LD 

E,L 

1588 

3A 

8B 

B2 


LD 

A,(B28B) 

158B 

57 




LD 

D,A 

158C 

18 

09 



JR 

1597 

********************************** 

158E 

CD 

A8 

11 


CALL 

11A8 

1591 

EB 




EX 

DE,HL 

1592 

6B 




LD 

L,E 

1593 

3A 

89 

B2 


LD 

A, (B289) 


CHR$(31), Cursorposition setzen 

neue Cursorspalte 

und -zeile laden 
neue Position nach HL 
Cursorposition neu setzen 

TXT CLEAR WINDOW, CHR$(12) 

TXT UNDRAW CURSOR 
Window-Grenzen links/oben 
als Cursorposition 
Window-Grenzen rechts/unten 
links/oben-rechts/unten lösch. 

CHR$(16), Cursor-Zeichen löschen 
Cursor invert-, Position n. HL 
als Endposition 
nach DE 

Zeichen löschen 

CHR$(20), Bildsch. ab Cursor lö. 
Zeile ab Cursor löschen 
Window-Grenzen links/oben 
Window-Grenzen rechts/unten 
Cursorzeile 
+1 als 
Startzeile 

Startzeile < Endzeile ? 

Paper-Byte 

dann Bereich füllen 


CHR$(19), Bildsch. bis Cursor lö. 
Zeile bis Cursor löschen 
Window-Grenzen links/oben 
rechte Grenze 
als Ertd-Spalte 
Cursorzeile 
-1 

als End-Zeile 

Endzeile >= Startzeile ? 

Paper-Byte 

dann Bereich füllen 


CHR$(18), Zeile ab Cursor löschen 
Cursor invert., Position n. HL 
Cursorzeile als Start- & Endz. 
rechte Windowgrenze 
als End-Spalte 
Bereich löschen 

CHR$(17), Zeile bis Cursor lösch. 
Cursor invert., Position n. HL 
nach DE als Endposition 
Cursorzeile als Startzeile 
linke Window-Grenze 
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1596 

67 



LD 

H,A 

als Start-Spalte 

1597 

3A 

90 

B2 

LD 

A,(B290) 

Paper-Byte 

159A 

CD 

B3 

0D 

CALL 

0DB3 

SCR FILL BOX, Bereich füllen 

1590 

CD 

CD 

BD 

CALL 

BDCD 

TXT DRAU CURSOR 

15A0 

C9 



RET 



15 Al 

C7 



RST 

00 


15A2 

C 7 



RST 

00 


15A3 

C7 



RST 

00 


15A4 

C7 



RST 

00 


15A5 

C7 



RST 

00 


15A6 

C7 



RST 

00 


15A7 

C7 



RST 

00 


15A8 

C7 



RST 

00 


15A9 

C7 



RST 

00 


15AA 

C7 



RST 

00 


15AB 

C7 



RST 

00 


15AC 

C7 



RST 

00 


15AD 

C7 



RST 

00 


15AE 

C7 



RST 

00 


15AF 

C7 



RST 

00 
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GRAPHICS SCREEN (GRA) 


********************************** 


15B0 

CD 

DF 

15 

CALL 

15DF 

15B3 

21 

01 

00 

LD 

HL,0001 

15B6 

7C 



LD 

A,H 

15B7 

CD 

FD 

17 

CALL 

17FD 

15BA 

7D 



LD 

A,L 

15BB 

CD 

F6 

17 

CALL 

17F6 

15BE 

21 

00 

00 

LD 

HL,0000 

15C1 

54 



LD 

D,H 

15C2 

5D 



LD 

E,L 

15C3 

CD 

04 

16 

CALL 

1604 

15C6 

11 

00 

80 

LD 

DE,8000 

15C9 

21 

FF 

7F 

LD 

HL,7FFF 

15CC 

E5 



PUSH 

HL 

15CD 

D5 



PUSH 

DE 

15CE 

CD 

34 

17 

CALL 

1734 

15D1 

El 



POP 

HL 

15D2 

Dl 



POP 

DE 

15D3 

C3 

79 

17 

JP 

1779 


********************************** 


15D6 

CD 

0A 

18 

CALL 

180A 

15D9 

67 



LD 

H,A 

15DA 

CD 

04 

18 

CALL 

1804 

15DD 

6F 



LD 

L,A 

15DE 

C9 



RET 


********************************** 

15DF 

21 

E5 

15 

LD 

HL,15E5 

15E2 

C3 

8A 

0A 

JP 

0A8A 

15E5 

09 





15E6 

DC 

BD 




15E8 

C3 

16 

18 

JP 

1816 

15EB 

C3 

2A 

18 

JP 

182A 

15EE 

C3 

3C 

18 

JP 

183C 


********************************** 


15F1 CD 57 16 CALL 1657 


GRA INITIALIZE 
GRA RESET 
PAPER 0, PEN 1 
0 

als Paper-Farbstift 
1 

als Pen-Farbstift setzen 

Origin = 0/0 

Origin setzen 
min. Wert 
max. Wert 
Werte 
retten 

Windowgrenzen links/rechts 


und oben/unten setzen 

Graphik-Pen und Paper decodieren 
OUT: H: Paper 
L: Pen 

GRA GET PAPER 
Paper-Farbstift 
GRA GET PEN 
Pen-Farbstift 


GRA RESET 

Adresse der Rom-Tabelle 

Indirections kopieren 

Zahl der zu kopierenden Bytes 

Zieladresse in Ram 

GRA PLOT 

GRA TEST 

GRA LINE 

GRA MOVE RELATIVE 
IN : DE: relative X-Koordinate 
HL: relative Y-Koordinate 
relative in absolute Koord. 


********************************** GRA MOVE ABSOLUTE 

IN : DE: X-Koordinate 
HL: Y-Koordinate 

15F4 ED 53 2C B3 LD (B32C),DE als Graphikcursorposition 

15F8 22 2E B3 LD (B32E),HL setzen 

15FB C9 RET 

********************************** GRA ASK CURSOR 

OUT: DE: X-Koordinate 
HL: Y-Koordinate 

15FC ED 5B 2C B3 LD DE,(B32C) X- 

1600 2A 2E B3 LD HL,(B32E) und Y-Koordiante laden 

1603 C9 RET 
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********************************** 


1604 

ED 

53 

28 B3 

LD 

(B328),DE 

1608 

22 

2A 

B3 

LD 

(B32A),HL 

160B 

11 

00 

00 

LD 

DE,0000 

160E 

62 



LD 

H,D 

160 F 

6B 



LD 

L,E 

1610 

18 

E2 


JR 

15 F4 


********************************** 


1612 

ED 

5B 

28 B3 

LD 

DE,(B328) 

1616 

2A 

2A 

B3 

LD 

HL,(B32A) 

1619 

C9 



RET 


********************************** 

161A 

CD 

FC 

15 

CALL 

15FC 

********************************** 


161D 

CD 

F4 

15 

CALL 

15F4 

1620 

E5 



PUSH 

HL 

1621 

CD 

EC 

0A 

CALL 

0AEC 

1624 

2F 



CPL 


1625 

C6 

01 


ADD 

01 

1627 

CE 

02 


ADC 

02 

1629 

26 

00 


LD 

H,00 

162B 

6F 



LD 

L,A 

162C 

CB 

7A 


BIT 

7,D 

162E 

28 

03 


JR 

Z,1633 

1630 

EB 



EX 

DE,HL 

1631 

19 



ADD 

HL,DE 

1632 

EB 



EX 

DE,HL 

1633 

2F 



CPL 


1634 

A3 



AND 

E 

1635 

5F 



LD 

E,A 

1636 

7D 



LD 

A, L 

1637 

2A 

28 

B3 

LD 

HL,(B328) 

163A 

19 



ADD 

HL,DE 

163B 

0F 



RRCA 


163C 

DC 

74 

17 

CALL 

C,1774 

163 F 

0F 



RRCA 


1640 

DC 

74 

17 

CALL 

C,1774 

1643 

Dl 



POP 

DE 

1644 

E5 



PUSH 

HL 

1645 

7A 



LD 

A,D 

1646 

07 



RLCA 


1647 

30 

01 


JR 

NC,164A 

1649 

13 



INC 

DE 

164A 

7B 



LD 

A/E 

164B 

E6 

FE 


AND 

FE 

164D 

5F 



LD 

E, A 

164E 

2A 

2A 

83 

LD 

HL,(B32A) 


GRA SET ORIGIN 
IN : DE: X-Koordinate 
HL: Y-Koordinate 
Origin 
setzen 

Graphikcursorposition 0/0 
setzen 

GRA GET ORIGIN 
OUT: DE: X-Koordinate 
HL: Y-Koordinate 
X- 

und Y-Origin laden 


reale Cursorkoordinaten holen 
OUT: DE: X-Koordinate 
HL: Y-Koordinate 
Graphikcursorposition holen 

Cursor setzen, reale Koord. holen 
IN/OUT: DE: X-Koordinate 
HL: Y-Koordinate 
Cursorposition neu setzen 
Y-Koordinate retten 
Mode holen 

A=3,1,0 für Mode 0,1,2 
(Maske für nicht 
signifikante Bits in Koord.) 
Maske 
nach HL 

X-Koordiante positiv ? 

Maske addieren, damit 
Wegrundung der nicht signif. 
Bits zu Null hin erfolgt 
nicht signifikante Bits 
aus X-Koordinate löschen 

nicht signifikante Bits 
X-Origin-Koordinate 
zu X-Koordinate addieren 
Mode 0 oder Mode 1 ? 
dann Koordinate halbieren 
Mode 0 ? 

dann Koord. nochmals halbieren 
Y-Koordinate 

reale X-Koordinate retten 


Y-Koordinate positiv ? 
Ausgleich, zu Null hin runden 
Bit 0 löschen, da 
nicht signifikant 

Y-Origin 
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1651 

19 



ADD 

HL,DE 

zu Y-Koordinate addieren 

1652 

CD 

74 

17 

CALL 

1774 

Koordinate halbieren 

1655 

Dl 



POP 

DE 

reale X-Koordinate zurück 

1656 

C9 



RET 



★★■fr******************************* 

Cursor-relative in absol. Koord 







IN/OUT: DE: X-Koordinate 







HL: Y-Koordinate 

1657 

E5 



PUSH 

HL 


1658 

2A 

2C 

B3 

LD 

HL,(B32C) 

X-Cursorposition 

165B 

19 



ADD 

HL,DE 

zu X-Koordinate addieren 

165C 

Dl 



POP 

DE 


165D 

E5 



PUSH 

HL 


165E 

2A 

2E 

B3 

LD 

HL,(B32E) 

Y-Cursorposition 

1661 

19 



ADD 

HL,DE 

zu Y-Koordinate addieren 

1662 

Dl 



POP 

DE 


1663 

C9 



RET 




********************************** 


1664 

D5 



PUSH 

DE 

1665 

E5 



PUSH 

HL 

1666 

2A 

30 

B3 

LD 

HL,(B330) 

1669 

2B 



DEC 

HL 

166A 

B7 



OR 

A 

166B 

ED 

52 


SBC 

HL,DE 

166D 

F2 

AC 

16 

JP 

P,16AC 

1670 

2A 

32 

B3 

LD 

HL,(B332) 

1673 

B7 



OR 

A 

1674 

ED 

52 


SBC 

HL,DE 

1676 

FA 

AC 

16 

JP 

H,16AC 

1679 

Dl 



POP 

DE 

167A 

2A 

34 

B3 

LD 

HL,(B334) 

167D 

B7 



OR 

A 

167E 

ED 

52 


SBC 

HL,DE 

1680 

FA 

AD 

16 

JP 

M,16AD 

1683 

2A 

36 

B3 

LD 

HL,(B336) 

1686 

2B 



DEC 

HL 

1687 

B7 



OR 

A 

1688 

ED 

52 


SBC 

HL,DE 

168A 

FA 

91 

16 

JP 

M,1691 

168D 

ED 

5B 

36 B3 

LD 

DE,(B336) 

1691 

2A 

36 

B3 

LD 

HL, (B336) 

1694 

2B 



DEC 

HL 

1695 

B7 



OR 

A 

1696 

ED 

42 


SBC 

HL.BC 

1698 

F2 

AD 

16 

JP 

P,16AD 

169B 

2A 

34 

B3 

LD 

HL,(B334) 

169E 

B7 



OR 

A 

169F 

ED 

42 


SBC 

HL,BC 

16A1 

F2 

A8 

16 

JP 

P,16A8 

16A4 

ED 

4B 

34 B3 

LD 

BC,(B334) 

16A8 

EB 



EX 

DE,HL 


Test, ob Koordinaten f. vertikale 
Linie innerhalb Grenzen sind 
IN/OUT: HL: Y-Startkoordinate 
BC: Y-Endkoordinate 
DE: X-Koordinate 
(reale Koordinaten!) 

OUT: CY=0 f. außerhalb Grenzen 


Test analog zu Test für 
horizontale Linie (S16B0) 
durchführen 
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16A9 

Dl 

POP 

DE 

16AA 

37 

SCF 


16AB 

C9 

RET 


16AC 

El 

POP 

HL 

16AD 

Dl 

POP 

DE 

16AE 

87 

OR 

A 

16AF 

C9 

RET 



********************************** 


16B0 

E5 




PUSH 

HL 

1681 

D5 




PUSH 

DE 

16B2 

EB 




EX 

DE,HL 

16B3 

2A 

36 

B3 


LD 

HL,(B336) 

16B6 

2B 




DEC 

HL 

16B7 

B7 




OR 

A 

16B8 

ED 

52 



SBC 

HL,DE 

16BA 

F2 

F8 

16 


JP 

P,16F8 

16BD 

2A 

34 

B3 


LD 

HL,(B334) 

16C0 

B7 




OR 

A 

16C1 

ED 

52 



SBC 

HL, DE 

16C3 

FA 

F8 

16 


JP 

M,16F8 

16C6 

Dl 




POP 

DE 

16C7 

2A 

32 

B3 


LD 

HL,(B332) 

16CA 

B7 




OR 

A 

16CB 

ED 

52 



SBC 

HL, DE 

16CD 

FA 

F9 

16 


JP 

M,16F9 

16D0 

2A 

30 

B3 


LD 

HL, (B330) 

16D3 

2B 




DEC 

HL 

16D4 

B7 




OR 

A 

16D5 

ED 

52 



SBC 

HL,DE 

16D7 

FA 

DE 

16 


JP 

M,16DE 

16DA 

ED 

5B 

30 

B3 

LD 

DE,(B330) 

16DE 

2A 

30 

B3 


LD 

HL,(B330) 

16E1 

2B 




DEC 

HL 

16E2 

87 




OR 

A 

16E3 

ED 

42 



SBC 

HL, BC 

16E5 

F2 

F9 

16 


JP 

P,16F9 

16E8 

2A 

32 

B3 


LD 

HL,(B332) 

16EB 

87 




OR 

A 

16EC 

ED 

42 



SBC 

HL,BC 

16EE 

F2 

F5 

16 


JP 

P,16F5 

16F1 

ED 

4B 

32 

B3 

LD 

BC,(B332) 

16F5 

El 




POP 

HL 

16F6 

37 




SCF 


16F7 

C9 




RET 


16F8 

Dl 




POP 

DE 

16F9 

El 




POP 

HL 

16FA 

87 




OR 

A 

16FB 

C9 




RET 



Test, ob Koordin. für horizontale 
Linie innerhalb Grenzen sind 
IN/OUT: DE: X-Startkoordinate 
8C: X-Endkoordinate 
HL: Y-Koordinate 
(reale Koordinaten!) 

OUT: CY=0 für außerhalb Grenzen 
Y-Koordinate 
X-Startkoordinate 
Y-Koordinate nach DE 
untere Grenze 


Y-Kooordinate <= Grenze-1 ? 
dann Fehler 
obere Grenze 

Y-Koordinate > Grenze ? 
dann Fehler 
X-Startkoordinate 
rechte Grenze 

X-Start-Koordinate > Grenze ? 
dann Fehler 
linke Grenze 


X-Start-Koordin. > Grenze-1 ? 
dann o.k. 

sonst linke Grenze als X-Start 
linke Grenze 


X-Endkoordinate < Grenze-1 ? 
dann Fehler 
rechte Grenze 

X-Endkoordinate < Grenze ? 
dann o.k. 

sonst rechte Grenze als X-Ende 
Y-Koordinate zurück 
CY=1 für o.k. 

X-Startkoordinate 

Y-Koordinate 

CY=0 für außerhalb Grenzen 
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*********************£************ 


16FC 

CD 

ID 

16 

CALL 

161D 

16FF 

E5 



PUSH 

HL 

1700 

2A 

30 

B3 

LD 

HL,(B330) 

1703 

2B 



DEC 

HL 

1704 

B7 



OR 

A 

1705 

ED 

52 


SBC 

HL,DE 

1707 

F2 

2D 

17 

JP 

P,172D 

170A 

2A 

32 

B3 

LD 

HL,(B332) 

170D 

B7 



OR 

A 

170E 

ED 

52 


SBC 

HL,DE 

1710 

FA 

2D 

17 

JP 

M,172D 

1713 

El 



POP 

HL 

1714 

D5 



PUSH 

DE 

1715 

EB 



EX 

DE,HL 

1716 

2A 

36 

B3 

LD 

HL, (B336) 

1719 

2B 



DEC 

HL 

171A 

B7 



OR 

A 

171B 

ED 

52 


SBC 

HL,DE 

171D 

F2 

30 

17 

JP 

P,1730 

1720 

2A 

34 

B3 

LD 

HL,(B334) 

1723 

B7 



OR 

A 

1724 

ED 

52 


SBC 

HL,DE 

1726 

FA 

30 

17 

JP 

M,1730 

1729 

EB 



EX 

DE,HL 

172A 

Dl 



POP 

DE 

172B 

37 



SCF 


172C 

C9 



RET 


172D 

El 



POP 

HL 

172E 

B7 



OR 

A 

172F 

C9 



RET 


1730 

EB 



EX 

DE,HL 

1731 

Dl 



POP 

DE 

1732 

B7 



OR 

A 

1733 

C9 



RET 



********************************** 


1734 

E5 



PUSH 

HL 

1735 

CD 

60 

17 

CALL 

1760 

1738 

Dl 



POP 

DE 

1739 

E5 



PUSH 

HL 

173A 

CD 

60 

17 

CALL 

1760 

173D 

Dl 



POP 

DE 

173E 

7B 



LD 

A,E 

173F 

95 



SUB 

L 

1740 

7A 



LD 

A,D 

1741 

9C 



SBC 

H 

1742 

38 

01 


JR 

C,1745 

1744 

EB 



EX 

DE,HL 

1745 

7B 



LD 

A,E 

1746 

E6 

F8 


AND 

F8 

1748 

5F 



LD 

E,A 


Test, ob Koord. innerhalb Grenzen 
IN : DE: X-Koordinate 
HL: Y-Koordinate 
OUT: DE,HL: reale Koordinaten 
CY=0 für außerhalb Grenzen 
Curpos. setzen, reale K. ber. 
Y-Koordinate retten 
linke Grenze 


X-Koordinate <= Grenze-1 ? 
dann Fehler 
rechte Grenze 

X-Koordinate > Grenze ? 
dann Fehler 
Y-Koordinate 
X-Koordinate retten 
Y-Koordinate nach, DE 
untere Grenze 


Y-Koordinate <= Grenze-1 ? 
dann Fehler 
obere Grenze 

Y-Koordinate > Grenze ? 
dann Fehler 
Y-Koordinate nach HL 
X-Koordinate zurück 
CY=1 für o.k. 

Y-Koordinate 

CY=0 für außerhalb Grenzen 

Y-Koordinate nach HL 
X-Koordinate zurück 
CY=0 für außerhalb Grenzen 


GRA WIN WIDTH 

IN : DE: linke Windowgrenze 
HL: rechte Windowgrenze 

linke Grenze in zul. Bereich 


rechte Grenze in zul. Bereich 
linke Grenze < rechte ? 


dann o.k. 

sonst Grenzen vertauschen 
linke Grenze auf Byteanfang 
runden 
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1749 

7D 




LD 

A,L 

rechte Grenze auf Byteende 

174A 

F6 

07 



OR 

07 

runden 

174C 

6F 




LD 

L.A 


174D 

CD 

EC 

OA 


CALL 

OAEC 

Mode-Nummer holen 

1750 

3D 




DEC 

A 

Mode 0 ? 

1751 

FC 

70 

17 


CALL 

H,1770 

dann Koordinaten halbieren 

1754 

3D 




DEC 

A 

Mode 0 oder Mode 1 ? 

1755 

FC 

70 

17 


CALL 

M,1770 

dann Koordinaten halbieren 

1758 

ED 

53 

30 

B3 

LD 

(B330) f DE 

Grenze links 

175C 

22 

32 

B3 


LD 

(B332),HL 

und rechts setzen 

175 F 

C9 




RET 



********************************** 

X-Grenze in zulässige Grenzen 








IN : DE: X-Windowgrenze 








OUT: HL: X-Windowgrenze 

1760 

7A 




LD 

A,D 


1761 

B7 




OR 

A 


1762 

21 

00 

00 


LD 

HL,0000 


1765 

F8 




RET 

H 

Grenze < 0 ? dann Grenze = 0 

1766 

21 

7F 

02 


LD 

HL.027F 

max. Wert = 639 

1769 

7B 




LD 

A.E 


176A 

95 




SUB 

L 


176B 

7A 




LD 

A,D 

Grenze >= 639 ? • 

176C 

9C 




SBC 

H 


1760 

DO 




RET 

NC 

dann max. Wert 639 

176E 

EB 




EX 

DE,HL 

sonst alte Grenze 

176F 

C9 




RET 



********************************** 

Koordinaten halbieren 








IN/OUT: DE,HL: Koordinaten 

1770 

CB 

2A 



SRA 

D 


1772 

CB 

1B 



RR 

E 


1774 

CB 

2C 



SRA 

H 


1776 

CB 

ID 



RR 

L 


1778 

C9 




RET 



********************************** 

GRA WIN HEIGHT 








IN : HL: untere Grenze 








DE: obere Grenze 

1779 

E5 




PUSH 

HL 


177A 

CD 

92 

17 


CALL 

1792 

obere Grenze in zul. Bereich 

177D 

Dl 




POP 

DE 


177E 

E5 




PUSH 

HL 


177F 

CD 

92 

17 


CALL 

1792 

untere Grenze in zul. Bereich 

1782 

Dl 




POP 

DE 


1783 

7D 




LD 

A,L 


1784 

93 




SUB 

E 

untere < obere Grenze ? 

1785 

7C 




LD 

A,H 


1786 

9A 




SBC 

D 


1787 

38 

01 



JR 

C,178A 

dann o.k. 

1789 

EB 




EX 

DE,HL 

sonst Grenzen vertauschen 

178A 

ED 

53 

34 

B3 

LD 

(B334),DE 

obere 

178E 

22 

36 

B3 


LD 

(B336),HL 

und untere Grenze setzen 

1791 

C9 




RET 
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********************************** 


1792 

7A 



LD 

A,D 

1793 

B7 



OR 

A 

1794 

21 

00 

00 

LD 

HL,0000 

1797 

F8 



RET 

M 

1798 

CB 

3A 


SRL 

D 

179A 

CB 

1B 


RR 

E 

179C 

21 

C7 

00 

LD 

HL,00C7 

179F 

7B 



LD 

A,E 

17A0 

95 



SUB 

L 

17A1 

7A 



LD 

A,D 

17A2 

9C 



SBC 

H 

17A3 

DO 



RET 

NC 

17A4 

EB 



EX 

DE,HL 

17A5 

C9 



RET 



********************************** 


17A6 

ED 

5B 

30 B3 

LD 

DE,(B330) 

17AA 

2A 

32 

B3 

LD 

HL,(B332) 

17AD 

CD 

EC 

0A 

CALL 

0AEC 

17B0 

3D 



DEC 

A 

17B1 

FC 

B6 

17 

CALL 

M,17B6 

17B4 

3D 



DEC 

A 

17B5 

FO 



RET 

P 

17B6 

29 



ADD 

HL,HL 

17B7 

23 



INC 

HL 

17B8 

EB 



EX 

DE,HL 

17B9 

29 



ADD 

HL,HL 

17BA 

EB 



EX 

DE,HL 

17BB 

C9 



RET 



********************************** 


17BC 

ED 

5B 

34 B3 

LD 

DE,(B334) 

17C0 

2A 

36 

B3 

LD 

HL,(B336) 

17C3 

18 

Fl 


JR 

17B6 


********************************** 


17C5 

CD 

A6 

17 

CALL 

17A6 

17C8 

B7 



OR 

A 

17C9 

ED 

52 


SBC 

HL,DE 

17CB 

23 



INC 

HL 

17CC 

CD 

74 

17 

CALL 

1774 

17CF 

CD 

74 

17 

CALL 

1774 

17D2 

CB 

3D 


SRL 

L 

17D4 

45 



LD 

B, L 

17D5 

ED 

5B 

36 B3 

LD 

DE,(B336) 

17D9 

2A 

34 

B3 

LD 

HL,(B334) 

17DC 

E5 



PUSH 

HL 

17DD 

B7 



OR 

A 

17DE 

ED 

52 


SBC 

HL,DE 

17E0 

23 



INC 

HL 

17E1 

4D 



LD 

C,L 


Y-Grenze in zulässigen Bereich 
IN : DE: Y-Windowgrenze 
OUT: HL: Y-Windowgrenze 


Grenze < 0 ? dann Grenze = 0 
Grenze / 2 (reale 
Koordinate hersteilen) 
max. Wert = 199 

Grenze >= 199 ? 


dann max. Wert 199 
sonst alte Grenze 


GRA GET WINDOW WIDTH 
OUT: DE: linke Windowgrenze 
HL: rechte Windowgrenze 
reale linke 

und rechte Grenze laden 
Mode-Nummer holen 
Mode 0 ? 

dann Grenzen verdoppeln 
Mode 2 ? 
dann fertig 

rechte Grenze verdoppeln 
Grenze auf Byteende 

linke Grenze verdoppeln 


GRA GET WINDOW HEIGHT 
OUT: DE: obere Windowgrenze 
HL: untere Windowgrenze 
reale obere 

und untere Grenze laden 
Grenzen verdoppeln 

GRA CLEAR WINDOW 

Windowgrenzen links/rechts 

rechte - linke Grenze 
+1 ergibt Breite 
Breite durch 8 
teilen, ergibt Zahl der 
Bytes pro Rasterzeile 
nach B 

reale untere 
und obere Grenze 


obere - untere Grenze 

+1 ergibt Höhe 

als Zahl der Rasterzeilen 
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17E2 

ED 

5B 

30 B3 

LD 

DE,(B330) 

17E6 

El 



POP 

HL 

17E7 

C5 



PUSH 

BC 

17E8 

CD 

A9 

OB 

CALL 

0BA9 

17EB 

Dl 



POP 

DE 

17EC 

3A 

39 

B3 

LD 

A,(B339) 

17EF 

4F 



LD 

C,A 

17F0 

CD 

B7 

0D 

CALL 

0DB7 

17F3 

C3 

OB 

16 

JP 

160B 

************************** ******** 

17F6 

CD 

86 

0C 

CALL 

0C86 

17F9 

32 

38 

B3 

LD 

(B338),A 

17FC 

C9 



RET 


********************************** 

17FD 

CD 

86 

OC 

CALL 

0C86 

1800 

32 

39 

B3 

LD 

(B339),A 

1803 

C9 



RET 


********************************** 

1804 

3A 

38 

B3 

LD 

A,(B338) 

1807 

C3 

A0 

OC 

JP 

0CA0 

********************************** 

180A 

3A 

39 

B3 

LD 

A,(B339) 

180D 

C3 

A0 

0C 

JP 

0CA0 


********************************** 


1810 CD 57 16 CALL 1657 

********************************** 

•1813 C3 DC BD JP BDDC 

********************************** 


1816 

CD 

FC 

16 

CALL 

16FC 

1819 

DO 



RET 

NC 

181A 

CD 

A9 

OB 

CALL 

0BA9 

181D 

3A 

38 

B3 

LD 

A,(B338) 

1820 

47 



LD 

B,A 

1821 

C3 

E8 

BD 

JP 

BDE8 


********************************** 


1824 CD 57 16 CALL 1657 


linke Grenze 
obere Grenze 

Bytes/Zeile und Rasterzei lenz. 
BiIdschirmadr. und Maske holen 
Bytes/Zeile und Rasterzei lenz. 
Paper-Byte 
nach C 

Bereich füllen 
Cursorposition = 0/0 

GRA SET PEN 

IN : A: Färbstiftnunmer 

Stiftnr. in Farbmaske wandeln 
und Farbmaske speichern 


GRA SET PAPER 

IN : A: Färbstiftnummer 

Stiftnr. in Farbmaske wandeln 
und Farbmaske speichern 


GRA GET PEN 

OUT: A: Farbstiftnumroer 
Farbmaske 

in Färbstiftnummer wandeln 

GRA GET PAPER 
OUT: A: Färbstiftnummer 
Farbmaske 

in Farbstiftnumer wandeln 

GRA PLOT RELATIVE 
IN : DE: Cursor-relative X-Koord. 
HL: Cursor-relative Y-Koord. 
relative in absolute Koord. 

GRA PLOT ABSOLUTE 
IN : DE: X-Koordinate 
HL: Y-Koordinate 
Indirection zu GRA PLOT 

GRA PLOT 

IN : DE: X-Koordinate 
HL: Y-Koordinate 
liegt Punkt im Window ? 
nein ? dann fertig 
BiIdschirmadr. und Maske holen 
Pen-Maske 
nach B 

SCR URITE, Pixel setzen 

GRA TEST RELATIVE 

IN : DE: Cursor-relative X-Koord. 

HL: Cursor-relative Y-Koord. 
OUT: A: Farbstiftnr. des Pixels 
relative in absolute Koord. 
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****** ********* ************* ****** 


1827 

C3 

DF 

BD 

JP 

BDDF 

********************************** 

182A 

CD 

FC 

16 

CALL 

16FC 

182D 

D2 

0A 

18 

JP 

NC,180A 

1830 

CD 

A9 

OB 

CALL 

0BA9 

1833 

C3 

E5 

BD 

JP 

BDE5 

********************************** 

1836 

CD 

57 

16 

CALL 

1657 

********************************** 

1839 

C3 

E2 

BD 

JP 

BDE2 

********************************** 

183C 

E5 



PUSH 

HL 

183D 

D5 



PUSH 

DE 

183E 

CD 

1A 

16 

CALL 

161A 

1841 

ED 

53 

42 B3 

LD 

(B342),DE 

1845 

22 

44 

B3 

LD 

(B344),HL 

1848 

Dl 



POP 

DE 

1849 

El 



POP 

HL 

184A 

CD 

ID 

16 

CALL 

161D 

184D 

E5 



PUSH 

HL 

184E 

2A 

42 

B3 

LD 

HL,(B342) 

1851 

B7 



OR 

A 

1852 

ED 

52 


SBC 

HL,DE 

1854 

44 



LD 

B, H 

1855 

4D 



LD 

C,L 

1856 

FA 

69 

18 

JP 

M,1869 

1859 

2A 

42 

B3 

LD 

HL,(B342) 

185C 

EB 



EX 

DE,HL 

185D 

22 

42 

B3 

LD 

(B342),HL 

1860 

2A 

44 

B3 

LD 

HL,(B344) 

1863 

E3 



EX 

(SP),HL 

1864 

22 

44 

B3 

LD 

(B344),HL 

1867 

18 

08 


JR 

1871 

1869 

21 

00 

00 

LD 

HL,0000 

186C 

B7 



OR 

A 

186D 

ED 

42 


SBC 

HL,BC 

186F 

44 



LD 

B, H 

1870 

4D 



LD 

C,L 

1871 

Dl 



POP 

DE 

1872 

2A 

44 

B3 

LD 

HL,(B344) 

1875 

B7 



OR 

A 


GRA TEST ABSOLUTE 

IN : DE: X-Koordinate 
HL: Y-Koordinate 

OUT: A: Farbstiftnr. des Pixels 
Indirection zu GRA TEST 

GRA TEST 

IN : DE: X-Koordinate 
HL: Y-Koordinate 

OUT: A: Farbstiftnr. des Pixels 
liegt Punkt im Window ? 
nein ? dann Paper-Stift holen 
BiIdschirmadr. und Maske holen 
SCR READ, Pixel-Farbstiftnr. 

GRA LINE RELATIVE 

IN : DE: Cursor-relative X-Koord. 
HL: Cursor-relative Y-Koord. 
relative in absolute Koord. 

GRA LINE ABSOLUTE 

IN : DE: X-Koordinate 
HL: Y-Koordinate 
Indirection zu GRA LINE 

GRA LINE 

IN : DE: X-Koordinate 
HL: Y-Koordinate 
Y- und X-Koordiante als 
Endkoordinaten retten 
reale Cursorkoordinaten holen 
und als Startkoordinaten 
speichern 

Endkoordinaten zurück 
als Cursorp. setzen, reale K. 
Y-Endkoordinate retten 
X-Startkoordinate 

- X-Endkoordinate 
gibt X-Differenz, nach BC 

X-Endkoordinate größer ? 
sonst X- und Y- 
Start- und -Endkoordinaten 
vertauschen 


Zweierkomplement der 
negativen X-Differenz 
(also Betrag) bi Iden 

Y-Endkoordinate 

Y-Startkoordinate 
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1876 

ED 

52 



SBC 

HL,DE 

1878 

EB 




EX 

DE, HL 

1879 

F2 

8E 

18 


JP 

P,188E 

187C 

21 

00 

00 


LD 

HL,0000 

187F 

B7 




OR 

A 

1880 

ED 

52 



SBC 

HL, DE 

1882 

54 




LD 

D, H 

1883 

5D 




LD 

E,L 

1884 

B7 




OR 

A 

1885 

ED 

42 



SBC 

HL,BC 

1887 

21 

01 

00 


LD 

HL,0001 

188A 

30 

27 



JR 

NC.18B3 

188C 

18 

0A 



JR 

1898 

188E 

62 




LD 

H,D 

188F 

6B 




LD 

L,E 

1890 

B7 




OR 

A 

1891 

ED 

42 



SBC 

HL,BC 

1893 

21 

FF 

FF 


LD 

HL, FFFF 

1896 

30 

09 



JR 

NC,18A1 

1898 

22 

3A 

B3 


LD 

(B33A),HL 

189B 

60 




LD 

H,B 

189C 

69 




LD 

L,C 

189D 

3E 

FF 



LD 

A, FF 

189F 

18 

19 



JR 

18BA 

18A1 

E5 




PUSH 

HL 

18A2 

2A 

42 

B3 


LD 

HL,(B342) 

18A5 

09 




ADD 

HL,BC 

18A6 

22 

42 

B3 


LD 

(B342),HL 

18A9 

2A 

44 

B3 


LD 

HL,(B344) 

18AC 

B7 




OR 

A 

18AD 

ED 

52 



SBC 

HL,DE 

18AF 

22 

44 

B3 


LD 

(B344),HL 

18B2 

El 




POP 

HL 

18B3 

22 

3A 

B3 


LD 

(B33A),HL 

18B6 

60 




LD 

H,B 

18B7 

69 




LD 

L,C 

18B8 

EB 




EX 

DE,HL 

18B9 

AF 




XOR 

A 

18BA 

32 

46 

B3 


LD 

(B346),A 

18BD 

13 




INC 

DE 

18BE 

ED 

53 

40 

B3 

LD 

(B340),DE 

18C2 

23 




INC 

HL 

18C3 

CD 

8C 

37 


CALL 

378C 

18C6 

22 

3C 

B3 


LD 

(B33C),HL 

18C9 

ED 

53 

3E 

B3 

LD 

(B33E),DE 

18CD 

ED 

4B 

40 

B3 

LD 

BC,(B340) 

18D1 

50 




LD 

D,B 

18D2 

59 




LD 

E,C 

18D3 

CB 

3A 



SRL 

D 

18D5 

CB 

1B 



RR 

E 

18D7 

C5 




PUSH 

BC 

18D8 

ED 

4B 

3C 

B3 

LD 

BC,(B33C) 

18DC 

2A 

3E 

B3 


LD 

HL, (B33E) 

18DF 

19 




ADD 

HL,DE 

18E0 

EB 




EX 

DE,HL 

18E1 

2A 

40 

B3 


LD 

HL,(B340) 

18E4 

B7 




OR 

A 

18E5 

ED 

52 



SBC 

HL,DE 


Start- minus Endkoordinate 
Y-Differenz nach DE 
Y-Differenz positiv ? 

sonst Zweierkomplement der 
negativen Y-Differenz 
(also Betrag) bilden 
und nach DE 


Y-Differenz minus X-Differenz 
kleinere Schrittweite =1 
Y-Differenz >= X-Differenz ? 


Y-Differenz nach DE 

Y-Differenz minus X-Differenz 
kleinere Schrittweite =-1 
Y-Differenz >= X-Differenz ? 
kleinere Schrittweite setzen 
X-Differenz als größere 
Differenz nach Hl, 

Flag für X-Differenz größer 

kleinere Schrittweite retten 
X-Differenz zu (kleinerem) 
X-Start addieren (X-Ende als 
neuen Startwert) 

Y-Differenz von (größerem) 
Y-Start abziehen (Y-Ertde als 
neuen Startwert 
kleinere Schrittweite 
setzen 

(kleinere) X-Differenz 
nach BC 

Differenzen vertauschen 
Flag für Y-Differenz größer 
Flag für größere Differenz 
kl. Diff. +1 = kleinere Breite 
speichern 

gr. Diff. +1 = größere Breite 
größere durch kleinere Breite 
Quotient als größere Schrittw. 
Divisionsrest 
kleinere Breite als Zähler 

kleinere Breite durch 2 
als Startwert für Summe 
der Teilungsreste nach DE 
Zähler retten 
größere Schrittweite 
Rest der gr. Schrittweite 
Rest zu Restsusmie 
addieren 

kleinere Breite (Divisor) 
erreicht Surane der Reste 
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18E7 

30 

07 


JR 

NC,18 F 0 

18E9 

19 



ADD 

HL,DE 

18EA 

EB 



EX 

DE,HL 

18EB 

B7 



OR 

A 

18EC 

ED 

52 


SBC 

HL,DE 

18EE 

EB 



EX 

DE,HL 

18EF 

03 



INC 

BC 

18F0 

D5 



PUSH 

DE 

18 F1 

3A 46 

B3 

LD 

A, (B346) 

18F4 

B7 



OR 

A 

18F5 

28 

23 


JR 

Z, 191A 

18F7 

2A 

42 

B3 

LD 

HL, (B342) 

18FA 

54 



LD 

D,H 

18FB 

5D 



LD 

E,L 

18FC 

09 



ADD 

HL, BC 

18FD 

22 

42 

B3 

LD 

(B342),HL 

1900 

44 



LD 

B, H 

1901 

4D 



LD 

C,L 

1902 

OB 



DEC 

BC 

1903 

Vf 

St 

< 

r\j 

B3 

LD 

HL,(B344) 

1906 

E5 



PUSH 

HL 

1907 

CD 

B0 

16 

CALL 

16B0 

190A 

3A 

38 

B3 

LD 

A, (B338) 

190D 

DC 

C4 

0F 

CALL 

C,0FC4 

1910 

Dl 



POP 

DE 

1911 

2A 

3A 

B3 

LD 

HL,(B33A) 

1914 

19 



ADD 

HL,DE 

1915 

22 

44 

B3 

LD 

(B344),HL 

1918 

18 

23 


JR 

193D 

191A 

2A 

44 

B3 

LD 

HL,(B344) 

191D 

54 



LD 

D,H 

191E 

5D 



LD 

E,L 

191 F 

09 



ADD 

HL,BC 

1920 

22 

44 

B3 

LD 

(B344),HL 

1923 

44 



LD 

B,H 

1924 

4D 



LD 

Cf L 

1925 

OB 



DEC 

BC 

1926 

EB 



EX 

DE,HL 

1927 

ED 

5B 

42 B3 

LD 

DE,(B342) 

192B 

D5 



PUSH 

DE 

192C 

CD 

64 

16 

CALL 

1664 

192F 

3A 

38 

B3 

LD 

A,(B338) 

1932 

DC 

2F 

10 

CALL 

C,102F 

1935 

Dl 



POP 

DE 

1936 

2A 

3A 

B3 

LD 

HL,(B33A) 

1939 

19 



ADD 

HL,DE 

193A 

22 

42 

B3 

LD 

(B342),HL 

193D 

Dl 



POP 

DE 

193E 

CI 



POP 

BC 

193F 

OB 



DEC 

BC 

1940 

78 



LD 

A,B 

1941 

Bl 



OR 

C 

1942 

20 

93 


JR 

NZ,18D7 

1944 

C9 



RET 



********************************** 


1945 DD E5 PUSH IX 


noch nicht kleinere Breite ? 
sonst kleinere Breite herst. 

kleinere Breite von Summe 
der Reste abziehen 
Sunrne der Reste wieder nach DE 
gr. Schrittw. zumAusgl. erh. 
Surme der Reste 
Differenzen-Flag 

Y-Differenz größer ? 
laufende X-Koordinate 
nach DE 

größere (X-)Schrittweite add. 
als neue X-Koordinate 
nächste X-Startkoordinate 
-1 = aktuel le 
X-Endkoordinate 
laufende Y-Koordinate 
retten 

Koordin. innerhalb Grenzen ? 
Pen-Byte 

dann horizontale Linie ziehen 
Y-Koordinate 

kleinere (Y-)Schrittweite 
addieren 

Y-Koordinate neu setzen 


wenn Y-Differenz größer, 
dann analog vertikale Linie 
ziehen 


Sunrte der Reste 
Zähler 


weitere Durchläufe ? 


GRA WR CHAR 
IN : A: Zeichen 
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1947 

CD 

D3 

12 

CALL 

12D3 

194A 

11 

3A 

B3 

LD 

DE,B33A 

194D 

D5 



PUSH 

DE 

194E 

DD 

El 


POP 

IX 

1950 

01 

08 

00 

LD 

BC,0008 

1953 

ED 

B0 


LDIR 


1955 

CD 

1A 

16 

CALL 

161A 

1958 

CD 

FF 

16 

CALL 

16FF 

195B 

30 

4C 


JR 

NC,19A9 

195D 

E5 



PUSH 

HL 

195E 

D5 



PUSH 

DE 

195F 

01 

07 

00 

LD 

BC,0007 

1962 

EB 



EX 

DE,HL 

1963 

09 



ADD 

HL,BC 

1964 

EB 



EX 

DE,HL 

1965 

B7 



OR 

A 

1966 

ED 

42 


SBC 

HL,BC 

1968 

CD 

FF 

16 

CALL 

16FF 

196B 

Dl 



POP 

DE 

196C 

El 



POP 

HL 

I960 

30 

3A 


JR 

NC,19A9 

196F 

CD 

A9 

OB 

CALL 

0BA9 

1972 

16 

08 


LD 

D,08 

1974 

E5 



PUSH 

HL 

1975 

IE 

08 


LD 

E,08 

1977 

CD 

CF 

19 

CALL 

19CF 

197A 

CB 

09 


RRC 

C 

197C 

DC 

F9 

OB 

CALL 

C,0BF9 

197F 

DD 

CB 

00 06 

RLC 

(IX+00) 

1983 

ID 



DEC 

E 

1984 

20 

Fl 


JR 

NZ,1977 

1986 

El 



POP 

HL 

1987 

CD 

13 

OC 

CALL 

0C13 

198A 

DD 

23 


INC 

IX 

198C 

15 



DEC 

D 

198D 

20 

E5 


JR 

NZ,1974 

198F 

DD 

El 


POP 

IX 

1991 

CD 

FC 

15 

CALL 

15 FC 

1994 

EB 



EX 

DE,HL 

1995 

CD 

EC 

0A 

CALL 

0AEC 

1998 

01 

08 

00 

LD 

BC,0008 

199B 

FE 

01 


CP 

01 

199D 

28 

04 


JR 

Z,19A3 

199F 

30 

03 


JR 

NC,19A4 

19A1 

09 



ADD 

HL,BC 

19A2 

09 



ADD 

HL,BC 

19A3 

09 



ADD 

HL,BC 

19A4 

09 



ADD 

HL,BC 

19A5 

EB 



EX 

DE,HL 

19A6 

C3 

F4 

15 

JP 

15 F4 

19A9 

0E 

08 


LD 

C,08 

19AB 

D5 



PUSH 

DE 

19AC 

06 

08 


LD 

B,08 

19AE 

CD 

FF 

16 

CALL 

16FF 

19B1 

30 

OC 


JR 

NC,19BF 

19B3 

E5 



PUSH 

HL 

19B4 

D5 



PUSH 

DE 


Adresse der Zeichenmatrix hol. 
Adresse für Matrix-Zwischensp. 

nach IX 

Lange der Matrix 
Zeichenmatrix kopieren 
reale Cursorposition holen 
liegt zugeh. Punkt im Window ? 
nein ? 

Cursorposition 

retten 

linke X-Koordinate des 
Zeichens = rechte Koord. 

obere Y-Koordinate -7 
=untere Y-Koordinate 
liegt zugeh. Punkt im Window ? 
Cursorpos. (Zeichen oben/ 
links) wieder zurück 
Pos. unten/rechts außerh. W. ? 
BiIdschirmadr. und Maske holen 
8 Rasterzeilen 
Bildschirmadresse retten 
8 Spalten 
Pixel setzen 
Maske für nächstes Pixel 
ggf. Adr. des nächsten Bytes 
näch. Pixel in gepackter Matr. 

weitere Spalten ? 

BiIdschirmadr. der 1. Spalte 
Adr. d. nächsten Rasterzeile 
nächstes Byte in Matrix 

weitere Rasterzeilen ? 
alter Wert (bei Aufruf) 
Cursorposition holen 
X-Koordinate nach HL 
Mode-Nummer holen 
8 Positionen pro Zeichen 
Mode 1 ? 

dann 16 Positionen 
Mode 0 ? dann 8 Positionen 
sonst 32 Positionen 
für Mode 0 

zu X-Koordinate addieren 
X-Koordinate nach DE 
Cursorposition neu setzen 

8 Rasterzeilen 
X-Koordinate 
8 Spalten 

liegt Punkt im Window ? 
nein ? dann nicht setzen 
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19B5 

C5 




PUSH 

BC 


19B6 

CD 

A9 

OB 


CALL 

0BA9 

BiIdschirmadr. und Maske holen 

19B9 

CD 

CF 

19 


CALL 

19CF 

Pixel setzen 

19BC 

CI 




POP 

BC 


19BD 

Dl 




POP 

DE 


19BE 

El 




POP 

HL 


19BF 

DD 

CB 

00 

06 

RLC 

(IX+00) 

nächstes Zeichenmatrix-Bit 

19C3 

13 




INC 

DE 

X-Koordinate erhöhen 

19C4 

10 

E8 



DJNZ 

19AE 

weitere Spalten ? 

19C6 

Dl 




POP 

DE 

X-Koordinate f. 1. Spalte 

19C7 

2B 




DEC 

HL 

Y-Koordinate herunterzäh len 

19C8 

DD 

23 



INC 

IX 

nächstes Matrixbyte 

19CA 

0D 




DEC 

C 


19CB 

20 

DE 



JR 

NZ,19AB 

weitere Rasterzeilen ? 

19CD 

18 

CO 



JR 

198F 

Cursor neu setzen 

********************************** 

Pixel für Buchstaben setzen 








IN : HL: Bildschirmadresse 








IX: Zeichenmatrixadresse 

C: Maske f. Pixelauswahl 

19CF 

DD 

CB 

00 

7E 

BIT 

7,(IX+00) 

Bit aus Matrix testen 

19D3 

3A 

38 

B3 


LD 

A, (B338) 

Pen-Maske 

19D6 

20 

03 



JR 

NZ,19DB 

Bit gesetzt ? 

19D8 

3A 

39 

B3 


LD 

A, (B339) 

sonst Paper-Maske 

19DB 

47 




LD 

B,A 

Farbmaske nach B 

19DC 

C3 

E8 

BD 


JP 

BDE8 

SCR WRITE, Pixel setzen 

19DF 

C7 




RST 

00 



KEYBOARD MANAGER (KM) 


********************************** ^ initialize 


19E0 

21 

02 

IE 

LD 

HL,1E 02 

Default Verzögerung 

19E3 

CD 

60 

IC 

CALL 

1C6D 

setzen 

19E6 

AF 



XOR 

A 


19E7 

32 

OB 

B5 

LD 

(B50B),A 

Spaltencode f. höchste Taste 

19EA 

67 



LD 

H,A 

Shi ft Lock State 

19EB 

6F 



LD 

L,A 

und Caps Lock State 

19EC 

22 

E7 

B4 

LD 

(B4E7),HL 

löschen 

19EF 

21 

3C 

B4 

LD 

HL,B43C 

Adr. Repeat-Tabelle 

19 F 2 

11 

BO 

FF 

LD 

DE, F FBO 

-$50=-80, Länge einer Tabelle 

19F5 

22 

47 

B5 

LD 

(B547),HL 

Adr. Repeat-Tabelle setzen 

19F8 

19 



ADD 

HL,DE 

-80=Adr. Key Ctrl Table 

19F9 

22 

45 

B5 

LD 

(B545),HL 

setzen 

19FC 

19 



ADD 

HL,DE 

-80=Adr. Key Shift Table 

19FD 

22 

43 

B5 

LD 

(B543),HL 

setzen 

1A00 

19 



ADD 

HL,DE 

-80=Adr. Key Translation Table 

1A01 

22 

41 

B5 

LD 

(B541),HL 

setzen 

1A04 

EB 



EX 

DE,HL 

und nach DE 

1A05 

21 

69 

ID 

LD 

HL,1D69 

Beginn der Default-Tab. im Rom 

1A08 

01 

FA 

00 

LD 

BC.OOFA 

Länge der Default-Werte 

1A0B 

ED 

BO 


LDIR 


Tabellen kopieren 

1A0D 

06 

OA 


LD 

B, OA 

Länge der Key State Map 

1A0F 

21 

EB 

B4 

LD 

HL,B4EB 

Adr. der Key State Map 

1 Al 2 

36 

00 


LD 

(HL),00 

Byte der KSM löschen 

1 Al 4 

23 



INC 

HL 

Zeiger auf nächstes Byte 

1 AI 5 

10 

FB 


DJNZ 

1 AI 2 

bis zum Ende der KSM 
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1A17 

06 

0A 


LD 

B, OA 

1A19 

36 

FF 


LD 

(HL),FF 

1A1B 

23 



INC 

HL 

1 Al C 

10 

FB 


DJNZ 

1A19 

********************************** 

1A1E 

CD 

ED 

IC 

CALL 

1CED 

1A21 

CD 

75 

1A 

CALL 

1A75 

1A24 

11 

46 

B4 

LD 

DE.B446 

1A27 

21 

98 

00 

LD 

HL,0098 

1A2A 

CD 

81 

1A 

CALL 

1A81 

1A2D 

21 

36 

1A 

LD 

HL,1A36 

1A30 

CD 

8A 

0A 

CALL 

0A8A 

1A33 

C3 

82 

IC 

JP 

1C82 

********************************** 

1A36 

03 





1A37 

EE 

BD 




1A39 

C3 

2F 

IC 

JP 

1C2F 


********************************** 


1A3C 

CD 

42 1A 

CALL 

1A42 

1 A3 F 

30 

FB 

JR 

NC.1A3C 

1 A41 

C9 


RET 


********************************** 


1A42 

E5 



PUSH 

HL 

1A43 

21 

E0 

B4 

LD 

HL,B4E0 

1A46 

7E 



LD 

A, (HL) 

1A47 

36 

FF 


LD 

(HL),FF 

1A49 

BE 



CP 

(HL) 

1A4A 

38 

27 


JR 

C,1A73 

1A4C 

2A 

DE 

B4 

LD 

HL,(B4DE) 

1A4F 

7C 



LD 

A, H 

1A50 

B7 



OR 

A 

1A51 

20 

11 


JR 

NZ.1A64 

1A53 

CD 

5C 

1B 

CALL 

1B5C 

1A56 

30 

1B 


JR 

NC,1A73 

1A58 

FE 

80 


CP 

80 

1A5A 

38 

17 


JR 

C, 1A73 

1A5C 

FE 

A0 


CP 

A0 

1A5E 

3F 



CCF 


1A5F 

38 

12 


JR 

C,1A73 

1A61 

67 



LD 

H,A 

1A62 

2E 

00 


LD 

L, 00 

1A64 

D5 



PUSH 

DE 

1A65 

CD 

2E 

1B 

CALL 

1B2E 

1A68 

38 

02 


JR 

C,1A6C 

1A6A 

26 

00 


LD 

H,00 

1A6C 

2C 



INC 

L 

1A6D 

22 

DE 

B4 

LD 

(B4DE),HL 

1A70 

Dl 



POP 

DE 

1A71 

30 

E0 


JR 

NC,1A53 

1A73 

El 



POP 

HL 

1A74 

C9 



RET 



Länge der Feedback-TabeLle 
Feedback-Byte auf $FF setzen 
Zeiger auf nächstes Byte 
bis Ende d. Feedback-Tabelle 

KM RESET 

Ringbuffer initialisieren 
Put Back Buffer löschen 
Exp Buffer Start 
Länge des Exp Buffer 
Exp Buffer initialisieren 
Start der Indirections 
Indirections kopieren 
Break Event ausschalten 

Indirection f. KM TEST BREAK 
Anz. d. zu kopierenden Bytes 
Zieladresse im Ram 
KM TST BREAK 

KM WA IT CHAR 
OUT: A: Zeichen 
Zeichen holen 

bis gültiges Zeichen kommt 


KM READ CHAR 
OUT: A: Zeichen 

CY:=1, wenn Zeichen gültig 

Zeiger Put Back Buffer 

Zeichen daraus laden 

Put Back Buffer löschen 

war Buffer leer? 

sonst o.k., raus 

Exp String Code u. Count laden 

Exp String Code 

<> 0 ? 

dann Zeichen aus Exp String holen 

Zeichen von Tastaturabfrage holen 

kein Zeichen? dann raus 

ASCII-Zeichen? 

dann raus, Zeichen in A 

>$A0? 

dann raus, Zeichen in A 

als Exp Code nach H 

Exp String Count :=0 setzen 

Zeichen aus Exp String holen 

Exp String bereits zuende? 

dann Code:=0, Exp String aussch. 

Zähler erhöhen 

Code und Zähler abspeichern 

bei Stringende Taste holen 
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********************************** 
1A75 3E FF LD A,FF 

********************************** 


1A77 32 E0 B4 LD (B4E0),A 

1A7A C9 RET 

********************************** 


1A7B 

CD 81 1A 

CALL 1A81 

1A7E 

3F 

CCF 

1A7F 

FB 

EI 

1A80 

C9 

RET 

********************************** 


1A81 

F3 



DI 


1A82 

7D 



LD 

A, L 

1A83 

D6 

31 


SUB 

31 

1A85 

7C 



LD 

A, H 

1A86 

DE 

00 


SBC 

00 

1A88 

D8 



RET 

C 

1A89 

19 



ADD 

HL,DE 

1A8A 

22 

E3 

B4 

LD 

(B4E3),HL 

1A8D 

EB 



EX 

DE,HL 

1A8E 

22 

El 

B4 

LD 

(B4E1),HL 

1A91 

01 

30 

0A 

LD 

BC,0A30 

1A94 

36 

01 


LD 

(HL),01 

1A96 

23 



INC 

HL 

1A97 

71 



LD 

(HL),C 

1A98 

23 



INC 

HL 

1A99 

0C 



INC 

C 

1A9A 

10 

F8 


DJNZ 

1A94 

1A9C 

EB 



EX 

DE,HL 

1A9D 

21 

B3 

1A 

LD 

HL,1AB3 

1AA0 

0E 

0A 


LD 

C,0A 

1AA2 

ED 

80 


LDIR 


1AA4 

EB 



EX 

DE,HL 

1AA5 

06 

13 


LD 

B, 13 

1AA7 

AF 



XOR 

A 

1AA8 

77 



LD 

(HL),A 

1AA9 

23 



INC 

HL 

1AAA 

10 

FC 


DJNZ 

1AA8 

1AAC 

22 

E5 

B4 

LD 

(B4E5),HL 

1AAF 

32 

DF 

B4 

LD 

(B4DF),A 

1AB2 

C9 



RET 



********************************** 


1AB3 01 2E 
1AB5 01 OD 

1AB7 05 52 55 4E 22 OD 


Put Back Buffer löschen 

$FF als Kennzeichen f. PBB leer 

KM CHAR RETURN 
IN : A: Zeichen 

Zeichen in Put Back Buffer 


KM EXP BUFFER RESET 
IN : DE: Start d. Exp Buffers 
HL: Länge des Exp Buffers 
OUT: CY:=1, wenn o.k. 

Exp Buffer initialisieren 
Carry invertieren 


KM EXP BUFFER CONT'D 
IN : DE: Start Expansion Buffer 
HL: Länge Expansion Buffer 

Länge-31 (Anz. Exp Strings) 
d.h. auf Mindestgröße 
testen 

Exp Buffer zu klein? dann raus 
Start+Länge=Ende, nach HL 
Ende Exp Buffer setzen 

Anfang Exp Buffer setzen 
Default Werte 
für die Ziffern 
0-9 des Zehnerblockes setzen 
( 01 30 01 31 01 32 ... ) 


Tabelle d. Defaults f. 

ENTER u. CTRL-ENTER 
des Zehnerblockes 
kopieren 

restliche 
19 Exp Strings 
als Leer-Strings 
(Länge=0) 
setzen 

Zeiger auf freien Exp Buffer 
Exp String ausschalten 


Default Expansion Strings 


<carriage return> 

RUN" <carriage return> 
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********************************** 


1ABD 

F3 



DI 


1ABE 

78 



LD 

A,B 

1ABF 

CD 

3E 

1B 

CALL 

1B3E 

1AC2 

30 

1 F 


JR 

NC.1AE3 

1AC4 

C5 



PUSH 

BC 

1AC5 

D5 



PUSH 

DE 

1AC6 

E5 



PUSH 

HL 

1AC7 

CD 

E5 

1A 

CALL 

1AE5 

1ACA 

3F 



CCF 


1ACB 

El 



POP 

HL 

1ACC 

Dl 



POP 

DE 

1ACD 

CI 



POP 

BC 

1ACE 

30 

13 


JR 

NC,1AE3 

1 ADO 

1B 



DEC 

DE 

1 AD 1 

79 



LD 

A,C 

1AD2 

OC 



INC 

C 

1AD3 

12 



LD 

<DE),A 

1AD4 

13 



INC 

DE 

1AD5 

E7 



RST 

20 

1AD6 

23 



INC 

HL 

1AD7 

0D 



DEC 

C 

1AD8 

20 

F9 


JR 

NZ.1AD3 

1 ADA 

21 

DF 

B4 

LD 

HL.B4DF 

1 ADD 

78 



LD 

A, B 

1 ADE 

AE 



XOR 

(HL) 

1ADF 

20 

01 


JR 

NZ.1AE2 

1 AE 1 

77 



LD 

(HL),A 

1AE2 

37 



SCF 


1AE3 

FB 



EI 


1AE4 

C9 



RET 



********************************** 


1AE5 

06 

00 

LD 

B,00 

1AE7 

60 


LD 

H, B 

1AE8 

6F 


LD 

L,A 

1AE9 

79 


LD 

A,C 

IAEA 

95 


SUB 

L 

1AEB 

C8 


RET 

Z 

1AEC 

30 

0F 

JR 

NC,1AFD 

1AEE 

7D 


LD 

A,L 

1 AE F 

69 


LD 

L,C 

1AF0 

4F 


LD 

C, A 

1AF1 

19 


ADD 

HL,DE 

1AF2 

EB 


EX 

DE,HL 

1AF3 

09 


ADD 

HL,BC 

1AF4 

CD 

22 1B 

CALL 

1B22 


KH SET EXPAND 

IN : B: Code f. Exp String 

HL: Zeiger auf den String 
C: Länge des Strings 
OUT: CY:=1, wenn o.k. 

Z:=1, f. Code lfd. String 
= Code neuer String 
( d. Code in A ) 

Code d. Exp Strings 
lfd. Adresse u. Länge holen 
Code illegal? d. CY:=0, raus 
Code in B, Länge in C 
Adr. d. lfd. Exp Strings 
Adr. d. neuen Exp Strings 
Platz f. neuen String schaffen 
CY:=1, wenn o.k. 


Fehler? dann raus, CY:=0 
Zeiger auf Stringlänge 
Länge d. neuen Strings 
+1 f. Längenbyte vor String 
Zeichen in Exp Buffer 
Zeiger auf nächstes Zeichen 
LD A,(HL) im ganzen Ram 
Zeiger auf nächstes Zeichen 
Zeichenzähler erniedrigen 
bis zum letzten Zeichen 
Zeiger Code lfd. Exp String 
Code f. neuen String 
m. lfd. Exp String Code verkn. 
ungleich? dann o.k., raus 
sonst Code lfd. Exp String 
CY:=1 f. o.k. 


Platz f. neuen String schaffen 
IN : A: Länge des alten Strings 
C: Länge des neuen Strings 
DE: Adr. d. Exp Strings 
OUT: CY:=0, wenn o.k. 

Länge des alten 
Exp Strings 

- Länge des neuen Strings 
= Offset f. Verschiebung 
Längen gleich? dann o.k., raus 
alter String länger? 

Länge d. alten Exp Strings 
und die des neuen Strings 
vertauschen 

neuer Zeiger nächster String 
nach DE 

Zeiger auf nächsten String 
Anz. zu versch. Bytes nach BC 
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1AF7 

28 

23 


JR 

2,1 BlC 

keine mehr? d. raus 

1AF9 

ED 

BO 


LDIR 


alle höheren Strings versch. 

1AFB 

18 

1 F 


JR 

1 Bl C 

und raus 

1AFD 

4F 



LD 

C, A 

Offset 

1AFE 

19 



ADD 

HL,DE 

2eiger auf nächsten String 

TAFF 

E5 



PUSH 

HL 

retten 

1B00 

2A 

E5 

B4 

LD 

HL,(B4E5) 

Ende der Exp Srings 

1B03 

09 



ADD 

HL,BC 

+0ffset=neues Exp String Ende 

1B04 

EB 



EX 

DE,HL 

nach DE 

1B05 

2A 

E3 

B4 

LD 

HL,(B4E3) 

Bufferende 

1B08 

7D 



LD 

A, L 

neues Stringende 

1B09 

93 



SUB 

E 

über Bufferende 

1 BOA 

7C 



LD 

A, H 

hinaus? 

1 BOB 

9A 



SBC 

D 


1BOC 

El 



POP 

HL 


1BOD 

D8 



RET 

C 

dann CY:=1, Fehler, raus 

1B0E 

CD 

22 

1B 

CALL 

1B22 

Anz. zu versch. Bytes nach BC 

1B11 

2A 

E5 

B4 

LD 

HL, (B4E5) 

Ende der Strings als Quelle 

1B14 

28 

06 


JR 

2,1B1C 

keine Verschiebung? d. raus 

1B16 

D5 



PUSH 

DE 

neues Ende der Exp Strings 

1B17 

1B 



DEC 

DE 

2eiger auf letztes benutztes 

1B18 

2B 



DEC 

HL 

Byte setzen 

1B19 

ED 

B8 


LDDR 


und String nach oben kopieren 

1 Bl B 

Dl 



POP 

DE 

neues Ende der Exp Strings 

1 Bl C 

ED 

53 

E5 B4 

LD 

(B4E5),DE 

setzen 

1B20 

B7 



OR 

A 

CY:=0 f. o.k. 

1B21 

C9 



RET 



********************************** 

Anz. zu versch. Bytes berechnen 







IN : HL: neue Adr. nächster Str. 







OUT: BC: Anz. zu versch. Bytes 

1B22 

3A 

E5 

B4 

LD 

A, (B4E5) 

Ende der Exp Strings (+1) 

1B25 

95 



SUB 

L 

- 

1B26 

4F 



LD 

C,A 

Start des nächstes Strings 

1B27 

3A 

E6 

B4 

LD 

A,(B4E6) 

= 

1B2A 

9C 



SBC 

H 

Anz. zu versch. Bytes 

1B2B 

47 



LD 

B, A 

nach BC 

1B2C 

Bl 



OR 

C 


1B2D 

C9 



RET 



********************************** 

KM GET EXPAND 







IN : A: Code ($00..$1F,$80..$9F) 







L: Exp String 2ähler 







OUT: A: 2eichen aus Exp String 







CY:=1, wenn o.k.; Z:=1, wenn Ende erreicht 

1B2E 

CD 

3E 

1B 

CALL 

1B3E 

Adr. d. Exp Strings holen 

1B31 

DO 



RET 

NC 

Code illegal? d. Fehler, raus 

1B32 

BD 



CP 

L 

Länge u. lfd. Zähler vergl. 

1B33 

C8 



RET 

2 

gleich? dann raus 

1B34 

3F 



CCF 


wenn Fehler, CY:=0 

1B35 

DO 



RET 

NC 

und raus 

1B36 

E5 



PUSH 

HL 

Exp String Zähler retten 

1B37 

26 

00 


LD 

H,00 

Hi Byte auf Null setzen 

1B39 

19 



ADD 

HL,DE 

=Adr. d. gesuchten Zeichens 

1B3A 

7E 



LD 

A,(HL) 

Zeichen aus Exp String laden 

1B3B 

El 



POP 

HL 

Exp String Count zurück 

1B3C 

37 



SCF 


CY:=1 f. o.k. 

1B3D 

C9 



RET 
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********************************** 


1B3E 

E6 

7F 


AND 

7F 

1B40 

FE 

20 


CP 

20 

1B42 

DO 



RET 

NC 

1B43 

E5 



PUSH 

HL 

1B44 

2A 

El 

B4 

LD 

HL,(B4E1) 

1B47 

11 

00 

00 

LD 

DE,0000 

1B4A 

3C 



INC 

A 

1B4B 

19 



ADD 

HL,DE 

1B4C 

5E 



LD 

E, (HL) 

1B4D 

23 



INC 

HL 

1B4E 

3D 



DEC 

A 

1B4F 

20 

FA 


JR 

NZ.1B4B 

1B51 

7B 



LD 

A,E 

1B52 

EB 



EX 

DE,HL 

1B53 

El 



POP 

HL 

1B54 

37 



SCF 


1B55 

C9 



RET 


********************************** 

1B56 

CD 

5C 

1B 

CALL 

1B5C 

1B59 

30 

FB 


JR 

NC.1B56 

1B5B 

C9 



RET 



********************************** 


1B5C 

ES 



PUSH 

HL 

1B5D 

C5 



PUSH 

BC 

1B5E 

CD 

15 

ID 

CALL 

1D15 

1B61 

30 

3A 


JR 

NC,1B9D 

1B63 

79 



LD 

A,C 

1B64 

FE 

EF 


CP 

EF 

1B66 

28 

34 


JR 

Z,1B9C 

1B68 

E6 

OF 


AND 

0F 

1B6A 

87 



ADD 

A 

1B6B 

87 



ADD 

A 

1B6C 

87 



ADD 

A 

1B6D 

3D 



DEC 

A 

1B6E 

3C 



INC 

A 

1B6F 

CB 

08 


RRC 

B 

1B71 

30 

FB 


JR 

NC,1B6E 

1B73 

CD 

A0 

1B 

CALL 

1BA0 

1B76 

21 

E8 

B4 

LD 

HL,B4E8 

1B79 

CB 

7E 


BIT 

7,(HL) 

1B7B 

28 

0A 


JR 

Z, 1B87 

1B7D 

FE 

61 


CP 

61 

1B7F 

38 

06 


JR 

C,1B87 

1B81 

FE 

TB 


CP 

7B 

1B83 

30 

02 


JR 

NC,1B87 

1B85 

C6 

E0 


ADD 

E0 

1B87 

FE 

FF 


CP 

FF 

1B89 

28 

D3 


JR 

Z, 1B5E 


Adr. eines Exp Strings berechnen 
IN : A: Code ($00..$1F,$80..$9F) 
OUT: DE: Adr. d. Exp Strings 
A: Länge des Exp Strings 
CY:=1, wenn o.k. 
oberstes Bit :=0 setzen 
>$1F bzw. >$9F? 
dann Fehler, raus 

Adr. Exp Buffer 

Stringno. z. Ausgleich erhöhen 
Länge d. letzten Strings add. 
Länge des neuen Strings laden 
Zeiger auf erstes Zeichen 
Nummer d. Strings erniedrigen 
bis zun gesuchten String 
Länge d. gesuchten Strings 
Adr. desselben nach DE 

CY:=1 f. o.k. 


KM WAIT KEY 

OUT: A: Zeichen von Tastatur 
Zeichen von Tastatur holen 
bis Taste gedrückt 


KM READ KEY 

OUT: A: Zeichen von Tastatur 

CY:=1, wenn Taste gedrückt 


Tastenkoordinaten aus Ringbuf. 
Ringbuffer leer? dann raus 
Zeilennummer u. CTRL/SHIFT 
BRK? 

dann Code direkt übernehmen 
Zeilennunmer 
mit 8 (f. 8 Tasten pro 
Zeile) multiplizieren 

zun Ausgleich -1 

pro Bitstelle un 1 erhöhen 

Bit ins Carry 

bis 1-Bit gefunden 

Tastennursner in ASCII-Code 

Caps Lock Flag 

gesetzt? 

sonst nicht wandeln 
Zeichen < M a"? 
dann raus 
Zeichen > "z"? 
dann raus 

auf Großschrift forcieren 

Taste ungültig? 

d. nächste Taste aus Ringbuf. 
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1B8B 

FE 

FE 

CP 

FE 

1B8D 

21 

E7 B4 

LD 

HL,B4E7 

1B90 

28 

05 

JR 

Z,1B97 

1B92 

FE 

FD 

CP 

FD 

1B94 

23 


INC 

HL 

1B95 

20 

05 

JR 

NZ,1B9C 

1B97 

7E 


LD 

A,(HL) 

1B98 

2F 


CPL 


1B99 

77 


LD 

(HL), A 

1B9A 

18 

C2 

JR 

1B5E 

1B9C 

37 


SCF 


1B9D 

CI 


POP 

BC 

1B9E 

El 


POP 

HL 

1B9F 

C9 


RET 



***☆ -k ** ★★ ********************* 


1BA0 

CB 

11 


RL 

C 

1BA2 

DA 

48 

ID 

JP 

C,1D48 

1BA5 

47 



LD 

B, A 

1BA6 

3A 

E7 

B4 

LD 

A,(B4E7) 

1BA9 

Bl 



OR 

C 

1BAA 

E6 

40 


AND 

40 

1BAC 

78 



LD 

A,B 

1BAD 

C2 

43 

ID 

JP 

NZ,1D43 

1BB0 

C3 

3E 

ID 

JP 

1D3E 


********************************** 


1BB3 

2A 

E7 

B4 

LD 

HL,(B4E7) 

1BB6 

C9 



RET 


** * -k-irtt * ********* * t 5 t * **** * **** ****** 

1BB7 

11 

FF 

B4 

LD 

DE,B4FF 

1BBA 

21 

F5 

B4 

LD 

HL,B4F5 

1BBD 

CD 

46 

08 

CALL 

0846 

1BC0 

3A 

01 

B5 

LD 

A,(B501) 

1BC3 

E6 

A0 


AND 

A0 

1BC5 

4F 



LD 

C, A 

1BC6 

21 

ED 

B4 

LD 

HL,B4ED 

1BC9 

B6 



OR 

(HL) 

1BCA 

77 



LD 

(HL),A 

1BCB 

21 

FF 

B4 

LD 

HL,B4FF 

1BCE 

11 

EB 

B4' 

LD 

DE,B4EB 

1 BDI 

06 

00 


LD 

B,00 

1BD3 

1A 



LD 

A,(DE) 

1BD4 

AE 



XOR 

(HL) 

1BD5 

A6 



AND 

(HL) 

1BD6 

C4 

48 

IC 

CALL 

NZ,1C48 

1BD9 

7E 



LD 

A, (HL) 

1BDA 

12 



LD 

(DE),A 

1BDB 

23 



INC 

HL 

1BDC 

13 



INC 

DE 

1BDD 

OC 



INC 

C 


CTRL-Caps Lock? 

d. Shift Lock Flag 

umschalten 

Caps Lock? 

dann Caps Lock Flag 

umschalten, andernfalls raus 

entspr. Flag 

invertieren 

und neu setzen 

und nächstes Zeichen aus Buf, 
CY: = 1 f. o.k. 


Keyno.->ASCII wandeln 
IN : A: Tastennummer 

C: <b7>: CTRL-Flag 
<b5>: SHIFT-Flag 
OUT: A: ASCII-Code 
CTRL-Flag ins Carry 
gesetzt? d. aus CTRL-Tabelle 
Tastennurrmer nach B retten 
SHIFT-Lock Flag 
mit SHIFT-FLag verknüpfen 
und entspr. Bit isolieren 
Zeichen zurück 
SHIFT? d. aus SHIFT-Tabelle 
sonst einfachen Code holen 

KM GET STATE 
OUT: H: Caps Lock Flag 
L: Shift Lock Flag 
Flags laden 


Update Key State Map 

Beginn d. pos. Rückmeldungen 
Beginn Key Response Table 
Tastatur abfragen 
Rückmeldung d. Zeile 2 
CTRL u. SHIFT isolieren 
und in C sichern 
CTRL/SHIFT-F Lag 

in alte Rücmeldungen speichern 
um Tastenerkennung zu verhind. 
Beginn der positiven Rückmeld. 
Key State Map (KSM) 

Flag f. neue Tasten löschen 
Byte aus KSM 

alte Tasten m. neuen verkn. 
ergibt neu gedr. Tasten 
neue Tasten? d. Tasten in Buf. 
lfd. Tasten 

in Key State Map schreiben 
Zeiger auf nächste Rückmeldung 
Zeiger auf nächstes KSM-Byte 
Zeilenzähler erhöhen 
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1BDE 

79 



LD 

A, C 

1BDF 

E6 

0F 


AND 

0F 

1 BEI 

FE 

0A 


CP 

0A 

1BE3 

20 

EE 


JR 

NZ,1BD3 

1BE5 

79 



LD 

A.C 

1BE6 

E6 

A0 


AND 

A0 

1BE8 

CB 

71 


BIT 

6,C 

1BEA 

4F 



LD 

C,A 

1BEB 

C4 

EE 

BD 

CALL 

NZ,BDEE 

1BEE 

78 



LD 

A,B 

1BEF 

B7 



OR 

A 

1BF0 

CO 



RET 

NZ 

1B F1 

21 

09 

B5 

LD 

HL,B509 

1BF4 

35 



DEC 

(HL) 

1BF5 

CO 



RET 

NZ 

1BF6 

2A 

0A 

B5 

LD 

HL,(B50A) 

1BF9 

EB 



EX 

DE,HL 

1BFA 

42 



LD 

B,D 

1BFB 

16 

00 


LD 

D, 00 

1BFD 

21 

EB 

B4 

LD 

HL,B4EB 

1C00 

19 



ADD 

HL,DE 

1C01 

7E 



LD 

A,(HL) 

1C02 

2A 

47 

B5 

LD 

HL,(B547) 

1C05 

19 



ADD 

HL,DE 

1C06 

A6 



AND 

(HL) 

1C07 

A0 



AND 

B 

1C08 

C8 



RET 

Z 

1C09 

21 

09 

B5 

LD 

HL,B509 

1C0C 

34 



INC 

(HL) 

1COD 

3A 

40 

B5 

LD 

A,(B540) 

1 CI 0 

B7 



OR 

A 

icii 

CO 



RET 

NZ 

1C12 

79 



LD 

A, C 

1 Ci 3 

B3 



OR 

E 

1C14 

4F 



LD 

C, A 

1 Ci 5 

3A 

E9 

B4 

LD 

A, (B4E9) 


☆ ☆☆☆**☆*☆********************* 


1C18 

32 

09 

B5 

LD 

(B509),A 

1 CI B 

CD 

FE 

IC 

CALL 

1C FE 

1 Ci E 

79 



LD 

A, C 

1 Ci F 

E6 

OF 


AND 

OF 

1C21 

6F 



LD 

L,A 

1C22 

60 



LD 

H, B 

1C23 

22 

OA 

B5 

LD 

(B50A),HL 

1C26 

FE 

08 


CP 

08 

1C28 

CO 



RET 

NZ 

1C29 

CB 

60 


BIT 

4, B 

1C2B 

CO 



RET 

NZ 

1C2C 

CB 

Fl 


SET 

6,C 

1C2E 

C9 



RET 



und 

Zei lennurmer isolieren 
bis alle 10 Rückmeldungen 
bearbeitet 
CTRL- U. SH I FT -Flag 
isolieren 

Taste in Zeile 8? (außer TAB) 

isolierte CTRL/SHIFT-Flags 

ggf. KM TEST BREAK 

Flag f. neue Tasten 

gab es neue Tasten? 

dann zurück 

sonst Verzögerungszähler 

erniedrigen 

und bei <>0 zurück 

sonst höchste gedrückte Taste 

nach DE 

isolierte Rückmeldung nach B 

DE: Zeilennummer, 16-Bit 

Adr. Key State Map 

ergibt Adr d. Zeilenrückmeld. 

Rückmeld. Zeile höchste Taste 

Adr. d. Repeat-Tabelle 

Adr. Repeat-Byte betr. Zeile 

Rpt-Byte u. Rückmeldung verkn. 

und m. höchster Taste verkn. 

kein Repeat? dann zurück 

sonst Zähler 

wieder erhöhen 

Anz. d. Tasten im Buffer 

wenn Tasten im Buffer, 

dann zurück 

CTRL/SH I FT - Flags 

und Zei lennuimier 

nach C 

Reload Count f. Rpt-Verzöger. 

Tastenkoordinaten in Buffer 
IN : A: Repeat-Verzögerung 

B: Rückmeldung (ein 1-Bit) 

C: Zei lennunmer 
Repeat-Verzögerung setzen 
Tastenkoordinaten in Buffer 
Zeilennummer 
isolieren 
Zeilennummer 
und Rückmeldung 
f. höchste Taste setzen 
Zeile 8? 
sonst raus 
TAB? 

dann raus 

sonst Flag f. Zeile 8 ohne TAB 
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********************************** 


1C2F 

21 

F3 B4 

LD 

HL,B4F3 

1C32 

CB 

56 

BIT 

2,(HL) 

1C34 

C8 


RET 

Z 

1C35 

79 


LD 

A,C 

1C36 

EE 

A0 

XOR 

A0 

1C38 

20 

56 

JR 

NZ.1C90 

1C3A 

C5 


PUSH 

BC 

1C3B 

23 


INC 

HL 

1C3C 

06 

0A 

LD 

B,0A 

1C3E 

8E 


ADC 

(HL) 

1C3F 

2B 


DEC 

HL 

1C40 

10 

FC 

DJNZ 

1C3E 

1C42 

CI 


POP 

BC 

1C43 

FE 

A4 

CP 

A4 

1C45 

20 

49 

JR 

NZ.1C90 

1C47 

C7 


RST 

00 


********************************** 


1C48 

E5 



PUSH 

HL 

1C49 

D5 



PUSH 

DE 

1C4A 

5F 



LD 

E,A 

1C4B 

2F 



CPL 


1C4C 

3C 



INC 

A 

1C4D 

A3 



AND 

E 

1C4E 

47 



LD 

B, A 

1C4F 

3A 

EA 

B4 

LD 

A,(B4EA) 

1C52 

CD 

18 

IC 

CALL 

1C18 

1C55 

78 



LD 

A,B 

1C56 

AB 



XOR 

E 

1C57 

20 

Fl 


JR 

NZ.1C4A 

1C59 

Dl 



POP 

DE 

1C5A 

El 



POP 

HL 

1C5B 

C9 



RET 



********************************** 


1C5C 

3A 

Fl 

B4 

LD 

A,(B4F1) 

1 CSF 

E6 

7F 


AND 

7F 

1C61 

6F 



LD 

L,A 

1C62 

3A 

F4 

B4 

LD 

A,(B4F4) 

1C65 

E6 

7F 


AND 

7F 

1C67 

67 



LD 

H,A 

1C68 

C9 



RET 



********************************** 


1C69 2A E9 B4 LD HL,(B4E9) 

1C6C C9 RET 


KM TEST BREAK 
IN : C: CTRL/SHIFT-Flag 
Rückm. Zeile 8 
ESC gedrückt? 
sonst zurück 
CTRL/SHIFT-F Lags 
invertieren 

beide gesetzt? sonst raus 

Zeiger auf Rückm. Zeile 9 
Zähler f. 10 Rückmeldungen 
Rückmeldungen aufsummieren 
Zeiger auf vorhergeh. Rückm. 
bis alle Rückm. addiert 

Sumte=$A0+$04? 

sonst Break Event ausführen 

bei CTRL-SHIFT-ESC: Reset 

Tasten einer Zeile in Buffer 
IN : A: Rückmeldung einer Zeile 
C: Zeilennummer 
Tabellenzeiger 
retten 

Rückmeldung retten 
Zweierkomplement 
bi Iden 

unterstes 1-Bit isolieren 
und nach B 

Reload Count f. Anfangsverz. 
Tastenkoordinaten in Ringbuf. 
1-Bit f. letzte Taste 
aus Zeilenrückm. entfernen 
noch Tast. in Zeile? d. bearb. 


KM GET JOYSTICK 
OUT: H: Joystick 0 
L: Joystick 1 
Rückm. f. Joystick 1 
b7 eliminieren 
und nach l 

Rückm. f. Joystick 0 
b7 eliminieren 
und nach H 


KM GET DELAY 

OUT: H: 1. Verzögerung 

L: Repeat-Verzögerung 
Verzögerungs-Werte laden 


********************************** set DELAY 

IN : H: 1. Verzögerung 

L: Repeat-Verzögerung 
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1C6D 22 E9 B4 LD (B4E9),HL Verzögerungswerte setzen 

1C70 C9 RET 


********************************** 


1C71 

CD 

82 

IC 

CALL 

1C82 

1C74 

21 

0D 

B5 

LD 

HL,B50D 

1C77 

06 

40 


LD 

B,40 

1C79 

CD 

D2 

01 

CALL 

01D2 

1C7C 

3E 

FF 


LD 

A, FF 

1C7E 

32 

oc 

B5 

LD 

(B50C),A 

1C81 

C9 



RET 



*********************************** 


1C82 

C5 



PUSH 

BC 

1C83 

D5 



PUSH 

DE 

1C84 

21 

OC 

B5 

LD 

HL ,B50C 

1C87 

36 

00 


LD 

(HL),00 

1C89 

23 



INC 

HL 

1C8A 

CD 

85 

02 

CALL 

0285 

1C8D 

Dl 



POP 

DE 

1C8E 

CI 



POP 

BC 

1C8F 

C9 



RET 



********************************** 


1C90 

21 

OC 

B5 

LD 

HL,B50C 

1C93 

7E 



LD 

A, (HL) 

1C94 

36 

00 


LD 

(HL),00 

1C96 

BE 



CP 

(HL) 

1C97 

C8 



RET 

Z 

1C98 

C5 



PUSH 

BC 

1C99 

D5 



PUSH 

DE 

1C9A 

23 



INC 

HL 

1C9B 

CD 

E2 

01 

CALL 

01E2 

1C9E 

0E 

EF 


LD 

C, EF 

1CA0 

CD 

FE 

IC 

CALL 

1CFE 

1CA3 

Dl 



POP 

DE 

1CA4 

Ci 



POP 

BC 

1CA5 

C9 



RET 



KM ARM BREAK 
IN : DE: Routinenadresse 
C: Rom-Konfiguration 
OUT: HL: Adr. d. User-Bereiches 
Break Event ausschalten 
Start d. Break Event Blocks 
Express, Synchronous, Far Call 
Event Block aufbauen 
Flag f. Event Block gültig 
setzen 


KM DISARM BREAK 


Flag f. Break Event inaktiv 
setzen 

Zeiger auf Event Block 
Event Block aushängen 


KM BREAK EVENT 

Flag f. Event Block gültig 
laden 

und löschen 
Flag war gelöscht? 
dann zurück 


Zeiger auf Break Event Block 
Break Event einhängen 
BRK-Zeichen 

in Ringbuffer schreiben 


★********************************* 


1CA6 2A 47 B5 
1CA9 18 ID 


LD HL,(B547) 

JR 1CC8 


KM GET REPEAT 
IN : A: Tastennunroer 
OUT: Z:=0, wenn Repeat 
Adr. d. Repeat Tabelle 
Z:=0, wenn Repeat f. Taste 


**★*****★★***★**★*****★*★********* 


1CAB 

FE 

50 


CP 

50 

1CAD 

DO 



RET 

NC 

1CAE 

2A 

47 

B5 

LD 

HL,(B547) 

1CB1 

CD 

CD 

IC 

CALL 

1CCD 

1CB4 

4F 



LD 

C,A 

1CB5 

2F 



CPL 



KM SET REPEAT 

IN : A: Tastennumter 

B: Repeat-Flag ($FF f. on) 
OUT: CY:=1, wenn o.k. 

Tastennimmer >79? 
dann raus, Fehler 
Start d. Repeat Tabelle 
entspr. Adr. u Bitmaske holen 
Bitmaske retten 
Bit in Tabe11e 
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1CB6 

A6 

AND 

(HL) 

1CB7 

77 

LD 

(HL) ,A 

1CB8 

79 

LD 

A,C 

1CB9 

AO 

AND 

B 

1CBA 

B6 

OR 

(HL) 

1CBB 

77 

LD 

(HL) ,A 

1CBC 

C9 

RET 



**&**★★******#*******#★******★**** 


1CBD 

F5 



PUSH 

AF 

1CBE 

3A 

ED 

B4 

LD 

A,(B4ED) 

1 ccl 

E6 

AO 


AND 

AO 

1CC3 

4F 



LD 

C,A 

1CC4 

Fl 



POP 

AF 

1CC5 

21 

EB 

B4 

LD 

HL,B4EB 

1CC8 

CD 

CD 

IC 

CALL 

1 CCD 

1CCB 

A6 



AND 

(HL) 

1CCC 

C9 



RET 



•k'k-kitirk-irk'k'kiK-k'k-kirk-kifk'k-klrkirkirklrk-klrklrk 


1 CCD 

D5 



PUSH 

DE 

1CCE 

F5 



PUSH 

AF 

1CCF 

E6 

F8 


AND 

F8 

1CD1 

OF 



RRCA 


1CD2 

OF 



RRCA 


1CD3 

OF 



RRCA 


1CD4 

5F 



LD 

E,A 

1CD5 

16 

00 


LD 

D,00 

1CD7 

19 



ADD 

HL,DE 

1CD8 

Fl 



POP 

AF 

1CD9 

E5 



PUSH 

HL 

1CDA 

21 

E5 

IC 

LD 

HL,1CE5 

1CDD 

E6 

07 


AND 

07 

1CDF 

5F 



LD 

E,A 

1CE0 

19 



ADD 

HL,DE 

1CE1 

7E 



LD 

A, (HL) 

1CE2 

El 



POP 

HL 

1CE3 

Dl 



POP 

DE 

1CE4 

C9 



RET 


1CE5 

01 

02 

04 08 

10 20 

40 80 

**£***********************★***•**** 

1CED 

F3 



DI 


1CEE 

21 

3C 

B5 

LD 

HL,B53C 

1CF1 

36 

15 


LD 

(HL),15 

1CF3 

23 



INC 

HL 

1CF4 

AF 



XOR 

A 

1CF5 

77 



LD 

(HL),A 

1CF6 

23 



INC 

HL 


auf Null 
setzen 
Bitmaske 

entspr. Bit in Flag isolieren 
und restliche Bits aus Tabelle 
neues Tabellenbyte abspeichern 


KM TEST KEY 

IN : A: Tastennummer 

OUT: C: CTRL/SHIFT-Flag 

Z:=0, wenn Taste gedrückt 
A:=0, wenn Taste nicht gedr. 
Tastennummer retten 
CTRL-SHIFT-Flags 
isolieren 
und nach C retten 
Tastennunmer 
Start der Key State Map 
entspr. Adr. u. Bitmaske holen 
Bitmaske und Tab.-Byte verkn. 


Adr. und Bitmaske holen 
IN : A: Tastennummer 

HL: Adr. d. Tabellenanfangs 
OUT: A: Bitmaske 

HL: Adr. entspr. Tab.-Byte 

Tastennunmer retten 
unteren 3 Bits eliminieren 
durch 8 teilen, ergibt 
die Zeilennurmer 
der Taste 

Zeilennunmer retten 

Hi-Byte löschen 

ergibt Adr. d. Tabellenbytes 

Tastennurraner 

Adresse retten 

Zeiger auf Bitmasken 

untere 3 Bits ergeben Bitno. 

Bitnunmer 

zu Start d. Bitmasken addieren 
entspr. Bitmaske laden 
Tabellenadresse vom Stack 


Bitmasken 

Ringbuffer initialisieren 

Adresse der Buffer Parameter 
Anz. freier Einträge setzen 
Zeiger auf Schreibzeiger 

Schreibzeiger setzen 

Zeiger auf Anz. der Einträge+1 
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1CF7 

36 01 

LD 

(HL),01 

1CF9 

23 

INC 

HL 

1CFA 

77 

LD 

(HL), A 

1CFB 

23 

INC 

HL 

1CFC 

77 

LD 

(HL) ,A 

1CFD 

C9 

RET 



***** ******************** -Ar * * * * * *** * 


1CFE 

21 

3C 

B5 

LD 

HL,B53C 

1D 01 

B7 



OR 

A 

1D02 

35 



DEC 

(HL) 

1D 03 

28 

0E 


JR 

Z, 1D13 

1D05 

CD 

2C 

ID 

CALL 

1D2C 

1D08 

71 



LD 

(HL),C 

1D09 

23 



INC 

HL 

1D0A 

70 



LD 

(HL),B 

1D0B 

21 

40 

B5 

LD 

HL,B540 

1D0E 

34 



INC 

(HL) 

1D 0 F 

21 

3E 

B5 

LD 

HL,B53E 

1D12 

37 



SCF 


1D13 

34 



INC 

(HL) 

1D14 

C9 



RET 



********************************** 


1D15 

21 

3E 

B5 

LD 

HL,B53E 

1D18 

B7 



OR 

A 

1D19 

35 



DEC 

(HL) 

1D1A 

28 

0E 


JR 

Z, 1D2A 

1 DlC 

CD 

2C 

ID 

CALL 

1D2C 

1D1F 

4E 



LD 

C,(HL) 

1D20 

23 



INC 

HL 

1D21 

46 



LD 

B, (HL) 

1D22 

21 

40 

B5 

LD 

HL,B540 

1D25 

35 



DEC 

(HL) 

ID 26 

21 

3C 

B5 

LD 

HL,B53C 

1D29 

37 



SCF 


1D2A 

34 



INC 

(HL) 

1D2B 

C9 



RET 



********************************** 


1D2C 

23 


INC 

HL 

1D2D 

34 


INC 

(HL) 

1D2E 

7E 


LD 

A,(HL) 

1D2F 

FE 

14 

CP 

14 

1D31 

20 

02 

JR 

NZ,1D35 

1D33 

AF 


XOR 

A 

1D34 

77 


LD 

(HL),A 

1D35 

87 


ADD 

A 

1D36 

CE 

14 

ADC 

14 

1D38 

6F 


LD 

L, A 

1D39 

CE 

B5 

ADC 

B5 


Anz. d. Einträge+1 setzen 
Zeiger auf Lesezeiger 
Lesezeiger setzen 
Zeiger auf Anz. d. Einträge 
Anz. d. Einträge setzen 


Eintrag in Buffer schreiben 
IN : BC: Tastenkoordinaten 
OUT: CY:=1, wenn o.k. 

Anz. freie Einträge +1 
CY:=0 f. evtl. Fehler 
Anz. freier Words 
=0? dann Buffer voll, Fehler 
sonst Zeiger in Buffer nach HL 
T astenkoordinaten 
in den Ringbuffer 
schreiben 
Anz. d. Einträge 
erhöhen 

Anz. der Einträge +1 
CY:=1 f. o.k. 


Eintrag aus Buffer lesen 
OUT: CY:=1, wenn o.k. 

BC: Eintrag aus Buffer 
Anz. d. Einträge im Buffer*1 
CY:=0 f. evtl. Fehler 
Anz. d. Einträge im Buffer 
Buffer leer? dann Fehler 
Adresse d. Eintrages berechn. 
Eintrag aus 
Ringbuffer 
lesen, nach BC 
Anz. d. Einträge im Buffer 
erniedrigen 

Anz. d. freien Einträge 
CY:=1 f. o.k. 


Zeiger in Ringbuffer berechnen 
IN : HL: Zeiger vor 

Lese-/Schreibzeiger 
OUT: HL: Zeiger in Ringbuffer 
Zeiger auf Bufferzeiger 
Bufferzeiger erhöhen 
und laden 
am Bufferende? 
sonst weiter 

ggf. Zeiger auf Bufferanfang 
setzen 

*2 f. 2 Bytes pro Eintrag 
zum Beginn des 
Ringbuffers (bei $B514) 
addieren 
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1D3B 

95 

SUB 

L 

1D3C 

67 

LD 

H,A 

1D3D 

C9 

RET 


********************************** 


1D3E 

2A 

41 B5 

LD 

HL,(B541 

1D41 

18 

08 

JR 

1D4B 


KM GET TRANSLATE 
IM : A: Tastennummer 
OUT: A: ASCII-Code, normal 
Start Translation Table 
Code aus Tabelle holen 


********************************** 


1D43 2A 43 B5 LD HL,(B543) 

1D46 18 03 JR 1D4B 


KM GET SHIFT 
IM : A: Tastennummer 
OUT: A: ASCII-Code, mit Shift 
Start Shift-Tabelle 
Code aus Tabelle holen 


********************************** 


1D48 2A 45 B5 LD HL,(B545) 


KM GET CTRL 
IN : A: Tastennummer 
OUT: A: ASCII-Code, mit Ctrl 
Start Control-Tabelle 


********************************** Tsstsncode holßn 


IN : A: Tastennummer 

HL: Tabellenanfang 
OUT: A: Tastencode 


1D4B 

85 

ADD 

L 

Tastennummer 

1D4C 

6F 

LD 

L, A 

zun 

1D4D 

8C 

ADC 

H 

Tabellenstart 

1D4E 

95 

SUB 

L 

addieren, 

1D4F 

67 

LD 

H,A 

ergibt Adr. des Codes 

1D50 

7E 

LD 

A,(HL) 

Code laden 

1D 51 

C9 

RET 




********************************** 


1D52 2A 41 B5 LD HL,(B541) 

1D55 18 08 JR 1D5F 


KM SET TRANSLATE 
IN : A: Tastennurmer 

B: Tastencode, normal 
Start Translation Table 
Code in Tabelle schreiben 


********************************** 


1D57 2A 43 B5 LD HL,(B543) 

1D5A 18 03 JR 1D5F 


KM SET SHIFT 

IN : A: Tastennummer 

B: Tastencode, mit Shift 
Start Shift-Tabelle 
Code in Tabelle schreiben 


***************** **★*★***★*★★**★** 


1D5C 2A 45 B5 LD HL,(B545) 


KM SET CTRL 

IN : A: Tastennumner 

B: Tastencode, mit Ctrl 
Start Control-Tabelle 


********************************** 


1D5F 

FE 50 

CP 

50 

1D61 

DO 

RET 

NC 

1D62 

85 

ADD 

L 

1D63 

6F 

LD 

L,A 

1D64 

8C 

ADC 

H 


Tastencode setzen 
IN : A: Tastennummer 

8: entspr. Tastencode 
HL: Start der Tabelle 
Tastennummer>79? 
dann Fehler, CY:=0, zurück 
Tastennummer 
zun Start der 
Tabelle 
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1D65 

95 

SUB 

L 

addieren. 

1D66 

67 

LD 

H,A 

ergibt Adr. des Codes 

1D67 

70 

LD 

(HL),B 

Code setzen 

1D68 

C9 

RET 




********************************** KEY TRANSLATION TABLE 


1D69 

F0 

F3 

Fl 

89 

86 

83 

8B 

8A 


1D71 

F2 

EO 

87 

88 

85 

81 

82 

80 


1D79 

10 

5B 

OD 

5D 

84 

FF 

5C 

FF 

\ 

1D81 

5E 

2D 

40 

70 

3B 

3A 

2F 

2E 

A -3p;:/. 

1D89 

30 

39 

6F 

69 

6C 

6B 

6D 

2C 

09oi1km, 

1D91 

38 

37 

75 

79 

68 

6A 

6E 

20 

87uyh j n 

1D99 

36 

35 

72 

74 

67 66 

62 

76 

65rtgfbv 

1D AI 

34 

33 

65 

77 

73 

64 

63 

78 

43ewsdcx 

1DA9 

31 

32 

FC 

71 

09 

61 

FD 

7A 

12 q a z 

1DB1 

OB 

OA 

08 

09 

58 

5A 

FF 

7F 

XZ 

********************************** 

KEY SHIFT TABLE 

1DB9 

F4 

F7 

F5 

89 

86 

83 

8B 

8A 


1DC1 

F6 

EO 

87 

88 

85 

81 

82 

80 


1DC9 

10 

7B 

OD 

7D 

84 

FF 

60 

FF 


1DD1 

A3 

3D 

7C 

50 

2B 

2A 

3F 

3E 

= p+*?> 

1DD9 

5F 

29 4F 

49 

4C 

4B 

4D 

3C 

)OILKM< 

1DE1 

28 

27 

55 

59 

48 

4A 

4E 

20 

CUYHJN 

1DE9 

26 

25 

52 

54 

47 

46 

42 

56 

&%RTGFBV 

1DF1 

24 

23 45 

57 

53 

44 

43 

58 

$#EWSDCX 

1DF9 

21 

22 

FC 

51 

09 

41 

FD 

5A 

!" Q A Z 

1E01 

OB 

OA 

08 

09 

58 

5A 

FF 

7F 

XZ 

********************************** 

KEY CTRL TABLE 

1E09 

F8 

FB 

F9 

89 

86 

83 

8C 

8A 


1E11 

FA 

EO 

87 

88 

85 

81 

82 

80 


1 El 9 

10 

1B 

OD 

ID 

84 

FF 

IC 

FF 


1E21 

IE 

FF 

00 

10 

FF 

FF 

FF 

FF 


1E 29 

1 F 

FF 

OF 

09 

OC 

OB 

OD 

FF 


1E31 

FF 

FF 

15 

19 

08 

OA 

OE 

FF 


1E39 

FF 

FF 

12 

14 

07 

06 

02 

16 


1E41 

FF 

FF 

05 

17 

13 

04 

03 

18 


1E49 

FF 

7E 

FC 

11 

El 

01 

FE 

1A 


1E51 

FF 

FF 

FF 

FF 

FF 

FF 

FF 

7F 


1E59 

07 

03 

4B 

FF 

FF 

FF 

FF 

FF 


1E61 

AB 

8F 









1E63 

C7 

RST 

00 

1E64 

C7 

RST 

00 

1E65 

C7 

RST 

00 

1E66 

C7 

RST 

00 

1E67 

C 7 

RST 

00 
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SOUND MANAGER (SOUND) 


** * ** * **** * * * * ***** ** ** *** ***** * * * 


1E68 

AF 



XOR 

A 

1E69 

F3 



DI 


1E6A 

32 

52 

B5 

LD 

(B552),A 

1E6D 

32 

51 

B5 

LD 

(B551) ,A 

1E70 

21 

55 

B5 

LD 

HL,B555 

1E73 

11 

03 

1 F 

LD 

DE,1F03 

1E76 

06 

81 


LD 

B,81 

1E78 

CD 

D2 

01 

CALL 

01D2 

1E7B 

3E 

3F 


LD 

A,3F 

1E7D 

32 

19 

B6 

LD 

(B619),A 

1E80 

21 

5C 

B5 

LD 

HL,B55C 

1E83 

01 

3D 

00 

LD 

BC,003D 

1E86 

11 

08 

01 

LD 

DE,0108 

1E89 

AF 



XOR 

A 

1E8A 

77 



LD 

(HL),A 

1E8B 

23 



INC 

HL 

1E8C 

72 



LD 

<HL),D 

1E8D 

23 



INC 

HL 

1E8E 

73 



LD 

(HL),E 

1E8F 

09 



ADD 

HL,BC 

1E90 

3C 



INC 

A 

1E91 

EB 



EX 

DE,HL 

1E92 

29 



ADD 

HL,HL 

1E93 

EB 



EX 

DE,HL 

1E94 

FE 

03 


CP 

03 

1E96 

20 

F2 


JR 

NZ.1E8A 

1E98 

OE 

07 


LD 

C, 07 

********************************** 

1E9A 

DD 

E5 


PUSH 

IX 

1E9C 

E5 



PUSH 

HL 

1E9D 

21 

ID 

B5 

LD 

HL,B51D 

1EA0 

41 



LD 

B, C 

1EA1 

11 

3F 

00 

LD 

DE,003F 

1EA4 

19 



ADD 

HL, DE 

1EA5 

CB 

38 


SRL 

B 

1EA7 

30 

F8 


JR 

NC.1EA1 

1EA9 

C5 



PUSH 

BC 

1EAA 

E5 



PUSH 

HL 

1EAB 

DD 

El 


POP 

IX 

1EAD 

EB 



EX 

DE,HL 

1EAE 

CD 

7F 

22 

CALL 

227F 

1EB1 

13 



INC 

DE 

1EB2 

13 



INC 

DE 

1EB3 

13 



INC 

DE 

1EB4 

6B 



LD 

L.E 

1EB5 

62 



LD 

H,D 

1EB6 

13 



INC 

DE 

1EB7 

01 

3B 

00 

LD 

BC,003B 

1EBA 

36 

00 


LD 

(HL),00 

1EBC 

ED 

B0 


LDIR 


IE BE 

DD 

36 

IC 04 

LD 

(IX+1C),04 

1EC2 

CI 



POP 

BC 

1EC3 

EB 



EX 

DE,HL 


SOUND RESET 


Laufende und 

alte Aktivitäten löschen 
Adresse des Sound Event Blocks 
Zeiger auf Event Routine 
Event asynchr., Near Address 
Event Block aufbauen 
Kontrollbyte für PSG 
setzen 

Paramaterblöcke der Kanäle A-C 

Länge der Params -2 

Werte für Kanal- u. Rauschmaske 

Null 

Kanalnummer setzen 
Zeiger auf Kanalmaske 
Kanalmaske setzen 
Zeiger auf Rauschmaske 
Rauschmaske setzen 
restlichen Block übergehen 
Kanalnummer erhöhen 
Kanalmaske und 
Rauschmaske 
nach links verschieben 
Kanalnummer <2? 

dann nächsten Kanal initialisieren 
b0-b2:=1, f. alle Blöcke 

Parameter-Blöcke initialisieren 
IN : C: Kanal bits 


Start Params A -S3F 
Kanal bits 

Länge eines Blockes 
addieren 

bis ein 1-Bit gefunden 

restliche Kanalbits retten 
Zeiger auf Params 
nach IX 
und nach DE 
Kanal ausschalten 

Zeiger auf Kanalstatus 
berechnen 

und nach 
HL kopieren 
Zeiger auf ENT-Flag 
Anzahl der Bytes bis Blockende 
mit Nullen 
füllen 

Anzahl der freien Datenblöcke 

Kanal- u. Rauschmaske 

Zeiger aus nächsten Block -> HL 
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1EC4 

04 

INC 

B 

1EC5 

10 DE 

DJNZ 

1EA5 

1EC7 

El 

POP 

HL 

1EC8 

DD El 

POP 

IX 

IE CA 

C9 

RET 


********************************** 


1ECB 

21 

52 

B5 

LD 

HL,B552 

1ECE 

F3 



Dl 


1ECF 

7E 



LD 

A,(HL) 

1 EDO 

36 

00 


LD 

(HL),00 

1ED2 

FB 



EI 


1ED3 

B7 



0R 

A 

1ED4 

C8 



RET 

Z 

1ED5 

2B 



DEC 

HL 

1ED6 

77 



LD 

(HL),A 

1ED7 

2E 

03 


LD 

L,03 

1ED9 

OE 

00 


LD 

C,00 

1EDB 

3E 

07 


LD 

A,07 

1EDD 

85 



ADD 

L 

1EDE 

CD 

26 

08 

CALL 

0826 

1EE1 

2D 



DEC 

L 

1EE2 

20 

F7 


JR 

NZ,1EDB 

1EE4 

37 



SCF 


1EE5 

C9 



RET 



*************** * ** * ****** * ******* * 


1EE6 

3A 

51 

B5 


LD 

A,(B551) 

1EE9 

B7 




OR 

A 

1EEA 

C8 




RET 

Z 

1EEB 

DD 

21 

ID 

B5 

LD 

IX,B51D 

1EEF 

11 

3F 

00 


LD 

DE,003F 

1EF2 

DD 

19 



ADD 

IX,DE 

1EF4 

CB 

3F 



SRL 

A 

1EF6 

F5 




PUSH 

AF 

1EF7 

DD 

7E 

0F 


LD 

A, (IX+0F) 

1EFA 

DC 

76 

22 


CALL 

C,2276 

1EFD 

Fl 




POP 

AF 

1EFE 

20 

F2 



JR 

NZ,1EF2 

1F 00 

C3 

IE 

20 


JP 

2 01E 

********************************** 

1F03 

DD 

E5 



PUSH 

IX 

1F05 

21 

50 

B5 


LD 

HL,B550 

1F 08 

E5 




PUSH 

HL 

1F09 

AF 




XOR 

A 

1F0A 

77 




LD 

(HL), A 

1 FOB 

23 




INC 

HL 

1 F0C 

46 




LD 

B, (HL) 

1 FOD 

C5 




PUSH 

BC 

1F0E 

23 




INC 

HL 

1 F0F 

B6 




OR 

(HL) 

1 F10 

28 

22 



JR 

Z,1F34 

1 Fl 2 

DD 

21 

ID 

B5 

LD 

IX, B 51D 

1F16 

01 

3F 

00 


LD 

BC,003F 

1F19 

DD 

09 



ADD 

IX,BC 


zum Ausgleich f. Herunterzähl, 
ggf. restliche Blöcke bearbeiten 


SOUND HOLD 

OUT: CY:=1, wenn o.k. 

CY:=0, w. keine lfd. Aktiv. 
Zeiger auf lfd. Aktivitäten 

lfd. Aktivitäten laden 
und löschen 

keine lfd. Aktivitäten? 
dann CY:=0, raus 

sonst lfd. Aktivitäten 
als alte Aktivitäten 
Zähler f. 3 Kanäle 
Lautstärke:=0, d.h. ausschalt. 
7+Kanalnummer 

= entspr. Lautstärkeregister 
Lautstärke setzen 
Kanalnummer 

noch nicht =0? nächsten Kanal 
CY:=1 f. o.k. 


SOUND CONTINUE 

alte Aktivitäten 

keine? 

dann raus 

Adr. Params A -$3F 
Länge eines Blockes 
addieren 

bis ein 1-Bit gefunden 
restl. Kanalmaske retten 
Lautstärke aus Params 
ggf. setzen 
restl. Kanalmaske 
noch Kanäle? d. bearbeiten 
alte u. lfd. Aktiv, setzen 

Sound Event (asynchronous) 

Zeiger auf restl. Aktiv, 
retten 

restl. Aktiv, 
löschen 

alte Aktivitäten 
laden 

und retten 
laufende Aktivitäten 
laden u. Flags setzen 
keine lfd. Aktiv.? d. alte 
Start Params A -$3F 
Länge eines Blockes 
addieren 
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1 FlB 

CB 

3F 


SRL 

A 

1 F1D 

30 

FA 


JR 

NC,1F19 

1 Fl F 

F5 



PUSH 

AF 

1F20 

DD 

7E 

04 

LD 

A, (IX+04) 

1F23 

1 F 



RRA 


1 F24 

DC 

C2 

22 

CALL 

C,22C2 

1 F27 

DD 

7E 

07 

LD 

A,(1X+07) 

1F2A 

1 F 



RRA 


1 F2B 

DC 

B6 

21 

CALL 

C,21B6 

1F2E 

DC 

A8 

20 

CALL 

C,20A8 

1F31 

Fl 



POP 

AF 

1F32 

20 

E2 


JR 

NZ.1F16 

1 F34 

Ci 



POP 

BC 

1F35 

El 



POP 

HL 

1F36 

7E 



LD 

A,(HL) 

1F37 

B7 



OR 

A 

1F38 

28 

20 


JR 

Z, 1F5A 

1F3A 

4F 



LD 

C,A 

1F3B 

23 



INC 

HL 

1F3C 

7E 



LD 

A, (HL) 

1F3D 

70 



LD 

(HL),B 

1 F3E 

A8 



XOR 

B 

1 F3F 

47 



LD 

B, A 

1F40 

23 



INC 

HL 

1F41 

B6 



OR 

(HL) 

1F42 

77 



LD 

(HL),A 

1F43 

78 



LD 

A.B 

1F44 

2F 



CPL 


1F45 

Al 



AND 

C 

1F46 

28 

12 


JR 

Z, 1F5A 

1F48 

DD 

21 

ID B5 

LD 

IX.B51D 

1F4C 

11 

3F 

00 

LD 

DE,003F 

1F4F 

DD 

19 


ADD 

IX,DE 

1F51 

CB 

3F 


SRL 

A 

1F53 

F5 



PUSH 

AF 

1F54 

DC 

7F 

22 

CALL 

C,227F 

1F57 

Fl 



POP 

AF 

1F58 

20 

F5 


JR 

NZ.1F4F 

1F5A 

AF 



XOR 

A 

1 FSB 

32 

54 

B5 

LD 

(B554),A 

1F5E 

DD 

El 


POP 

IX 

1F60 

C9 



RET 


***** *********** **** ************* * 

1F61 

21 

52 

B5 

LD 

HL,B552 

1F64 

7E 



LD 

A,(HL) 

1F65 

B7 



OR 

A 

1F66 

C8 



RET 

Z 

1F67 

23 



INC 

HL 

1F68 

35 



DEC 

(HL) 

1F69 

CO 



RET 

NZ 

1F6A 

34 



INC 

(HL) 

1F6B 

23 



INC 

HL 

1F6C 

7E 



LD 

A, (HL) 

1 F6D 

B7 



OR 

A 

1F6E 

C0 



RET 

NZ 

1F6F 

2B 



DEC 

HL 

1F70 

36 

03 


LD 

(HL),03 


bis ein aktiver 
Block gefunden 
restl. Kanalmaske retten 
Flag f. ENT-Folge schwebend 
ins Carry 

ggf. ENT-Folge bearbeiten 
Flag f. ENV-Folge schwebend 
ins Carry 

ggf. ENV-Folge bearbeiten 
Tonende? d. nächster Eintrag 
restl. Kanalmaske 
noch Kanäle? d. bearbeiten 
alte Aktivitäten 
restliche Aktivitäten 
laden 

keine Aktivitäten mehr übrig? 
dann raus 

restl. Aktiv, retten 

alte Aktiv. 

laden 

urspr. alte Aktiv, setzen 
Änderungen d. alten Aktiv, 
nach B 

lfd. Aktivitäten 
u. die Änderungen d. alten 
zusammen als lfd. setzen 
Änderungen der alten Aktiv, 
aus restl. Aktiv, 
ausmaskieren 

keine Aktiv, übrig? dann raus 
ansonsten alle restl. 

Aktiv, ohne Änderung d. 
alten Aktivitäten 
deaktivieren 
und abschalten 


Null als Zeichen f. 
Aktivitäten bearbeitet setzen 


Scan Sound Queues 

lfd. Sound Aktivitäten 
laden 

Sound inaktiv? 
dann zurück 

Zeiger a. 100Hz Frequenzteiler 

Interrupt-Zähler dekrement. 

zurück, wenn noch nicht null 

sonst auf 1 setzen 

Flag f. 'Folgen bearbeitet' 

laden 

Folgen noch unbearbeitet? 
dann zurück 
Freqenzteiler 

auf 3 setzen (300Hz/3=100Hz) 
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1F72 

2B 



DEC 

HL 

1F73 

46 



LD 

B,(HL) 

1F74 

21 

22 

B5 

LD 

HL,B522 

1F77 

11 

3F 

00 

LD 

DE,003F 

1F7A 

AF 



XOR 

A 

1F7B 

19 



ADD 

HL,DE 

1F7C 

CB 

38 


SRL 

B 

1F7E 

30 

FB 


JR 

NC,1F7B 

1F80 

35 



DEC 

(HL) 

1F81 

20 

05 


JR 

NZ,1F88 

1 F83 

2B 



DEC 

HL 

1F84 

CB 

06 


RLC 

(HL) 

1 F86 

8A 



ADC 

D 

1 F87 

23 



INC 

HL 

1F88 

23 



INC 

HL 

1F89 

35 



DEC 

(HL) 

1F8A 

20 

05 


JR 

NZ,1F91 

1 F8C 

23 



INC 

HL 

1 F8D 

CB 

06 


RLC 

(HL) 

1F8F 

8A 



ADC 

D 

1 F90 

2B 



DEC 

HL 

1F91 

2B 



DEC 

HL 

1F92 

04 



INC 

B 

1F93 

10 

E6 


DJNZ 

1F7B 

1F95 

B7 



OR 

A 

1F96 

C8 



RET 

Z 

1F97 

21 

54 

B5 

LD 

HL,B554 

1 F9A 

77 



LD 

(HL),A 

1F9B 

23 



INC 

HL 

1F9C 

C3 

E2 

01 

JP 

01E2 


*-fr*** ******************** ********** 


1F9F 

CD 

E6 

IE 

CALL 

1EE6 

1FA2 

7E 



LD 

A, (HL) 

1FA3 

E6 

07 


AND 

07 

1 FAS 

37 



SCF 


1 FA6 

C8 



RET 

Z 

1FA7 

4F 



LD 

C, A 

1 FA8 

B6 



OR 

(HL) 

1 FA9 

FC 

9A 

IE 

CALL 

M,1E9A 

1FAC 

41 



LD 

B,C 

1 FAD 

DD 

21 

ID B5 

LD 

IX,B51D 

1 FBI 

11 

3F 

00 

LD 

DE,003F 

1FB4 

AF 



XOR 

A 

1FB5 

DD 

19 


ADD 

IX,DE 

1FB7 

CB 

38 


SRL 

B 

1FB9 

30 

FA 


JR 

NC,1FB5 

1 FBB 

DD 

72 

IE 

LD 

(IX+1E),D 


lfd. Aktivitäten 
Laden 

Zeiger ENT-Pausenzeit A -$3F 

Länge eines Param-Blockes 

Flag f. aktive ENV/ENT-Folgen 

Blocklänge addieren 

bis aktiver Kanal 

gefunden 

ENV-Pausenzeit 

noch nicht zuende? d. weiter 
sonst Flag f. aktive ENV-Folge 
ins Carry und bO d. Flags 
Flag addieren (D=$00) 

Zeiger auf ENV-Pausenzähler 
Zeiger auf ENT-Pausenzähler 
diesen herunterzählen 
Pause noch nicht zuende? 
sonst Flag f. aktive ENT-Folge 
ins Carry und in bO 
und zun Akku addieren (D=$00) 
Zeiger auf ENT-Pausenzähler 
Zeiger auf ENV-Pausenzähler 
Kanalmaske z. Ausgl. erhöhen 
noch Kanäle? d. bearbeiten 
irgendwelche Folgen zu bearb.? 
sonst zurück 

Flag f. Folgen bearbeiten 
setzen 

Zeiger auf Sound Event 
Sound Event einhängen 

SOUND QUEUE 

IN : (HL)..(HL+8): Übergabe-Block 
0: Kanalstatus 
1: No. d. ENV-Folge 
2: No. d. ENT-Folge 
3/4: Tonperiode 
5: Rauschperiode 
6: Lautstärke 
7/8: Tondauer 
OUT: CY:=1, wenn o.k. 

CY:=0 f wenn Queue voll 
alte Aktiv, wieder einsetzen 
Kanalstatus aus Übergabe 
Kanalbits isolieren 
CY:=1 f. evtl. o.k. 
kein Kanal? dann o.k., raus 
Kanalbits retten 
restlichen Status laden 
flush? d. Param-Block löschen 
Kanalbits 

Start Params A -$3F 
Länge eines Blockes 

addieren 

bis entspr. Kanal 
gefunden 

Event-Adr. löschen 
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1 FBE 

DD 

BE 

IC 

CP 

(IX+1C) 

1FC1 

3F 



CCF 


1 FC2 

9F 



SBC 

A 

1FC3 

04 



INC 

B 

1 FC4 

10 

EF 


DJNZ 

1FB5 

1FC6 

B7 



OR 

A 

1FC7 

CO 



RET 

NZ 

1FC8 

41 



LD 

B, C 

1FC9 

7E 



LD 

A,(HL) 

1 FCA 

1F 



RRA 


1 FCB 

1 F 



RRA 


1 FCC 

1 F 



RRA 


1 FCD 

B0 



OR 

B 

1 FCE 

E6 

0F 


AND 

0F 

1 FDO 

4F 



LD 

C,A 

1 FD 1 

23 



INC 

HL 

1FD2 

DD 

21 

ID B5 

LD 

IX,B51D 

1FD6 

11 

3F 

00 

LD 

DE,003F 

1FD9 

DD 

19 


ADD 

IX,DE 

1 FDB 

CB 

38 


SRL 

B 

1 FDD 

30 

FA 


JR 

NC,1FD9 

1 FDF 

E5 



PUSH 

HL 

1 FEO 

C5 



PUSH 

BC 

1 FEI 

DD 

7E 

1B 

LD 

A,(IX+1B) 

1 FE4 

DD 

34 

1B 

INC 

(IX+1B) 

1FE7 

DD 

35 

IC 

DEC 

(IX+1C) 

1 FEA 

EB 



EX 

DE,HL 

1FEB 

CD 

3A 

20 

CALL 

203A 

1 FEE 

E5 



PUSH 

HL 

1 FEF 

EB 



EX 

DE,HL 

1 FFO 

DD 

7E 

01 

LD 

A,(IX+01) 

1FF3 

2F 



CPL 


1FF4 

AI 



AND 

C 

1 FF5 

12 



LD 

(DE),A 

1FF6 

13 



INC 

DE 

1FF7 

7E 



LD 

A, (HL) 

1FF8 

23 



INC 

HL 

1FF9 

87 



ADD 

A 

1FFA 

87 



ADD 

A 

1 FFB 

87 



ADD 

A 

1 FFC 

87 



ADD 

A 

1 FFD 

47 



LD 

B, A 

1 FFE 

7E 



LD 

A, (HL) 

1 FFF 

23 



INC 

HL 

2000 

E6 

0F 


AND 

0F 

2002 

B0 



OR 

B 

2003 

12 



LD 

(DE),A 

2004 

13 



INC 

DE 

2005 

01 

06 

00 

LD 

BC,0006 

2008 

ED 

B0 


LDIR 


200A 

El 



POP 

HL 

200B 

F3 



DI 


200C 

DD 

7E 

1A 

LD 

A, (IX+1A) 

200F 

DD 

34 

1A 

INC 

(IX+1A) 

2012 

DD 

B6 

03 

OR 

(IX+03) 

2015 

FB 



EI 


2016 

CC 

BD 

20 

CALL 

Z,20BD 

2019 

CI 



POP 

BC 


noch Einträge frei? 

dann CY:=0 

bzw. A:=$00 

zum Ausgleich erhöhen 

noch Kanäle? dann bearbeiten 

noch Einträge frei? 

sonst zurück, CY:=0 f. Fehler 

Kanalbits 

Status aus Übergabe 
Zielkanal 
aus Status 
heraus 

und noch als Rendezvous setzen 
u. isolieren, 'hold 1 in b3 
neuer Status nach C 
Zeiger auf ENV-Folgenummer 
Start Params A -$3F 
Länge eines Blockes 
addieren 

bis ein Zielkanal 
gefunden 

Zeiger in Übergabe retten 
Kanalbits u. Status retten 
No. d. nächst, freien Eintrags 
erhöhen 

Anz. freier Einträge dekrem. 
Zeiger in Übergabe nach DE 
Adr. d. Daten-Blockes berechn, 
und retten 
Zeiger in Übergabe 
Kanalmaske 
aus Status löschen 
(kein Rendezvous mit sich) 
und als Datenstatus setzen 
Zeiger f. Daten weiter 
ENV-Folgenunmer 
Zeiger auf ENT-Folgenunmer 
Nummer d. ENV-Folge 
in obere vier Bits 
schieben 

und nach B retten 
ENT-Folgenunmer laden 
Zeiger auf Tonperiode 
untere 4 Bits isolieren 
ENV-Folgeno. in oberes Nibble 
in Datenblock speichern 
Zeiger weiter 
Anz. d. restl. Datenbytes 
restl. Übergabe in Datenblock 
Adr. d. Datenblocks 

Anz. d. Einträge in Queue 
erhöhen 

nur 1 Block, Queue inaktiv? 

dann Kanal aktivieren 
Kanalbits u. Datenstatus 
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201A 

El 


POP 

HL 

201B 

04 


INC 

B 

201C 

10 

B8 

DJNZ 

1FD6 

201E 

E5 


PUSH 

HL 

201F 

21 

51 B5 

LD 

HL,B551 

2022 

7E 


LD 

A, (HL) 

2023 

B7 


OR 

A 

2024 

28 

11 

JR 

Z,2037 

2026 

36 

00 

LD 

(HL),00 

2028 

F3 


DI 


2029 

23 


INC 

HL 

202A 

46 


LD 

B, (HL) 

202B 

B0 


OR 

B 

202C 

77 


LD 

(HL),A 

202D 

78 


LD 

A,B 

202E 

B7 


OR 

A 

202F 

20 

05 

JR 

NZ,2036 

2031 

23 


INC 

HL 

2032 

36 

03 

LD 

(HL),03 

2034 

23 


INC 

HL 

2035 

77 


LD 

(HL),A 

2036 

FB 


EI 


2037 

El 


POP 

HL 

2038 

37 


SCF 


2039 

C9 


RET 



Zeiger auf Übergabe (ENV-No.) 

zun Ausgleich erhöhen 

noch Kanäle? d. bearbeiten 

Zeiger auf Übergabe 

alte Aktivitäten 

laden 

keine alten Aktivitäten? 
dann CY:=1 f. o.k., raus 
alte Aktivitäten löschen 

laufende Aktivitäten 

laden, nach B 

zusammen mit alten Aktiv. 

als lfd. neu setzen 

lfd. Aktivitäten 

keine? 

sonst raus 

100 Hz Frequenzteiler 
auf Startwert setzen 
Flag f. Folgen schwebend 
löschen: Folgen bearbeitet 

Zeiger auf Übergabe 
CY:=1 f. o.k. 


********************************** 


203A 

E6 

03 



AND 

03 

203C 

87 




ADD 

A 

203D 

87 




ADD 

A 

203E 

87 




ADD 

A 

203 F 

C6 

1 F 



ADD 

1 F 

2041 

DD 

E5 



PUSH 

IX 

2043 

El 




POP 

HL 

2044 

85 




ADD 

L 

2045 

6F 




LD 

L,A 

2046 

8C 




ADC 

H 

2047 

95 




SUB 

L 

2048 

67 




LD 

H,A 

2049 

C9 




RET 


********************************** 

204A 

6F 




LD 

L,A 

204B 

CD 

E6 

IE 


CALL 

1EE6 

204E 

7D 




LD 

A,L 

204 F 

E6 

07 



AND 

07 

2051 

C8 




RET 

Z 

2052 

DD 

21 

ID 

B5 

LD 

IX,B51D 

2056 

11 

3F 

00 


LD 

DE,003F 

2059 

DD 

19 



ADD 

IX,DE 

205B 

CB 

3F 



SRL 

A 

205D 

30 

FA 



JR 

NC,2059 

205 F 

F5 




PUSH 

AF 

2060 

DD 

CB 

03 

5E 

BIT 

3, (IX+03) 


Datenblock Adresse berechnen 
IN : IX: Zeiger auf lfd. Params 
A<1..0>: Datenblock-Nummer 
OUT: HL: Adresse d. Datenblocks 
untere Bits isolieren 
Datenblocknummer 
mit 8 (f. 8 Bytes/Block) 
multiplizieren 
Offset in Params addieren 
Zeiger auf Params 
nach HL 

Offset auf Parameterstart 
zum Parameterstart 
addieren, 

ergibt absolute Adresse 
in HL 


SOUND RELEASE 
IN : A: Kanalmaske 
Kanalbits retten 
alte Aktivitäten wieder an 
Kanalbits zurück 
und isolieren 
keine Kanäle? dann raus 
Start Params A -$3F 
Länge eines Blockes 
addieren 

bis entspr. Kanalbit 
gefunden 

restl. Kanalbits retten 
Queue im Haltezustand? 
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2064 

C4 

B7 20 

CALL 

NZ,20B7 

2067 

Fl 


POP 

AF 

2068 

20 

EC 

JR 

NZ.2056 

206A 

18 

B2 

JR 

201E 


********************************** 


206C 

E6 

07 


AND 

07 

206E 

C8 



RET 

Z 

206F 

21 

20 

B5 

LD 

HL,B520 

2072 

11 

3F 

00 

LD 

DE,003F 

2075 

19 



ADD 

HL,DE 

2076 

1 F 



RRA 


2077 

30 

FC 


JR 

NC.2075 

2079 

F3 



DI 


207A 

7E 



LD 

A,(HL) 

207B 

87 



ADD 

A 

207C 

87 



ADD 

A 

207D 

87 



ADD 

A 

207E 

11 

19 

00 

LD 

DE,0019 

2081 

19 



ADD 

HL,DE 

2082 

B6 



OR 

(HL) 

2083 

23 



INC 

HL 

2084 

23 



INC 

HL 

2085 

36 

00 


LD 

(HL),00 

2087 

FB 



EI 


2088 

C9 



RET 



********************************** 


2089 

E6 

07 


AND 

07 

208B 

C8 



RET 

Z 

208C 

EB 



EX 

DE,HL 

208D 

21 

39 

B5 

LD 

HL.B539 

2090 

01 

3F 

00 

LD 

BC.003F 

2093 

09 



ADD 

HL, BC 

2094 

1 F 



RRA 


2095 

30 

FC 


JR 

NC,2093 

2097 

AF 



XOR 

A 

2098 

F3 



DI 


2099 

BE 



CP 

(HL) 

209A 

23 



INC 

HL 

209B 

73 



LD 

(HL),E 

209C 

23 



INC 

HL 

209D 

20 

03 


JR 

NZ.20A2 

209F 

72 



LD 

(HL),D 

20A0 

FB 



EI 


20A1 

C9 



RET 


20A2 

77 



LD 

(HL),A 

20A3 

FB 



EI 


20A4 

EB 



EX 

DE,HL 

20A5 

C3 

E2 

01 

JP 

01E2 


d. Kanal aktivieren 
restl. Kanalbits 
noch Kanäle? d. bearbeiten 
Aktivitäten neu setzen, raus 

SOUND CHECK 
IN : A: Kanalmaske 
OUT: A: Kanalstatus 
Kanalbits isolieren 
keine Kanäle? d. raus 
Zeiger Status A -$3F 
Länge eines Blockes 
addieren 
bis 1. Kanalbit 
gefunden 

Status d. Kanals laden 
und nach oben schieben, 
un Anz. freier Queue- 
Einträge noch einzutragen 
Anz. d. Bytes b. freie Eintr. 
addieren 

Anz. freier Plätze in Queue 
Zeiger auf 
Event-Adr., Hi-Byte 
Event löschen aus Params 


SOUND ARM EVENT 
IN : A: Kanalbits 

HL: Adr. d. Event-Blocks 
Kanalbits isolieren 
kein Kanal? dann raus 
Zeiger auf Event retten 
Anz. Datenblöcke Kanal A -S3F 
Länge eines Parameterblocks 
addieren 
bis ein Kanal 
gefunden 


noch freie Plätze in Queue? 
Zeiger auf Event-Adresse 
Lo-Byte d. Adr. speichern 
Zeiger auf Hi-Byte der Adr. 
noch Plätze frei? d. einhängen 
sonst auch Hi-Byte setzen 


Hi-Byte löschen 

Adr. d. Event-Blocks nach HL 
Event einhängen 




Die Listirtgs der CPC-ROMs 323 


********************************** 


20A8 

DD 

7E 

1A 

LD 

A,(IX+1A) 

20AB 

B7 



OR 

A 

20AC 

CA 

7F 

22 

JP 

Z,227F 

20AF 

DD 

7E 

01 

LD 

A, (IX+01) 

20B2 

21 

50 

B5 

LD 

HL,B550 

20B5 

B6 



OR 

(HL) 

20B6 

77 



LD 

(HL),A 


********************************** 


20B7 

DD 

7E 

19 

LD 

A, (IX+19) 

20BA 

CD 

3A 

20 

CALL 

203A 

20BD 

7E 



LD 

A, (HL) 

20BE 

B7 



OR 

A 

20BF 

28 

OC 


JR 

Z,20CD 

20C1 

CB 

5F 


BIT 

3, A 

20C3 

20 

53 


JR 

NZ,2118 

20C5 

E5 



PUSH 

HL 

20C6 

36 

00 


LD 

(HL),00 

20C8 

CD 

1F 

21 

CALL 

211F 

20CB 

El 



POP 

HL 

20CC 

DO 



RET 

NC 

20CD 

DD 

36 

03 10 

LD 

(IX+03),10 

20D1 

23 



INC 

HL 

20D2 

7E 



LD 

A, (HL) 

20D3 

E6 

F0 


AND 

F0 

20D5 

F5 



PUSH 

AF 

20D6 

AE 



XOR 

(HL) 

20D7 

5F 



LD 

E,A 

20D8 

23 



INC 

HL 

20D9 

4E 



LD 

C, (HL ) 

20DA 

23 



INC 

HL 

20DB 

56 



LD 

D, (HL) 

20DC 

23 



INC 

HL 

20DD 

B2 



OR 

D 

20DE 

Bl 



OR 

C 

20DF 

28 

08 


JR 

Z.20E9 

20E1 

E5 



PUSH 

HL 

20E2 

CD 

AB 

22 

CALL 

22AB 

20E5 

DD 

56 

01 

LD 

D,(IX+01) 

20E8 

El 



POP 

HL 

20E9 

4E 



LD 

C, (HL) 

20EA 

23 



INC 

HL 

20EB 

5E 



LD 

E, (HL) 

20EC 

23 



INC 

HL 

20ED 

7E 



LD 

A, (HL) 

20EE 

23 



INC 

HL 

20EF 

66 



LD 

H,(HL) 

20F0 

6F 



LD 

L,A 

20F1 

Fl 



POP 

AF 

20F2 

CD 

75 

21 

CALL 

2175 

20F5 

21 

51 

B5 

LD 

HL,B551 

20F8 

DD 

7E 

01 

LD 

A,(IX+01) 

20FB 

B6 



OR 

(HL) 

20FC 

77 



LD 

(HL),A 

20FD 

DD 

34 

19 

INC 

(IX+19) 


nächsten Queue-Eintrag 
IN : IX: Zeiger lfd. Params 
Anz. d. Einträge in Queue 
keine Einträge mehr? 
dann raus, Kanal ausschalten 
Kanalmaske 

in restl. Aktivitäten 
hinein 

und neu setzen 

Kanal aktivieren 
IN : IX: Zeiger lfd. Params 
lfd. Datenblocknusrener 
Adr. d. Blocks berechnen 
Status d. Daten 
keine Rendezvous? 
dann Kanal einfach aktivieren 
Daten im Haltezustand? 
dann Kanal (Queue) anhalten 
Zeiger auf Datenblock 
Datenstatus löschen 
Rendezvous - Bits auswerten 
Zeiger auf Datenblock 
keine Rendezv. b. Unter-Kanal? 
sonst Kanal aktivieren 
Zeiger auf Folgennummern 
laden 

No. d. ENV-Folge isolieren 
und retten 

No. d. ENT-Folge isolieren 
und nach E retten 
Zeiger auf Tonperiode 
Tonperiode 
nach D,C 
laden 

Zeiger auf Rauschperiode 
keine ENT-Folge und 
Tonperiode =0? 
dann weiter 

Zeiger auf Rauschperiode 
ENT-Ende d. lfd. Tons bearb. 
lfd. Kanalmaske 
Zeiger auf Rauschperiode 
Rauschperiode laden 
Lautstärke (Anfangswert) 
nach E laden 
Zeiger auf Tondauer 
Tondauer 
nach 
HL 

laden 

ENV-Nunmer 

Dauer, Rauschen u. ENV setz. 

alte Aktivitäten 

lfd. Kanalmaske 

lfd. Kanal in alte Aktiv. 

setzen 

lfd. Datenblocknursner erhöhen 
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2100 

DD 

35 

1A 

DEC 

(IX+1A) 

2103 

DD 

34 

IC 

INC 

(IX+1C) 

2106 

F3 



DI 


2107 

DD 

7E 

IE 

LD 

A,(IX+1E) 

210A 

DD 

36 

IE 00 

LD 

(IX+1E),00 

210E 

FB 



EI 


210 F 

B7 



OR 

A 

2110 

C8 



RET 

Z 

2111 

67 



LD 

H, A 

2112 

DD 

6E 

ID 

LD 

L,(IX+1D) 

2115 

C3 

E2 

01 

JP 

01E2 


Anz. d. Datenblöcke erniedrig 
Anz. d freien Blöcke erhöhen 

Hi-Byte d. Event-Adr. 

Event löschen 

war Event gelöscht? 
dann raus 

sonst Adr. d. Events 
nach HL laden 
und Event einhängen 


★*★★★**★★★*★*★★★*★★*★★★*★***★*★★*★ Qugu 6 in Haitezustand 

IN : IX: Zeiger auf Params 

HL: Zeiger auf lfd. Daten 


2118 

CB 

9E 

RES 

3,(HL) 

Ho Id-Bit 

in Daten ausschalten 

211A 

DD 

36 03 08 

LD 

(IX+03),08 

Queue in 

Haltezustand 

21 IE 

C9 


RET 





irkirkirkiritirkirkirkiririrk’kirkir'kirirkirirk’kirkirk 


211F 

DD 

E5 



PUSH 

IX 

2121 

47 




LD 

B, A 

2122 

DD 

4E 

01 


LD 

C,(IX+01) 

2125 

DD 

21 

5C 

B5 

LD 

IX,B55C 

2129 

CB 

47 



BIT 

0, A 

212B 

20 

OC 



JR 

NZ,2139 

212D 

DD 

21 

9B 

B5 

LD 

IX,B59B 

2131 

CB 

4F 



BIT 

1.A 

2133 

20 

04 



JR 

NZ,2139 

2135 

DD 

21 

DA 

B5 

LD 

IX,B5DA 

2139 

F3 




DI 


213A 

DD 

7E 

03 


LD 

A,(IX+03) 

213D 

AI 




AND 

C 

213E 

28 

2D 



JR 

Z,216D 

2140 

78 




LD 

A,B 

2141 

DD 

BE 

01 


CP 

(IX+01) 

2144 

28 

1A 



JR 

Z,2160 

2146 

DD 

E5 



PUSH 

IX 

2148 

DD 

21 

DA 

B5 

LD 

IX,B5DA 

214C 

CB 

57 



BIT 

2,A 

214E 

20 

04 



JR 

NZ,2154 

2150 

DD 

21 

9B 

B5 

LD 

IX,B59B 

2154 

DD 

7E 

03 


LD 

A,(IX+03) 

2157 

AI 




AND 

C 

2158 

28 

12 



JR 

Z,216C 

215A 

FB 




EI 


215B 

CD 

B7 

20 


CALL 

20B7 

215E 

DD 

El 



POP 

IX 

2160 

DD 

36 

03 

00 

LD 

(IX+03),00 

2164 

FB 




EI 


2165 

CD 

B7 

20 


CALL 

20B7 

2168 

DD 

El 



POP 

IX 

216A 

37 




SCF 


216B 

C9 




RET 


216C 

El 




POP 

HL 


Rendezvous-Bits auswerten 
IN : IX: Zeiger auf Params 
A: Datenstatus 
OUT: CY:=1, wenn Rekursion 
Param-Zeiger retten 
Datenstatus 

Kanalmaske d. Ur-Kanals 
Param-Zeiger, Kanal A 
wenn Rendezvous mit 
Kanal A 

Param-Zeiger, Kanal B 
wenn Rendezvous mit 
Kanal B 

sonst Param-Zeiger, Kanal C 

Status, 1. Unter-Kanal 
mit Ur-Kanalmaske verknüpfen 
kein Rend. m. Ur-Kanal? 
Ur-Datenstatus 

Rendezv. nur m. 1. Unter-Kan.? 
d. Unter-Kanal anschalten 
Zeiger auf 1. Unterkanal 
Zeiger auf Kanal C 
wenn auch noch Rendezv. m. 
Kanal C 

sonst Zeiger auf Kanal B 
2. Unterkanal-Status 
m. Ur-Kanalmaske verknüpfen 
dann nur 2. Unterkanal aktiv. 

2. Unterkanal aktivieren 
Zeiger auf 1. Unterkanal 
Kanal ausschalten 

Kanal aktivieren 
Zeiger auf Ur-Kanal 
CY:=1 f. Rekursion 

Zeiger auf Ur-Daten 
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216D 

DD El 

POP 

IX 

216F 

DD 70 03 

LD 

(IX+03),B 

2172 

FB 

EI 


2173 

B7 

OR 

A 

2174 

C9 

RET 



********************************** 


2175 

CB 

FB 


SET 

7,E 

2177 

DD 

73 

0F 

LD 

(IX+0F),E 

217A 

5F 



LD 

E/A 

217B 

7D 



LD 

A,L 

217C 

B4 



OR 

H 

217D 

20 

01 


JR 

NZ,2180 

217F 

2B 



DEC 

HL 

2180 

DD 

75 

08 

LD 

(IX+08),L 

2183 

DD 

74 

09 

LD 

(IX+09),H 

2186 

79 



LD 

A, C 

2187 

B7 



OR 

A 

2188 

28 

08 


JR 

Z,2192 

218A 

3E 

06 


LD 

A, 06 

218C 

CD 

26 

08 

CALL 

0826 

218F 

DD 

7E 

02 

LD 

A, (IX+02) 

2192 

B2 



OR 

D 

2193 

CD 

8B 

22 

CALL 

228B 

2196 

7B 



LD 

A/E 

2197 

B7 



OR 

A 

2198 

28 

0A 


JR 

Z,21A4 

219A 

21 

0A 

B6 

LD 

HL,B60A 

219D 

16 

00 


LD 

D, 00 

219F 

19 



ADD 

HL,DE 

21A0 

7E 



LD 

A, (HL) 

21 AI 

B7 



OR 

A 

21A2 

20 

03 


JR 

NZ,21A7 

21 A4 

21 

B2 

21 

LD 

HL.21B2 

21A7 

DD 

75 

0A 

LD 

(IX+0A),L 

21AA 

DD 

74 

OB 

LD 

(IX+0B),H 

21AD 

CD 

65 

22 

CALL 

2265 

21 BO 

18 

0D 


JR 

21BF 

********************************** 

21B2 

01 





21B5 

01 

00 

C8 



********************************** 

21B6 

DD 

6E 

0D 

LD 

L, (IX+0D) 

21B9 

DD 

66 

0E 

LD 

H, (IX+0E) 

21BC 

DD 

5E 

10 

LD 

E, (IX+10) 


Zeiger auf Ur-Kanal 
Datenstatus als Kanalstatus 

CY:=0 f. Rekurs ionsende 


Tondauer, Rauschen u. ENV setzen 
IN : HL: Tondauer 
E: Lautstärke 
C: Rauschperiode 
D: Kanalmaske 
A<7-4>: ENV-Folgenummer 
b7 d. Lautstärke :=1 
und als Lautstärke setzen 
ENV-Folgenummer retten 
T ondauer 
nicht null? 
dann weiter 

sonst Tondauer := SFFFF 
Tondauer 
setzen 

Rauschperiode 
kein Rauschen? 
dann weiter 

sonst als Rauschperiode 

in den PSG setzen 

Rauschmaske 

zusammen m. Kanalmaske 

Kanal u. Rauschen anschalten 

ENV-Nimmer 

= 0 ? 

dann Default-ENV-Folge setzen 

Tabellenstart d. ENV-Kurven 

Hi-Byte löschen 

ENV-No.*16 addieren 

Länge der Folge 

Null? 

sonst weiter 
Default f. ENV-Folge 
Adr. d. lfd. 

ENV-Folge setzen 
ENV-Werte initialisieren 
1. ENV-Gruppe bearbeiten 

Default ENV-Folge 
Länge d. Folge 


lfd. ENV-Gruppe bearbeiten 
IN : IX: Zeiger auf Params 
lfd. ENV-Zeiger 
nach HL 
Schrittzähler 
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★★★★★★*★★****★***★★★*★**★★★*★**★★★ 
IN : IX: Zeiger auf Params 


21BF 

7B 



LD 

A,E 

21C0 

FE 

FF 


CP 

FF 

21C2 

28 

76 


JR 

Z,223A 

21C4 

87 



ADD 

A 

21C5 

7E 



LD 

A, (HL) 

21C6 

23 



INC 

HL 

21C7 

38 

4A 


JR 

C.2213 

21C9 

28 

0D 


JR 

Z.21D8 

21CB 

ID 



DEC 

E 

21CC 

B7 



OR 

A 

21 CD 

20 

06 


JR 

NZ.21D5 

21CF 

DD 

B6 

0F 

OR 

(IX+0F) 

21D2 

F2 

DD 

21 

JP 

P.21DD 

21D5 

DD 

86 

0F 

ADD 

(IX+0F) 

21D8 

E6 

0F 


AND 

0F 

2 IDA 

CD 

73 

22 

CALL 

2273 

21DD 

4E 



LD 

C,(HL) 

21DE 

DD 

7E 

09 

LD 

A, (IX+09) 

21E1 

47 



LD 

B,A 

21E2 

87 



ADD 

A 

21E3 

38 

1B 


JR 

C.2200 

21E5 

AF 



XOR 

A 

21E6 

91 



SUB 

C 

21E7 

DD 

86 

08 

ADD 

(IX+08) 

21EA 

38 

OC 


JR 

C,21F8 

21EC 

05 



DEC 

B 

21ED 

F2 

F5 

21 

JP 

P,21F5 

21F0 

DD 

4E 

08 

LD 

C, (IX+08) 

21 F3 

AF 



XOR 

A 

21F4 

47 



LD 

B,A 

21F5 

DD 

70 

09 

LD 

(IX+09),B 

21F8 

DD 

77 

08 

LD 

(IX+08),A 

21FB 

B0 



OR 

B 

21 FC 

20 

02 


JR 

NZ,2200 

21 FE 

IE 

FF 


LD 

E, FF 

2200 

7B 



LD 

A,E 

2201 

B7 



OR 

A 

2202 

CC 

46 

22 

CALL 

Z,2246 

2205 

DD 

73 

10 

LD 

(IX+10),E 

2208 

F3 



DI 


2209 

DD 

71 

06 

LD 

(IX+06),C 

220C 

DD 

36 

07 80 

LD 

(IX+07),80 

2210 

FB 



EI 


2211 

B7 



OR 

A 

2212 

C9 



RET 



ENV-Gruppe bearbeiten 

HL: Zeiger in ENV-Folge 
E: ENV-Schrittzahl 
OUT: CY:=1, wenn Kanal deaktiv. 
Schrittzahl 
=$FF b. Tonende? 
dann Tonende bearbeiten 
Schrittzahl b7 gesetzt? 
Schrittweite laden 
Zeiger auf Pausenlänge 
b7 gesetzt? dann PSG-HülLkurve 
Null? dann einfach weiter 
Schrittzähler erniedrigen 
Schrittweite 
<>0? dann weiter 
sonst lfd. Lautstärke laden 
wenn b7=Q, dann weiter 
sonst Schrittweite+Lautstärke 
als neue Lautstärke 
setzen 

Pausenlänge laden 
Tonlänge Hi laden 
und nach B retten 
Tonlänge negativ? 
dann ggf. nächste ENV-Gruppe 
Zweierkomplement 
der Pausenzeit 
zur 

laufenden Tonlänge 
acidieren 

noch nicht Tonende? d. weiter 
restl. Tonlänge als Pausenzeit 
Tonlänge 
löschen 

restl. Tonlänge 
wieder setzen 
Tonende erreicht? 
sonst weiter 
Flag f. Tonende erreicht 
Schrittzahl 
testen 

=0? d. nächste ENV-Gruppe 
neue Schrittzahl setzen 

Pausenzeit setzen 

Flag f. ENV-Folge aktiv setzen 

CY:=0 


********************************** PSG* Hül1kurvs S 0 tz 0 n 

IN : E: No. d. PSG-Hüllkurve 
A: Lo-Byte ENV-Periode 
(HL): Hi-Byte ENV-Periode 

2213 57 LD D,A Lo-Byte d. Hüllkurvendauer 

2214 4B LD C,E HülIkurvennuimer im PSG 

2215 3E 0D LD A,0D Nimmer d. PSG-Reg. f. ENV-No. 
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2217 

CD 

26 

08 

CALL 

0826 

221A 

4A 



LD 

C, D 

221B 

3E 

OB 


LD 

A,0B 

221D 

CD 

26 

08 

CALL 

0826 

2220 

4E 



LD 

C, (HL) 

2221 

3E 

OC 


LD 

A,0C 

2223 

CD 

26 

08 

CALL 

0826 

2226 

3E 

10 


LD 

A, 10 

2228 

CD 

73 

22 

CALL 

2273 

222B 

CD 

46 

22 

CALL 

2246 

222E 

7B 



LD 

A/E 

222F 

3C 



INC 

A 

2230 

20 

8D 


JR 

NZ.21BF 

2232 

21 

B2 

21 

LD 

HL.21B2 

2235 

CD 

65 

22 

CALL 

2265 

2238 

18 

85 


JR 

21BF 


**★★*★*★★*★★*★★*★*★★★*★★****★★*★★* 


Hüll kurvennummer setzen 
Lo-Byte d. ENV-Periode 
in den PSG 
setzen 

Hi-Byte d, ENV-Periode 

in den PSG 

setzen 

b4:=1 f. HülIkurvengener. an 
setzen 

nächste ENV-Gruppe setzen 

Schrittzahl 

=$FF? 

sonst nächste ENV-Gr. bearb. 
dann Default ENV-Kurve 
einschalten 

und ENV-Gruppe bearbeiten 

Kanal deaktivieren 

IN : IX: Zeiger auf Params 

Status löschen 
ENT-Folge inakti.v 
ENV-Folge inaktiv 
CY:=1 f. Kanal deaktiviert 


223A 

AF 



XOR 

A 

223B 

DD 

77 

03 

LD 

(IX+03),A 

223E 

DD 

77 

07 

LD 

(IX+07),A 

2241 

DD 

77 

04 

LD 

(IX+04),A 

2244 

37 



SCF 


2245 

C9 



RET 



**★***★★******★★**★***★★**★*★**★*★ 


2246 

DD 

35 

OC 

DEC 

(IX+0C) 

2249 

20 

IE 


JR 

NZ,2269 

224B 

DD 

7E 

09 

LD 

A,(IX+09) 

224E 

87 



ADD 

A 

224F 

21 

B2 

21 

LD 

HL,21B2 

2252 

30 

11 


JR 

NC,2265 

2254 

DD 

34 

08 

INC 

(IX+08) 

2257 

20 

06 


JR 

NZ,225F 

2259 

DD 

34 

09 

INC 

(IX+09) 

225C 

IE 

FF 


LD 

E, FF 

225E 

C8 



RET 

Z 




225F DD 6E OA LD L,(IX+0A) 

2262 DD 66 OB LD H,(IX+0B) 

*★★*★*****★*★**★*★★*★**★★★★★★★***★ 


nächste ENV-Gruppe setzen 
IN : IX: Zeiger auf Params 

HL: Zeiger auf ENV-Gruppe 
OUT: E: Schrittzahl 
Anz. d. ENV-Gruppen 
noch nicht null? d. setzen 
restl. Tonlänge, Hi 
Tondauer negativ? 
sonst Default-Kurve 
setzen 
Zähler f. 

Kurvenwiederholungen 

erhöhen 

Flag f. Tonende 
falls Zähler =0 

lfd. ENV-Kurve initialisieren 
IN : IX: Zeigerauf Params 
OUT: E: Schrittzahl 

Start d. ENV-Kurve 
nach HL laden 

ENV-Kurve initialisieren 
IN : IX: Zeiger auf Params 

HL: Zeiger auf Kurvenanfang 
OUT: E: Schrittzahl 
Länge der Kurve 
setzen 

1. Schrittzahl 
laden 

Zeiger auf Schrittweite 
in die Params 


2265 

7E 



LD 

A,(HL) 

2266 

DD 

77 

OC 

LD 

(IX+0C),A 

2269 

23 



INC 

HL 

226A 

5E 



LD 

E, (HL) 

226B 

23 



INC 

HL 

226C 

DD 

75 

0D 

LD 

(IX+0D),L 
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226F DD 74 OE LD (IX+OE),H speichern 

2272 C9 RET 


* * ** ***************** * ********* *** 


2273 

DD 

77 

0F 

LD 

(IX+0F),A 

2276 

4F 



LD 

C,A 

2277 

DD 

7E 

00 

LD 

A,(IX+00) 

227A 

C6 

08 


ADD 

08 

227C 

C3 

26 

08 

JP 

0826 


* * ********* * ****** **** ********** * * 


227F 

DD 

7E 

01 

LD 

A,(IX+01) 

2282 

2F 



CPL 


2283 

21 

52 

B5 

LD 

HL.B552 

2286 

F3 



DI 


2287 

A6 



AND 

(HL) 

2288 

77 



LD 

(HL),A 

2289 

FB 



EI 


228A 

AF 



XOR 

A 


********************************** 


228B 

47 



LD 

B,A 

228C 

DD 

7E 

01 

LD 

A, (IX+01) 

228F 

DD 

B6 

02 

OR 

(IX+02) 

2292 

21 

19 

B6 

LD 

HL,B619 

2295 

F3 



DI 


2296 

B6 



OR 

(HL) 

2297 

A8 



XOR 

B 

2298 

BE 



CP 

(HL) 

2299 

77 



LD 

(HL),A 

229A 

FB 



EI 


229B 

20 

03 


JR 

NZ.22A0 

229D 

78 



LD 

A,B 

229E 

B7 



OR 

A 

229F 

CO 



RET 

NZ 

22A0 

AF 



XOR 

A 

22A1 

CD 

76 

22 

CALL 

2276 

22A4 

F3 



DI 


22A5 

4E 



LD 

C,(HL) 

22A6 

3E 

07 


LD 

A,07 

22A8 

C3 

26 

08 

JP 

0826 

********************************** 


22AB 

CD 

24 

23 

CALL 

2324 

22AE 

7B 



LD 

A,E 

22AF 

CD 

4E 

23 

CALL 

234E 

22B2 

DO 



RET 

NC 

22B3 

7E 



LD 

A, (HL) 


Lautstärke setzen 
IN : IX: Zeiger auf Params 
A: Lautstärke 
Lautstärke in Params 
und in C 

Kanalnummer (0-2) 

ergibt entspr. Lautstärkereg. 

Lautstärke in PSG setzen 

Kanal ausschalten, aus Aktivität 
IN : IX: Zeiger auf Params 
Kanalmaske 
invertieren 

Zeiger auf lfd. Aktivitäten 

aus lfd. Aktivitäten löschen 
und lfd. Aktivitäten neu setz. 

Maske f. Kanal abschalten 

Kanal an/aus, Rauschen an/aus 
IN : IX: Zeiger auf Params 
A: Maske f. an/aus 
Maske retten 
Kanalmaske 
und Rauschmaske 
lfd. PSG-KontrolIbyte 

mit Kanalmaske verknüpfen 
und Maskenbits invertieren 
sind Änderungen passiert? 
neues KontrolIbyte setzen 

Änderungen? d. entspr. bearb. 
Maske 

Maskenbits gesetzt? 
dann raus 

Kanal ausschalten 

neues KontrolIbyte 

ins PSG-KontrolIregister 

schreiben 

ENT-Ende bearbeiten 
IN : IX: Zeiger auf Params 
D,C: lfd. Periodendauer 
E: ENT-Folgenurtmer 
OUT: E: Schrittzahl f. ENT 
(HL): Zeiger in Folge 
Periodendauer setzen 
ENT-Folgenummer nach A 
Adr. dj ENT-Folge holen 
Fehler? d. raus 
Repeat-Flag 
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22B4 

E6 

7F 


AND 

7F 

22B6 

C8 



RET 

Z 

22B7 

DD 

75 

11 

LD 

(IX+11),L 

22BA 

DD 

74 

12 

LD 

(IX+12),H 

22BD 

CD 

13 

23 

CALL 

2313 

22C0 

18 

09 


JR 

22CB 


********************************** 


22C2 

DD 

6E 

14 

LD 

L,(IX+14) 

22C5 

DD 

66 

15 

LD 

H, (IX+15) 

22C8 

DD 

5E 

18 

LD 

E, (IX+18) 


********************************** 


22CB 

4E 



LD 

C, (HL) 

22CC 

23 



INC 

HL 

22CD 

7B 



LD 

A,E 

22CE 

D6 

F0 


SUB 

F0 

22D0 

38 

04 


JR 

C.22D6 

22D2 

IE 

00 


LD 

E, 00 

22D4 

18 

0E 


JR 

22E4 

22D6 

ID 



DEC 

E 

22D7 

79 



LD 

A, C 

22D8 

87 



ADD 

A 

22D9 

9F 



SBC 

A 

22DA 

57 



LD 

D,A 

22DB 

DD 

7E 

16 

LD 

A, (IX+16) 

22DE 

81 



ADD 

C 

22DF 

4F 



LD 

C, A 

22E0 

DD 

7E 

17 

LD 

A,(IX+17) 

22E3 

8A 



ADC 

D 

22E4 

57 



LD 

D,A 

22E5 

CD 

24 

23 

CALL 

2324 

22E8 

4E 



LD 

C, (HL) 

22E9 

7B 



LD 

A, E 

22EA 

B7 



OR 

A 

22EB 

20 

19 


JR 

NZ.2306 

22ED 

DD 

7E 

13 

LD 

A, (IX+13) 

22F0 

3D 



DEC 

A 

22F1 

20 

10 


JR 

NZ.2303 

22F3 

DD 

6E 

11 

LD 

L, (IX+11) 

22F6 

DD 

66 

12 

LD 

H,(IX+12) 

22F9 

7E 



LD 

A, (HL) 

22FA 

C6 

80 


ADD 

80 

22FC 

38 

05 


JR 

C,2303 

22FE 

DD 

36 

04 00 

LD 

(IX+04),00 

2302 

C9 



RET 



testen 

keine Folgenwiederholung? 
Adr. d. Folge in Params 
schreiben 
Schrittzahl holen 
und 1. ENT-Gruppe bearbeiten 

lfd. ENT-Gruppe bearbeiten 
IN : IX: Zeiger auf Params 
lfd. ENT-Zeiger 
nach HL laden 
lfd. Schrittzähler laden 

ENT-Gruppe bearbeiten 
IN : IX: Zeiger auf Params 
HL: Zeiger in Folge 
E: Schrittzähler 
Schrittweite 
Zeiger auf Pausenzeit 
Schrittzähler 

<$F0? sonst Periode in A,C 
dann Schrittweite relativ 
Schrittzahl :=0 

absol. Periode in A,C setzen 
Schrittzähler erniedr. 
Schrittweite in C 
vorzeichenerweitert 
nach DC 

und zu Periodendauer 
in Params addieren 
Ergebnis in D,C 


Periodendauer setzen 
Pausenzeit laden 
Schrittzahl 
<> 0 ? 

d. Zähler u. Flag setzen, raus 
sonst Anz d. ENT-Gruppen 
erniedrigen 

<>0? d. nächste Gruppe setzen 
sonst Adr. d. 

ENT-Folge laden 
Wiederholungs-Flag 
gesetzt? 

d. 1. ENT-Gruppe setzen 
sonst Flag f. ENT-Aktivitüt 
beendet 


********************************** nächste ENT-Gruppe sktivieren 

IN : IX: Zeiger auf Params 
C: Pausenzeit 
A: Anz. d. ENT-Gruppen 

2303 CD 13 23 CALL 2313 nächste ENT-Gruppe setzen 

2306 DD 73 18 LD (IX+18),E Schrittzahl setzen 

2309 F3 DI 
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230A 

DD 

71 

05 

LD 

(IX+05),C 

230D 

DD 

36 

04 80 

LD 

(IX+04),80 

2311 

FB 



EI 


2312 

C9 



RET 



********************************** 


2313 

DD 

77 

13 

LD 

(IX+13),A 

2316 

23 



INC 

HL 

2317 

5E 



LD 

E,(HL) 

2318 

23 



INC 

HL 

2319 

DD 

75 

14 

LD 

(IX+14) ,L 

231C 

DD 

74 

15 

LD 

(IX+15),H 

231F 

7B 



LD 

A,E 

2320 

B7 



OR 

A 

2321 

CO 



RET 

NZ 

2322 

IC 



INC 

E 

2323 

C9 



RET 



********************************** 


2324 

DD 

7E 

00 

LD 

A, (IX+00) 

2327 

87 



ADD 

A 

2328 

F5 



PUSH 

AF 

2329 

DD 

71 

16 

LD 

(IX+16),C 

232C 

CD 

26 

08 

CALL 

0826 

232 F 

Fl 



POP 

AF 

2330 

3C 



INC 

A 

2331 

4A 



LD 

C,D 

2332 

DD 

71 

17 

LD 

(IX+17),C 

2335 

C3 

26 

08 

JP 

0826 


********************************** 


2338 11 0A B6 LD DE,B60A 

233B 18 03 JR 2340 

********************************** 


233D 11 FA B6 LD DE,B6FA 

★★*★★★★★★**★********************** 


2340 

EB 

EX 

DE,HL 

2341 

CD 51 23 

CALL 

2351 

2344 

EB 

EX 

DE,HL 

2345 

DO 

RET 

NC 


Pausenlänge setzen 
Flag f. ENT aktiv setzen 


nächste ENT-Gruppe setzen 
IN : IX: Zeiger Params 

A: Anz. d. ENT-Gruppen 
HL: Zeiger vor nächste Grup. 
OUT: HL: Zeiger in nächste Gruppe 
E,A: Schrittzahl 
Z:=1, wenn Schrittzahl=0 
, dann E:=01 
Anz. d. ENT-Gruppen 
Schrittzahl 
laden 

Zeiger in Gruppe 
in Parameter 
speichern 
Schrittzahl 
<> 0 ? 

dann zurück 

sonst Schrittzahl auf 1 setzen 


Periodendauer setzen 
IN : IX: Zeiger auf Params 
D,C: Periodendauer 
Kanalnummer 

*2=PSG-Register f. Periode, Lo 
Registernimmer retten 
Periodendauer, Lo in Params 
und in PSG-Register schreiben 
PSG-Registernurrmer 
+1, ergibt Register f. Hi-Byte 
Periodendauer, Hi 
in Params 

und in PSG-Register schreiben 

SOUND AMPL ENVELOPE 

IN : A: Nimmer d. Hüllkurve 

(HL): ENV-Folge, 16 Bytes 
Start d. ENV-Folgen -$10 
Hüllkurve kopieren 

SOUND TONE ENVELOPE 

IN : A: Nimmer d. Hüllkurve 

(HL): ENT-Folge, 16 Bytes 
Start d. ENT-Folgen -S10 

Hüllkurve kopieren 
IN: A: Nimmer d. Hüllkurve 
HL: Quelladr. d. Kurve 
DE: Beginn d. entspr. Tab.-SIO 
Tabellenanfang -$10 nach HL 
Zieladr. f. Kurve berechnen 
Quelle nach HL, Ziel nach DE 
zurück, wenn Nummer ungültig 
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2346 ED BO LDIR Kurve kopieren 

2348 C9 RET 


********************************** SOUND A ADDRESS 

IN ; A: Nummer d. Kurve 
OUT: HL: Adresse d. Kurve 
CY:=1, wenn gültig 

2349 21 OA B6 LD HL,B60A Start d. ENV-Folgen -$10 

234C 18 03 JR 2351 Adresse berechnen 


********************************** 


234E 21 FA B6 LD HL,B6FA 

********************************** 


2351 

B7 

OR 

A 

2352 

C8 

RET 

Z 

2353 

FE 10 

CP 

10 

2355 

DO 

RET 

NC 

2356 

01 10 00 

LD 

BC,0010 

2359 

87 

ADD 

A 

235A 

87 

ADD 

A 

235B 

87 

ADD 

A 

235C 

87 

ADD 

A 

235D 

85 

ADD 

L 

235E 

6F 

LD 

L,A 

235F 

8C 

ADC 

H 

2360 

95 

SUB 

L 

2361 

67 

LD 

H,A 

2362 

37 

SCF 


2363 

C9 

RET 


2364 

C7 

RST 

00 

2365 

C7 

RST 

00 

2366 

C7 

RST 

00 

2367 

C7 

RST 

00 

2368 

C7 

RST 

00 

2369 

C7 

RST 

00 

236A 

C7 

RST 

00 

236B 

C7 

RST 

00 

236C 

C7 

RST 

00 

236D 

C7 

RST 

00 

236E 

C7 

RST 

00 

236 F 

C7 

RST 

00 


SOUND T ADDRESS 
IN : A: Nimmer d. Kurve 
OUT: HL: Adresse d. Kurve 
CY:=1, wenn gültig 
Start d. ENT-Folgen -$10 

Adresse d. Hüllkurve berechnen 
IN : A: Nummer d. Kurve 

HL: Start d. entspr. Tabelle 
OUT: HL: Adresse d. Kurve 
CY:=1, wenn gültig 
Nimmer der Kurve 
=0? dann Fehler, raus 
>$0F? 

dann Fehler, raus 
Länge einer Folge 
Nummer mit 16 
(f. 16 Bytes/Folge) 
multiplizieren 

und zun Tabellenstart 
-$10 

addieren, ergibt 
die Adr. d. Kurve 
in HL 

CY:=1 f. o.k. 
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CASSETTE MANAGER (CAS) 


CAS INITIALIZE 

Eingabe abbrechen 

Ausgabe abbrechen 

Flag für Meldungen ausgeben 

setzen 

Default-SPEED WRITE- 
Werte 


********************************** 


2370 

CD 

01 

24 

CALL 

2401 

2373 

CD 

2E 

24 

CALL 

242E 

2376 

AF 



XOR 

A 

2377 

CD 

8E 

23 

CALL 

238E 

23 7A 

21 

4D 

01 

LD 

HL.014D 

23 7D 

3E 

19 


LD 

A, 19 

********************************** 

237F 

29 



ADD 

HL,HL 

2380 

29 



ADD 

HL,HL 

2381 

29 



ADD 

HL,HL 

2382 

29 



ADD 

HL,HL 

2383 

29 



ADD 

HL,HL 

2384 

29 



ADD 

HL,HL 

2385 

0F 



RRCA 


2386 

0F 



RRCA 


2387 

E6 

3F 


AND 

3F 

2389 

6F 



LD 

L,A 

238A 

22 

Dl 

B8 

LD 

(B8D1),HL 

238D 

C9 



RET 



********************************** 


238E 32 00 B8 LD (B800),A 

2391 C9 RET 

********************************** 


2392 

DD 

21 

02 

B8 

LD 

IX,B802 

2396 

CD 

AF 

23 


CALL 

23AF 

2399 

DO 




RET 

NC 

239A 

E5 




PUSH 

HL 

239B 

CD 

3F 

25 


CALL 

253 F 

239E 

ED 

5B 

IC 

B8 

LD 

DE,(B81C) 

23A2 

ED 

4b 

1 F 

B8 

LD 

BC,(B81F) 

23A6 

3A 

19. 

B8 


LD 

A,(B819) 

23A9 

El 




POP 

HL 

23AA 

C9 




RET 



********************************** 


CAS SET SPEED 

IN : HL: Hauptzählwert; A: Korrekturwert 


b2 bis b9 von Hauptwert 
nach H 


b2 bis b7 von Korrekturwert 


nach L 

Werte speichern 


CAS IN OPEN 

IN : HL: Adresse des Filenamens 
B: Länge des Filenamens 
DE: Zeiger auf Eingabebuffer 
OUT: HL: Zg. auf Header d. 1. Bl. 
DE: Startadresse des Files 
BC: Länge des Files 
A: Filetyp 

CY=0, Z=1 für Abbruch 
CY=0, Z=0, wenn schon offen 
Zeiger auf Eingabeparameter 
Fi Le öffnen 

war File schon offen ? 

Zeiger auf gesuchten Header 
1. Block lesen 
Startadresse, 

Länge 

und Filetyp laden 
Zeiger auf Header 


CAS OUT OPEN 

IN : HL: Adresse des Filenamens 
B: Länge des Filenamens 
DE: Zeiger auf Ausgabebuffer 
OUT: HL: Zg. auf gener. Header; 
CY=0, Z=0, wenn schon offen 


CAS NOISY 

IN : A=0 für Meldungen ausgeben 
A<>0 für keine Meldungen 
Meldungs-Flag stezen 
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23AB 

DD 

21 

47 

B8 

LD 

IX,B847 

23AF 

DD 

7E 

00 


LD 

A, (IX+00) 

23B2 

B7 




OR 

A 

23B3 

CO 




RET 

NZ 

23B4 

DD 

E5 



PUSH 

IX 

23B6 

E3 




EX 

(SP),HL 

23B7 

36 

01 



LD 

(HL),01 

23B9 

23 




INC 

HL 

23BA 

73 




LD 

(HL),E 

23BB 

23 




INC 

HL 

23BC 

72 




LD 

(HL),D 

23BD 

23 




INC 

HL 

23BE 

73 




LD 

(HL),E 

23BF 

23 




INC 

HL 

23C0 

72 




LD 

(H L ), D 

23C1 

23 




INC 

HL 

23C2 

EB 




EX 

DE,HL 

23 C3 

El 




POP 

HL 

23C4 

D5 




PUSH 

DE 

23C5 

OE 

40 



LD 

C,40 

23C7 

12 




LD 

(DE),A 

23 C8 

13 




INC 

DE 

23C9 

0D 




DEC 

C 

23CA 

20 

FB 



JR 

NZ,23C7 

23CC 

Dl 




POP 

DE 

23CD 

D5 




PUSH 

DE 

23CE 

78 




LD 

A,B 

23CF 

FE 

10 



CP 

10 

23D1 

38 

02 



JR 

C,23D5 

23D3 

06 

10 



LD 

B, 10 

23D5 

04 




INC 

B 

23D6 

48 




LD 

C, B 

23D7 

18 

07 



JR 

23E0 

23D9 

E7 




RST 

20 

23DA 

23 




INC 

HL 

23DB 

CD 

B6 

27 


CALL 

27B6 

23DE 

12 




LD 

(DE),A 

23DF 

13 




INC 

DE 

23E0 

10 

F7 



DJNZ 

23D9 

23E2 

0D 




DEC 

C 

23E3 

28 

09 



JR 

Z,23EE 

23E5 

1B 




DEC 

DE 

23E6 

1A 




LD 

A, (DE) 

23E7 

EE 

20 



XOR 

20 

23E9 

20 

03 



JR 

NZ,23EE 

23EB 

12 




LD 

(DE),A 

23EC 

18 

F4 



JR 

23E2 

23EE 

El 




POP 

HL 

23EF 

DD 

36 

15 

01 

LD 

(IX+15),01 

23 F3 

DD 

36 

17 

16 

LD 

(IX+17),16 

23F7 

DD 

35 

IC 


DEC 

(IX+1C) 

23 FA 

37 




SCF 


23FB 

C9 




RET 



********************************** 


23FC 3A 02 B8 LD A,(B802) 


Zeiger auf Ausgabeparameter 

Filestatus 

schon offen ? 

dann Fehler, zurück 

Zeiger auf Parameter 

nach HL, Filenamenadr. retten 

Kennzeichen f. gerade eröffnet 

Adresse des Buffers 

speichern 


Bufferzeiger 

auf Bufferanfang setzen 

Zeiger auf Header-Buffer n. DE 
Zeiger auf Filenamen zurück 
Zeiger auf Header-Buffer 
Länge des Headers =64 Bytes 
Buffer für Header 
löschen 


Zeiger auf Header-Buffer 

Länge des Filenamens 

kleiner als 16 ? 
sonst Länge auf 16 begrenzen 
Ausgleich für Predecrement 
Länge+1 

RAM LAM, Byte aus Namen holen 

auf Großschrift forcieren 
und in Header-Buffer speichern 

weitere Namensbytes ? 

-1 = Länge des Namens 
kein Name vorhanden ? 

Zeiger auf letztes Zeichen 
letztes Zeichen des Namens 
Space ? 
nein ? 

sonst durch 0 f. Ende ersetzen 
Ende weiter prüfen 
Zeiger auf Header-Buffer 
Nummer des Blocks =1 
Filetyp auf ASCII-Datei setzen 
Kennzeichen f. 1. Block setzen 
CY=1 für kein Fehler 


CAS IN CLOSE 

OUT: DE: Zeiger auf Eingabebuffer 
CY=0 für nicht offen 
Eingabefile-Status 
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23 FF B7 
2400 C8 


OR A 

RET Z 


nicht offen ? 
dann CY=0, zurück 


** ***** ************* ********* ** *** 


2401 

21 

02 

B8 

LD 

HL,B802 

2404 

3E 

01 


LD 

A, 01 

2406 

36 

00 


LD 

(HL),00 

2408 

23 



INC 

HL 

2409 

5E 



LD 

E, (HL) 

24 0A 

23 



INC 

HL 

240B 

56 



LD 

D,(HL) 

240C 

21 

CC 

B8 

LD 

HL,B8CC 

240F 

AE 



XOR 

(HL) 

2410 

37 



SCF 


2411 

CO 



RET 

NZ 

2412 

77 



LD 

(HL) ,A 

2413 

9F 



SBC 

A 

2414 

C9 



RET 



CAS IN ABANDON 

OUT: DE: Zeiger auf Eingabebuffer 
CY=1, Z=0 (immer) 

A=$FF f. alle Files geschl. 
Zeiger auf Eingabestatus 
Flag für Eingabe 
Kennzeichen für geschlossen 

Adresse des 
Buffers laden 

Zeiger auf Ein-/Ausgabeflag 
entspr. Bit invertieren 
CY=1 für o.k. 
weitere Kennz. gesetzt ? 
Ein-/Ausgabeflag auf inaktiv 
Z=0, A=$FF 


* ** * * * * * * * * ***** ****** * *********** 


2415 

3A 

47 

B8 

LD 

A, (B847) 

2418 

FE 

04 


CP 

04 

241A 

28 

12 


JR 

Z,242E 

241C 

C6 

FF 


ADD 

FF 

24 IE 

DO 



RET 

NC 

241F 

21 

5D 

B8 

LD 

HL,B85D 

2422 

36 

FF 


LD 

(HL),FF 

2424 

23 



INC 

HL 

2425 

23 



INC 

HL 

2426 

7E 



LD 

A, (HL) 

2427 

23 



INC 

HL 

2428 

B6 



OR 

(HL) 

2429 

37 



SCF 


242A 

C4 

14 

26 

CALL 

NZ,2614 

242D 

DO 



RET 

NC 


CAS OUT CLOSE 

OUT: DE: Adr. des Ausgabebuffers 
CY=0, Z=1 für Abbruch 
CY=0, Z=0 für nicht offen 
Ausgabestatus 

Kennzeichen f. abgebrochen ? 
dann keinen Block speichern 
File nicht offen ? 
dann zurück, CY=0, Z=0 
Kennzeichen für letzten 
Block setzen 

Zeiger auf Blocklänge 
Blocklänge 

<>0 ? 

CY=1 für kein Abbruch 
dann Block speichern 
Abbruch ? dann zurück 


********************************** CAS OUT ABANDON 


IN : DE: Adr. des Ausgabebuffers 
CY=1, Z=0 (immer) 

A=$FF f. alle Files geschl. 


242E 

21 

47 B8 

LD 

HL,B847 

Zeiger auf Ausgabeparameter 

2431 

3E 

02 

LD 

A,02 

Flag für Ausgabe 

2433 

18 

Dl 

JR 

2406 



********************************** CAS IN CHAR 


OUT: A: Zeichen 

CY=0, Z=0 f. EOF/Statusfehl. 
CY=0, Z=1 für Abbruch 


2435 

E5 

PUSH 

HL 


2436 

D5 

PUSH 

DE 


2437 

C5 

PUSH 

BC 


2438 

06 02 

LD 

B,02 

Status f. zeichenweises File 
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243A 

CD 

8B 

24 

CALL 

248B 

243D 

20 

1A 


JR 

NZ,2459 

243F 

2A 

1A 

B8 

LD 

HL,(B81A) 

2442 

7C 



LD 

A, H 

2443 

B5 



OR 

L 

2444 

37 



SCF 


2445 

CC 

3F 

25 

CALL 

Z,253F 

2448 

30 

0F 


JR 

NC,2459 

244A 

2A 

1A 

B8 

LD 

HL,(B81A) 

244D 

2B 



DEC 

HL 

244E 

22 

1A 

B8 

LD 

(B81A),HL 

2451 

2A 

05 

B8 

LD 

HL,(B805) 

2454 

E7 



RST 

20 

2455 

23 



INC 

HL 

2456 

22 

05 

B8 

LD 

(B805),HL 

2459 

18 

2C 


JR 

2487 


*#*★*****☆****★★★★**★★★***★* irk •kick* 


245B 

E5 



PUSH 

HL 

245C 

D5 



PUSH 

DE 

245D 

C5 



PUSH 

BC 

245E 

4F 



LD 

C,A 

245 F 

21 

47 

B8 

LD 

HL,B847 

2462 

06 

02 


LD 

B,02 

2464 

CD 

8E 

24 

CALL 

248E 

2467 

20 

IE 


JR 

NZ,2487 

2469 

2A 

5F 

B8 

LD 

HL,(B85F) 

24 6C 

11 

00 

08 

LD 

DE,0800 

246F 

ED 

52 


SBC 

HL,DE 

2471 

C5 



PUSH 

BC 

2472 

D4 

14 

26 

CALL 

NC,2614 

2475 

CI 



POP 

BC 

2476 

30 

0F 


JR 

NC,2487 

2478 

2A 

5F 

B8 

LD 

HL,(B85F) 

24 7B 

23 



INC 

HL 

24 7C 

22 

5F 

B8 

LD 

(B85F),HL 

247F 

2A 

4A 

B8 

LD 

HL,(B84A) 

2482 

71 



LD 

(HL),C 

2483 

23 



INC 

HL 

2484 

22 

4A 

B8 

LD 

(B84A),HL 

2487 

CI 



POP 

BC 

2488 

Dl 



POP 

DE 

2489 

El 



POP 

HL 

248A 

C9 



RET 



********************************** 


248B 21 02 B8 LD HL,B802 


Status stezen 
Status-Fehler ? 
restliche Bufferlänge 

=0 ? 

CY=1 für kein EOF 

dann nächsten Block lesen 

EOF oder Abbruch ? 

restliche Bufferlänge 

herunterzäh len 

und wieder setzen 

Bufferzeiger 

Byte aus RAM holen 

Bufferzeiger erhöhen 

und wieder speichern 

Register vom Stack zurück 

CAS OUT CHAR 
IN : A: Zeichen 

OUT: CY=0, Z=0 für Statusfehler 
CY=0, Z=1 für Abbruch 


Zeichen 

Zeiger auf Ausgabestatus 
Status f. zeichenweises File 
Status stezen 
Status-Fehler ? 

Bufferlänge 
maximale Länge 
subtrahieren 
Zeichen 

Buffer voll ? d. Block sehr. 

Zeichen 

Abbruch ? 

Bufferlänge 

erhöhen 

Bufferzeiger 

Zeichen in Buffer speichern 
Bufferzeiger 
erhöhen 


Eingabestatus setzen 
IN : B: neuer Status 
OUT: CY=0 (immer) 

Z=0 für Status-Fehler 
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********************************** 


248E 

7E 



LD 

A, (HL) 

248F 

B8 



CP 

B 

2490 

C8 



RET 

Z 

2491 

EE 

01 


XOR 

01 

2493 

CO 



RET 

NZ 

2494 

70 



LD 

(HL),B 

2495 

C9 



RET 


********************************** 

2496 

CD 

35 

24 

CALL 

2435 

2499 

DO 



RET 

NC 

********************************** 

249A 

E5 



PUSH 

HL 

249B 

2A 

1A 

B8 

LD 

HL,(B81A) 

249E 

23 



INC 

HL 

249F 

22 

1A 

B8 

LD 

(B81A),HL 

24A2 

2A 

05 

B8 

LD 

HL,(B805) 

24A5 

2B 



DEC 

HL 

24A6 

22 

05 

B8 

LD 

(B805),HL 

24A9 

El 



POP 

HL 

24AA 

C9 



RET 



********************************** 


24AB 

EB 




EX 

DE,KL 

24AC 

06 

03 



LD 

B,03 

24AE 

CD 

8B 

24 


CALL 

248B 

24B1 

CO 




RET 

NZ 

24B2 

ED 

53 

IC 

B8 

LD 

(B81C),DE 

24B6 

CD 

CF 

24 


CALL 

24CF 

24 B9 

2A 

IC 

B8 


LD 

HL,(B81C) 

24BC 

ED 

5B 

1A 

B8 

LD 

DE, (B81A) 

24C0 

19 




ADD 

HL,DE 

24C1 

22 

IC 

B8 


LD 

(B81C),HL 

24C4 

CD 

3F 

25 


CALL 

253F 

24C7 

38 

F0 



JR 

C,24B9 

24C9 

C8 




RET 

Z 

24CA 

2A 

A6 

B8 


LD 

HL,(B8A6) 

24CD 

37 




SCF 


24CE 

C9 




RET 



********************************** 


24CF 

2A 

03 

B8 


LD 

KL,(B803) 

24D2 

ED 

5B 

IC 

B8 

LD 

DE,(B81C) 

24D6 

ED 

4B 

1A 

B8 

LD 

BC,(B81A) 

24DA 

7B 




LD 

A,E 

24DB 

95 




SUB 

L 

24DC 

7A 




LD 

A,D 


Status setzen 

IN : HL: Zeiger auf Status-Byte 
B: neuer Status 
OUT: CY=0 (immer) 

Z=0 für Status-Fehler 
alter Status 
= neuer Status ? 
dann o.k., fertig 
File gerade geöffnet ? 
nein ? dann Fehler 
sonst neuen Status setzen 


CAS TEST EOF 

OUT: CY=0 f. EOF (Ende des Files) 
CAS IN CHAR, Zeichen holen 
EOF ? 

CAS RETURN 


Bufferlänge erhöhen 

und Bufferzeiger 
auf voriges Zeichen 
setzen 


CAS IN DIRECT 

IN : HL: Start-Ladeadresse 
OUT: HL: Aufrufadresse 

CY=0, Z=0 für Statusfehler 
CY=0, Z=1 für Abbruch 
Startadresse nach DE 
Status für direktes File 
Status setzen 
Statusfehler ? 

Startadresse setzen 
Buffer kopieren 
Startadresse des Blocks 
Blocklänge 
addieren 

gibt Startadr. d. nächsten Bl. 
nächsten Block lesen 
kein EOF ? dann weiter lesen 
Abbruch ? 

Aufrufadresse laden 
CY=0 für kein Fehler 


Buffer kopieren 

Zeiger auf Buffer als Quelle 
Startadr. des Blocks als Ziel 
Länge des Buffers 

Buffer-Startadresse 
größer ? 
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24DD 

9C 



SBC 

H 

24DE 

DA 

A6 

BA 

JP 

C,BAA6 

24E1 

09 



ADD 

HL,BC 

24E2 

2B 



DEC 

HL 

24E3 

EB 



EX 

DE,HL 

24E4 

09 



ADD 

HL,BC 

24E5 

2B 



DEC 

HL 

24E6 

EB 



EX 

DE,HL 

24E7 

C3 

AC 

BA 

JP 

BAAC 


*********■*****■*********■********■&*■* 


24EA 

E5 




PUSH 

HL 

24EB 

C5 




PUSH 

BC 

24EC 

4F 




LD 

C,A 

24ED 

21 

47 

B8 


LD 

HL,B847 

24F0 

06 

03 



LD 

B,03 

24F2 

CD 

8E 

24 


CALL 

248E 

24F5 

79 




LD 

A, C 

24F6 

CI 




POP 

BC 

24F7 

El 




POP 

HL 

24F8 

CO 




RET 

NZ 

24F9 

32 

5E 

B8 


LD 

(B85E),A 

24FC 

ED 

53 

64 

B8 

LD 

(B864),DE 

2500 

ED 

43 

66 

B8 

LD 

(B866),BC 

2504 

22 

48 

B8 


LD 

(B848),HL 

2507 

ED 

53 

5F 

B8 

LD 

(B85F),DE 

250B 

21 

FF 

F7 


LD 

HL,F7F F 

250E 

19 




ADD 

HL,DE 

250F 

3F 




CCF 


2510 

D8 




RET 

C 

2511 

21 

00 

08 


LD 

HL,0800 

2514 

22 

5F 

B8 


LD 

(B85F),HL 

2517 

EB 




EX 

DE,HL 

2518 

ED 

52 



SBC 

HL,DE 

251A 

E5 




PUSH 

HL 

251B 

2A 

CO 

B8 


LD 

HL,(B848) 

251E 

19 




ADD 

HL,DE 

251F 

E5 




PUSH 

HL 

2520 

CD 

14 

26 


CALL 

2614 

2523 

El 




POP 

HL 

2524 

Dl 




POP 

DE 

2525 

DO 




RET 

NC 

2526 

18 

DC 



JR 

2504 


************************************ 


2528 

21 

02 B8 

LD 

HL,B802 

252B 

7E 


LD 

A,(HL) 

252C 

B7 


OR 

A 

252D 

CO 


RET 

NZ 

252E 

36 

05 

LD 

(HL),05 


dann KL LDIR, nach unten kop. 
Länge zu Quelladresse addieren 
Zeiger auf letztes Byte 

Lange zu Zieladresse addieren 
Zeiger auf letztes Byte 

KL LDDR, Block n. oben versch. 

CAS OUT DIRECT 
IN : HL: Startadresse 
DE: Länge 
BC: Auf rufadresse 
A: Filetyp 

OUT: CY=0, Z=0 für Statusfehler 
CY=0, Z=1 für Abbruch 
Start- 

und Auf rufadresse retten 
Filetyp 

Zeiger auf Ausgabestatus 

Status für direktes File 

Status setzen 

Filetyp 

Aufrufadresse 

und Startadresse zurück 

Statusfehler ? 

Filetyp, 

File-Länge, 

Aufrufadresse 
und Startadresse setzen 
restliche Länge als Blocklänge 
-$801 

zu restlicher Länge addieren 
nur noch ein Restblock ? 
dann fertig (Block bei CLOSE!) 
max. Länge 

als Blocklänge setzen 
von File-Länge 
subtrahieren 
restliche File-Länge 
Startadresse 
Länge addieren 
gibt nächste Startadresse 
Block auf Kassette schreiben 
neue Startadresse 
und restl. File-Länge zurück 
Abbruch ? 

sonst weiter speichern 
CAS CATALOG 

IN/OUT : DE: Eingabebufferadr. 
OUT: CY=0 für Statusfehler 
Zeiger auf Eingabestatus 
Status 

Eingabefile offen ? 
dann Fehler 

Status für Catalog setzen 
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2530 

ED 

53 

03 B8 

LD 

(B803),DE 

2534 

CD 

8E 

23 

CALL 

238E 

2537 

CD 

44 

25 

CALL 

2544 

253A 

38 

FB 


JR 

C,2537 

253C 

C3 

01 

24 

JP 

2401 


********************************** 


253F 

3A 

18 

B8 

LD 

A,(B818) 

2542 

B7 



OR 

A 

2543 

C0 



RET 

NZ 

2544 

01 

01 

83 

LD 

BC,8301 

2547 

CD 

73 

26 

CALL 

2673 

254A 

30 

5C 


JR 

NC,25A8 

254C 

21 

8C 

B8 

LD 

HL,B88C 

254F 

11 

40 

00 

LD 

DE,0040 

2552 

3E 

2C 


LD 

A,2C 

2554 

CD 

36 

28 

CALL 

2836 

2557 

30 

4F 


JR 

NC,25A8 

2559 

CD 

C5 

25 

CALL 

25C5 

255C 

20 

57 


JR 

NZ,25B5 

255E 

06 

8B 


LD 

B,8B 

2560 

38 

02 


JR 

C,2564 

2562 

06 

89 


LD 

B,89 

2564 

CD 

92 

26 

CALL 

2692 

2567 

ED 

5B 

9F B8 

LD 

DE,(B89F) 

256B 

2A 

IC 

B8 

LD 

HL,(B81C) 

256E 

3A 

02 

B8 

LD 

A,(B802) 

2571 

FE 

03 


CP 

03 

2573 

28 

0E 


JR 

Z,2583 

2575 

21 

FF 

F7 

LD 

HL.F7FF 

2578 

19 



ADD 

HL,DE 

2579 

3E 

04 


LD 

A,04 

25 7B 

38 

2B 


JR 

C,25A8 

25 7D 

2A 

03 

B8 

LD 

HL,(B803) 

2580 

22 

05 

B8 

LD 

(B805),HL 

2583 

3E 

16 


LD 

A, 16 

2585 

CD 

36 

28 

CALL 

2836 

2588 

30 

IE 


JR 

NC,25A8 

258A 

21 

17 

B8 

LD 

HL,B817 

258D 

34 



INC 

(HL) 

258E 

3A 

9D 

B8 

LD 

A, (B89D) 

2591 

23 



INC 

HL 

2592 

77 



LD 

(HL),A 

2593 

AF 



XOR 

A 

2594 

32 

IE 

B8 

LD 

(B81E),A 

2597 

2A 

9F 

B8 

LD 

HL,(B89F) 

259A 

22 

1A 

B8 

LD 

(B81A),HL 

259D 

CD 

BF 

27 

CALL 

27BF 

25A0 

3E 

8C 


LD 

A,8C 

25A2 

CC 

oc 

27 

CALL 

Z,270C 

25A5 

37 



SCF 


25A6 

18 

65 


JR 

260D 


********************************** 
25A8 B7 OR A 

25A9 21 02 B8 LD HL,B802 


Bufferadresse setzen 

CAS NOISY, Meldungen ermögl. 

nächsten Block lesen 

kein Abbruch ? d. weiter lesen 

Eingabe abbrechen 

Block von Kassette lesen 
OUT: CY=0, Z=0 für EOF 

CY=0, Z=1 für Abbruch 
Flag für letzten Block 
letzter Block ? 
dann Fehler 

Nr. f. Meldung/Flag f. Eingabe 
Meldung ausgeben, Motor ein 
Abbruch ? 

Zeiger auf Buffer für Header 
Länge des Headers 
Header -Kennzeichen 
CAS READ, Blockheader lesen 
Fehler oder Abbruch ? 

Namen und Blocknr. vergleichen 
nicht gesuchter Name/Block ? 
Nr. für keine Meldung 
Catalog-Status ? 
sonst Nr. für "Loading" 

Meid., Namen, "block xx" ausg. 
Länge des Blocks 
Ladeadresse des Blocks 
Eingabestatus 
Direkt-File ? 
dann lesen 
-$801 

zu Länge addieren 

Nr. des Fehlers "Read error d" 

Blocklänge >$800 ? dann Fehler 

Bufferadresse 

Bufferzeiger auf Bufferstart 
Block-Kennzeichen 
CAS READ, Block lesen 
Fehler oder Abbruch ? 

Zeiger auf Block-Nr. 
gesuchte Block-Nr. erhöhen 
geles. Kennz. f. letzten Block 
in Buffer f. gesuchten 
Header übertragen 
Kennzeichen für 1. Block 
löschen 

Länge des Blocks 
als Bufferlänge 
Catalog-Status holen 
Nr. für "Ok" 

Catalog ? dann ausgeben 
CY=1 für o.k. 

Motor ausschalten 

Lesefehler auswerten 
Fehlernr. (0=Abbruch) 

Zeiger auf Eingabestatus 
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25AC 

28 

5D 


JR 

Z,260B 

25AE 

06 

85 


LD 

B,85 

25B0 

CD 

13 

27 

CALL 

2713 

25B3 

18 

97 


JR 

254C 

********************************** 

25B5 

F5 



PUSH 

AF 

25B6 

06 

88 


LD 

B,88 

25 B8 

CD 

92 

26 

CALL 

2692 

25BB 

Fl 



POP 

AF 

25BC 

30 

8E 


JR 

NC,254C 

25BE 

06 

87 


LD 

B,87 

25C0 

CD 

11 

27 

CALL 

2711 

25 C3 

18 

87 


JR 

254C 


********************************** 


25C5 

CD 

BF 

27 

CALL 

27BF 

25C8 

37 



SCF 


25C9 

C8 



RET 

Z 

25CA 

3A 

IE 

B8 

LD 

A, (B81E) 

25CD 

B7 



OR 

A 

25CE 

28 

1B 


JR 

Z,25EB 

25D0 

3A 

A3 

B8 

LD 

A, (B8A3) 

25D3 

2F 



CPL 


25D4 

B7 



OR 

A 

25D5 

CO 



RET 

NZ 

25D6 

3A 

07 

B8 

LD 

A, (B807) 

25D9 

B7 



OR 

A 

25DA 

C4 

F3 

25 

CALL 

NZ.25F3 

25DD 

CO 



RET 

NZ 

25DE 

21 

8C 

B8 

LD 

HL,B88C 

25 El 

11 

07 

B8 

LD 

DE,B807 

25E4 

01 

40 

00 

LD 

BC,0040 

25 E7 

ED 

B0 


LDIR 


25E9 

AF 



XOR 

A 

25 EA 

C9 



RET 


25EB 

CD 

F3 

25 

CALL 

25 F3 

25EE 

CO 



RET 

NZ 

25EF 

EB 



EX 

DE,HL 

25F0 

1A 



LD 

A, (DE) 

25F1 

BE 



CP 

(HL) 

25F2 

C9 



RET 



********************************** 


25 F3 

21 

07 

B8 

LD 

HL,B807 

25 F6 

11 

8C 

B8 

LD 

DE.B88C 

25 F9 

06 

10 


LD 

B, 10 

25 FB 

1A 



LD 

A, (DE) 

25 FC 

CD 

B6 

27 

CALL 

27B6 

25FF 

4F 



LD 

C, A 


Abbruch ? dann Flag setzen 
Nr. für "Read error" 

Meldung und Fehlernr. ausgeben 
nächsten Block lesen 

falschen Block auswerten 

Nr. für "Found" 

Meid., Namen, "block xx" ausg. 
kein Block übersprungen ? 
dann nächsten Block lesen 
Nr. für "Rewind tape" 

Meldung und CR ausgeben 
nächsten Block lesen 

Namen und Block vergleichen 
OUT: Z—0 für Fehler 

CY=0 f. falscher Name/Blk. 
CY=1 f. Block übersprungen 
Z=1 für o.k. 

CY=1 f. Catalog 
Catalog-Status holen 
CY=1 für Catalog 
Catalog ? dann zurück 
Kennzeichen f. 1. Block 

nicht 1. Block gesucht ? 

Kennz. f. 1. gelesenen Block 

nicht 1. Block gelesen ? 
dann falscher Block, zurück 
1. Byte des gesuchten Namen 
ges. Name vorhanden ? 
dann Namen vergleichen 
Namen ungleich ? 

Zeiger auf gelesenen Header 
Zeiger auf gesuchten Header 
Länge des Headers 
gelesenen in gesuchten kopier. 
CY=0, Z=1 

Namen vergleichen 
Namen ungleich ? 

Zeiger auf Blocknummern 
gesuchte Blocknr. 
mit gelesener vergleichen 
CY=1, wenn Block übersprungen 

Namen vergleichen 
OUT: Z=1, wenn Namen gleich 
CY=0 (immer) 

HL,DE: Zeiger auf Blocknrn. 
Zeiger auf gesuchten Namen 
Zeiger auf gelesenen Namen 
max. Länge der Namen 
Byte aus gelesenem Namen 
auf Großschrift forcieren 
nach C 
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2600 

7E 



LD 

A, (HL) 

2601 

CD 

B6 

27 

CALL 

27B6 

2604 

A9 



XOR 

C 

2605 

C0 



RET 

NZ 

2606 

23 



INC 

HL 

2607 

13 



INC 

DE 

2608 

10 

Fl 


DJNZ 

25FB 

26 0A 

C9 



RET 


********************************** 

260B 

36 

04 


LD 

(HL),04 

********************************** 

260D 

9F 



SBC 

A 

260E 

F5 



PUSH 

AF 

260F 

CD 

4F 

2A 

CALL 

2A4F 

2612 

Fl 



POP 

AF 

2613 

C9 



RET 



********************************** 


2614 

01 

02 

84 

LD 

BC,8402 

2617 

CD 

73 

26 

CALL 

2673 

261A 

30 

4A 


JR 

NC,2666 

261C 

06 

8A 


LD 

B,8A 

261E 

11 

4C 

B8 

LD 

DE,B84C 

2621 

CD 

95 

26 

CALL 

2695 

2624 

21 

63 

B8 

LD 

HL,B863 

2627 

CD 

88 

26 

CALL 

2688 

262A 

30 

3A 


JR 

NC,2666 

262C 

2A 

48 

B8 

LD 

HL,(B848) 

262 F 

22 

4A 

B8 

LD 

(B84A),HL 

2632 

22 

61 

B8 

LD 

(B861),HL 

2635 

E5 



PUSH 

HL 

2636 

21 

4C 

B8 

LD 

HL,B84C 

2639 

11 

40 

00 

LD 

DE,0040 

263C 

3E 

2C 


LD 

A,2C 

263E 

CD 

3F 

28 

CALL 

283 F 

2641 

El 



POP 

HL 

2642 

30 

22 


JR 

NC,2666 

2644 

ED 

5B 

5F B8 

LD 

DE,(B85F) 

2648 

3E 

16 


LD 

A, 16 

264A 

CD 

3F 

28 

CALL 

283 F 

264D 

21 

5D 

B8 

LD 

HL,B85D 

2650 

DC 

88 

26 

CALL 

C,2688 

2653 

30 

11 


JR 

NC,2666 

2655 

21 

00 

00 

LD 

HL,0000 

2658 

22 

5F 

B8 

LD 

(B85F),HL 

265B 

21 

5C 

B8 

LD 

HL,B85C 

265E 

34 



INC 

(HL) 

265 F 

AF 



XOR 

A 

2660 

32 

63 

B8 

LD 

(B863),A 

2663 

37 



SCF 


2664 

18 

A7 


JR 

260D 


********************************** 

2666 B7 OR A 

2667 21 47 B8 LD HL,B847 


Byte aus gesuchtem Namen 
auf Großschrift forcieren 
mit gelesenem Byte vergleichen 
ungleich ? 

Namenzeiger 
erhöhen 

weitere Namensbytes ? 


Abbruch behandeln 

Status für Abbruch setzen 

Motor ausschalten 
Z=1, wenn Abbruch 
Fehlerflags retten 
CAS STOP MOTOR, Motor aus 
Fehlerflags 


Block auf Kassette schreiben 
OUT: CY=0, Z=1 für Abbruch 

Nr. d. Meldung/Flag f. Ausgabe 
Meldung ausgeben, Motor ein 
Abbruch ? 

Nr. für "Saving" 

Zeiger auf Filenamen 
Meid., Name, "block xxx" ausg. 
Zeiger auf Kennz. für 1. Block 
ggf. auf Abbruch testen 
Abbruch ? 

Adresse des Ausgabebuffers 
Bufferzeiger auf Bufferstart 
Bufferadr. als Ladeadresse 
und als Adr. des Blocks 
Zeiger auf Header 
Länge des Headers 
Header-Kennzeichen 
CAS WRITE, Header schreiben 
Adresse des Blocks 
Abbruch oder Fehler ? 

Länge des Blocks 

Block-Kennzeichen 

CAS WRITE, Block auf Kassette 

Zeiger a. Kennz. f. letzt. Bl. 

k. Fehler ? ggf. Abbruch test. 

Fehler oder Abbruch ? 

Null 

als Länge des Buffers setzen 
Zeiger auf Block-Nr. 

Block-Nr. erhöhen 
Kennzeichen für 1. Block 
löschen 
CY=1 für o.k. 

Motor ausschalten 

Fehler/Abbruch bei Ausgabe ausw. 
Fehlernr. (0=Abbruch) 

Zeiger auf Ausgabestatus 
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266A 

28 

9F 

JR 

Z,260B 

266C 

06 

86 

LD 

B,86 

266E 

CD 

13 27 

CALL 

2713 

2671 

18 

B9 

JR 

262C 

********************************** 


2673 

21 

CC 

B8 

LD 

HL,B8CC 

2676 

79 



LD 

A, C 

2677 

BE 



CP 

(HL) 

2678 

36 

00 


LD 

(HL),00 

267A 

37 



SCF 


267B 

E5 



PUSH 

HL 

267C 

C5 



PUSH 

BC 

267D 

C4 

60 

27 

CALL 

NZ,2760 

2680 

CI 



POP 

BC 

2681 

El 



POP 

HL 

2682 

9F 



SBC 

A 

2683 

DO 



RET 

NC 

2684 

71 



LD 

(HL),C 

2685 

C3 

4B 

2A 

JP 

2A4B 


******* ***************** **** ****** 


2688 

7E 



LD 

A,(HL) 

2689 

B7 



OR 

A 

268A 

37 



SCF 


268B 

C8 



RET 

Z 

268C 

01 

2C 

01 

LD 

BC,012C 

268F 

C3 

72 

2A 

JP 

2A72 

2692 

11 

8C 

B8 

LD 

DE,B88C 


********************************** 


2695 

3A 

00 

B8 

LD 

A, (B800) 

2698 

B7 



OR 

A 

2699 

C0 



RET 

NZ 

269A 

32 

01 

B8 

LD 

(B801), A 

269D 

CD 

83 

27 

CALL 

2783 

26A0 

CD 

26 

27 

CALL 

2726 

26A3 

1A 



LD 

A, (DE) 

26A4 

B7 



OR 

A 

26A5 

20 

0A 


JR 

NZ.26B1 

26A7 

3E 

8E 


LD 

A,8E 

26A9 

CD 

27 

27 

CALL 

2727 

26AC 

01 

10 

00 

LD 

BC,0010 

26AF 

18 

2E 


JR 

26DF 

26B1 

CD 

BF 

27 

CALL 

27BF 

26B4 

01 

00 

10 

LD 

BC,1000 

26B7 

28 

0D 


JR 

Z,26C6 

26B9 

6B 



LD 

L,E 

26BA 

62 



LD 

H,D 

26BB 

7E 



LD 

A, (HL) 


Abbruch ? dann behandeln 
Nr. für "Write error" 

Meldung und Fehlernr. ausgeben 
Block nochmals speichern 

Meldung ausgeben, Motor ein 
IN : B: Nr. der Meldung 

C: Flag für Ein-/Ausgabe 
OUT: CY=0,Z=1, wenn Abbruch 
Zeiger auf Ein-/Ausgabeflag 
neues Flag 

mit altem Flag vergleichen 
Flag f. keine Ein-/Ausgabe 
CY=1 für kein Abbruch 


ggf. Meid, ausg./auf Taste w. 


Z=1, wenn Abbruch 
Abbruch ? 

sonst Ein-/Ausgabeflag setzen 
CAS START MOTOR, Motor ein 

ggf. auf Abbruch testen 
IN : HL: Zeiger auf Flag 
OUT: CY=0, Z=1, wenn Abbruch 
Flag laden 

CY=1 für kein Abbruch 
kein Randblock ? 
Verzögerungszähler 
auf ESC prüfen, verzögern 

Zeiger auf gelesenen Namen 

Meldung, Name, "block xxx " ausg. 
IN : B: Nr. der Meldung 

DE: Adresse des Namens 
Flag für Meldungen 
keine Meldungen ausgeben ? 
dann zurück 

Flag für Meid, geteilt löschen 
Cursor auf 1. Spalte 
Meldung ausgeben 
1. Byte des Namens 

Name vorhanden ? 

Nr. für "Unnamed file " 
Meldung ausgeben 
Offset zu Block-Nr. 

Block-Nr. ausgeben 
Flag für Catalog holen 
max. Länge/Zähler f. Namen 
Catalog ? d. 16 Zeichen ausg. 
Zeiger auf Namen 
nach HL 

Byte aus Namen 
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26BC 

B7 



OR 

A 

26BD 

28 

04 


JR 

Z,26C3 

26BF 

OC 



INC 

C 

26C0 

23 



INC 

HL 

26C1 

10 

F8 


DJNZ 

26BB 

26C3 

78 



LD 

A, B 

26C4 

41 



LD 

B,C 

26C5 

4F 



LD 

C,A 

26C6 

CD 

8D 

27 

CALL 

278D 

26C9 

1A 



LD 

A, (DE) 

26CA 

CD 

B6 

27 

CALL 

27B6 

26CD 

B7 



OR 

A 

26CE 

20 

02 


JR 

NZ,26D2 

26D0 

3E 

20 


LD 

A,20 

26D2 

C5 



PUSH 

BC 

26D3 

D5 



PUSH 

DE 

26D4 

CD 

34 

13 

CALL 

1334 

26D7 

Dl 



POP 

DE 

26D8 

CI 



POP 

BC 

26D9 

13 



INC 

DE 

26DA 

10 

ED 


DJNZ 

26C9 

26DC 

CD 

50 

27 

CALL 

275C 

26DF 

EB 



EX 

DE,HL 

26E0 

09 



ADD 

HL,BC 

26E1 

EB 



EX 

DE, HL 

26E2 

3E 

8D 


LD 

A,8D 

26E4 

CD 

27 

27 

CALL 

2727 

26E7 

06 

02 


LD 

B,02 

26E9 

CD 

8D 

27 

CALL 

278D 

26EC 

1A 



LD 

A, (DE) 

26ED 

CD 

A4 

27 

CALL 

27A4 

26F0 

CD 

5C 

27 

CALL 

275C 

26F3 

13 



INC 

DE 

26F4 

CD 

BF 

27 

CALL 

27BF 

26F7 

20 

OB 


JR 

NZ,2704 

26F9 

13 



INC 

DE 

26FA 

1A 



LD 

A, (DE) 

26FB 

E6 

0F 


AND 

0F 

26FD 

C6 

24 


ADD 

24 

26FF 

CD 

80 

27 

CALL 

2780 

2702 

18 

58 


JR 

275C 

2704 

1A 



LD 

A, (DE) 

2705 

21 

01 

B8 

LD 

HL,B801 

2708 

B6 



OR 

(HL) 

2709 

C8 



RET 

Z 

270A 

18 

6F 


JR 

277B 


*************** ***** ******* ******* 


270C CD 27 27 CALL 2727 
270F 18 6A JR 277B 


Ende ? 

Länge erhöhen 

weitere Bytes möglich ? 
restlicher Platz f. Namen 
Länge des Namens 
restlicher Platz als Offset 
ggf. Cursor auf nächste Zeile 
Byte aus Namen 
auf Großschrift forcieren 

kein Ende ? 
sonst Space 

TXT WR CHAR, direkt ausgeben 


weitere Namensbytes ? 

Space ausgeben 

Offset zu Namenzeiger 
addieren (B=0!), gibt 
Zeiger auf Blocknr. 

Nr. für "block" 

Meldung ausgeben 

2 Zeichen für Blocknr. 

ggf. Cursor auf nächste Zeile 

Nr. des Blocks 

ausgeben 

Space ausgeben 

Zeiger auf Endblock-Kennzeich. 
Catalog-Flag holen 
nicht Catalog ? 

Zeiger auf Filetyp 
Filetyp 

entsprechendes ASCII-Kennz. 
generieren 
ausgeben 
Space ausgeben 
Flag für letzten Block 
Flag f. Meldung geteilt 
letzter Bl. o. Meid, geteilt ? 
nein ? dann zurück 
CR ausgeben (f. nächste Meid.) 

Meldung und CR ausgeben 
IN : A: Nr. der Meldung 
Meldung ausgeben 
CR ausgeben 


********************************** 
2711 3E FF LD A,FF 


Meldung am linken Rand & CR ausg. 
IN : B: Nr. der Meldung 
Flag für folgendes CR 
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********************************** 


2713 

F5 



PUSH 

AF 

2714 

CD 

1F 

27 

CALL 

271F 

2717 

Fl 



POP 

AF 

2718 

C6 60 


ADD 

60 

271A 

D4 

80 

27 

CALL 

NC,2780 

271D 

18 

5C 


JR 

277B 


********************************** 


271F 

CD 

80 

11 

CALL 

1180 

2722 

25 



DEC 

H 

2723 

C4 

7B 

27 

CALL 

NZ,277B 


********************************** 


2726 

78 



LD 

A,B 

2727 

E5 



PUSH 

HL 

2728 

E6 

7F 


AND 

7F 

272A 

47 



LD 

B,A 

272B 

21 

C5 

27 

LD 

HL.27C5 

272E 

28 

07 


JR 

Z,2737 

2730 

7E 



LD 

A, (HL) 

2731 

23 



INC 

HL 

2732 

B7 



OR 

A 

2733 

20 

FB 


JR 

NZ,2730 

2735 

10 

F9 


DJNZ 

2730 

2737 

7E 



LD 

A, (HL) 

2738 

B7 



OR 

A 

2739 

28 

05 


JR 

Z,2740 

273B 

CD 

43 

27 

CALL 

2743 

273E 

18 

F7 


JR 

2737 

2740 

El 



POP 

HL 

2741 

23 



INC 

HL 

2742 

C9 



RET 



********************************** 


2743 

FA 

27 

27 

JP 

M,2727 

2746 

E5 



PUSH 

HL 

2747 

06 

00 


LD 

B, 00 

2749 

04 



INC 

B 

274A 

7E 



LD 

A, (HL) 

274B 

23 



INC 

HL 

274C 

07 



RLCA 


274D 

30 

FA 


JR 

NC,2749 

274 F 

CD 

8D 

27 

CALL 

278D 

2752 

El 



POP 

HL 

2753 

7E 



LD 

A, (HL) 

2754 

23 



INC 

HL 

2755 

E6 

7F 


AND 

7F 

2757 

CD 

80 

27 

CALL 

2780 

275A 

10 

F7 


DJNZ 

2753 


Meldung und Fehlernr. ausgeben 
IN : A: Nr. des Fehlers 
A=$FF für CR 
B: Nr. der Meldung 
Fehlernr./Flag retten 
Meldung am linken Rand ausg. 
Fehlernr./Flag 

ASCII-Code des Fehlers gener. 
nicht zu groß ? dann ausgeben 
CR ausgeben 

Meldung am linken Rand ausgeben 
IN : B: Nr. der Meldung 
Cursorposition holen 
Spalte=1 ? 

nein ? dann CR ausgeben 

Meldung ausgeben 
IN : B: Nr. der Meldung 
Nr. der Meldung 
(Zeiger in Meldung retten) 
Untermeldungs-Kennz. löschen 
Nr. der Meldung 

Zeiger auf Start der Meldungen 
Meldungs-Nr. =0 ? dann ausg. 
Zeichen aus Tabelle 

nicht Ende der Meldung ? 
dann weiter suchen 
weitere Meldungen übergehen ? 
Zeichen aus Meldung 

Ende ? 

Wort und Space ausgeben 
nächstes Wort 

Zg. in Meldung (bei Rekursion) 
auf Zeichen nach Meldungs-Nr. 


Wort und Space ausgeben 
IN : A: 1. Zeichen 

S: b7 des 1. Zeichen 
IN/OUT: HL: Meldungs-Zeiger 
b7 gesetzt ? d. Meldung ausg. 
Zeiger in Meldung 
Zähler f. Wortlänge 
erhöhen 

Zeichen aus Wort 


kein Wortende ? 
ggf. Cursor auf nächste Zeile 
Zeiger in Meldung auf Wort 
Zeichen aus Wort 

Endkennz. löschen 
Zeichen ausgeben 
weitere Zeichen im Wort ? 
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275C 3E 20 LD A,20 

275E 18 20 JR 2780 

********************************** 


2760 

3A 

00 

B8 

LD 

A,(B800) 

2763 

B7 



OR 

A 

2764 

37 



SCF 


2765 

CO 



RET 

NZ 

2766 

CD 

1F 

27 

CALL 

271 F 

2769 

CD 

42 

1A 

CALL 

1A42 

276C 

38 

FB 


JR 

C,2769 

276E 

CD 

79 

12 

CALL 

1279 

2771 

CD 

56 

1B 

CALL 

1B56 

2774 

CD 

81 

12 

CALL 

1281 

2777 

FE 

1B 


CP 

1B 

2779 

C8 



RET 

Z 

217k 

37 



SCF 


277B 

CD 

83 

27 

CALL 

2783 

277E 

3E 

0A 


LD 

A,0A 

2780 

C3 

00 

14 

JP 

1400 

********************************** 

2783 

F5 



PUSH 

AF 

2784 

E5 



PUSH 

HL 

2785 

3E 

01 


LD 

A, 01 

2787 

CD 

5E 

11 

CALL 

115E 

278A 

El 



POP 

HL 

278B 

Fl 



POP 

AF 

278C 

C9 



RET 



********************************** 


278D 

D5 



PUSH 

DE 

278E 

CD 

56 

12 

CALL 

1256 

2791 

5C 



LD 

E,H 

2792 

CD 

80 

11 

CALL 

1180 

2795 

7C 



LD 

A, H 

2796 

3D 



DEC 

A 

2797 

83 



ADD 

E 

2798 

80 



ADD 

B 

2799 

3D 



DEC 

A 

279k 

BA 



CP 

D 

279B 

Dl 



POP 

DE 

279C 

D8 



RET 

C 

279D 

3E 

FF 


LD 

A, FF 

279F 

32 

01 

B8 

LD 

(B801),A 

27A2 

18 

D7 


JR 

277B 


********************************** 


27A4 

06 FF 

LD 

B, FF 

27A6 

04 

INC 

B 

27A7 

D6 0A 

SUB 

0A 

27A9 

30 FB 

JR 

NC,27A6 

27AB 

C6 3A 

ADD 

3A 


Space 

ausgeben 

Meldung ausgeben, a. Taste warten 
IN : B: Nr. der Meldung 
OUT: CY=0, Z=1 für Abbruch 
Flag für Meldungen 
keine Meldungen ausgeben ? 

CY=1 für kein Abbruch 
dann zurück 

Meldung am linken Rand ausg. 

KM READ CHAR, Taste lesen 

bis keine Taste mehr im Buffer 

TXT CUR ON, Cursor einschalten 

KM WA IT KEY, auf Taste warten 

TXT CUR OFF, Cursor wieder aus 

CTRL-eckige Klammer auf ? (??) 

dann zurück 

CY=1 für kein Abbruch 

Cursor auf 1. Spalte 

Code für Linefeed 

Zeichen ausgeben 

Cursor auf 1. Spalte setzen 


Spalte=1 

TXT SET COLUMN, Spalte setzen 


ggf. Cursor auf nächste Zeile 

IN : B: Wortlänge 

OUT: CY=0, wenn Wort zu lang 

TXT GET WINDOW, Grenzen holen 

linke Windowgrenze 

TXT GET CURSOR, Cursorpos. h. 

Cursorspalte 

-1 f. absolute Koordinaten 
+ linke Windowgrenze 
+ Wort länge 

-1 f. absolute Koordinaten 
mit rechter Winowgrenze vergl. 

Wort innerhalb der Zeile ? 

Flag für Meldung geteilt 

setzen 

CR ausgeben 

Dezimal zahl ausgeben 
IN : A: Zahl 

Zähler für Zehnerstelle 
Zehnerstelle erhöhen 
10 von Einerstelle abziehen 
ggf. weiter abziehen 
"0"+10 addieren, ASCII-Code 
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27AD 

F5 


PUSH 

AF 

27AE 

78 


LD 

A.B 

27AF 

B7 


OR 

A 

27B0 

C4 

A4 27 

CALL 

NZ.27A4 

27B3 

Fl 


POP 

AF 

27B4 

18 

CA 

JR 

2780 

********************************** 

27B6 

FE 

61 

CP 

61 

27B8 

D8 


RET 

C 

27B9 

FE 

7B 

CP 

7B 

27BB 

DO 


RET 

NC 

27BC 

C6 

EO 

ADD 

EO 

27BE 

C9 


RET 



Code retten 
Zehnerstelle 
<>0 ? 

dann ausgeben 

Einerstelle 

ausgeben 

auf Großschrift forcieren 
IN/OUT: A: Zeichen 
< "a" ? 
dann zurück 
> "z"+1 ? 
dann zurück 

sonst nach Großschrift wandeln 


********************************** 


27BF 

3A 

02 B8 

LD 

A,(B802) 

27C2 

FE 

05 

CP 

05 

27C4 

C9 


RET 



Catalog-Flag holen 
OUT: Z=1 für Catalog 
Eingabestatus 
Status für Catalog ? 


********************************** 


Kassetten-Meldungen 


27C5 

50 

72 

65 

73 

F3 

00 



00 

"Press 11 

27CB 

50 

4C 

41 

D9 74 

68 

65 

EE 

01 

"PLAY then any key: " 

27D3 

61 

6E 

F9 

6B 

65 

79 

BA 

00 



27DB 

65 

72 

72 

6F 

F2 

00 



02 

"error " 

27E1 

80 

81 

00 






03 

"Press PLAY then any key 

27E4 

80 

52 

45 

C3 

61 

6E 

•V* 

LU 


04 

"Press REC and " 

27EB 

81 

00 








"PLAY then any key: 11 

27ED 

52 

65 

61 

E4 

82 

00 



05 

"Read error 11 

27F3 

57 

72 

69 

74 

E5 

82 

00 


06 

"Write error " 

27FA 

52 

65 

77 

69 

6E 

E4 

74 

61 

07 

"Rewind tape " 

2802 

70 

E5 

00 







2805 

46 

6F 

75 

6E 

64 

20 

AO 

00 

08 

"Found " 

280D 

4C 

6F 

61 

64 

69 

6E 

E7 

00 

09 

"Loading " 

2815 

53 

61 

76 69 

6E 

E7 

00 


0A 

"Saving " 

281C 

00 








OB 

INI 

281D 

4F 

EB 

00 






OC 

"Ok " 

2820 

62 

6C 

6F 

63 

EB 

00 



0D 

"block 11 

2826 

55 

6E 

6E 

61 

6D 

65 

E4 

66 

OE 

"Unnamed file 11 

282E 

69 

6C 

65 

20 

20 

20 

A0 

00 




ii 


********************************** READ 

IN : HL: Ladeadresse 
DE: Länge 

A: Block-Kennzeichen 
$2C für Header 
$16 für Datenblock 
OUT: CY=0 für Fehler/Abbruch 
A: Fehlernr. (0=Abbruch) 


2836 

CD 

73 

28 

CALL 

2873 

Motor an, Tastatur vorbereiten 

2839 

F5 



PUSH 

AF 

alten Motor-Status retten 

283A 

21 

B8 

28 

LD 

HL,28B8 

Routine für eine Page lesen 

283D 

18 

19 


JR 

2858 
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********************************** 


A: Fehlernr. (0=Abbruch) 


283 F 

CD 

73 

28 

CALL 

2873 

2842 

F5 



PUSH 

AF 

2843 

CD 

64 

29 

CALL 

2964 

2846 

21 

F7 

28 

LD 

HL,28F7 

2849 

DC 

9D 

28 

CALL 

C, 289D 

284C 

DC 

79 

29 

CALL 

C,2979 

284 F 

18 

OF 


JR 

2860 


********************************** 


2851 

CD 

73 

28 

CALL 

2873 

2854 

F5 



PUSH 

AF 

2855 

21 

C7 

28 

LD 

HL,28C7 

2858 

E5 



PUSH 

HL 

2859 

CD 

19 

29 

CALL 

2919 

285 C 

El 



POP 

HL 

285D 

DC 

9D 

28 

CALL 

C, 289D 

2860 

Dl 



POP 

DE 

2861 

F5 



PUSH 

AF 

2862 

01 

82 

F7 

LD 

BC,F782 

2865 

ED 

49 


OUT 

(C),C 

2867 

01 

10 

F6 

LD 

BC,F610 

286A 

ED 

49 


OUT 

(C),C 

286C 

FB 



EI 


286D 

7A 



LD 

A,D 

286E 

CD 

51 

2A 

CALL 

2A51 

2871 

Fl 



POP 

AF 

2872 

C9 



RET 



********************************** 


2873 

32 

CD 

B8 

LD 

(B8CD),A 

2876 

1B 



DEC 

DE 

2877 

IC 



INC 

E 

2878 

E5 



PUSH 

HL 

2879 

D5 



PUSH 

DE 

287A 

CD 

68 

IE 

CALL 

1E68 

287D 

Dl 



POP 

DE 

287E 

DD 

El 


POP 

IX 

2880 

CD 

4B 

2A 

CALL 

2A4B 


CAS WRITE 

IN : HL: Startadresse 
DE: Länge 

A: Block-Kennzeichen 
$2C für Header 
$16 für Datenblock 
CXJT: CY=0 für Fehler/Abbruch 

Motor an, Tastatur vorbereiten 
alten Motor-Status retten 
Synchronisationston schreiben 
Routine f. eine Page schreiben 
o.k. ? dann Bereich schreiben 
o.k. ? dann End-Ton schreiben 
Motor und Tastatur wieder zur. 

CAS CHECK 

IN : HL: Startadresse 
DE: Länge 

A: Block-Kennzeichen 
$2C für Header 
$16 für Datenblock 
OUT: CY=0 für Fehler/Abbruch 
A: Fehlernr. (0=Abbruch) 
Motor an, Tastatur vorbereiten 
alten Motor-Status retten 
Rout. f. eine Page vergleichen 
Routinenadresse retten 
auf Synchronisation warten 
Routinenadresse zurück 
o.k. ? dann lesen/vergleichen 
alter Motor-Status 
Fehlerflag und Nr. retten 
PIO, Steuerregister 
Port A wieder auf Ausgabe 
PIO, Port C 

PSG inaktiv, Tastaturzeile 0 

alter Motor-Status 
Motor wieder enstprechend 
Fehlerflag und Nr. 


Motor ein, Tastatur vorbereiten 
IN : HL: Startadresse 
DE: Länge 

A: Block-Kennzeichen 
OUT: IX: Startadresse 

DE: modifizierte Länge 
Block-Kennzeichen setzen 
D:=Zahl der ganzen Pages 
E:=rest. Bytes (0 f. 1 Page) 
Startadresse 
modifizierte Länge 
SOUND RESET 
modifizierte Länge 
Startadresse 

CAS START MOTOR, Motor ein 




Die Listings der CPC-ROMs 347 


2883 

F3 



DI 


2884 

01 

OE 

F4 

LD 

BC.F40E 

2887 

ED 

49 


OUT 

(C),C 

2889 

01 

DO 

F6 

LD 

BC,F6D0 

288C 

ED 

49 


OUT 

<C),C 

288E 

0E 

10 


LD 

C, 10 

2890 

ED 

49 


OUT 

(C),C 

2892 

01 

92 

F7 

LD 

BC,F792 

2895 

ED 

49 


OUT 

<C),C 

2897 

01 

58 

F6 

LD 

BC.F658 

289A 

ED 

49 


OUT 

<C),C 

289C 

C9 



RET 



********************************** 


289D 

7A 



LD 

A,D 

289E 

B7 



OR 

A 

289 F 

28 

OD 


JR 

Z,28AE 

28A1 

E5 



PUSH 

HL 

28A2 

D5 



PUSH 

DE 

28A3 

IE 

00 


LD 

E,00 

28A5 

CD 

AE 

28 

CALL 

28AE 

28A8 

Dl 



POP 

DE 

28A9 

El 



POP 

HL 

28AA 

DO 



RET 

NC 

28AB 

15 



DEC 

D 

28AC 

20 

F3 


JR 

NZ,28A1 

28AE 

01 

FF 

FF 

LD 

BC, FFFF 

28B1 

ED 

43 

D3 B8 

LD 

(B8D3),BC 

28B5 

16 

01 


LD 

D ,01 

28B7 

E9 



JP 

(HL) 


********************************** 


28B8 

CD 

B0 

29 

CALL 

29B0 

28BB 

DO 



RET 

NC 

28BC 

DD 

77 

00 

LD 

(IX+00),A 

28BF 

DD 

23 


INC 

IX 

28C1 

15 



DEC 

D 

28C2 

ID 



DEC 

E 

28C3 

20 

F3 


JR 

NZ,28B8 

28C5 

18 

12 


JR 

28D9 


Interrupts verhindern 
PIO, Port A 

PSG, Registernr. für Port 0 
PIO, Port C 

Motor ein, PSG Adr. übernehmen 

Motor ein, PSG inaktiv 
PIO, Steuerregister 
Port A auf Eingabe 
PIO, Port C 

Tastaturzl. 8 f. ESC, Read PSG 


Block pageweise bearbeiten 
IN : IX: Block-Start-/Ladeadresse 
HL: Routinenadr. f. 1 Page 
DE: modifizierte Länge 
D: Zahl der ganzen Pages 
E: Zahl d. Bytes in Restpage 
(0 für eine ganze Page) 
OUT: CY=0, wenn Fehler 
A: Fehlernr. 

Zahl der ganzen Pages 

nur 1 Restpage (Länge<=$100) ? 

dann letzte Page bearbeiten 

Routinenadresse 

modifizierte Länge 

Kennz. für Datenlänge =$100 

eine Page bearbeiten 

modifizierte Länge 

Routinenadresse 

Fehler ? dann zurück 

Zahl der ganzen Pages 

weitere Pages ? 

Check-Word 
initialisieren 
Kennz. f. Blocklänge =$100 
Routine anspringen 

eine Page lesen 
IN : IX: Ladeadresse 

E: Zahl der Datenbytes 
(0 für ganze Page) 

D: Zahl d. Bytes insgesamt+1 
(1 für ganze Page) 

OUT: CY=0, wenn Fehler 
A: Fehlernr. 
ein Byte lesen 
Fehler ? 

sonst Byte abspeichern 

Länge insgesamt 
Datenlänge 

weitere Datenbytes ? 

Restblock und Blockende lesen 
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********************************** gjp|g Pag 0 1 , 6 scn und vergleichen 

IN : IX: Startadresse 


28C7 

CD 

BO 

29 

CALL 

29B0 

28CA 

DO 



RET 

NC 

28CB 

47 



LD 

B,A 

28CC 

CD 

DC 

BA 

CALL 

BADC 

28CF 

A 8 



XOR 

B 

28D0 

3E 

03 


LD 

A, 03 

28D2 

CO 



RET 

NZ 

28D3 

DD 

23 


INC 

IX 

28D5 

15 



DEC 

D 

28D6 

ID 



DEC 

E 

28D7 

20 

EE 


JR 

NZ,28C7 

28D9 

15 



DEC 

D 

28DA 

28 

06 


JR 

Z,28E2 

28DC 

CD 

B0 

29 

CALL 

29B0 

28DF 

DO 



RET 

NC 

28E0 

18 

F7 


JR 

28D9 

28E2 

CD 

A 6 

29 

CALL 

29A6 

28E5 

CD 

B0 

29 

CALL 

29B0 

28E8 

DO 



RET 

NC 

28E9 

AA 



XOR 

D 

28EA 

20 

07 


JR 

NZ,28F3 

28EC 

CD 

B0 

29 

CALL 

29B0 

28EF 

DO 



RET 

NC 

28F0 

AB 



XOR 

E 

28F1 

37 



SCF 


28F2 

C 8 



RET 

Z 

28F3 

3E 

02 


LD 

A,02 

28F5 

B7 



OR 

A 

28F6 

C9 



RET 



E: Zahl der Datenbytes 
(0 für ganze Page) 

D: Zahl d. Bytes insgesamt+1 
(1 für ganze Page) 

OUT: CY=0, wenn Fehler 
A: Fehlernr. 
ein Byte lesen 
Fehler ? 
gelesenes Byte 
Byte aus RAM holen 
mit gelesenem Byte vergleichen 
Fehlernr. für "Read error c" 
ungleich ? dann Fehler 

Länge insgesamt 
Datenlänge 
weitere Datenbytes ? 
weitere Bytes in Restblock ? 
nein ? 

Byte lesen 
Fehler ? 

weitere Füllbytes lesen 
Check-Word holen 
Byte lesen 
Fehler ? 

mit Check-Word hi vergleichen 
ungleich ? 

Byte lesen 
Fehler ? 

mit Check-Word lo vergleichen 
CY=1 für kein Fehler 
Check-Word o.k. ? 

Nr. für Check-Word-Fehler 
CY=0 für Fehler 


********************************** 


28F7 

CD 

DC 

BA 

CALL 

BADC 

28FA 

CD 

F 8 

29 

CALL 

29F8 

28FD 

DO 



RET 

NC 

28FE 

DD 

23 


INC 

IX 

2900 

15 



DEC 

D 

2901 

ID 



DEC 

E 

2902 

20 

F3 


JR 

NZ,28F7 

2904 

15 



DEC 

D 

2905 

28 

07 


JR 

Z,290E 

2907 

AF 



XOR 

A 

2908 

CD 

F 8 

29 

CALL 

29F8 

290B 

DO 



RET 

NC 


eine Page auf Band schreiben 
IN : IX: Startadresse 

E: Zahl der Datenbytes 
(0 für ganze Page) 

D: Zahl d. Bytes insgesamt+1 
(1 für ganze Page) 

OUT: CY=0, wenn Fehler 
A: Fehlernr. 

Byte aus RAM holen 
Byte speichern 
Fehler ? 

Länge insgesamt 

Daten-Länge 

weitere Datenbytes ? 

weitere Restblock-Bytes ? 

nein ? 

sonst Null 

als Füllbyte auf Band 
Fehler ? 
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290C 

18 

F6 


JR 

2904 

290E 

CD 

A6 

29 

CALL 

29A6 

2911 

CD 

F8 

29 

CALL 

29F8 

2914 

DO 



RET 

NC 

2915 

7B 



LD 

A,E 

2916 

C3 

F8 

29 

JP 

29F8 

* -sSr ** *********** *** * ********* * **** * 

2919 

D5 



PUSH 

DE 

291A 

CD 

23 

29 

CALL 

2923 

291D 

Dl 



POP 

DE 

291E 

D8 



RET 

C 

291F 

B7 



OR 

A 

2920 

C8 



RET 

Z 

2921 

18 

F6 


JR 

2919 


* * T*r ■**"* -jär “jär icick ir ick it ***** Vc ***** * ***** * * 


2923 

2E 

55 


LD 

L,55 

2925 

CD 

CD 

29 

CALL 

29CD 

2928 

DO 



RET 

NC 

2929 

11 

00 

00 

LD 

DE,0000 

292C 

62 



LD 

H,D 

292D 

CD 

CD 

29 

CALL 

29CD 

2930 

DO 



RET 

NC 

2931 

EB 



EX 

DE,HL 

2932 

06 

00 


LD 

B,00 

2934 

09 



ADD 

HL,BC 

2935 

EB 



EX 

DE, HL 

2936 

25 



DEC 

H 

2937 

20 

F4 


JR 

NZ,292D 

2939 

61 



LD 

H, C 

293A 

79 



LD 

A,C 

293B 

92 



SUB 

D 

293C 

4F 



LD 

C,A 

293D 

9F 



SBC 

A 

293E 

47 



LD 

B,A 

293 F 

EB 



EX 

DE,HL 

2940 

09 



ADD 

HL, BC 

2941 

EB 



EX 

DE,HL 

2942 

CD 

CD 

29 

CALL 

29CD 

2945 

DO 



RET 

NC 

2946 

7A 



LD 

A,D 

2947 

CB 

3F 


SRL 

A 

2949 

CB 

3F 


SRL 

A 

294B 

8A 



ADC 

D 

294C 

94 



SUB 

H 

294D 

38 

EA 


JR 

C,2939 

294 F 

91 



SUB 

C 

2950 

38 

E7 


JR 

C,2939 

2952 

7A 



LD 

A,D 

2953 

1 F 



RRA 


2954 

8A 



ADC 

D 

2955 

67 



LD 

H,A 


weitere Füllbytes 
Check-Word holen 
Check-Word hi auf Band 
Fehler ? 

Check-Word lo 
auf Band 

auf Synchronisation warten 
OUT: CY=1, Z=1, A=0 für Abbruch 

Sync. lesen, Baudr./Flanke ho. 

kein Fehler ? 

Abbruch ? 
dann zurück 

sonst weiter versuchen 

Synchronisation lesen/auswerten 
OUT: (SB8CE): Flanken-Flag 
($55 bzw. $AA) 
($B8CF): Zählengrenzen-Wert 
(abh. v. Baudrate) 
Flanken-Byte, wechs. pos./neg. 
auf nächste Flanke warten 
Fehler ? 

Zeitzähler =0 
Flankenzähler =0 
auf nächste Flanke warten 
Fehler ? 

akt. Zeitzähler hi=0 
akt. Zeitzähler addieren 

Flankenzähler 
weitere Flanken ? 
vorigen Zeitzähler nach H 
Zeitzähler 

- bi sh. mittlere Flankenzeit 
als Lo-Byte 
Vorzeichen erweitern 
Hi-Byte 

Differenz zu mittlerer 
Flankenzeit addieren 
(Gewicht 1:256) 
auf nächste Flanke warten 
Fehler ? 

mittlere Flankenzeit 

mit 5/4 multiplizieren 
(1/4 als Toleranzgrenze) 
vorige Flankenzeit abziehen 
Flankenzeit zu groß ? 
akt. Flankenzeit abziehen 
zu groß für 2 O-Bit-Flanken ? 
mittl. Flankenzeit f. 1-Bit 
mal 3/2 als Zeitzählgrenze 
(für doppelte Flankenzeitl) 
Zeitzählgrenze zusammen mit 
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2956 

22 

CE 

B8 

LD 

(B8CE),HL 

2959 

CD 

BO 

29 

CALL 

29B0 

295C 

DO 



RET 

NC 

295D 

21 

CD 

B8 

LD 

HL,B8CD 

2960 

AE 



XOR 

(HL) 

2961 

CO 



RET 

NZ 

2962 

37 



SCF 


2963 

C9 



RET 



********************************** 


2964 

CD 

89 

2A 

CALL 

2A89 

2967 

21 

01 

08 

LD 

HL,0801 

296A 

CD 

7C 

29 

CALL 

297C 

296D 

DO 



RET 

NC 

296E 

B7 



OR 

A 

296F 

CD 

08 

2A 

CALL 

2A08 

2972 

DO 



RET 

NC 

2973 

3A 

CD 

B8 

LD 

A,(B8CD) 

2976 

C3 

F8 

29 

JP 

29F8 


********************************** 


2979 

21 

21 

00 

LD 

HL,0021 

297C 

06 

F4 


LD 

B, F4 

297E 

ED 

78 


IN 

A, (C) 

2980 

E6 

04 


AND 

04 

2982 

C8 



RET 

Z 

2983 

E5 



PUSH 

HL 

2984 

37 



SCF 


2985 

CD 

08 

2A 

CALL 

2A08 

2988 

El 



POP 

HL 

2989 

2B 



DEC 

HL 

298A 

7C 



LD 

A, H 

298B 

B5 



OR 

L 

298C 

20 

EE 


JR 

NZ,297C 

298E 

37 



SCF 


298F 

C9 



RET 



Flankenflag abspeichern 
Byte lesen 
Fehler ? 

Zeiger auf Kennbyte 

Byte mit gesuchtem vergleichen 

ungleich ? dann Fehler 

CY=1 für kein Fehler 


Synchronisation schreiben 
OUT: CY=0 für Fehler/Abbruch 
A: Fehlernr. (0=Abbruch) 
Verzögerung 
Zahl der 1-Bits 
1-Bits als Synchronisation 
Abbruch ? 

CY=0 für O-Bit 
Bit auf Band 
Fehler ? 

Kennbyte 

auf Band schreiben 

Blockendton schreiben 
OUT: CY=0, A=0 für Abbruch 
Zahl der 1-Bits 
PIO, Port A 

Tastatur-Rückmeldung Zeile 8 
Bit für ESC isolieren 
ESC gedrückt ? 

Bitzähler retten 
CY=1 für 1-Bit 
Bit auf Band schreiben 
Bitzähler 


weitere Bits ? 

CY=1 für kein Abbruch 


********************************** 


Bit in Check-Word 'reinmurksen 
IN : A=$FF, wenn 1-Bit 
A=0, wenn O-Bit 


2990 

2A 

D3 

B8 

LD 

HL,(B8D3) 

altes Check-Word 

2993 

AC 



XOR 

H 

mit neuen Bit verknüpfen 

2994 

F2 

AO 

29 

JP 

P,29A0 

neues Bit XOR bl5 =0 ? 

2997 

7C 



LD 

A, H 


2998 

EE 

08 


XOR 

08 

b4 und bl 1 des 

299A 

67 



LD 

H, A 

Check-Words invertieren 

299B 

7D 



LD 

A.L 


299C 

EE 

10 


XOR 

10 


299E 

6F 



LD 

L,A 


299F 

37 



SCF 


CY=1 für 1-Bit 

29A0 

ED 

6A 


ADC 

HL, HL 

Bit in Check-Word rotieren 

29A2 

22 

D3 

B8 

LD 

<B8D3),HL 

Checkword wieder speichern 

29A5 

C9 



RET 
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********************************** 


29A6 

2A D3 B8 

LD 

HL,(B8D3) 

29A9 

7D 

LD 

A,L 

29AA 

2F 

CPL 


29AB 

5F 

LD 

E,A 

29AC 

7C 

LD 

A,H 

29AD 

2F 

CPL 


29AE 

57 

LD 

D,A 

29AF 

C9 

RET 



********************************** 


29B0 

D5 



PUSH 

DE 

29B1 

IE 

08 


LD 

E,08 

29B3 

2A 

CE 

B8 

LD 

HL,(B8CE) 

29B6 

CD 

D4 

29 

CALL 

29D4 

29B9 

DC 

DD 

29 

CALL 

C,29DD 

29BC 

30 

0D 


JR 

NC,29CB 

29BE 

7C 



LD 

A, H 

29BF 

91 



SUB 

C 

29C0 

9F 



SBC 

A 

29C1 

CB 

12 


RL 

D 

29C3 

CD 

90 

29 

CALL 

2990 

29C6 

ID 



DEC 

E 

29C7 

20 

EA 


JR 

NZ,29B3 

29C9 

7A 



LD 

A,D 

29CA 

37 



SCF 


29CB 

Dl 



POP 

DE 

29CC 

C9 



RET 



Check-Word holen 
OUT: DE: Check-Word 
A: Hi-Byte 
Check-Word 


invertieren, nach DE 


Byte ei niesen 
OUT: A: Byte 

CY=0 für Fehler 
A: Fehlernr. 

Zähler für 8 Bits 

Zeitgrenze/Flankenflag 

auf 1. Flanke des Bits warten 

o.k. ? d. auf 2. Flanke warten 

Fehler ? 

Zeitzählergrenze 

minus akt. Zeitzähler gibt Bit 

A=$FF bei 1-Bit 

Bit in Byte rotieren 

Check-W. entspr. Bit neu setz. 

Bi tzähler 

weitere Bits ? 

gelesenes Byte 

CY=1 für kein Fehler 


********************************** auf nächste FLsnke werten ESC t 

IN/OUT: L: Flankenflag 

L=$55 für neg. Flanke 
L=$AA für pos. Flanke 
(OUT für die andere Fl.) 

OUT: C: Zeitzähler 

CY=0, Z=1, A=0, wenn Abbruch 

CY=0, Z=0, wenn Fehler dann: A: Fehlernr. 


29CD 

06 F4 

LD 

B,F4 

PIO, Port B 

29CF 

ED 78 

IN 

A, (C) 

Tastatur-Rückmeld. d. 

29D1 

E6 04 

AND 

04 

Bit für ESC isolieren 

29D3 

C8 

RET 

Z 

ESC gedrückt ? 


********************************** auf nächste Flenke werten 

IN/OUT: L: Flankenflag 

L=$55 für neg. Flanke 
L=$AA für pos. Flanke 
(OUT für die andere Fl.) 

OUT: C: Zeitzähler 

CY=0, Z=0, wenn Fehler dann: A: Fehlernr. 


29D4 

ED 

5F 

LD 

A,R 

Zeit seit letzter Flanke 

29D6 

C6 

03 

ADD 

03 


29D8 

0F 


RR CA 


entspr. Zeitzähler-Wert 

29D9 

0F 


RRCA 


generieren 
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29DA 

E6 

1 F 


AND 

1F 


29DC 

4F 



LD 

C,A 

als Zeitzähler nach C 

* ir ******* * **** itit ************* ■Ä'Ä ifk iir * 

auf 2. Flanke im Bit warten 







IN/OUT: L: Flankenflag 







L=$55 für neg. Flanke 

L=$AA für pos. Flanke 
(OUT für die andere Fl.) 

C: Zeitzähler 







OUT: CY=0, Z=0, wenn Fehler dann: A: Fehlernr. 

29DD 

06 

F5 


LD 

B,F5 

PIO, Port B 

29DF 

79 



LD 

A, C 

Zeitzähler 

29E0 

C6 

02 


ADD 

02 

erhöhen 

29E2 

4F 



LD 

C, A 

wieder setzen 

29E3 

38 

OE 


JR 

C,29F3 

Übertrag ? dann Zeit zu lang 

29E5 

ED 

78 


IN 

A, (C) 

Eingabebit von Kassette laden 

29E7 

AD 



XOR 

L 

je nach Flankenflag inv. 

29E8 

E6 

80 


AND 

80 

Eingabebit isolieren 

29EA 

20 

F3 


JR 

NZ,29DF 

nicht gesuchter Pegel ? 

29EC 

AF 



XOR 

A 

Zeitzähler im Refresh- 

29ED 

ED 

4F 


LD 

R,A 

Register rücksetzen 

29EF 

CB 

OD 


RRC 

L 

Flankenflag f. nächste Flanke 

29F1 

37 



SCF 


CY=1 für kein Fehler 

29F2 

C9 



RET 



29F3 

AF 



XOR 

A 

Zeitzähler im Refresh- 

29F4 

ED 

4F 


LD 

R, A 

Register rücksetzen 

29F6 

3C 



INC 

A 

Fehlernr. =1, CY=0 

29F7 

C9 



RET 



•k-k'kitiK'k'k ix -kiritir irirfc Vr ick Vf Vr •kitir ■*"*• ■& * ■* ■* 4t -k it* ir 

Byte ausgeben 







IN : A: Byte 

OUT: CY=0 für Fehler; A: Fehlernr. 

29F8 

D5 



PUSH 

DE 


29F9 

IE 

08 


LD 

E, 08 

Zähler für 8 Bits 

29FB 

57 



LD 

D,A 

Byte 

29FC 

CB 

02 


RLC 

D 

nächstes Bit 

29FE 

CD 

08 

2A 

CALL 

2A08 

auf Band schreiben 

2A01 

30 

03 


JR 

NC.2A06 

Fehler ? 

2A03 

ID 



DEC 

E 

Bitzähler 

2A04 

20 

F6 


JR 

NZ.29FC 

weitere Bits ? 

2A06 

Dl 



POP 

DE 


2A07 

C9 



RET 



** * ** ** ******** ** **************** * 

Bit auf Band schreiben 







IN : CY: Bit 

OUT: CY=0 für Fehler; A: Fehlernr. 

2A08 

ED 

4B 

DO B8 

LD 

BC,(B8D0) 

voriger Zeitwert/Korrekturwert 

2A0C 

2A 

D2 

B8 

LD 

HL,(B8D2) 

Hauptzeitwert nach L 

2A0F 

9F 



SBC 

A 

A=$FF, wenn 1-Bit 

2A10 

67 



LD 

H,A 

für Check-Word retten 

2A11 

28 

07 


JR 

Z,2A1A 

Bit=0 ? 

2A13 

7D 



LD 

A,L 

sonst Haupt-Zeitwert 

2A14 

87 



ADD 

A 

*2, da 1-Bit doppelt so lang 

2A15 

80 



ADD 

B 

Korrektur-Wert addieren 

2A16 

6F 



LD 

L,A 

als Zeitwert 

2A17 

79 



LD 

A, C 

Zeitwert des vorigen Bits 

2A18 

90 



SUB 

B 

Korrekturwert abziehen 

2A19 

4F 



LD 

C, A 

wieder seten 
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2A1A 

7D 



LD 

A.L 

neuen Zeitwert 

2A1B 

32 

DO 

B8 

LD 

(B8D0),A 

für nächstes Bit speichern 

2A1E 

2E 

0A 


LD 

L,0A 

Port C b5 (WR DATA) gelöscht 

2A20 

CD 

37 

2A 

CALL 

2A37 

verzögern und ausgeben 

2A23 

38 

06 


JR 

C.2A2B 

kein Fehler ? 

2A25 

91 



SUB 

C 

Fehlzeit-urspr. Zeitwert 

2A26 

30 

OC 


JR 

NC,2A34 

Fehlzeit zu groß ? 

2A28 

2F 



CPL 


urspr. Zeitwert-Fehlzeit 

2A29 

3C 



INC 

A 

(Betrag der Differenz) 

2A2A 

4F 



LD 

C.A 

als neuen Zeitwert setzen 

2A2B 

7C 



LD 

A, H 

Flag für 0/1-Bit 

2A2C 

CD 

90 

29 

CALL 

2990 

Check-W. entspr. Bit neu setz 

2A2F 

2E 

OB 


LD 

L, OB 

Port C b5 (WR DATA) gesetzt 

2A31 

CD 

37 2A 

CALL 

2A37 

verzögern und ausgeben 

2A34 

3E 

01 


LD 

A,01 

Fehlernr. f. "Write error a" 

2 A3 6 

C9 



RET 




********************************** nächste Halbwelle ausgeben 

IN : L=$OA für neg. Flanke 
L=$OB für pos. Flanke 
C: Zeitwert 
OUT: CY=0 für Fehler 
A: Fehl zeit 


2A37 

ED 

5F 

LD 

A f R 

Refresh-Zähler durch 2 gibt 

2A39 

CB 

3F 

SRL 

A 

Zeitwert seit letzter Halbw 

2A3B 

91 


SUB 

C 

gewünschten Zeitwert abziehen 

2A3C 

30 

03 

JR 

NC.2A41 

Zeit schon abgelaufen ? 

2A3E 

30 


INC 

A 

sonst restliche Zeit 

2A3F 

20 

FD 

JR 

NZ.2A3E 

verzögern 

2A41 

06 

F 7 

LD 

B,F7 

PIO, Steuerregister 

2A43 

ED 

69 

OUT 

(C), L 

Port C/b5 setzen/löschen 

2A45 

F5 


PUSH 

AF 

Fehlerflag 

2A46 

AF 


XOR 

A 

Zeitzähler im Refresh- 

2A47 

ED 

4F 

LD 

R, A 

Register rücksetzen 

2A49 

Fl 


POP 

AF 

Fehlerflags 

2A4A 

C9 


RET 




********************************** CAS START MOTOR 

OUT: A<b4>: alter Motor-Status 
CY=0, Z=1 für Abbruch 

2A4B 3E 10 LD A,10 b4=1 für Motor ein 

2A4D 18 02 JR 2A51 

********************************** CAS STOP MOTOR 

OUT: A<b4>: alter Motor-Status 
CY=0, Z=1 für Abbruch 

2A4F 3E EF LD A,EF b4=0 für Motor aus 

********************************** CAS RESTORE MOTOR 

IN : A<b4>: 

0 für Motor aus 
1 für Motor ein 

OUT: A<b4>: alter Motor-Status 
CY=0, Z=1 für Abbruch 


2A51 

C5 

PUSH 

BC 


2A52 

06 F6 

LD 

B,F6 

PIO, Port C 

2A54 

ED 48 

IN 

C,(C) 

alten Motor-Status holen 

2A56 

04 

INC 

B 

PIO, Steuerregister 
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2A57 

E6 

10 


AND 

10 

2A59 

3E 

08 


LD 

A, 08 

2A5B 

28 

01 


JR 

Z,2A5E 

2A5D 

3C 



INC 

A 

2A5E 

ED 

79 


OUT 

(C),A 

2A60 

37 



SCF 


2A61 

28 

OC 


JR 

Z,2A6F 

2A63 

79 



LD 

A, C 

2A64 

E6 

10 


AND 

10 

2A66 

C5 



PUSH 

BC 

2A67 

01 

C8 

00 

LD 

BC,00C8 

2A6A 

37 



SCF 


2A6B 

cc 

72 

2A 

CALL 

Z,2A72 

2A6E 

CI 



POP 

BC 

2A6F 

79 



LD 

A,C 

2A70 

CI 



POP 

BC 

2A71 

C9 



RET 



eingegebenes Flag 

Code für b4 rücksetzen 

Flag für Stop ? 

sonst Code für b4 setzen 

Motor-Bit in Port C rücks./s. 

CY=1 für kein Abbruch 

Motor ausgeschaltet ? 

alter Motor-Status 

b4 (Motor-Bit) isolieren 

alter Motor-Status 

Verzögerungswert 

CY=1 für kein Abbruch 

war Motor aus ? dann verzögern 

alter Motor-Status 

alten Motor-Status nach A 


********************************** Bandhochlaufzeit v Abbruch prf 

IN : BC: 2. Verzögerungswert 
OUT: CY=0, Z=1, A=0 für Abbruch 


2A72 

C5 



PUSH 

BC 


2A73 

E5 



PUSH 

HL 


2A74 

CD 

89 

2A 

CALL 

2A89 

Verzöger, f. Bandhoch laufzeit 

2A77 

3E 

42 


LD 

A,42 

Nr. der Taste ESC 

2A79 

CD 

BD 

IC 

CALL 

1CBD 

KM TEST KEY, Taste gedrückt ? 

2A7C 

El 



POP 

HL 


2A7D 

CI 



POP 

BC 


2A7E 

20 

07 


JR 

NZ.2A87 

dann Flags setzen 

2A80 

OB 



DEC 

BC 


2A81 

78 



LD 

A.B 

sonst verzögern 

2A82 

Bl 



OR 

C 


2A83 

20 

ED 


JR 

NZ,2A72 


2A85 

37 



SCF 


CY=1 für kein Abbruch 

2A86 

C9 



RET 



2A87 

AF 



XOR 

A 

CY=0 für Abbruch 

2A88 

C9 



RET 




********************************** 


2A89 

01 82 06 

LD 

BC,0682 

2A8C 

OB 

DEC 

BC 

2A8D 

78 

LD 

A.B 

2A8E 

Bl 

OR 

C 

2A8F 

20 FB 

JR 

NZ.2A8C 

2A91 

C9 

RET 


2A92 

C7 

RST 

00 

2A93 

C7 

RST 

00 

2A94 

C7 

RST 

00 

2A95 

C7 

RST 

00 

2A96 

C7 

RST 

00 

2A97 

C7 

RST 

00 


Verzögerung für Bandhoch laufzeit 
Verzögerungswert 


verzögern 
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EDITOR 


********************************** 


2A98 

C5 



PUSH 

BC 

2A99 

D5 



PUSH 

DE 

2A9A 

E5 



PUSH 

HL 

2A9B 

E5 



PUSH 

HL 

2A9C 

01 

FF 

00 

LD 

BC,00FF 

2A9F 

OC 



INC 

C 

2AA0 

7 E 



LD 

A, (HL) 

2AA1 

23 



INC 

HL 

2AA2 

B7 



OR 

A 

2AA3 

20 

FA 


JR 

NZ.2A9F 

2AA5 

32 

DD 

B8 

LD 

(B8DD), A 

2AA8 

CD 

6F 

2C 

CALL 

2C6F 

2AAB 

El 



POP 

HL 

2AAC 

CD 

67 

2D 

CALL 

2D67 

2AAF 

C5 



PUSH 

BC 

2AB0 

E5 



PUSH 

HL 

2AB1 

CD 

D9 

2D 

CALL 

2DD9 

2AB4 

El 



POP 

HL 

2AB5 

CI 



POP 

BC 

2AB6 

CD 

C6 

2A 

CALL 

2AC6 

2AB9 

30 

F4 


JR 

NC,2AAF 

2ABB 

F5 



PUSH 

AF 

2ABC 

CD 

D2 

2C 

CALL 

2CD2 

2ABF 

Fl 



POP 

AF 

2AC0 

El 



POP 

HL 

2AC1 

Dl 



POP 

DE 

2AC2 

CI 



POP 

BC 

2AC3 

FE 

FC 


CP 

FC 

2AC5 

C9 



RET 



********************************** 


2AC6 

E5 



PUSH 

HL 

2AC7 

21 

E0 

2A 

LD 

HL,2AE0 

2ACA 

5F 



LD 

E,A 

2ACB 

78 



LD 

A,B 

2ACC 

Bl 



OR 

C 

2ACD 

7B 



LD 

A,E 

2ACE 

20 

OB 


JR 

NZ.2ADB 

2AD0 

FE 

F0 


CP 

F0 

2 AD 2 

38 

07 


JR 

C,2ADB 

2AD4 

FE 

F4 


CP 

F4 

2 AD 6 

30 

03 


JR 

NC.2ADB 

2 AD 8 

21 

IC 

2B 

LD 

HL.2B1C 

2ADB 

CD 

F6 

2D 

CALL 

2DF6 

2ADE 

E3 



EX 

(SP),HL 

2ADF 

C9 



RET 



********************************** 
2AE0 13 

2AE1 01 2C 2C01 


ED IT 

(Eingabezeile holen) 

IN : HL: Zeiger auf Eingabebuffer 
OUT: HL: Zeiger auf Eingabebuffer 
Z=1, wenn ESC 


Pos. in Buffer u. Bufferlänge 

Bufferlänge 

Zeichen aus Buffer 

Zeiger auf nächstes Zeichen 

Bufferende? 

sonst nächstes Zeichen 
Insert-Modus ausschalten 
Copy Cursor ausschalten 
Zeiger auf Bufferanfang 
Buffer ausgeben 
Pos. in Buffer u. Bufferlänge 
Bufferzeiger 

Zeichen von Tastatur holen 


entspr. Routine anspringen 
Zeilenende? dann raus 
Zeichen 

Copy Cursor ausschalten 
Zeichen 


Editieren mit ESC terminiert? 


Editor-Routine anspringen 
IN : A: Zeichen 
Bufferzeiger 
Tabellenanfang 
Zeichen retten 
Position in Buffer 
Bufferlänge 
Zeichen wieder zurück 
Bufferlänge<>0? dann springen 
sonst bei 
Cursortasten 
eine 

besondere 
Tabelle 
durchsuchen 

und Routine anspringen 

1. Editor-Sprungtabelle 

Anzahl der Tabelleneinträge 
Default: Zeichen in Buffer 
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2AE3 

FC 

42 

2B 

2B42, 

CHR$(252) 

2AE6 

EF 

40 

2B 

2B40, 

CHRS(239) 

2AE9 

OD 

69 

2B 

2B69, 

CHRS(13) 

2AEC 

FO 

B3 

2B 

2BB3, 

CHR$(240) 

2AEF 

Fl 

7E 

2B 

2B7E, 

CHR$(241) 

2AF2 

F2 

AA 

2B 

2BAA, 

CHR$(242) 

2AF5 

F3 

75 

2B 

2B75, 

CHR$(243) 

2AF8 

F8 

C7 

2B 

2BC7, 

CHR$(248) 

2AFB 

F9 

92 

2B 

2B92, 

CHR$(249) 

2AFE 

FA 

BD 

2B 

2BBD, 

CHR$(250) 

2B01 

FB 

89 

2B 

2B89, 

CHR$(251) 

2B04 

F4 

A2 

2C 

2CA2, 

CHR$(244) 

2B07 

F5 

A 7 

2C 

2CA7, 

CHR$(245) 

2B0A 

F6 

9D 

2C 

2C9D, 

CHR$(246) 

2B0D 

F7 

98 

2C 

2C98, 

CHR$(247) 

2B10 

EO 

EA 

2C 

2CEA, 

CHR$(224) 

2B13 

7F 

3D 

2C 

2C3D, 

CHR$(127) 

2B16 

10 

4A 

2C 

2C4A, 

CHR$(16) 

2B19 

El 

F9 

2B 

2BF9, 

CHR$(225) 

********************************** 

2BlC 

04 





2B1D 

2B 

2B 


2B2B 


2B1F 

FO 

2F 

2B 

2B2F, 

CHR$(240) 

2B22 

Fl 

33 

2B 

2B33, 

CHR$(241) 

2B25 

F2 

3B 

2B 

2B3B, 

CHR$(242) 

2828 

F3 

37 

2B 

2B37, 

CHR$(243) 


********************************** 


2B2B 

3E 

07 

LD 

A,07 

2B2D 

18 

OE 

JR 

2B3D 

********************************** 

2B2F 

3E 

OB 

LD 

A, OB 

2B31 

18 

0A 

JR 

2B3D 

********************************** 

2B33 

3E 

0A 

LD 

A,0A 

2B35 

18 

06 

JR 

2B3D 

********************************** 

2B37 

3E 

09 

LD 

A,09 

2B39 

18 

02 

JR 

2B3D 

********************************** 

2B3B 

3E 

08 

LD 

A, 08 

2B3D 

CD 

00 14 

CALL 

1400 

2B40 

B7 


OR 

A 

2B41 

C9 


RET 


********************************** 


2B42 

F5 

PUSH 

AF 

2B43 

CD 49 2B 

CALL 

2B49 

2B46 

Fl 

POP 

AF 


ESCape 

BRK-Zeichen, ignorieren 
ENTER, Editieren beenden 
CURSOR UP 
CURSOR DOWN 
CURSOR LEFT 
CURSOR RIGHT 
CTRL-CURSOR UP 
CTRL-CURSOR DOWN 
CTRL-CURSOR LEFT 
CTRL-CURSOR RIGHT 
SHIFT-CURSOR UP 
SHI FT-CURSOR DOWN 
SHIFT-CURSOR LEFT 
SHIFT-CURSOR RIGHT 
COPY 
DELete 

CLR, Zeich. unt. Cursor lösch. 
CTRL-TAB, Insert-Flag invert. 

2. Editor-Sprungtabelle 
(bei leerem Buffer) 

Anzahl der Tabelleneinträge 

Default: BELL f. Fehler 

CURSOR UP 

CURSOR DOWN 

CURSOR LEFT 

CURSOR RIGHT 

BELL 

Code f. Bell 
ausgeben 

CRSR UP 

Code f. Cursor up 
ausgeben 

CRSR DWN 

Code f. Line Feed 
ausgeben 

CRSR RGHT 

Code f. Cursor right 
ausgeben 

CRSR LEFT 

Code f. Backspace 

Zeichen ausgeben 

CY:=0 f. weiter editieren 


ESC 

IN : HL: Bufferzeiger 
OUT: CY=1 f. Zeilenende 
Zeichen retten 

Buffer u. Abbruchmeldung ausg. 
Zeichen 
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2B47 37 SCF CY: = 1 f. Abbruch 

2B48 C9 RET 

2B49 CD 69 2B CALL 2B69 Buffer ausgeben 

2B4C 21 61 2B LD HL,2B61 Zeiger "*Break*" 

2B4F CD 69 2B CALL 2B69 ausgeben 

2B52 CD 80 11 CALL 1180 Cursorposition holen 

2B55 25 DEC H Cursor am linken Rand? 

2B56 C8 RET Z dann zurück 

2B57 3E 0D LD A,0D sonst CR 

2B59 CD 00 14 CALL 1400 und 

2B5C 3E 0A LD A,0A LF 

2B5E C3 00 14 JP 1400 ausgeben 

2B61 2A 42 72 65 61 6B 2A 00 *Break*. 


********************************** 


2B69 

F5 



PUSH 

AF 

2B6A 

7E 



LD 

A, (HL) 

2B6B 

23 



INC 

HL 

2B6C 

B7 



OR 

A 

?B6D 

C4 

A8 

2D 

CALL 

NZ,2DA8 

2B70 

20 

F8 


JR 

NZ,2B6A 

2B72 

Fl 



POP 

AF 

2B73 

37 



SCF 


2B74 

C9 



RET 


********************************** 

2B75 

16 

01 


LD 

D,01 

2B77 

CD 

93 

2B 

CALL 

2B93 

2B7A 

CA 

2B 

2B 

JP 

Z,2B2B 

2B7D 

C9 



RET 


********************************** 

2B7E 

CD 

EB 

2B 

CALL 

2BEB 

2B81 

79 



LD 

A, C 

2B82 

90 



SUB 

B 

2B83 

BA 



CP 

D 

2B84 

DA 

2B 

2B 

JP 

C,2B2B 

2B87 

18 

0A 


JR 

2B93 


********************************** 


2B89 

CD EB 2B 

CALL 

2BEB 

2B8C 

7A 

LD 

A,D 

2B8D 

93 

SUB 

E 

2B8E 

C8 

RET 

Z 

2B8F 

57 

LD 

D,A 

2B90 

18 01 

JR 

2B93 


********************************** 
2B92 51 LD D,C 

********************************** 


2B93 

78 

LD 

A, B 

2B94 

B9 

CP 

C 

2B95 

C8 

RET 

Z 


ENTER 

Zeichen retten 
Zeichen aus String 
Zeiger nächstes Zeichen 
Bufferende? 

sonst Zeichen ausgeben 
und nächstes Zeichen 
Zeichen von Tastatur 
CY:=1 f. Zeilenende 


CUR RGHT, BufferoO 

Zähler f. 1 Zeichen einfügen 
Zeichen einfügen 
Bufferende? dann BEL f. Fehler 


CUR DOWN, BufferoO 

Windowbreite u. Cursorspalte 
Bufferlänge 

-Cursorpos=Anz. d. Zeichen 
kleiner als Windowbreite? 
dann BEL f. Fehler 
sonst Zeichen einfügen 

CTRL-CUR RGHT 

Windowbreite u. Cursorspalte 

Windowbreite 

-Cursorspalte 

Cursor am rechten Rand? 

sonst dorthin 

setzen 

CTRL-CUR DOWN 

Bufferlänge entspr. Zeichen 

Zeichen in Buffer einfügen 
IN : D: Anz d. einzuf. Zeichen 
OUT: Z=0, wenn o.k. 

Position in Buffer 
Bufferlänge 

Ende erreicht? dann Z=1, raus 
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2B96 

D5 



PUSH 

DE 

2B97 

CD 

50 

2D 

CALL 

2D50 

2B9A 

7E 



LD 

A, (HL) 

2B9B 

D4 

A8 

2D 

CALL 

NC,2DA8 

2B9E 

04 



INC 

B 

2B9F 

23 



INC 

HL 

2BA0 

D4 

67 

2D 

CALL 

NC,2D67 

2BA3 

Dl 



POP 

DE 

2BA4 

15 



DEC 

D 

2BA5 

20 

EC 


JR 

NZ,2B93 

2BA7 

F6 

FF 


OR 

FF 

2BA9 

C9 



RET 



********************************** 


2BAA 

16 

01 


LD 

D ,01 

2BAC 

CD 

C8 

2B 

CALL 

2BC8 

2BAF 

CA 

2B 

2B 

JP 

Z,2B2B 

2BB2 

C9 



RET 


******** Vf* ****** ** *************** * 

2BB3 

CD 

EB 

2B 

CALL 

2BEB 

2BB6 

78 



LD 

A,B 

2BB7 

BA 



CP 

D 

2BB8 

DA 

2B 

2B 

JP 

C,2B2B 

2BBB 

18 

OB 


JR 

2BC8 

********************************** 

2BBD 

CD 

EB 

2B 

CALL 

2BEB 

2BC0 

7B 



LD 

A.E 

2BC1 

D6 

01 


SUB 

01 

2BC3 

C8 



RET 

Z 

2BC4 

57 



LD 

D,A 

2BC5 

18 

01 


JR 

2BC8 


********************************** 
2BC7 51 LD D,C 

********************************** 


2BC8 

78 



LD 

A, B 

2BC9 

B7 



OR 

A 

2BCA 

C8 



RET 

Z 

2BCB 

CD 

4A 

2D 

CALL 

2D4A 

2BCE 

30 

07 


JR 

NC,2BD7 

2BD0 

05 



DEC 

B 

2BD1 

2B 



DEC 

HL 

2BD2 

15 



DEC 

D 

2BD3 

20 

F3 


JR 

NZ,2BC8 

2BD5 

18 

11 


JR 

2BE8 

2BD7 

78 



LD 

A,B 

2BD8 

B7 



OR 

A 

2BD9 

28 

0A 


JR 

Z,2BE5 

2BDB 

05 



DEC 

B 

2BDC 

2B 



DEC 

HL 

2BDD 

D5 



PUSH 

DE 

2BDE 

CD 

29 

2D 

CALL 

2D29 

2BE1 

Dl 



POP 

DE 


Cursor 1 Zeichen nach rechts 
aktuelles Zeichen aus Buffer 
Scrolling? dann Zeichen ausg. 
Position in Buffer 
und Bufferzeiger erhöhen 
o.k.? dann Rest d. Buff. ausg. 

Zähler f. Zeichen 

<>0? dann nächstes Zeichen 

Z:=0 f. o.k. 


CUR LEFT, BufferoO 
1 Zeichen 
zurück 

Fehler? dann BEL 


CUR UP, BufferoO 

Windowbreite u. Cursorspalte 
Position in Buffer 
< Windowbreite? 
dann BEL f. Fehler 
an Bufferanfang zurückgehen 

CTRL-CUR LEFT 

Windowbreite u. Cursorspalte 
Cursorspalte 
Cursor am linken Rand? 
dann zurück 

sonst Cursor an linken Rand 
setzen 

CTRL-CUR UP 

Cursor an Bufferanfang 

Cursor in Buffer zurück 
IN : D: Zeichenzahl 
OUT: Z=0 f. Fehler 
Cursor 

am Bufferanfang? 

dann zurück, Z:=1 

Cursor 1 Zeichen nach links 

über linken Rand? d. Copy Cur. 

Pos. in Buffer 

Bufferzeiger 

Zeichenzahl 

noch Zeichen? dann bearbeiten 
sonst Z:=0, raus 
Pos. in Buffer 
Bufferanfang erreicht? 
dann Buffer ausgeben, raus 
Position in Buffer 
Bufferzeiger 
Zeichenzahl retten 
Copy Cursor nach rechts 
Zeichenzahl 
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2BE2 

15 


DEC 

D 

2BE3 

20 

F2 

JR 

NZ,2BD7 

2BE5 

CD 

67 2D 

CALL 

2D67 

2BE8 

F6 

FF 

OR 

FF 

2BEA 

C9 


RET 



********************************** 


2BEB 

E5 



PUSH 

HL 

2BEC 

CD 

56 

12 

CALL 

1256 

2BEF 

7A 



LD 

A,D 

2BF0 

94 



SUB 

H 

2BF1 

3C 



INC 

A 

2BF2 

57 



LD 

D,A 

2BF3 

CD 

80 

11 

CALL 

1180 

2BF6 

5C 



LD 

E,H 

2BF7 

El 



POP 

HL 

2BF8 

C9 



RET 


********************************** 

2BF9 

3A 

DD 

B8 

LD 

A,(B8DD) 

2BFC 

2F 



CPL 


2BFD 

32 

DD 

B8 

LD 

(B8DD),A 

2C00 

C9 



RET 



********************************** 


2C01 

B7 



OR 

A 

2C02 

C8 



RET 

Z 

2C03 

5F 



LD 

E,A 

2C04 

3A 

DD 

B8 

LD 

A, (B8DD) 

2C07 

B7 



OR 

A 

2C08 

28 

0D 


JR 

Z,2C17 

2C0A 

78 



LD 

A,B 

2C0B 

B9 



CP 

C 

2C0C 

28 

09 


JR 

Z.2C17 

2C0E 

73 



LD 

(HL),E 

2C0F 

7B 



LD 

A.E 

2C10 

CD 

A8 

2D 

CALL 

2DA8 

2C13 

23 



INC 

HL 

2C14 

04 



INC 

B 

2C15 

B7 



OR 

A 

2C16 

C9 



RET 



********************************** 


2C17 

79 



LD 

A, C 

2C18 

FE 

FF 


CP 

FF 

2C1A 

CA 

2B 

2B 

JP 

Z.2B2B 

2C1D 

AF 



XOR 

A 

2C1E 

32 

DC 

B8 

LD 

(B8DC),A 

2C21 

7B 



LD 

A,E 

2C22 

CD 

A8 

2D 

CALL 

2DA8 

2C25 

0C 



INC 

C 

2C26 

E5 



PUSH 

HL 

2C27 

7E 



LD 

A, (HL) 

2C28 

73 



LD 

(HL) ,E 


herunterzäh Len 

noch Zeichen? dann bearbeiten 
Buffer ausgeben 
Z:=0 f. o.k. 


Windowbr. u. Cursorsp. 

OUT: D: Windowbreite 
E: Cursorspalte 
Bufferzeiger retten 
Windowgrenzen hoLen 
rechte Grenze 
- linke Grenze 
+ 1 

= Breite des Windows 
Cursorposition 
Spaltenposition nach E 
Bufferzeiger wiederholen 


CTRL-TAB 

Insert-Flag 
komplementieren 
und neu setzen 


Zeichen in Buffer schreiben 
IN : A: Zeichen 
Zeichen 

Null? dann nichts tun, zurück 

Zeichen retten 

Insert-FLag 

Insert-Modus an? 

dann Zeichen einfügen 

sonst Cursor 

am Bufferende? 

dann Zeichen einfügen 

sonst Zeichen einfach in Buff. 

Zeichen zurück 

und ausgeben 

Bufferzeiger 

und Pos. in Buffer erhöhen 
CY:=0 f. o.k. 


Zeichen in Buffer einfügen 
IN : E: Zeichen 
BufferLänge 
bereits maximal? 
dann BEL f. Fehler 
Flag f. Copy Cursor=Cursor 
setzen 
Zeichen 
ausgeben 

Bufferlänge erhöhen 
Bufferzeiger retten 
Zeichen aus Buffer 
neues Zeichen in Buffer 




360 Die Listings des CPC-464-ROMs 


2C29 

5F 



LD 

E,A 

2C2A 

23 



INC 

HL 

2C2B 

B7 



OR 

A 

2C2C 

20 

F9 


JR 

NZ,2C27 

2C2E 

77 



LD 

(HL),A 

2C2F 

El 



POP 

HL 

2C30 

04 



INC 

B 

2C31 

23 



INC 

HL 

2C32 

CD 

67 

2D 

CALL 

2D67 

2C35 

3A 

DC 

B8 

LD 

A, (B8DC) 

2C38 

B7 



OR 

A 

2C39 

C4 

29 

2D 

CALL 

NZ.2D29 

2C3C 

C9 



RET 



********************************** 


2C3D 

78 



LD 

A,B 

2C3E 

B7 



OR 

A 

2C3F 

CA 

2B 

2B 

JP 

Z,2B2B 

2C42 

CD 

4A 

2D 

CALL 

2D4A 

2C45 

D2 

2B 

2B 

JP 

NC.2B2B 

2C48 

05 



DEC 

B 

2C49 

2B 



DEC 

HL 

********************************** 

2C4A 

78 



LD 

A,B 

2C4B 

B9 



CP 

C 

2C4C 

CA 

2B 

2B 

JP 

Z,2B2B 

2C4F 

E5 



PUSH 

HL 

2C50 

23 



INC 

HL 

2C51 

7E 



LD 

A,(HL) 

2C52 

2B 



DEC 

HL 

2C53 

77 



LD 

(HL),A 

2C54 

23 



INC 

HL 

2C55 

B7 



OR 

A 

2C56 

20 

F8 


JR 

NZ.2C50 

2C58 

2B 



DEC 

HL 

2C59 

36 

20 


LD 

(HL),20 

2C5B 

32 

DC 

B8 

LD 

(B8DC),A 

2C5E 

E3 



EX 

(SP),HL 

2C5F 

CD 

67 

2D 

CALL 

2D67 

2C62 

E3 



EX 

(SP),HL 

2C63 

36 

00 


LD 

(HL),00 

2C65 

El 



POP 

HL 

2C66 

0D 



DEC 

C 

2C67 

3A 

DC 

B8 

LD 

A,(B8DC) 

2C6A 

B7 



OR 

A 

2C6B 

C4 

2D 

2D 

CALL 

NZ.2D2D 

2C6E 

C9 



RET 


********************************** 

2C6F 

21 

00 

00 

LD 

HL,0000 

2C72 

22 

DE 

B8 

LD 

(B8DE),HL 

2C75 

C9 



RET 



Zeichen als neues Zeich. setz 
Bufferzeig, auf nächst. Zeich 
Bufferende? 

sonst nächstes Zeichen 
Null an Bufferende 
alter Bufferzeiger 
Pos. in Buffer erhöhen 
Zeiger auf nächstes Zeichen 
restl. Buffer ausgeben 
Cursor=Copy Cursor 
testen 

wenn ungl., d. Copy Cur. rech 


Position in Buffer 

am Bufferanfang? 

dann BEL f. Fehler 

1 Zeichen nach links 

über linken Rand? dann BEL f. 

Position in Buffer 

und Bufferzeiger erniedrigen 


Position in Buffer 
am Bufferende? 
dann BEL f. Fehler 
Bufferzeiger retten 
Zeiger nächstes Zeichen 
Zeichen laden 

Zeiger auf letztes Zeichen 
Zeichen eine Stelle vorrücken 
Zeiger nächstes Zeichen 
Zeilenende erreicht? 
sonst nächstes Zeichen 
Zeiger auf letztes Zeichen 
SPC als letztes Zeichen 
Copy Cursor:=Cursor 
alten Bufferzeiger 
restl. Buffer ausgeben 
Zeiger auf letztes Zeichen 
Null f. Bufferende setzen 
alter Bufferzeiger 
Buffer länge 

Flag f. Cursorgleichheit 

Cursor ungleich? 

dann Copy Cursor nach links 

Copy Cursor ausschalten 
$0000 

als CC-Koordinaten setzen 


Fehler 
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********************************** 


2C76 

ED 

5B 

DE B8 

LD 

DE,(B8DE) 

2C7A 

7C 



LD 

A, H 

2C7B 

AA 



XOR 

D 

2C7C 

CO 



RET 

NZ 

2C7D 

7D 



LD 

A,L 

2C7E 

AB 



XOR 

E 

2C7F 

CO 



RET 

NZ 

2C80 

37 



SCF 


2C81 

C9 



RET 


********************************** 

2C82 

4F 



LD 

C,A 

2C83 

2A 

DE 

B8 

LD 

HL, (B8DE) 

2C86 

7C 



LD 

A,H 

2C87 

85 



OR 

L 

2C88 

C8 



RET 

Z 

2C89 

7D 



LD 

A, L 

2C8A 

81 



ADD 

C 

2C8B 

6F 



LD 

L, A 

2C8C 

CD 

CE 

11 

CALL 

11 CE 

2C8F 

38 

03 


JR 

C,2C94 

2C91 

21 

00 

00 

LD 

HL,0000 

2C94 

22 

DE 

B8 

LD 

(B8DE),HL 

2C97 

C9 



RET 


********************************** 

2C98 

11 

00 

01 

LD 

DE,0100 

2C9B 

18 

0D 


JR 

2CAA 

********************************** 

2C9D 

11 

00 

FF 

LD 

DE,FF00 

2CA0 

18 

08 


JR 

2CAA 

********************************** 

2CA2 

11 

FF 

00 

LD 

DE,00FF 

2CA5 

18 

03 


JR 

2CAA 

********************************** 

2CA7 

11 

01 

00 

LD 

DE,0001 

********************************** 


2CAA 

C5 



PUSH 

BC 

2CAB 

E5 



PUSH 

HL 

2CAC 

2A 

DE 

B8 

LD 

HL,(B8DE) 

2CAF 

7C 



LD 

A, H 

2CB0 

B5 



OR 

L 

2CB1 

CC 

80 

11 

CALL 

Z, 1180 

2CB4 

7C 



LD 

A, H 

2CB5 

82 



ADD 

D 

2CB6 

67 



LD 

H, A 

2CB7 

7D 



LD 

A, L 


beide Cursor vergleichen 

IN : HL: Koordinaten Edit Cur. 

OUT: Z=CY=1, wenn gleich 

DE: Koordinaten Copy Cur. 
CC-Koordinaten 
EC-Spalte 
=CC-SpaLte? 
sonst Z=CY=0, zurück 
EC-Zeile 
=CC-Zeile? 

sonst Z=CY=0, zurück 
Z=CY=1 bei Gleichheit 


neue CC-Zeile berechnen 
IN : A:Scrolling Differenz 
gescrolIte Zeilen 
CC-Koordinaten 
Copy Cursor 
ausgeschaltet? 
dann zurück 
CC-Zeilenposition 
Scrolling Differenz addieren 
ergibt neue Zeile 
Cursor in erlaubte Grenzen 
o.k.? dann wieder abspeichern 
sonst ausschalten 
neue Koordinaten setzen 


SHI FT-CUR RGHT 

Offset f. Copy Cursor 
Copy Cursor bewegen 

SHIFT-CUR LEFT 

Offset f. Copy Cursor 
Copy Cursor bewegen 

SHIFT-CUR UP 

Offset f. Copy Cursor 
Copy Cursor bewegen 

SHIFT-CUR DOWN 

Offset f. Copy Cursor 

Copy Cursor bewegen 

IN : D: Spaltenoffset 
E: Zeilenoffset 


CC-Koordinaten 
Copy Cursor 
ausgeschaltet? 

dann CC auf Edit Cursor setzen 
CC-Spalte 

Spaltenoffset addieren 
CC-Zeile 
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2CB8 

83 



ADD 

E 

2CB9 

6F 



LD 

L.A 

2CBA 

CD 

CE 

11 

CALL 

11 CE 

2CBD 

30 

OB 


JR 

NC.2CCA 

2CBF 

E5 



PUSH 

HL 

2CC0 

CD 

D2 

2C 

CALL 

2CD2 

2CC3 

El 



POP 

HL 

2CC4 

22 

DE 

B8 

LD 

(B8DE),HL 

2CC7 

CD 

CD 

2C 

CALL 

2CCD 

2CCA 

El 



POP 

HL 

2CCB 

CI 



POP 

BC 

2CCC 

C9 



RET 


********************************** 

2CCD 

11 

68 

12 

LD 

DE,1268 

2CD0 

18 

03 


JR 

2CD5 


********************************** 
2CD2 11 68 12 LD DE,1268 

********************************** 


2CD5 

2A 

DE 

B8 

LD 

HL,(B8DE) 

2CD8 

7C 



LD 

A,H 

2CD9 

B5 



OR 

L 

2CDA 

C8 



RET 

Z 

2CDB 

E5 



PUSH 

HL 

2CDC 

CD 

80 

11 

CALL 

1180 

2CDF 

E3 



EX 

(SP),HL 

2CE0 

CD 

74 

11 

CALL 

1174 

2CE3 

CD 

16 

00 

CALL 

0016 

2CE6 

El 



POP 

HL 

2CE7 

C3 

74 

11 

JP 

1174 

********************************** 

2CEA 

C5 



PUSH 

BC 

2CEB 

E5 



PUSH 

HL 

2CEC 

CD 

80 

11 

CALL 

1180 

2CEF 

EB 



EX 

DE,HL 

2CF0 

2A 

DE 

B8 

LD 

HL, (B8DE) 

2CF3 

7C 



LD 

A,H 

2CF4 

B5 



OR 

L 

2CF5 

20 

OC 


JR 

NZ.2D03 

2CF7 

78 



LD 

A,B 

2CF8 

Bl 



OR 

C 

2CF9 

20 

26 


JR 

NZ,2D21 

2CFB 

CD 

80 

11 

CALL 

1180 

2CFE 

22 

DE 

B8 

LD 

(B8DE),HL 

2D01 

18 

06 


JR 

2D09 

2D03 

CD 

74 

11 

CALL 

1174 

2D06 

CD 

68 

12 

CALL 

1268 

2D09 

CD 

AB 

13 

CALL 

13AB 

2D0C 

F5 



PUSH 

AF 

2D0D 

EB 



EX 

DE,HL 

2D0E 

CD 

74 

11 

CALL 

1174 

2011 

2A 

DE 

B8 

LD 

HL, (B8DE) 

2D14 

24 



INC 

H 

2D15 

CD 

CE 

11 

CALL 

11CE 


Zeilenoffset addieren 

und in Windowgrenzen bringen 

Scrolling? dann raus, alte Pos. 

Koordinaten retten 

CC an lfd. Pos. ausschalten 

neue Koordinaten 

setzen 

und CC wieder anschalten 


Copy Cursor anschalten 

Adr. f. Cursor anschalten 
Cursor anschalten 

Copy Cursor ausschalten 

Adr. f. Cursor ausschalten 

Copy Cursor umschalten 

IN : DE: Adr. d. Umschaltroutine 
CC-Koordinaten 
Copy Cursor 
inaktiv? 
dann zurück 
Koordinaten retten 
EC-Koordinaten holen 
CC-Koordinaten nach HL 
und setzen 

Copy Cursor umschalten 

EC-Koordinaten 

setzen 

COPY 


aktuelle EC-Koordinaten holen 

und nach DE 

CC-Koordinaten 

Copy Cursor 

aktiv? 

dann von dort kopieren 
sonst Buffer 
nicht leer? 
dann raus 

aktuelle EC-Position 

als CC-Koordinaten setzen 

da EC schon an, nicht umschalten 

Cursor neu setzen 

Cursor anschalten 

Zeichen unter Cursor holen 

und retten 

EC-Position nach HL 

und wieder setzen 

CC-Position holen 

CC-Spalte erhöhen 

und in Window zwingen 
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2D18 

30 

03 


JR 

NC,2D1D 

über Rand hinaus? 

2D1A 

22 

DE 

B8 

LD 

(B8DE),HL 

sonst neue CC-Pos. setzen 

2D1D 

CD 

CD 

2C 

CALL 

2CCD 

Copy Cursor anschalten 

2D20 

Fl 



POP 

AF 

Zeichen 

2D21 

El 



POP 

HL 


2D22 

CI 



POP 

BC 


2D23 

DA 

01 

2C 

JP 

C,2C01 

Zeich. identif.? d. in Buffer 

2D26 

C3 

2B 

2B 

JP 

2B2B 

sonst BEL f. Fehler 

********************************** 

Copy Cursor nach rechts 

2D29 

16 

01 


LD 

D ,01 

CC-Spaltenoffset 

2D2B 

18 

02 


JR 

2D2F 

Copy Cursor verschieben 

********************************** 

Copy Cursor nach links 

2D2D 

16 

FF 


LD 

D, FF 

CC-Spaltenoffset 

********************************** 

Copy Cursor verschieben 







IN : D: Spaltenofffset 

2D2F 

C5 



PUSH 

BC 


2D30 

E5 



PUSH 

HL 


2D31 

D5 



PUSH 

DE 

Offset retten 

2D32 

CD 

D2 

2C 

CALL 

2CD2 

Copy Cursor ausschalten 

2D35 

Dl 



POP 

DE 

Offset 

2D36 

2A 

DE 

B8 

LD 

HL,(B8DE) 

CC-Koordinaten 

2D39 

7C 



LD 

A, H 

Copy Cursor 

2D3A 

B5 



OR 

L 

inaktiv? 

2D3B 

28 

09 


JR 

Z,2D46 

dann raus 

2D3D 

7C 



LD 

A,H 

sonst CC-Spalte 

2D3E 

82 



ADD 

D 

und Offset addieren 

2D3F 

67 



LD 

H,A 

als neue Spalte 

2D40 

CD 

8C 

2C 

CALL 

2C8C 

in Window zwingen u. speich. 

2D43 

CD 

CD 

2C 

CALL 

2CCD 

Copy Cursor wieder anschalten 

2D46 

El 



POP 

HL 


2D47 

CI 



POP 

BC 


2D48 

B7 



OR 

A 

CY :=0 

2D49 

C9 



RET 



********************************** 

Cursor nach links 

2D4A 

D5 



PUSH 

DE 


2D4B 

11 

08 

FF 

LD 

DE, FF08 

Spaltenoffset und BS 

2D4E 

18 

04 


JR 

2D54 

Cursor verschieben 

********************************** 

Cursor nach rechts 

2D50 

D5 



PUSH 

DE 


2D51 

11 

09 

01 

LD 

DE,0109 

Spaltenoffset und TAB 

********************************** 

Cursor verschieben 







IN : D: Spaltenoffset; E: Zeichen 
OUT: CY=0, wenn o.k. 

2D54 

C5 



PUSH 

BC 


2D55 

E5 



PUSH 

HL 


2D56 

CD 

80 

11 

CALL 

1180 

aktuelle Cursorposition 

2059 

7A 



LD 

A,D 

Offset 

2D5A 

84 



ADD 

H 

und Cursorspalte addieren 

2D5B 

67 



LD 

H,A 

als neue Spalte setzen 

2D5C 

CD 

CE 

11 

CALL 

11CE 

und in Fenstergrenzen zwingen 

2D5F 

7B 



LD 

A,E 

Zeichen 

2D60 

DC 

00 

14 

CALL 

C,1400 

Spalte o.k.? d. Zeich. ausg. 
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2D63 

El 



POP 

HL 

2D64 

CI 



POP 

BC 

2D65 

Dl 



POP 

DE 

2D66 

C9 



RET 


**********■****•*************•*■*■*•&•&** 

2D67 

C5 



PUSH 

BC 

2D68 

E5 



PUSH 

HL 

2D69 

EB 



EX 

DE, HL 

2D6A 

CD 

80 

11 

CALL 

1180 

2D6D 

4F 



LD 

C,A 

2D6E 

EB 



EX 

DE,HL 

2D6F 

7E 



LD 

A, (HL) 

2D70 

23 



INC 

HL 

2D71 

B7 



OR 

A 

2D72 

C4 

85 

2D 

CALL 

NZ,2D85 

2D75 

20 

F8 


JR 

NZ,2D6F 

2D77 

CD 

80 

11 

CALL 

1180 

2D7A 

91 



SUB 

C 

2D7B 

EB 



EX 

DE,HL 

2D7C 

85 



ADD 

L 

2D7D 

6F 



LD 

L,A 

2D7E 

CD 

74 

11 

CALL 

1174 

2D81 

El 



POP 

HL 

2D82 

CI 



POP 

BC 

2D83 

B7 



OR 

A 

2D84 

C9 



RET 


*************************** *** *•*■** 


2D85 

F5 



PUSH 

AF 

2D86 

C5 



PUSH 

BC 

2D87 

D5 



PUSH 

DE 

2D88 

E5 



PUSH 

HL 

2D89 

47 



LD 

B,A 

2D8A 

CD 

80 

11 

CALL 

1180 

2D8D 

91 



SUB 

C 

2D8E 

83 



ADD 

E 

2D8F 

5F 



LD 

E,A 

2D90 

48 



LD 

C, B 

2D91 

CD 

CE 

11 

CALL 

11 CE 

2D94 

38 

05 


JR 

C,2D9B 

2D96 

78 



LD 

A,B 

2D97 

87 



ADD 

A 

2D98 

3C 



INC 

A 

2D99 

83 



ADD 

E 

2D9A 

5F 



LD 

E,A 

2D9B 

EB 



EX 

DE,HL 

2D9C 

CD 

CE 

11 

CALL 

11CE 

2D9F 

79 



LD 

A,C 

2DA0 

DC 

A8 

2D 

CALL 

C,2DA8 

2DA3 

El 



POP 

HL 

2DA4 

Dl 



POP 

DE 

2DA5 

CI 



POP 

BC 

2DA6 

Fl 



POP 

AF 

2DA7 

C9 



RET 



Buffer ab HL ausgeben 

Bufferzeiger retten 
und nach DE 
Cursorposition holen 
Scrolling Zähler 

Zeichen aus Buffer 

Zeiger auf nächstes Zeichen 

Bufferende? 

sonst Zeichen ausgeben 
und nächstes Zeichen holen 
Cursorposition holen 
Scrolling Differenz berechnen 
alte Cursorposition nach HL 
Scrol. Dif. + alte Cursorzeile 
als neue Zeile setzen 
neue Position setzen 


CY:=0 f. o.k. 


Zeichen ausgeben 
IN : A: Zeichen 

C: Scrolling Zähler 
DE: Cursorpos. 
Zeichen 


Zeichen retten 
Cursorpos. holen 
Scrolling Differ. berechnen 
+ alte Cursorzeile 
= neue Cursorzeile 
Zeichen 

Cursor in Fenstergrenzen 
o.k.? dann Cur. in DE in Win. 
sonst Flag f. hoch-scrollen 
A:=FF=-1, wenn nach oben 
A:=01= 1, wenn nach unten 
zu Cursorzeile addieren 
ergibt neue Cursorzeile 
nach HL 

in gültige Grenzen bringen 
Zeichen 

o.k.? dann ausg., ggf. scrol. 
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********************************** 


2DA8 

F5 



PUSH 

AF 

2DA9 

C5 



PUSH 

BC 

2DAA 

D5 



PUSH 

DE 

2DAB 

E5 



PUSH 

HL 

2DAC 

47 



LD 

B,A 

2DAD 

CD 

80 

11 

CALL 

1180 

2DB0 

4F 



LD 

C,A 

2DB1 

C5 



PUSH 

BC 

2DB2 

CD 

CE 

11 

CALL 

11 CE 

2DB5 

CI 



POP 

BC 

2DB6 

DC 

76 

2C 

CALL 

C,2C76 

2DB9 

F5 



PUSH 

AF 

2DBA 

DC 

D2 

2C 

CALL 

C,2CD2 

2DBD 

78 



LD 

A,B 

2DBE 

C5 



PUSH 

BC 

2DBF 

CD 

34 

13 

CALL 

1334 

2DC2 

CI 



POP 

BC 

2DC3 

CD 

80 

11 

CALL 

1180 

2DC6 

91 



SUB 

C 

2DC7 

C4 

82 

2C 

CALL 

NZ,2C82 

2DCA 

Fl 



POP 

AF 

2DCB 

30 

07 


JR 

NC,2DD4 

2DCD 

9F 



SBC 

A 

2DCE 

32 

DC 

B8 

LD 

(B8DC),A 

2DD1 

CD 

CD 

2C 

CALL 

2CCD 

2DD4 

El 



POP 

HL 

2DD5 

Dl 



POP 

DE 

2DD6 

CI 



POP 

BC 

2DD7 

Fl 



POP 

AF 

2DD8 

C9 



RET 



********************************** 


2DD9 

CD 

80 

11 

CALL 

1180 

2DDC 

4F 



LD 

Cf A 

2DDD 

CD 

CE 

11 

CALL 

11CE 

2DE0 

CD 

76 

2C 

CALL 

2C76 

2DE3 

DA 

3C 

1A 

JP 

C, 1A3C 

2DE6 

CD 

79 

12 

CALL 

1279 

2DE9 

CD 

80 

11 

CALL 

1180 

2DEC 

91 



SUB 

C 

2DED 

C4 

82 

2C 

CALL 

NZ,2C82 

2DF0 

CD 

3C 

1A 

CALL 

1A3C 

2DF3 

C3 

81 

12 

JP 

1281 


Zeichen ausgeben 
IN : A: Zeichen 


Zeichen retten 
Cursorposition holen 
Scrolling Zähler retten 
mit Zeichen auf Stack 
Cur. in gült. Grenzen bringen 
Zeichen und Scrolling Zähler 
über Rand? sonst Curs. vergl. 
Vergleichsergebnis retten 
wenn gleich, Copy Cursor an 
Zeichen 

und Zähler retten 
Zeichen ausg., Cursor weiter 
Zähler u. Zeichen 
Cursorposition holen 
Scrolling Differenz berechnen 
Scrolling? dann neue Zeile 
Flag f. Cursorvergleich 
waren ungleich? dann raus 
$FF als Flag f. Ungleichheit 
setzen 

Copy Cursor anschalten 


Zeichen von Tastatur holen 
OUT: A: Zeichen 

Cursorposition holen 
Scrolling Zähler 
Cursor in gültige Grenzen 
EC und CC vergleichen 
gleich? dann Zeichen holen 
Edit Cursor anschalten 
neue Cursorposition holen 
Scrolling Dif. berechnen 
ggf. neue Zeile berechnen 
Zeichen holen 
Cursor ausschalten 


********************************** Adr 3us TBkelle holen 

IN : A: Zeichen 


2DF6 

F5 

PUSH 

AF 

2DF7 

C5 

PUSH 

BC 

2DF8 

46 

LD 

B, (HL) 

2DF9 

23 

INC 

HL 

2DFA 

E5 

PUSH 

HL 

2DFB 

23 

INC 

HL 

2DFC 

23 

INC 

HL 


HL: Tabellenanfang 
OUT: HL: entspr. Adresse 

Anz. d. Tabelleneinträge 
Zeiger auf Default-Adresse 
retten 

Default-Adresse 
übergehen 
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2DFD 

BE 

CP 

(HL) 

2DFE 

23 

INC 

HL 

2DFF 

28 04 

JR 

Z,2E05 

2E01 

05 

DEC 

B 

2E02 

20 F7 

JR 

NZ,2DFB 

2E04 

E3 

EX 

(SP),HL 

2E05 

Fl 

POP 

AF 

2E06 

7E 

LD 

A,(HL) 

2E07 

23 

INC 

HL 

2E08 

66 

LD 

H,(HL) 

2E09 

6F 

LD 

L,A 

2E0A 

CI 

POP 

BC 

2E0B 

Fl 

POP 

AF 

2E0C 

C9 

RET 


2E0D 

C7 

RST 

00 

2E0E 

C 7 

RST 

00 

2E0F 

C 7 

RST 

00 

2E10 

C7 

RST 

00 

2E11 

C7 

RST 

00 

2E12 

C7 

RST 

00 

2E13 

C7 

RST 

00 

2E14 

C7 

RST 

00 

2E15 

C7 

RST 

00 

2E16 

C7 

RST 

00 

2E17 

C7 

RST 

00 


Tab.-Byte m. ges. Byte vergl. 
Zeiger auf entspr. Adresse 
Bytes gleich? dann gefunden 
sonst Zähler f. Einträge 
noch nicht null? dann weiter 
sonst Zeiger auf Def. nach HL 
Zeiger vom Stack löschen 
entspr. 

Adresse 

nach 

HL laden 
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FLOATING POINT ARITHMETICS (FLO) 


**************************** ** **** 


2E18 

E5 

PUSH 

HL 

2E19 

D5 

PUSH 

DE 

2E1A 

C5 

PUSH 

BC 

2E1B 

EB 

EX 

DE,HL 

2E1C 

01 05 00 

LD 

BC,0005 

2E1F 

ED BO 

LDIR 


2E21 

EB 

EX 

DE,HL 

2E22 

2B 

DEC 

HL 

2E23 

7E 

LD 

A, (HL) 

2E24 

CI 

POP 

BC 

2E25 

Dl 

POP 

DE 

2E26 

El 

POP 

HL 

2E27 

37 

SCF 


2E28 

C9 

RET 



********************************** 


2E29 

D5 



PUSH 

DE 

2E2A 

C5 



PUSH 

BC 

2E2B 

F6 

7F 


OR 

7F 

2E2D 

47 



LD 

B,A 

2E2E 

AF 



XOR 

A 

2E2F 

12 



LD 

(DE) ,A 

2E30 

13 



INC 

DE 

2E31 

12 



LD 

(DE),A 

2E32 

13 



INC 

DE 

2E33 

OE 

90 


LD 

C,90 

2E35 

7C 



LD 

A,H 

2E36 

B7 



OR 

A 

2E37 

20 

08 


JR 

NZ.2E41 

2E39 

4F 



LD 

C, A 

2E3A 

65 



LD 

H,L 

2E3B 

6F 



LD 

L,A 

2E3C 

B4 



OR 

H 

2E3D 

28 

0D 


JR 

Z,2E4C 

2E3F 

0E 

88 


LD 

C,88 

2E41 

FA 

4B 

2E 

JP 

M,2E4B 

2E44 

29 



ADD 

HL,HL 

2E45 

0D 



DEC 

C 

2E46 

B4 



OR 

H 

2E47 

F2 

44 

2E 

JP 

P,2E44 

2E4A 

7C 



LD 

A, H 

2E4B 

A0 



AND 

B 

2E4C 

EB 



EX 

DE,HL 

2E4D 

73 



LD 

(HL),E 

2E4E 

23 



INC 

HL 

2E4F 

77 



LD 

(HL),A 

2E50 

23 



INC 

HL 

2E51 

71 



LD 

(HL) ,C 


FLO Zahl kopieren 
IN : HL: Zieladresse 
DE: Quelladresse 
OUT: A: Exponent 


Anz. d. zu kopierenden Bytes 
Zahl kopieren 

Zeiger auf Exponenten 
Exponenten laden 


FLO INT>REAL 

IN : HL: Integer, unsigned 
A: Vorzeichen 
(DE): Zieladr. f. FLO-Zahl 
OUT: (DE): normal. FLO-Zahl 


alle Bits außer Vorz. setzen 
und retten 

Lo-Bytes 

des FLO-Akkus 

löschen 

Exp. f. bO d. 2.MSB =1 
Hi-Byte d. Integer 
null? 

Exponent löschen 

Lo-Byte ins Hi-Byte schieben 

Lo-Byte löschen 

Lo-Byte null? 

dann FLO-Zahl null, raus 

Exp. f. bO d. 1.MSB =1 

b7=1? dann raus 

Zahl nach oben schieben 

Exp. zum Ausgleich erniedrigen 

b7=0? d. weiter normalisieren 
in das MSB 

das Vorzeichen der Zahl 

2.MSB abspeichern 
Zeiger auf 1.MSB 
1.MSB (m. Vorz.) abspeichern 
Zeiger auf Exponent 
Exponenten abspeichern 
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2E52 

CI 

POP 

BC 

2E53 

El 

POP 

HL 

2E54 

C9 

RET 



********************************** 


2E55 

C5 



PUSH 

BC 

2E56 

01 

00 

A0 

LD 

BC,A000 

2E59 

CD 

60 

2E 

CALL 

2E60 

2E5C 

CI 



POP 

BC 

2E5D 

C9 



RET 



********************************** 


2E5E 

06 A8 

LD 

B,A8 

2E60 

D5 

PUSH 

DE 

2E61 

CD Al 36 

CALL 

36A1 

2E64 

Dl 

POP 

DE 

2E65 

C9 

RET 



********************************** 


2E66 

E5 



PUSH 

HL 

2E67 

DD 

El 


POP 

IX 

2E69 

AF 



XOR 

A 

2E6A 

DD 

96 

04 

SUB 

(IX+04) 

2E6D 

28 

1B 


JR 

Z,2E8A 

2E6F 

C6 

90 


ADD 

90 

2E71 

DO 



RET 

NC 

2E72 

D5 



PUSH 

DE 

2E73 

C5 



PUSH 

BC 

2E74 

C6 

10 


ADD 

10 

2E76 

CD 

3D 

36 

CALL 

363D 

2E79 

CB 

21 


SLA 

C 

2E7B 

ED 

5A 


ADC 

HL,DE 

2E7D 

28 

08 


JR 

Z,2E87 

2E7F 

DD 

7E 

03 

LD 

A, (IX+03) 

2E82 

B7 



OR 

A 

2E83 

3F 



CCF 


2E84 

CI 



POP 

BC 

2E85 

Dl 



POP 

DE 

2E86 

C9 



RET 


2E87 

9F 



SBC 

A 

2E88 

18 

F9 


JR 

2E83 

2E8A 

6F 



LD 

L,A 

2E8B 

67 



LD 

H,A 

2E8C 

37 



SCF 


2E8D 

C9 



RET 



FLO 4-Bytes>REAL 

IN : (HL): 4-Byte Integer 

OUT: (HL): entspr. FLO-Zahl 

Exp. f. 32 Bit, Rundungsbyte=0 
Zahl wandeln 


FLO 5-Bytes>REAL 
IN : (HL): 4 MSB d. Integer 
C: LSB d. Integer 
OUT: (HL): entspr. FLO-Zahl 
Exp. f. 40 Bit 

5-Byte wandeln nach Real 


FLO REAL>INTEGER 
IN : (HL): FLO-Zahl 
OUT: HL: Integer 

CY=0, wenn Überlauf 
Z=1, A=0, wenn HL=0 
A: Vorzeichen 
Zeiger auf Real-Zahl 
nach IX 

Exp. ins Zweierkomplement 
=0? dann Zahl=0, raus 
=2er Kompl. d. FAC-Bitstellen 
Exp war >$90? dann Überlauf 


16-A=Anz. d. zu shift. Bits 
FAC rechtsverschieben 
Rundungsbit 
auf Ergebnis addieren 
Erg.=0 o. Überl.? d. behänd, 
höchstes Mantissenbyte 
Flags nach Vorzeichen setzen 
CY:=1 f. o.k. 


CY beibeh., A:=$FF f. Fehler 
raus 
Integer 
gleich null 
CY:=1 f. o.k. 
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********************************** 


2E8E 

CD 

AI 2E 

CALL 

2EA1 

2E91 

DO 


RET 

NC 

2E92 

F0 


RET 

P 

2E93 

E5 


PUSH 

HL 

2E94 

79 


LD 

A,C 

2E95 

34 


INC 

(HL) 

2E96 

20 

06 

JR 

NZ,2E9E 

2E98 

23 


INC 

HL 

2E99 

3D 


DEC 

A 

2E9A 

20 

F9 

JR 

NZ,2E95 

2E9C 

34 


INC 

(HL) 

2E9D 

OC 


INC 

C 

2E9E 

El 


POP 

HL 

2E9F 

37 


SCF 


2EA0 

C9 


RET 



********************************** 


2EA1 

E5 

PUSH 

HL 

2EA2 

D5 

PUSH 

DE 

2EA3 

E5 

PUSH 

HL 

2EA4 

DD El 

POP 

IX 

2EA6 

CD 04 36 

CALL 

3604 

2EA9 

Dl 

POP 

DE 

2EAA 

El 

POP 

HL 

2EAB 

C9 

RET 



********************************** 


2EAC 

CD Al 2E 

CALL 

2EA1 

2EAF 

DO 

RET 

NC 

2EB0 

C8 

RET 

Z 

2EB1 

CB 78 

BIT 

7, B 

2EB3 

C8 

RET 

Z 

2EB4 

18 DD 

JR 

2E93 


********************************** 


2EB6 

CD 

E8 

35 

CALL 

35E8 

2EB9 

47 



LD 

B,A 

2EBA 

28 

52 


JR 

Z,2F0E 

2EBC 

FC 

FB 

35 

CALL 

M,35FB 

2EBF 

E5 



PUSH 

HL 


FLO Zahl runden 
IN : (HL): FLO-Zahl 
OUT: (HL): ger. 4-Byte Integer 
CY=1, wenn o.k. 

C: Länge signif. Mantisse 
Nachkorrmastel len abschneiden 
Fehler? d. CY=0 f. Fehl., raus 
Rundungsbit =0? d. o.k., raus 
sonst Zeiger auf Zahl retten 
Anz. signifik. Mantissenbytes 
Mantissenbyte auf runden 
kein Übertrag? dann o.k. 
sonst Zeiger auf nächstes Byte 
Anz. d. Mantissenbytes 
noch nicht null? d. weiter 
höchstes signif. Byte aufr. 
Anz. signif. Mantissenbytes 
Zeiger auf Zahl 
CY:=1 f. o.k. 


FLO Nachkommastellen abschneiden 

IN : (HL): FLO-Zahl 

OUT: (HL): 4-Byte Integer 

B: isoliertes Vorzeichen 
C: Anz. signif. Mantissenb. 
A: Rundungsbyte 
S: Rundungsbit 
Zeiger auf Zahl 

Zeiger auf Zahl 
nach IX 

Nachkommastellen abschneiden 


FLO INT-Funktion 

IN : (HL): FLO-Zahl 

OUT: (HL): 4-Byte Integer 

Nachkommastellen abschneiden 

Fehler? dann raus 

Zahl =0? dann raus 

Zahl positiv? 

dann raus 

sonst 1 addieren 

FLO Zahl f. Dez.-Wandlung aufber. 
IN : (HL): FLO-Zahl 
OUT: HL: Zeiger 1.MSB d. Mantisse 
E: Kommaposition 
C: Anz. sign. Mantissenbytes 
B: Vorzeichen 
Vorzeichen d. Zahl 
nach B 

Zahl=0? dann null setzen, raus 
Zahl neg.? d. Vorz. invert. 



370 Die Listings des CPC~464-ROMs 


2EC0 

DD 

7E 

04 


LD 

A, (IX+04) 

2EC3 

D6 

80 



SUB 

80 

2EC5 

5F 




LD 

E,A 

2EC6 

9F 




SBC 

A 

2EC7 

57 




LD 

D,A 

2EC8 

6B 




LD 

L,E 

2EC9 

62 




LD 

H,D 

2ECA 

29 




ADD 

HL,HL 

2ECB 

29 




ADD 

HL,HL 

2ECC 

29 




ADD 

HL,HL 

2ECD 

19 




ADD 

HL,DE 

2ECE 

29 




ADD 

HL,HL 

2ECF 

19 




ADD 

HL,DE 

2ED0 

29 




ADD 

HL,HL 

2ED1 

29 




ADD 

HL,HL 

2ED2 

19 




ADD 

HL,DE 

2ED3 

7C 




LD 

A, H 

2ED4 

D6 

09 



SUB 

09 

2ED6 

5F 




LD 

E.A 

2ED7 

El 




POP 

HL 

2ED8 

C5 




PUSH 

BC 

2ED9 

D5 




PUSH 

DE 

2EDA 

C4 

1F 

2F 


CALL 

NZ,2 F1F 

2EDD 

FD 

21 

13 

2F 

LD 

IY,2F13 

2EE1 

CD 

A0 

35 


CALL 

35A0 

2EE4 

28 

1B 



JR 

Z,2F01 

2EE6 

30 

08 



JR 

NC,2EF0 

2EE8 

CD 

12 

34 


CALL 

3412 

2EEB 

Dl 




POP 

DE 

2EEC 

ID 




DEC 

E 

2EED 

D5 




PUSH 

DE 

2EEE 

18 

ED 



JR 

2EDD 

2EF0 

FD 

21 

18 

2F 

LD 

IY,2F18 

2EF4 

CD 

A0 

35 


CALL 

35A0 

2EF7 

38 

08 



JR 

C, 2F01 

2EF9 

CD 

9B 

34 


CALL 

349B 

2EFC 

Dl 




POP 

DE 

2EFD 

IC 




INC 

E 

2EFE 

D5 




PUSH 

DE 

2EFF 

18 

EF 



JR 

2EF0 

2F01 

CD 

8E 

2E 


CALL 

2E8E 

2F04 

79 




LD 

A,C 

2F05 

Dl 




POP 

DE 

2F06 

CI 




POP 

BC 

2F07 

4F 




LD 

C,A 

2F08 

3D 




DEC 

A 

2F09 

85 




ADD 

L 

2F0A 

6F 




LD 

L,A 

2F0B 

DO 




RET 

NC 

2F0C 

24 




INC 

H 

2F0D 

C9 




RET 


2F0E 

5F 




LD 

E,A 

2F0F 

77 




LD 

(HL),A 

2F10 

OE 

01 



LD 

C,01 

2F12 

C9 




RET 


2F13 

F0 

1F 

BC 

3E 

96 


2F18 

FE 

27 

6B 

6E 

9E 



Exponent 

realer Exp. (im 2er Kompl.) 
nach E 

A:=FF, wenn Zahl<1, sonst A:=0 
Flag nach D 
realer Exponent 
Flag f. Exp. negativ 

den 

vorzeichenerweiterten 
16-Bit Exponenten 
mi t 

77 (ca. 256*lg2) 
multiplizieren, 
d.h. Binärexponenten 
in Dezimalexponenten wandeln 
Hi-Byte, also Exp*77/256, *lg2 
=Zehnerstellen-9 
nach E 

Zeiger auf Zahl 


wenn dez. Exp. <>9, Zahl/10 A A 
ca. 3 125 000 = 1E8/32 
mit Argument vergleichen 
gleich? dann weiter 
Zahl größer? dann <1E9 machen 
sonst mit 10 multiplizieren 

Kommastellung 

nochmals, bis ZahL>=3125000 
1E9 

mit Zahl vergleichen 
Zahl kleiner? dann weiter 
sonst Zahl durch 10 teilen 

Kommastellung 

nochmals, bis Zahl<lE9 
Zahl runden 

Anz. signif. Mantissenbytes 


nach C 
-1 

zum Zeiger 

auf Zahl addieren, 

= Zeiger auf Restmantisse 


Kommastellung:=0 
Null als Zahl setzen 
1 signif. Mantissenbyte 


3 124 999.98, ca. 1E8/32 
1E9 
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**************************** ****** 


2F1D 

2F 



CPL 


2F1E 

3C 



INC 

A 

2 F1 F 

B7 



OR 

A 

2F20 

37 



SCF 


2F21 

C8 



RET 

Z 

2F22 

4F 



LD 

C, A 

2F23 

F2 

28 

2F 

JP 

P,2F28 

2F26 

2F 



CPL 


2F27 

3C 



INC 

A 

2F28 

CD 

3E 

2F 

CALL 

2F3E 

2F2B 

28 

09 


JR 

Z,2F36 

2F2D 

C5 



PUSH 

BC 

2F2E 

F5 



PUSH 

AF 

2F2F 

CD 

36 

2F 

CALL 

2F36 

2F32 

Fl 



POP 

AF 

2F33 

CI 



POP 

BC 

2F34 

18 

F2 


JR 

2F28 

2F36 

79 



LD 

A,C 

2F37 

B7 



OR 

A 

2F38 

F2 

9E 

34 

JP 

P,349E 

2F3B 

C3 

15 

34 

JP 

3415 


********************************** 


2F3E 

11 

8F 

2F 


LD 

DE,2F8F 

2F41 

D6 

0D 



SUB 

0D 

2F43 

DO 




RET 

NC 

2F44 

C6 

OC 



ADD 

0C 

2F46 

5F 




LD 

E,A 

2F47 

87 




ADD 

A 

2F48 

87 




ADD 

A 

2F49 

83 




ADD 

E 

2F4A 

C6 

53 



ADD 

53 

2F4C 

5F 




LD 

E,A 

2F4D 

CE 

2F 



ADC 

2F 

2F4F 

93 




SUB 

E 

2F50 

57 




LD 

D.A 

2F51 

AF 




XOR 

A 

2F52 

C9 




RET 


2F53 

00 

00 

00 

20 

84 


2F58 

00 

00 

00 

48 

87 


2F5D 

00 

00 

00 

7A 8A 


2F62 

00 

00 

40 

IC 

8E 


2F67 

00 

00 

50 

43 

91 


2F6C 

00 

00 

24 

74 

94 


2 F71 

00 

80 

96 

18 

98 


2F76 

00 

20 

BC 

3E 

9B 


2F7B 

00 

28 

6B 

6E 

9E 


2F80 

00 

F9 

02 

15 

A2 


2F85 

40 

B7 

43 

3A A5 



FLO Zahl mit 10 A A multiplizieren 
IN : A: Zehnerexponent 
(HL): FLO-Zahl 
OUT: (HL): Zahl*10 A A 
Zweierkomplement 
des lOer-Exp. bilden 
Null? 

CY:=1 f. o.k. 

A=0? dann 10 A A=1, raus 
-Exp. retten 

-Exp. positiv(Exp. negativ)? 
sonst erneut 
Zweierkomplement bilden 
Restexp. u. Zehnerpot. holen 
Restexp=0? d. letzte Multipl. 


lOer-Pot. m. lfd. Zahl multip. 


und nächste Zehnerpotenz 
-Exp 

positiv? (Exp negativ?) 
dann lfd. Erg./Zehnerpot. 
sonst lfd. Erg.*Zehnerpot. 

Restexp. u. Zehnerpot. holen 
IN : A: Exponent 
OUT: A: Restexponent 

(DE): Zehnerpot. (max 10 A 13) 
Z=1, wenn kein Restexp. 

10 A 13 
Exp. -13 

Exp>=13? dann zurück 
sonst Exp-1 
nach E 

Exponent mit 5 
multiplizieren f. 5 Bytes 
pro FLO-Zahl 
und als Index zun 
Tabellenstart 
addieren, ergibt 
Zeiger auf entspr. 
Zehnerpotenz 

Z:=1 f. kein Restexponent 


10 

100 

1000 

10000 

100000 

1000000 

10000000 

100000000 

1E+09 

1E+10 

1E+11 




372 Die Listings des CPC-464-ROMs 


2F8A 10 A5 D4 68 A8 
2F8F 2A E7 84 11 AC 


********************************** 

2F94 

21 

65 

89 

LD 

HL,8965 

2F97 

22 

E6 

B8 

LD 

(B8E6),HL 

2F9A 

21 

07 

6C 

LD 

HL,6C07 

2F9D 

22 

E4 

B8 

LD 

(B8E4),HL 

2FA0 

C9 



RET 


********************************** 


2FA1 

EB 



EX 

DE,HL 

2FA2 

CD 

94 

2F 

CALL 

2F94 

2 FAS 

EB 



EX 

DE,HL 

2FA6 

CD 

E8 

35 

CALL 

35E8 

2FA9 

C8 



RET 

Z 

2FAA 

11 

E4 

B8 

LD 

DE,B8E4 

2 FAD 

06 

04 


LD 

B,04 

2FAF 

1A 



LD 

A, (DE) 

2FB0 

AE 



XOR 

(HL) 

2 FB1 

12 



LD 

(DE),A 

2FB2 

13 



INC 

DE 

2FB3 

23 



INC 

HL 

2FB4 

10 

F9 


DJNZ 

2FAF 

2FB6 

C9 



RET 


********************************** 


2FB7 

E5 



PUSH 

HL 

2FB8 

2A 

E6 

B8 

LD 

HL,(B8E6) 

2FBB 

01 

07 

6C 

LD 

BC,6C07 

2FBE 

CD 

FA 

2F 

CALL 

2FFA 

2FC1 

E5 



PUSH 

HL 

2FC2 

2A 

E4 

B8 

LD 

HL, (B8E4) 

2FC5 

01 

65 

89 

LD 

BC,8965 

2FC8 

CD 

FA 

2F 

CALL 

2FFA 

2FCB 

D5 



PUSH 

DE 

2FCC 

E5 



PUSH 

HL 

2FCD 

2A 

E6 

B8 

LD 

HL,(B8E6) 

2FD0 

CD 

FA 

2F 

CALL 

2FFA 

2FD3 

E3 



EX 

(SP),HL 

2FD4 

09 



ADD 

HL,BC 

2FD5 

22 

E4 

B8 

LD 

(B8E4),HL 

2FD8 

El 



POP 

HL 

2FD9 

01 

07 

6C 

LD 

BC,6C07 

2FDC 

ED 

4A 


ADC 

HL, BC 

2FDE 

CI 



POP 

BC 

2FD F 

09 



ADD 

HL, BC 

2FE0 

CI 



POP 

BC 

2FE1 

09 



ADD 

HL, BC 

2FE2 

22 

E6 

B8 

LD 

(B8E6),HL 

2FE5 

El 



POP 

HL 


1E+12 

1E+13 

FLO RND INITIALIZE 
Ausgangswert 
für 
RND 

setzen 


FLO RND SEED 

IN : (HL): FLO-Zahl 

OUT: (DE): Zahl xor Wurzel 

Zeiger auf Zahl nach DE retten 
Ausgangswert setzen 
Zeiger auf Zahl wieder nach HL 
Vorzeichen der Zahl holen 
Zahl=0? dann raus 
Zeiger auf Wurzel f. RND 
4 Mantissenbytes 
Wurzel byteweise 
mit Mantisse der Zahl 
ex-oderieren und als 
neuen RND-Wert 
setzen 


FLO RND-Funktion 
IN : HL: Rückgabeadresse 
OUT: (HL): RND-Wert 
Zeiger retten 
unteres RND-Word 
Wurzel f. oberes Word 

1. Word neu daraus generieren 
und retten 

oberes RND-Word 
Wurzel f. unteres Word 

2. Word neu daraus generieren 
Anz. der Überträge retten 

2. Word retten 
unteres RND-Word 

3. Word neu generieren 

und gegen 2. Word vertauschen 
untere Wurzel addieren 
und als neues oberes RND-Word 
3. Word 

Wurzel f. oberes Word 
addieren 

dazu noch Anz. d. Überäge 

addieren 

und 1. Word 

addieren 

Erg. als unteres Word setzen 
Rückgabeadresse 
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********************************** FLO IstztGr RND-Wert 


IN : HL: Rückgabeadresse 
OUT: (HL): FLO-RND-Wert 


2FE6 

E5 




PUSH 

HL 

Rückgabeadresse 

2FE7 

DD 

El 



POP 

IX 

nach IX 

2FE9 

2A 

E4 

B8 


LD 

HL,(B8E4) 

unteres Word 

2FEC 

ED 

5B 

E6 

B8 

LD 

DE,(B8E6) 

oberes Word 

2FF0 

01 

00 

00 


LD 

BC,0000 

Rundungsbyte:=0 

2FF3 

DD 

36 

04 

80 

LD 

(IX+04),80 

Exp. f. Wert zw. 0.5 u. 1 

2FF7 

C3 

Bl 

36 


JP 

36B1 

RND-Wert normalisieren 


********************************** nGUGs RND-Word QcnoriGrGn 

IN : HL: altes Word 
BC: 2. Parameter 
OUT: HL: neues Word 

DE: Anz. d. Überträge 


2FFA 

EB 


EX 

DE,HL 

Word nach DE 

2FFB 

21 

00 00 

LD 

HL,0000 

Anz. d. Überträge :=0 

2FFE 

3E 

11 

LD 

A, 11 

Zähler 

3000 

3D 


DEC 

A 

Zähler herunterzäh len 

3001 

C8 


RET 

Z 

schon null? dann raus 

3002 

29 


ADD 

HL,HL 

linksverschieben 

3003 

CB 

13 

RL 

E 

links- 

3005 

CB 

12 

RL 

D 

rotieren 

3007 

30 

F7 

JR 

NC,3000 

CY=0? dann nächstes Bit 

3009 

09 


ADD 

HL, BC 

bei Übertrag 2. Param. addier 

300A 

30 

F4 

JR 

NC,3000 

CY=0? dann nächstes Bit 

300C 

13 


INC 

DE 

sonst Zähler erhöhen 

300D 

18 

Fl 

JR 

3000 

und nächstes Bit 


********************************** 


300F 11 ÖB 30 LD DE,308B 

3012 18 03 JR 3017 

********************************** 


3014 11 86 30 LD DE,3086 

********************************** 


3017 

CD 

E8 

35 

CALL 

35E8 

301A 

3D 



DEC 

A 

301B 

FE 

01 


CP 

01 

301D 

DO 



RET 

NC 

301E 

D5 



PUSH 

DE 

301F 

CD 

6C 

35 

CALL 

356C 

3022 

F5 



PUSH 

AF 

3023 

DD 

36 

04 80 

LD 

(IX+04) 

3027 

11 

81 

30 

LD 

DE,3081 

30 2A 

CD 

9A 

35 

CALL 

359A 

302D 

30 

06 


JR 

NC,3035 

302F 

DD 

34 

04 

INC 

(IX+04) 

3032 

Fl 



POP 

AF 


FLO LOG10-Funktion 

IN : (HL): FLO-Zahl ARGument 

OUT: (HL): LOGIO(ARG) 

Konstante lg2 
allg. Logarithmieren 

FLO LOG-Funktion 

IN : (HL): FLO-Zahl ARGument 

OUT: (HL): LOG(ARG) 

Konstante ln2 

FLO LOGARITHMUS 
IN : (HL): Numerus 

(DE): 1/(lb Basis) 

OUT: (HL): BasisLOG Numerus 
Vorzeichen d. Arg 
-1 

CY:=1 f. Arg>0 
Arg<=0? dann raus, Fehler 
Zeiger auf 1/lbBasis retten 
Exp von Arg holen 
und retten 

Arg zwischen 0.5 und 1 bringen 
Konstante SQR(.5) 
mit Arg vergleichen 
Arg>=SQR(.5)? dann o.k. 

Arg*2, SQR(.5)<=Arg<SQR(2) 
zum Ausgleich alten Exponenten 
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3033 

3D 



DEC 

A 

3034 

F5 



PUSH 

AF 

3035 

CD 

16 

33 

CALL 

3316 

3038 

D5 



PUSH 

DE 

3039 

11 

32 

33 

LD 

DE,3332 

303C 

CD 

3F 

33 

CALL 

333 F 

303 F 

EB 



EX 

DE,HL 

3040 

El 



POP 

HL 

3041 

D5 



PUSH 

DE 

3042 

11 

32 

33 

LD 

DE,3332 

3045 

CD 

37 

33 

CALL 

3337 

3048 

Dl 



POP 

DE 

3049 

CD 

9E 

34 

CALL 

349E 

304C 

CD 

A9 

32 

CALL 

32A9 


********************************** 


304F 

04 






3050 

4C 

4B 

57 5E 

7F 


3055 

0D 

08 

9B 

13 

80 


305A 

23 

93 

38 

76 

80 


305F 

20 

3B 

AA 

38 

82 


3064 

D5 




PUSH 

DE 

3065 

CD 

15 

34 


CALL 

3415 

3068 

Dl 




POP 

DE 

3069 

E3 




EX 

(SP),HL 

306A 

7C 




LD 

A,H 

306B 

B7 




OR 

A 

306C 

F2 

71 

30 


JP 

P,3071 

306F 

2F 




CPL 


3070 

3C 




INC 

A 

3071 

6F 




LD 

L,A 

3072 

7C 




LD 

A, H 

3073 

26 

00 



LD 

H,00 

3075 

CD 

29 

2E 


CALL 

2E29 

3078 

EB 




EX 

DE,HL 

3079 

El 




POP 

HL 

307A 

CD 

3F 

33 


CALL 

333F 

307D 

Dl 




POP 

DE 

307E 

C3 

15 

34 


JP 

3415 

********************************** 

3081 

34 

F3 

04 

35 

80 


3086 

F8 

17 

72 

31 

80 


308B 

85 

9A 

20 

1A 7F 



********************************** 


3090 

06 

El 


LD 

B,E1 

3092 

CD 

07 

33 

CALL 

3307 

3095 

D2 

28 

33 

JP 

NC,3328 

3098 

11 

00 

31 

LD 

DE,3100 

309B 

CD 

9A 

35 

CALL 

359A 

309E 

F2 

EC 

36 

JP 

P,36EC 

30A1 

11 

05 

31 

LD 

DE,3105 

30A4 

CD 

9A 

35 

CALL 

359A 


erniedrigen 

und wieder retten 

Arg -> FAC3 

Zeiger auf altes Arg 

Konstante 1 

addieren 

FAC3 -> (DE) 

Arg -> (HL) 

Zeiger auf FAC3 retten 
Konstante 1 

von normalisiertem Arg subtr. 
norm. Arg+1 in FAC3 -> (DE) 
(Arg 1 -1)/(Arg'+1) 
quadrier, u. in Polynomber. 

Konstanten f. LOGARITHMUS 
(Taylor'sche Reihe) 

Anz. d. Koeffiz. f. Polynom 
.434259751=ca.2/ln2/7 
,576584342=ca.2/ln2/5 
.961800762=ca.2/ln2/3 
2.88539007= 2/ln2/1 

Zeiger auf Eingangsargument 
mit Ergebnis multiplizieren 
Zeiger auf Arg f. Polynomber. 
bisher. Ergebnis retten 
urspr. Exponent 
posit i v? 
dann o.k. 

sonst 2er Komplement 
bi Iden 

und positiven Exp ins Lo-Byte 

urspr. Exp retten 

und Null ins Hi-Byte 

Exp nach Real bei DE wandeln 

FLO-Exp -> (DE) 

bisher. Ergebnis 

dazu addieren 

Zeiger auf 1/lb Basis 

Ergebnis durch Ib Basis teilen 

diverse FLO-Konstanten 
.707106781=SQR{.5) 

.693147181=1n2 
.301029996=lg2 

FLO EXP-Funktion 
IN : (HL): FLO-Zahl 
OUT: (HL): EXP(Arg) 

Exponenten mit -$1F 
vergleichen 

Exp kleiner? dann EXP(Arg)=1 
max. Wert f. EXP 
Vergleich Arg - max Arg 
Arg>max Arg? dann Überlauf 
min. Arg f. EXP 
mit Arg vergleichen 
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30A7 

FA 

E6 

36 

JP 

M,36E6 

30AA 

11 

FB 

30 

LD 

DE,30FB 

30 AD 

CD 

D4 

32 

CALL 

32D4 

30B0 

7B 



LD 

A,E 

30B1 

F2 

B6 

30 

JP 

P,30B6 

30B4 

ED 

44 


NEG 


30B6 

F5 



PUSH 

AF 

30B7 

CD 

ID 

33 

CALL 

331D 

30BA 

CD 

0F 

33 

CALL 

330 F 

30BD 

D5 



PUSH 

DE 

30BE 

CD 

AC 

32 

CALL 

32AC 


********************************** 


30C1 

30C2 

03 

F4 32 EB 

0F 

73 


30C7 

08 B8 D5 

52 

7B 


30CC 

00 00 00 

00 

80 


30D1 

E3 


EX 

(SP),HL 

30D2 

CD AC 32 


CALL 

32AC 

********************************** 

30D5 

30D6 

02 

09 60 DE 

01 

78 


30DB 

F8 17 72 

31 

7E 


30E0 

CD 15 34 


CALL 

3415 

30E3 

Dl 


POP 

DE 

30E4 

E5 


PUSH 

HL 

30E5 

EB 


EX 

DE,HL 

30E6 

CD 37 33 


CALL 

3337 

30E9 

EB 


EX 

DE,HL 

30EA 

El 


POP 

HL 

30EB 

CD 9E 34 


CALL 

349E 

30EE 

11 CC 30 


LD 

DE,30CC 

30 F1 

CD 3F 33 


CALL 

333F 

30F4 

DD 34 04 


INC 

(IX+04) 

30F7 

Fl 


POP 

AF 

30F8 

C3 7B 35 


JP 

35 7B 

********************************** 

30FB 

29 3B AA 

38 

81 


3100 

C7 33 0F 

30 

87 


3105 

F8 17 72 

Bl 

87 


********************************** 

310A 

11 CC 30 


LD 

DE,30CC 


********************************** 


310D 

EB 



EX 

DE,HL 

310E 

CD 

E8 

35 

CALL 

35E8 

3111 

EB 



EX 

DE,HL 

3112 

CA 

28 

33 

JP 

Z,3328 


Argcmin Arg? dann Unterlauf 

Konstante 1/ln2 

mal Arg, Vor- u. Nachkommast. 

ganzzahliger Teil 

Exp positiv? 

sonst 2er Komplement bilden 
positiven Exponenten retten 
Exp quadrieren 
und Ergebnis ■> FAC1 
Zeiger auf Ergebnis retten 

1. Polynom in FACl berechnen 

Konstanten f. EXP, 1. Polynom 
Anz. der Konstanten 
6.8625806E-05 = 1/e A (12-3)/2 
.0257366747 = 1/e A ( 6-3)/2 

.5 = 1/e A ( 3-3)/2 

Zeiger Arg' nach HL 

2. Polynom in (HL) berechnen 

Konstanten f. EXP, 2. Polynom 

1.98163838E-03 = 1/(5*ln2) A 5 
.173286795 = ln2/4 

Ergebnis mal Arg 1 

1. Polynom -> (DE) 

2. Polynom retten 

1. Polynom-2. Polynom -> FACl 
FACl -> (DE) 

2. Polynom -> (HL) 

2.Polyn./(1-Polyn.-2.Polyn.) 
0.5 

addieren 
*2 

mit 2 A (ganzzahl. Teil) 
multiplizieren 

diverse Konstanten f. EXP 
1.44269504 = 1/ln(2) 
88.0296919 = max. Arg. f. EXP 
■88.7228392 = min. Arg. f. EXP 

FLO SQR-Funktion 
IN : (HL): FLO-Zahl 
OUT: (HL): SQR(Arg) 

0.5 als Exponenten setzen 

FLO Potenzierung 
IN : (HL): FLO-Basis 

(DE): FLO-Exponent 
OUT: (HL): Basis A Exponent 

Vorz. d. Exponenten 

Exp=0? d. 1 holen, raus 
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3115 

F5 



PUSH 

AF 

3116 

CD 

E8 

35 

CALL 

35E8 

3119 

28 

25 


JR 

Z,3140 

311B 

47 



LD 

B,A 

311C 

FC 

FB 

35 

CALL 

M,35FB 

311F 

E5 



PUSH 

HL 

3120 

CD 

82 

31 

CALL 

3182 

3123 

El 



POP 

HL 

3124 

38 

25 


JR 

C,314B 

3126 

E3 



EX 

(SP),HL 

3127 

El 



POP 

HL 

3128 

FA 

48 

31 

JP 

M,3148 

312B 

C5 



PUSH 

BC 

312C 

D5 



PUSH 

DE 

312D 

CD 

14 

30 

CALL 

3014 

3130 

Dl 



POP 

DE 

3131 

DC 

15 

34 

CALL 

C,3415 

3134 

DC 

90 

30 

CALL 

C,3090 

3137 

Ci 



POP 

BC 

3138 

DO 



RET 

NC 

3139 

78 



LD 

A, B 

313A 

B7 



OR 

A 

313B 

FC 

FB 

35 

CALL 

M,35FB 

313E 

37 



SCF 


313F 

C9 



RET 


3140 

Fl 



POP 

AF 

3141 

37 



SCF 


3142 

F0 



RET 

P 

3143 

CD 

EC 

36 

CALL 

36EC 

3146 

AF 



XOR 

A 

3147 

C9 



RET 


3148 

AF 



XOR 

A 

3149 

3C 



INC 

A 

314A 

C9 



RET 


314B 

4F 



LD 

C, A 

314C 

Fl 



POP 

AF 

314D 

C5 



PUSH 

BC 

314E 

F5 



PUSH 

AF 

314F 

79 



LD 

A, C 

3150 

37 



SCF 


3151 

8F 



ADC 

A 

3152 

30 

FD 


JR 

NC,3151 

3154 

47 



LD 

B,A 

3155 

CD 

0F 

33 

CALL 

330F 

3158 

EB 



EX 

DE,HL 

3159 

78 



LD 

A,B 

315A 

87 



ADD 

A 

315B 

28 

15 


JR 

Z,3172 

315D 

F5 



PUSH 

AF 

315E 

CD 

ID 

33 

CALL 

331D 

3161 

30 

16 


JR 

NC,3179 

3163 

Fl 



POP 

AF 

3164 

30 

F4 


JR 

NC,315A 

3166 

F5 



PUSH 

AF 

3167 

11 

E8 

B8 

LD 

DE,B8E8 

316A 

CD 

15 

34 

CALL 

3415 


Vorz. d. Exp retten 
Vorz. d. Basis holen 
Basis=0? d. entspr. behandeln 
Vorz. d. Basis retten 
neg.? dann invertieren 

Vorz. d. Erg. bestimmen 

Integerexp<39? d. entspr. beh. 
sonst Vorz. d. Exp 
vom Stack 

Erg. neg.? dann Fehler 


LOG der Basis bilden 
Zeiger auf Exp 
o.k.? d. Exp*LOG(Basis) 
o.k.? d. EXP(Exp*LOG(Basis)) 
Vorz. d. Ergebnisses 
Fehler? dann raus 
Vorz. d. Ergebnisses 
Ergebnis negativ? 
dann Vorzeichen invertieren 
CY:=1 f. o.k. 


Vorz. d. Exp 
CY:=1 f. o.k. 

Exp positiv? dann Erg:=0, raus 
sonst Überlauf 


CY:=0 f. 

Fehler 

CY:=0 f. 

Fehler 


A:=1 f. neg. Basis, gebr. Exp 


Exponent retten 

Vorzeichen d. Exp 

Vorz. d. Ergebnisses retten 

Vorz. d. Exp retten 

Exponent 

CY:=1 als Markierung 
b7 heraus, Marke hinein 
bis obertstes 1-Bit schieben 
Exp retten 
Basis -> FAC1 

FAC1->(DE),Orig.-Basis->(HL) 
Exp wieder zurück 
b7 ins Carry schieben 
Marke schon draußen? d. Ende 
Exp u. Flags retten 
Basis quadrieren 
Fehler? dann behandeln 
Exp u. Flags zurück 
war b7=0? dann nächstes Bit 
sonst Exp u. Flags retten 
FAC1, enthält Basis 
m. lfd. Ergebnis multipliz. 


Die Listings der CPC-ROMs 377 


316D 

30 

0A 


JR 

NC,3179 

316F 

Fl 



POP 

AF 

3170 

18 

ES 


JR 

315A 

3172 

Fl 



POP 

AF 

3173 

37 



SCF 


3174 

FC 

FD 

32 

CALL 

M,32FD 

3177 

18 

BE 


JR 

3137 

3179 

Fl 



POP 

AF 

317A 

Fl 



POP 

AF 

317B 

CI 



POP 

BC 

317C 

FA 

E6 

36 

JP 

M,36E6 

317F 

C3 

EE 

36 

JP 

36EE 


********************************** 


3182 

C5 


PUSH 

BC 

3183 

CD 

17 33 

CALL 

3317 

3186 

CD 

AI 2E 

CALL 

2EA1 

3189 

79 


LD 

A, C 

318A 

CI 


POP 

BC 

318B 

30 

02 

JR 

NC,318F 

318D 

28 

03 

JR 

Z,3192 

318F 

78 


LD 

A,B 

3190 

B7 


OR 

A 

3191 

C9 


RET 


3192 

4F 


LD 

C, A 

3193 

7E 


LD 

A, (HL) 

3194 

1 F 


RRA 


3195 

9F 


SBC 

A 

3196 

A0 


AND 

B 

3197 

47 


LD 

B, A 

3198 

79 


LD 

A,C 

3199 

FE 

02 

CP 

02 

319B 

9F 


SBC 

A 

319C 

DO 


RET 

NC 

319D 

7E 


LD 

A, (HL) 

319E 

FE 

27 

CP 

27 

31A0 

D8 


RET 

C 

31 AI 

AF 


XOR 

A 

31A2 

C9 


RET 



********************************** 


31A3 11 A9 31 LD DE,31A9 

31A6 C3 18 2E JP 2E18 

********************************** 
31A9 A2 DA OF 49 82 


Fehler? dann behandeln 
Exp zurück 

und nächstes Bit bearbeiten 
Vorz d. Exp 
CY:=1 f. o.k. 

Exp negativ? d. Kehrwert 
raus 

Exp vom Stack löschen 

Vorz d. Exp 

vom Stack entfernen 

Exp neg.? d. Überlauf->Unterl. 

sonst Überlauf 

Vorzeichen d. Erg. best. 

IN : B: Vorz. d. Basis 
(DE): FLO-Exp 

OUT: CY=1, wenn Integerexp<39 
A: Integerexp 
B: Vorz. d. Ergebnisses 
CY=0, sonstige Exp 

A=00 f. o.k. (b7=1 Fehler) 
B: Vorz. d. Ergebnisses 
Vorz. d. Basis retten 
Exp •> FAC3 

Nachkommastellen abschneiden 

Länge der Mantisse 

Vorz. d. Basis 

Zahl zu groß? d. behandeln 

Integerexp? d. behandeln 

Vorz. d. Erg.:= Vorz. d. Basis 

Flags entspr. setzen 


Länge der Mantisse retten 
unterstes Mantissenbyte 
bO ins Carry schieben 
A:=$FF f. b0=1. Exp ungerade 
m. Vorz. d. Basis undieren 
als Ergebnis-Vorzeichen 
Länge der Mantisse 
>= 2 ? 

dann A:=00,CY:=0 f. Fehler 
und raus 

sonst das Mantissenbyte laden 
<39? 

dann CY=1, raus 

sonst CY:=0, A:=00 f. o.k. 


FLO PI-Funktion 
IN : HL: Rückgabeadresse 
OUT: (HL): Konstante Pi 
Zeiger auf Pi 
FLO-Zahl nach HL kopieren 

Konstante Pi 

FLO-Konstante Pi 
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********************************** 


31AE 32 F7 B8 LD (B8F7),A 

31B1 C9 RET 

********************************** 


31B2 

CD 

E8 

35 

CALL 

35E8 

31B5 

FC 

FB 

35 

CALL 

M,35FB 

31B8 

F6 

01 


OR 

01 

31BA 

18 

01 


JR 

31BD 


********************************** 


31BC AF XOR A 

********************************** 


31BD 

F5 




PUSH 

AF 

31BE 

11 

ID 

32 


LD 

DE ( 321D 

31C1 

06 

F0 



LD 

B,F0 

31C3 

3A 

F7 

B8 


LD 

A, (B8F7) 

31C6 

B7 




OR 

A 

31C7 

28 

05 



JR 

Z.31CE 

31C9 

11 

22 

32 


LD 

DE,3222 

31CC 

06 

F6 



LD 

B f F6 

3 ICE 

CD 

07 

33 


CALL 

3307 

31D1 

30 

3A 



JR 

NC.320D 

31D3 

Fl 




POP 

AF 

31D4 

CD 

D5 

32 


CALL 

32D5 

31D7 

DO 




RET 

NC 

31D 8 

7B 




LD 

A, E 

31D9 

1 F 




RRA 


31DA 

DC 

FB 

35 


CALL 

C,35FB 

31 DD 

06 

E8 



LD 

B,E8 

31DF 

CD 

07 

33 


CALL 

3307 

31E2 

D2 

E6 

36 


JP 

NC.36E6 

31E5 

DD 

34 

04 


INC 

(IX+04) 

31E8 

CD 

A9 

32 


CALL 

32A9 

********************************** 

31EB 

06 






31EC 

1B 

2D 

1A 

E6 

6E 


31 Fl 

F8 

FB 

07 

28 

74 


31F6 

01 

89 

68 

99 

79 


31 FB 

El 

DF 

35 

23 

7D 


3200 

28 

E7 

5D 

A5 

80 


3205 

A2 

DA 

0F 

49 

81 


32 0A 

C3 

15 

34 


JP 

3415 


FLO DEG/RAD 
IN : A: $00 f. RAD 
SFF f. DEG 
Flag setzen 


FLO COS-Funktion 
IN : (HL): FLO-Zahl 
OUT: (HL): COS(Arg) 

Vorzeichen d. Arg 
negativ? d. Vorz. invert. 

A:<>0, Flag f. COS 
allg. Routine SIN/COS 

FLO SIN-Funktion 
IN : (HL): FLO-Zahl 
OUT: (HL): SIN(Arg) 

A:=0, Flag f. SIN 

allg. SIN/COS-Funktion 
IN : A: 0 f. SIN 
sonst COS 
(HL): FLO-Zahl 
OUT: (HL): SIN/COS(Arg) 
SIN/COS-Flag retten 
Konstante 1/Pi f. RAD 
Näherungslimit-Exp -$10 f. RAD 
DEG-Flag 

RAD eingestellt? 

dann 1/Pi behalten 

sonst Zeiger auf Konst. 1/180 

und neuer Grenzexp: -$0A, DEG 

Exponenten vergleichen 

Exp<Grenzexp? d. SIN(Arg):=Arg 

SIN/COS-Flag 

Arg entspr. normalisieren 
Fehler? dann raus 
Integerwert 

ungerade? (negative Periode) 

dann Vorzeichen umdrehen 

Vergleichsexp -$18 

mit Arg Exp vergleichen 

Arg Exp kleiner? dann Erg.:=0 

sonst Arg‘*2 

Polynombe rech nung 

Konstanten für SIN/COS 
(MacLaurin'sche Reihe) 

Anzahl der Konstanten 
-3.42879073E-06 = -(Pi/2) A 11/11! 
1.60247029E-04 = (Pi/2) A 9/ 9! 

-4.68165102E-03 = -(Pi/2) A 7/ 7! 

.0796926013 = (Pi/2) A 5/ 5! 

-.645964095 = -(Pi/2) A 3/ 3! 

1.57079633 = (Pi/2) A 1/ 1! 

Erg. nochmals mit Arg' mult. 
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320D 

Fl 




POP 

AF 

320E 

C2 

28 

33 


JP 

NZ,3328 

3211 

3A 

F7 

B8 


LD 

A,(B8F7) 

3214 

FE 

01 



CP 

01 

3216 

D8 




RET 

c 

3217 

11 

27 

32 


LD 

DE,3227 

321A 

C3 

15 

34 


JP 

3415 

********************************** 

321D 

6E 

83 

F9 

22 

7f 


3222 

B6 

60 

OB 

36 

79 


3227 

13 

35 

FA 

0E 

7B 


322C 

D3 

EO 

2E 

65 

86 



********************************** 


3231 

CD 

0F 

33 

CALL 

330F 

3234 

D5 



PUSH 

DE 

3235 

CD 

B2 

31 

CALL 

31B2 

3238 

E3 



EX 

(SP),HL 

3239 

DC 

BC 

31 

CALL 

C,31BC 

323C 

Dl 



POP 

DE 

323D 

DA 

9E 

34 

JP 

C,349E 

3240 

C9 



RET 



SIN/COS-Flag 

COS? dann 1 als Näherung 

DEG-Flag 

RAD? 

dann Arg als Näherung 

sonst mit Pi/180 

mult., Arg*Pi/180 als Näherung 

div. Konstanten f. SIN/COS 
■318309886 = 1/Pi 

5.55555555E-03 = 1/180 

.0174532925 = Pi/180 

57.2957795 = 180/Pi 

FLO TAN-Funktion 
IN : (HL): FLO-Zahl 
OUT: (HL): TAN(Arg) 

Arg nach FAC1 kopieren 
Zeiger auf Zahl retten 
COS berechnen 

COS(Arg) auf Stack, Arg->(HL) 
kein Fehler? d. SIN(Arg) ber. 
Zeiger auf COS(Arg) 
o.k.? d. SIN(Arg)/COS(Arg) 


********************************** 


3241 

CD 

E8 

35 

CALL 

35E8 

3244 

F5 



PUSH 

AF 

3245 

FC 

FB 

35 

CALL 

M,35FB 

3248 

06 

F0 


LD 

B, F0 

324A 

CD 

07 

33 

CALL 

3307 

324D 

30 

4A 


JR 

NC,3299 

324 F 

3D 



DEC 

A 

3250 

F5 



PUSH 

AF 

3251 

F4 

FD 

32 

CALL 

P,32FD 

3254 

CD 

A9 

32 

CALL 

32A9 


********************************** 


3257 

OB 






3258 

FF 

CI 

03 

0F 

77 


325D 

83 

FC 

E8 

EB 

79 


3262 

6F 

CA 

78 

36 

7B 


3267 

D5 

3E 

B0 

B5 

7C 


326C 

B0 

CI 

8B 

09 

7D 


3271 

AF 

E8 

32 

B4 

7D 


3276 

74 

6C 

65 

62 

7D 


327B 

Dl 

F5 

37 

92 

7E 


3280 

7A 

C3 

CB 

4C 

7E 


3285 

83 

A7 

AA 

AA 

7F 


328A 

FE 

FF 

FF 

7F 

80 


328F 

CD 

15 

34 


CALL 

3415 

3292 

Fl 




POP 

AF 

3293 

11 

05 

32 


LD 

DE,3205 


FLO ATN-Funktion 
IN : (HL): FLO-Zahl 
OUT: (HL): ATN(Arg) 

Vorzeichen des Arg 
retten 

und, wenn neg., invertieren 
Grenzexp -$10 

mit Exp v. Arg vergleichen 
Exp Arg<Exp? d. ATN(Arg):=Arg 
Exp d. Arg -1 
retten 

wenn pos. (Arg>1) Kehrwert 
Arg quadrieren, Polynomber. 


Konstanten f. ATN 


: ür Taylor'sche Reihe) 
Anz. d. Konstanten 

1.09111541E-03 = ca. 

1/21 

-7.199405E-03 

= 

ca. 

-1/19 

.0222743944 

= 

ca. 

1/17 

-.0443575339 

= 

ca. 

-1/15 

.0671610958 

= 

ca. 

1/13 

-.0879877261 

= 

ca. 

-1/11 

.110545013 

= 

1/ 

9 

-.142791596 

= 

-1/ 

7 

.199996046 

= 

1/ 

5 

-.333333239 

= 

-1/ 

3 

1 

= 

1/ 

1 

Polynom noch mit 

Arg 1 

1 mult 


Exp d. Arg -1 
Konstante Pi/2 
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3296 

F4 

3B 

33 

CALL 

P,333B 

3299 

3A 

F7 

B8 

LD 

A, (B8F7) 

329C 

B7 



OR 

A 

329D 

11 

2C 

32 

LD 

DE,322C 

32A0 

C4 

15 

34 

CALL 

NZ,3415 

3 2 A3 

Fl 



POP 

AF 

32A4 

FC 

FB 

35 

CALL 

M,35FB 

32A7 

37 



SCF 


32A8 

C9 



RET 



********************************** 


32A9 CD ID 33 CALL 331D 
********** *** *********** * * ******* * 


32AC 

CD 

16 

33 

CALL 

3316 

32AF 

EB 



EX 

DE,HL 

32B0 

Dl 



POP 

DE 

32B1 

1A 



LD 

A, (DE) 

32B2 

13 



INC 

DE 

32B3 

47 



LD 

B,A 

32B4 

CD 

18 

2E 

CALL 

2E18 

32B7 

13 



INC 

DE 

32B8 

13 



INC 

DE 

32B9 

13 



INC 

DE 

32BA 

13 



INC 

DE 

32BB 

13 



INC 

DE 

32BC 

D5 



PUSH 

DE 

32BD 

11 

ED 

B8 

LD 

DE,B8ED 

32C0 

05 



DEC 

B 

32C1 

C8 



RET 

Z 

32C2 

C5 



PUSH 

BC 

32C3 

11 

F2 

B8 

LD 

DE,B8F2 

32C6 

CD 

15 

34 

CALL 

3415 

32C9 

CI 



POP 

BC 

32CA 

Dl 



POP 

DE 

32CB 

D5 



PUSH 

DE 

32CC 

C5 



PUSH 

BC 

32CD 

CD 

3F 

33 

CALL 

333 F 

32D0 

CI 



POP 

BC 

32D1 

Dl 



POP 

DE 

32D2 

18 

E3 


JR 

32B7 


Erg.:=Erg.-Pi/2, wenn Kehrwert 

DEG-Flag 

testen 

f. DEG m. 180/Pf 
multiplizieren 
Vorz. d. Arg 

Erg., wenn Arg neg., invert. 

CY:=1 f. o.k. 


Polynomberechnung mit Arg A 2 
IN : (HL): FLO-Zahl 

(SP): Zeiger auf Tabelle 
OUT: (HL): P(Arg A 2) 

(DE): Arg 

(SP): Zeiger hinter Tabelle 
Arg quadrieren 

Polynomberechnung 
:):=(((a1x+a2)x+a3)x+a4)x+... 

IN : (HL): FLO-Zahl, x 

(SP): Zeiger auf Tabelle mit 
den Koeffiz. al .. ai 
OUT: (HL): P(Arg) 

(DE): Arg in FAC2 
(SP): Zeiger hinter Tabelle 
Zahl nach FAC3 kopieren 
Zeiger Arg -> HL 
Anfangsadresse der Tabelle 
Anz. d. Koeffizienten 
Zeiger auf ersten Koeffiz. 
Anzahl nach B 

Koeffiz. aus Tabelle kopieren 
Zeiger 
auf 

nächsten 
Koeffizienten 
aus Tabelle 

als evtl. Rückkehradr. pushen 
Zeiger auf FAC2 (Arg) 

Anz. d. Koeffiz. dekr. 

null? dann zurück, hinter Tab. 

Zähler retten 

Zeiger auf FAC3 (Arg) 

lfd. Erg. damit multipliz. 

Zähler 

Zeiger auf Koeffiz. in Tabelle 
wieder retten 
wieder retten 

nächsten Koeffizienten add. 
Zähler 

Zeiger in Tabel le 

nächsten Koeffizienten bearb. 
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********************************** 


32D4 AF XOR A 

********************************** 


32D5 

F5 



PUSH 

AF 

3206 

CD 

15 

34 

CALL 

3415 

32D9 

Fl 



POP 

AF 

32DA 

11 

CC 

30 

LD 

DE,30CC 

32DD 

C4 

3F 

33 

CALL 

NZ,333F 

32E0 

E5 



PUSH 

HL 

32E1 

CD 

66 

2E 

CALL 

2E66 

32E4 

30 

13 


JR 

NC.32F9 

32E6 

Dl 



POP 

DE 

32E7 

E5 



PUSH 

HL 

32E8 

F5 



PUSH 

AF 

32E9 

D5 



PUSH 

DE 

32EA 

11 

ED 

B8 

LD 

DE,B8ED 

32ED 

CD 

29 

2E 

CALL 

2E29 

32 F0 

EB 



EX 

DE,HL 

32F1 

El 



POP 

HL 

32F2 

CD 

37 

33 

CALL 

3337 

32F5 

Fl 



POP 

AF 

32F6 

Dl 



POP 

DE 

32F7 

37 



SCF 


32F8 

C9 



RET 


32F9 

El 



POP 

HL 

32FA 

AF 



XOR 

A 

32FB 

3C 



INC 

A 

32FC 

C9 



RET 



********************************** 


32 FD 

CD 

16 

33 

CALL 

3316 

3300 

EB 



EX 

DE,HL 

3301 

CD 

28 

33 

CALL 

3328 

3304 

C3 

9E 

34 

JP 

349E 


Arg normalis. f. EXP 
IN : (HL): Argument, FLO 
(DE): Faktor 

OUT: (HL): normal. Argument 
DE: Integerwert Arg 
AF: Flags und Vorz. f. Arg 


Arg normalis. f. SIN/COS 
IN : (HL): Argument, FLO 
(DE): Faktor 
Z=0 f. .5 addieren 
OUT: (HL): normal. Argument 
DE: Integerwert Arg 
AF: Flags und Vorz. f. Arg 
Flag retten 

Arg m. Faktor multiplizieren 
Flag wiederholen 
Konstante 0.5 

ggf. add.,Phasenversch. ausgl. 

Ergebnis retten 

und nach Integer wandeln 

Fehler? dann raus 

Zeiger auf verändertes Arg 

Integer retten 

Flags u. Vorz. retten 

Zeiger auf Arg retten 

Zeiger auf FAC2 

Integer nach Real wandeln 

und FLO-Integertei l -> (DE) 

Zeiger auf Arg 

Arg-INT(Arg)=Nachkommateil 

Flags u. Vorz. 

Integerteil von Arg 
CY:=1 f. o.k. 


Zeiger auf Arg 
CY:=0 f. Fehler 
Z:=0 


FLO Kehrwert bilden 
IN : (HL): FLO-Zahl 
OUT: (HL): 1/Arg 

Zahl in FAC3 schreiben 

Konstante 1 holen 
und durch Arg teilen 


********************************** 


3307 

CD 6C 35 

CALL 

356C 

330A 

F0 

RET 

P 

330B 

B8 

CP 

B 


Exponenten vergleichen 
IN : B: Vergleichsexp 
(HL): FLO-Zahl 
OUT: A: Exp, 2er Kompl. 

CY=0, wenn Exp<B 
Exp im 2er Kompl. holen 
Arg>=1? dann zurück 
Exp u. Verlechsexp vergleichen 
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330C 

C8 

RET 

Z 

330D 

3F 

CCF 


330E 

C9 

RET 



********************************** 


330F 

EB 



EX 

DE,HL 

3310 

21 

E8 

B8 

LD 

HL,B8E8 

3313 

C3 

18 

2E 

JP 

2E18 


********************************** 


3316 

EB 



EX 

DE,HL 

3317 

21 

F2 

B8 

LD 

HL,B8F2 

331A 

C3 

18 

2E 

JP 

2E18 


********************************** 


33 ID 

EB 



EX 

DE,HL 

331E 

21 

ED 

B8 

LD 

HL,B8ED 

3321 

CD 

18 

2E 

CALL 

2E18 

3324 

EB 



EX 

DE,HL 

3325 

C3 

15 

34 

JP 

3415 


********************************** 


3328 

D5 



PUSH 

DE 

3329 

11 

32 

33 

LD 

DE,3332 

332C 

CD 

18 

2E 

CALL 

2E18 

332F 

Dl 



POP 

DE 

3330 

37 



SCF 


3331 

C9 



RET 



********************************** 
3332 00 00 00 00 81 

********************************* 


3337 3E 01 LD A,01 

3339 18 05 JR 3340 


gleich? dann zurück 
sonst CY:=0 f. Exp<B 


Argument nach FAC1 kopieren 
IN : (HL): Argument (5 Bytes) 
OUT: Argument in FAC1 

HL: Zeiger auf FAC1 

Zeiger auf FAC1 
Zahl dorthin kopieren 

Argument nach FAC3 kopieren 
IN : (HL): Argument (5 Bytes) 
OUT: Argument in FAC3 

Zeiger auf FAC3 
Zahl dorthin kopieren 

Zahl quadrieren 
IN : (HL): FLO-Zahl 
OUT: (HL): Arg A 2 
Zahl 

nach FAC2 
kopieren 
und mit diesem 
multiplizieren 

Konstante 1 holen 

IN : (HL): Rückgabeadresse 

OUT: (HL): FLO 1 

Zeiger auf FLO-Konstante 1 
nach HL kopieren 

CY:=1 f. o.k. 


Konstante 1 


FLO (HL):=(HL)-(DE) 

IN : (HL): FLO-Zahl 
(DE): FLO-Zahl 
OUT: (HL): Differenz 

b0:=1 f. (DE) invertieren 
Addition 


********************************** 


333B 3E 80 LD A,80 

333D 18 01 JR 3340 


FLO (HL):=(DE)-(HL) 

IN : (HL): FLO-Zahl 
(DE): FLO-Zahl 
OUT: (HL): Differenz 

b7:=1 f. (HL) negieren 
Addition 


FLO (HL):=(HL)+(DE) 
IN : (HL): FLO-Zahl 
(DE): FLO-Zahl 


********************************** 
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333 F 

AF 



XOR 

A 

********************************** 

3340 

E5 



PUSH 

HL 

3341 

DD 

El 


POP 

IX 

3343 

D5 



PUSH 

DE 

3344 

FD 

El 


POP 

IY 

3346 

DD 

46 

03 

LD 

B, (IX+03) 

3349 

FD 

4E 

03 

LD 

C,(IY+03) 

334C 

B7 



OR 

A 

334D 

28 

OB 


JR 

Z,335a 

334 F 

FA 

58 

33 

JP 

M,3358 

3352 

3E 

80 


LD 

A,80 

3354 

A9 



XOR 

C 

3355 

4F 



LD 

C,A 

3356 

18 

02 


JR 

335A 

3358 

A8 



XOR 

B 

3359 

47 



LD 

B, A 

********************************** 

335A 

DD 

7E 

04 

LD 

A, (IX+04) 

335D 

FD 

BE 

04 

CP 

(IY+04) 

3360 

30 

14 


JR 

NC,3376 

3362 

50 



LD 

D,B 

3363 

41 



LD 

BjC 

3364 

4A 



LD 

C, D 

3365 

B7 



OR 

A 

3366 

57 



LD 

D,A 

3367 

FD 

7E 

04 

LD 

A, (IY+04) 

336A 

DD 

77 

04 

LD 

(IX+04),A 

336D 

28 

54 


JR 

Z,33C3 

336F 

92 



SUB 

D 

3370 

FE 

21 


CP 

21 

3372 

30 

4F 


JR 

NC.33C3 

3374 

18 

11 


JR 

3387 

3376 

AF 



XOR 

A 

3377 

FD 

96 

04 

SUB 

(IY+04) 

337A 

28 

59 


JR 

Z,33D5 

337C 

DD 

86 

04 

ADD 

(IX+04) 

337F 

FE 

21 


CP 

21 

3381 

30 

52 


JR 

NC,33D5 

3383 

E5 



PUSH 

HL 

3384 

FD 

El 


POP 

IY 

3386 

EB 



EX 

DE,HL 

3387 

5F 



LD 

E,A 


OUT: (HL): Summe 

b0=b7=0 f. beide so lassen 

allg. Addition/Subtraktion 
IN : (HL): FLO-Zahl 
(DE): FLO-Zahl 
A<bO>:Flag f. -(DE) 

A<b7>:FLAG f. -(HL) 

OUT: (HL): Summe 
Zeiger Argl 
-> IX 

Zeiger Arg2 
-> IY 

Vorzeichen Argl -> B 

Vorzeichen Arg2 -> C 

Flag f. Vorz. testen 

keine Vorzeichen invertieren? 

Argl negieren? 

sonst Vorzeichen von 

Arg2 invertieren 

und als neues Vorz v. Arg2 

dann normal addieren 

Vorzeichen von Argl invertier. 

und neu setzen 

Addieren 

IN : (HL)=(IX): Argl 
(DE)=(IY): Arg2 
B: Vorz. Argl 
C: Vorz. Arg2 
OUT: (HL): Arg1+Arg2 
Expl 

mit Exp2 vergleichen 
Exp1>=Exp2? dann entspr. beh. 
sonst 

Vorzeichen 

vertauschen 

CY:=0 

Expl retten 
Exp2 

als Expl setzen 

Exp1=0? d. Erg:=(IY) 

sonst Exp2-Exp1=Bitdifferenz 

>Länge einer FLO-Zahl? 

dann ERG.:=(IY) 

sonst Addition ausführen 

Zweierkomplement 
von Exp2 bilden 
Exp2=0? dann Erg:=Arg1, raus 
sonst Stellendifferenz berech. 
»Länge einer FLO-Mantisse? 
dann Erg.:=Arg1, raus 
Zeiger auf Argl 
nach IY 

Zeiger Arg2 nach HL 
Anz. d. Bitstellen retten 
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3388 

78 



LD 

A,B 

Vorzeichen 

3389 

A9 



XOR 

C 

vergleichen 

338A 

F5 



PUSH 

AF 

und Vergleichsergebnis retten 

338B 

C5 



PUSH 

BC 

Vorzeichen retten 

338C 

7B 



LD 

A,E 

Anz. d. zu shiftenden Bits 

338D 

CD 

43 

36 

CALL 

3643 

(HL) rechtsverschieben 

3390 

79 



LD 

A,C 

Rundungsbyte retten 

3391 

CI 



POP 

BC 

Vorzeichen 

3392 

4F 



LD 

C,A 

Rundungsbyte nach C 

3393 

Fl 



POP 

AF 

Vorzeichenvergleich 

3394 

FA 

DA 

33 

JP 

M.33DA 

Vorz. ungl.? d. Mant. subtrah 

3397 

FD 

7E 

00 

LD 

A,{IY+00) 

bei gleichen Vorzeichen: 

339A 

85 



ADD 

L 

Mantissen 

339B 

6F 



LD 

L,A 

addieren 

339C 

FD 

7E 

01 

LD 

A, (IY+01> 

(I Y+00)..(IY+03) 

339F 

8C 



ADC 

H 

+ HL , DE 

33A0 

67 



LD 

H,A 

-> HL , DE 

33A1 

FD 

7E 

02 

LD 

A,(IY+02) 


33A4 

8B 



ADC 

E 


33A5 

5F 



LD 

E/A 


33A6 

FD 

7E 

03 

LD 

A, (IY+03) 


33A9 

CB 

FF 


SET 

7/A 

Vorz. durch 1 ersetzen 

33AB 

8A 



ADC 

D 


33AC 

57 



LD 

D,A 


33AD 

D2 

BA 

36 

JP 

NC,36BA 

kein Übertrag? dann o.k. 

33B0 

CB 

1A 


RR 

D 

sonst 

33B2 

CB 

1B 


RR 

E 

Ergebnismantisse 

33B4 

CB 

IC 


RR 

H 

1 Bit 

33B6 

CB 

ID 


RR 

L 

rechtsverschieben 

33B8 

CB 

19 


RR 



33BA 

DD 

34 

04 

INC 

(IX+04) 

Exponenten zum Ausgl. erhöhen 

33BD 

C2 

BA 

36 

JP 

NZ,36BA 

kein Üertrag? d. runden, raus 

33C0 

C3 

EE 

36 

JP 

36EE 

sonst Überlauf 

33C3 

FD 

7E 

02 

LD 

A,(IY+02) 

Mantisse von 

33C6 

DD 

77 

02 

LD 

(IX+02),A 

(IY) 

33C9 

FD 

7E 

01 

LD 

A,(IY+01) 

nach 

33CC 

DD 

77 

01 

LD 

(IX+01) ,A 

(IX) 

33CF 

FD 

7E 

00 

LD 

A, (IY+00) 

übertragen 

33D2 

DD 

77 

00 

LD 

(IX+00),A 


33D5 

DD 

70 

03 

LD 

(IX+03),B 

Vorz. aus B setzen 

33D8 

37 



SCF 


CY:=1 f. o.k. 

33D9 

C9 



RET 



33DA 

AF 



XOR 

A 

b. ungl. Vorzeichen 

33DB 

91 



SUB 

C 

2er Komplement d. Rundungsbyt 

33DC 

4F 



LD 

C,A 

bi Iden 

33DD 

FD 

7E 

00 

LD 

A, (I Y+00) 

und Mantissen 

33E0 

9D 



SBC 

L 

voneinander abziehen: 

33E1 

6F 



LD 

L,A 

(IY+00)..(IY+04) 

33E2 

FD 

7E 

01 

LD 

A, (IY+01) 

HL , DE 

33E5 

9C 



SBC 

H 

-> HL , DE 

33E6 

67 



LD 

H,A 


33E7 

FD 

7E 

02 

LD 

A, (IY+02) 


33EA 

9B 



SBC 

E 


33EB 

5F 



LD 

E,A 


33EC 

FD 

7E 

03 

LD 

A,(IY+03) 
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33EF 

CB 

FF 


SET 

7,A 

33 Fl 

9A 



SBC 

D 

33F2 

57 



LD 

D,A 

33 F3 

30 

16 


JR 

NC,340B 

33F5 

78 



LD 

A,B 

33F6 

2F 



CPL 


33F7 

47 



LD 

B, A 

33 F8 

AF 



XOR 

A 

33 F9 

91 



SUB 

C 

33 FA 

4F 



LD 

C, A 

33 FB 

3E 

00 


LD 

A,00 

33 FD 

9D 



SBC 

L 

33 FE 

6F 



LD 

L,A 

33 FF 

3E 

00 


LD 

A,00 

3401 

9C 



SBC 

H 

3402 

67 



LD 

H, A 

3403 

3E 

00 


LD 

A, 00 

3405 

9B 



SBC 

E 

3406 

5F 



LD 

E,A 

3407 

3E 

00 


LD 

A,00 

3409 

9A 



SBC 

D 

340A 

57 



LD 

D,A 

340B 

87 



ADD 

A 

340C 

DA 

BA 

36 

JP 

C,36BA 

340 F 

C3 

Bl 

36 

JP 

36B1 


********************************** 


3412 11 53 2F LD DE,2F53 

********************************** 


3415 

D5 



PUSH 

DE 

3416 

FD 

El 


POP 

IY 

3418 

E5 



PUSH 

HL 

3419 

DD 

El 


POP 

IX 

341B 

FD 

7E 

04 

LD 

A, (IY+04) 

341E 

B7 



OR 

A 

341F 

28 

2C 


JR 

Z,344D 

3421 

3D 



DEC 

A 

3422 

CD 

48 35 

CALL 

3548 

3425 

28 

26 


JR 

Z,344D 

3427 

30 

21 


JR 

NC,344A 

3429 

F5 



PUSH 

AF 

342A 

C5 



PUSH 

BC 

342B 

CD 

50 

34 

CALL 

3450 

342E 

79 



LD 

A, C 

342 F 

CI 



POP 

BC 

3430 

4F 



LD 

C,A 

3431 

Fl 



POP 

AF 

3432 

CB 

7A 


BIT 

7,0 

3434 

20 

0D 


JR 

NZ,3443 

3436 

3D 



DEC 

A 

3437 

28 

14 


JR 

Z,344D 

3439 

CB 

21 


SLA 

C 


Vorz. d. 1 ersetzen 


kein Borger? dann o.k. 
sonst 

Vorzeichen 
invertieren 
u. Zweierkomplement 
des Rundungsbytes 
bi Iden 
CY=1 

Zeierkomplement 
der Mantisse 
bi Iden 


höchstes Bit gesetzt? 
d. runden, m. Vorz. versehen 
sonst vorher noch normalis. 

FLO CHL):=10*(HL) 

IN : (HL): FLO Zahl 
OUT: (HL):=10*(HL) 

Zeiger auf Konstante 10 

FLO (HL):=(HL)*(DE) 

IN : (HL): FLO Zahl, Argl 
(DE): FLO Zahl, Arg2 
OUT: (HL):=(HL)*(DE) 

Zeiger Arg2 
nach IY 
Zeiger Argl 
nach IX 
Exp2 
= 0 ? 

dann Erg.:=0, raus 
Exp2-1 

Vorz. u. Exp d. Erg. berechnen 
Erg.=0? d. Erg.:=0, raus 
Fehler? d. entspr. behandeln 
Ergebnisexp retten 
Ergebnisvorz. retten 
Ergebnismantisse berechnen 
Rundungsbyte 
Vorzeichen in B 
Rundungsbyte in C 
Exp d. Ergebnisses 
oberstes Mantissenbit=1? 
dann Ergebnis abspeichern 
sonst Exp erniedrigen 
Null? dann Unterlauf, Erg.:=0 
Rundungsbyte 
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343B 

CB 

15 

RL 

L 

und 

343D 

CB 

14 

RL 

H 

Mantisse 

343 F 

CB 

13 

RL 

E 

linksverschieben 

3441 

CB 

12 

RL 

D 


3443 

DD 

77 04 

LD 

(IX+04),A 

Exp abspeichern 

3446 

B7 


OR 

A 

und testen 

3447 

C2 

BA 36 

JP 

NZ.36BA 

<>0? d. runden, Vorz. hinein 

344A 

C3 

EE 36 

JP 

36EE 

sonst Überlauf 

344D 

C3 

E6 36 

JP 

36E6 

Unterlauf, Ergebnis:=0 


********************************** E rgebnismantisse berechnen 

IN : (IX): Argl 
(IY): Arg2 

OUT: DE,HL Ergebnismantisse 


3450 

21 

00 

00 

LD 

HL,0000 

Ergebnismantisse 

3453 

5D 



LD 

E.L 

auf null 


3454 

54 



LD 

D,H 

setzen 


3455 

FD 

7E 

00 

LD 

A, (IY+00) 

4.MSB v. Arg2 


3458 

CD 

93 

34 

CALL 

3493 

mit Argl-Mantisse 

mu11ipl i z 

345B 

FD 

7E 

01 

LD 

A,(IY+01) 

3.MSB v. Arg2 

345E 

CD 

93 

34 

CALL 

3493 

mit Argl-Mantisse 

multipliz 

3461 

FD 

7E 

02 

LD 

A, (IY+02) 

2.MSB v. Arg2 

3464 

CD 

93 

34 

CALL 

3493 

mit Argl-Mantisse 

mu11i p l i z 

3467 

FD 

7E 

03 

LD 

A,(IY+03) 

1.MSB v. Arg2 

346A 

F6 

80 


OR 

80 

Vorzeichen durch 1 

ersetzen 


********************************** 


346C 

06 

08 


LD 

B, 08 

346E 

1 F 



RRA 


346 F 

4F 



LD 

C, A 

3470 

30 

14 


JR 

NC,3486 

3472 

7D 



LD 

A,L 

3473 

DD 

86 

00 

ADD 

(IX+00) 

3476 

6F 



LD 

L,A 

3477 

7C 



LD 

A, H 

3478 

DD 

8E 

01 

ADC 

(IX+01) 

347B 

67 



LD 

H,A 

347C 

7B 



LD 

A,E 

347D 

DD 

8E 

02 

ADC 

(IX+02) 

3480 

5F 



LD 

E,A 

3481 

7A 



LD 

A,D 

3482 

DD 

8E 

03 

ADC 

(IX+03) 

3485 

57 



LD 

D, A 

3486 

CB 

1A 


RR 

D 

3488 

CB 

1B 


RR 

E 

348A 

CB 

IC 


RR 

H 

348C 

CB 

ID 


RR 

L 

348E 

CB 

19 


RR 

C 

3490 

10 

DE 


DJNZ 

3470 

3492 

C9 



RET 



Byte mit FLO-Mantisse multipliz. 
IN : A: Byte 

(IX): FLO-Mantisse 
DE,HL: lfd. Ergebnis 
OUT: DE,HL: neue Ergebnismantisse 
Bitzähler setzen 
unterstes Bit a. Byte raussch. 
lfd. Byte retten 
b0=0? d. nur n. unten schieb, 
sonst 

FLO-Mantisse 

byteweise 

zu lfd. Ergebnismantisse 
addieren 


und 

(neue) Ergebnismantisse 
um 1 Bit 

rech tsverschieben 
incl. Rundungsbyte 
und das f. alle 8 Bits 
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********************************** Byte mit FLO-Mantisse multipliz. 

(m. Test auf Nullbyte v. Multiplik.) 







IN : A: Byte 






(IX): FLO-Mantisse 

DE,HL: lfd. Ergebnis 






OUT: DE,HL: neue Ergebnismantiss« 

3493 

B7 


OR 

A 

Byte=0? 

3494 

20 

D6 

JR 

NZ,346C 

sonst Byte bitweise multipliz 

3496 

6C 


LD 

L,H 

wenn Byte=0: 

3497 

63 


LD 

H/E 

lfd. Ergebnismantisse 

3498 

5A 


LD 

E,D 

gleich alle 8 Bits 

3499 

57 


LD 

D/A 

rechtsverschieben 

349A 

C9 


RET 



********************************** 

FLO (HL):=(HL)/10 






IN : (HL): FLO Zahl 

OUT: (HL):=(HL)/10 

349B 

11 

53 2F 

LD 

DE,2F53 

Zeiger auf Konstante 10 

********************************** 

FLO (HL):=(HL)/(DE) 






IN : (HL): FLO Zahl, Dividend 






(DE): FLO Zahl, Divisor 






OUT: (HL):=(HL)/(DE) 

349E 

D5 


PUSH 

DE 

Zeiger auf Arg2 

349F 

FD 

El 

POP 

IY 

nach IY 

34A1 

E5 


PUSH 

HL 

Zeiger auf Argl 

34A2 

DD 

El 

POP 

IX 

nach IX 

34A4 

AF 


XOR 

A 

Zweierkomplement 

34A5 

FD 

96 04 

SUB 

CIY+04) 

d. Exp2 bilden 

34A8 

28 

58 

JR 

Z, 3502 

Divisor=0? dann Überlauf 

34 AA 

CD 

48 35 

CALL 

3548 

sonst Exp add. u. Vorz. ber. 

34AD 

CA 

E6 36 

JP 

Z,36E6 

Erg.=0? dann Erg:=0, raus 

34B0 

30 

4D 

JR 

NC,34FF 

Fehler? dann Überlauf behänd. 

34B2 

C5 


PUSH 

BC 

Vorzeichenvergleich retten 

34B3 

4F 


LD 

C, A 

Ergebnisexp 

34B4 

5E 


LD 

E, (HL) 

Mantisse 

34B5 

23 


INC 

HL 

des Argl 

34B6 

56 


LD 

D, (HL) 

(Dividend) 

34B7 

23 


INC 

HL 

nach 

34B8 

7E 


LD 

A, (HL) 

DE,HL 

34B9 

23 


INC 

HL 


34BA 

66 


LD 

H,(HL) 


34BB 

6F 


LD 

L/A 


34BC 

EB 


EX 

DE,HL 


34BD 

FD 

46 03 

LD 

B, (IY+03) 

Vorzeichen Argl nach B 

34C0 

CB 

F8 

SET 

7,B 

Vorzeichen durch 1 ersetzen 

34C2 

CD 

32 35 

CALL 

3532 

Mantissen vergleichen 

34C5 

30 

06 

JR 

NC.34CD 

Mant2>Mant1? d. Mantl linksv. 

34C7 

79 


LD 

A» C 

sonst Ergebnisexp 

34C8 

B7 


OR 

A 

<>0? 

34C9 

20 

08 

JR 

NZ,34D3 

dann weitermachen 

34CB 

18 

31 

JR 

34FE 

sonst Überlauf 

34CD 

OD 


DEC 

C 

Ergebnisexp erniedrigen 

34CE 

29 


ADD 

HL,HL 

und Dividendenmantisse 

34CF 

CB 

13 

RL 

E 

um 1 Bit 

34D1 

CB 

12 

RL 

D 

linksverschieben 

34D3 

DD 

71 04 

LD 

(IX+04),C 

Ergebnisexp setzen 

34D6 

CD 

07 35 

CALL 

3507 

Bytes der 
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34D9 

DD 

71 

03 

LD 

(IX+03),C 

Ergebnismantisse 

34DC 

CD 

07 

35 

CALL 

3507 

einzeln berechnen 

34DF 

DD 

71 

02 

LD 

(IX+02),C 

und danach 

34E2 

CD 

07 

35 

CALL 

3507 

Zwischenspeichern 

34E5 

DD 

71 

01 

LD 

(IX+01),C 


34E8 

CD 

07 

35 

CALL 

3507 


34EB 

D4 

32 

35 

CALL 

NC,3532 

ggf. Mantissen vergleichen 

34EE 

9F 



SBC 

A 

A:=$FF, wenn rest-Mant1>Mant2 

34EF 

69 



LD 

L,C 

letztes Byte 

34F0 

DD 

66 

01 

LD 

H, (IX+01) 

zwischengespeicherte 

34 F3 

DD 

5E 

02 

LD 

E,(IX+02) 

E rgebnismantis se 

34F6 

DD 

56 

03 

LD 

D, (IX+03) 

zurück nach DE,HL 

34 F9 

CI 



POP 

BC 

Vorzeichen 

34 FA 

4F 



LD 

C, A 

Rundungsbyte 

34FB 

C3 

BA 

36 

JP 

36BA 

runden, Vorz. hinein, speich. 

34FE 

CI 



POP 

BC 

Vorzeichen vom Stack löschen 

34FF 

C3 

EE 

36 

JP 

36EE 

Überlauf 

3502 

CD 

94 

35 

CALL 

3594 

Überlauf 

3505 

AF 



XOR 

A 

CY:=0 f. Fehler 

3506 

C9 



RET 




********************************** 


byteweise dividieren 
IN : DE,HL: Restmant. Dividend 
(IY): Divisormantisse 


3507 

0E 

01 


LD 

C,01 

3509 

38 

08 


JR 

C,3513 

350B 

7A 



LD 

A,D 

350C 

B8 



CP 

B 

350D 

3F 



CCF 


350E 

CC 

36 

35 

CALL 

Z,3536 

3511 

30 

13 


JR 

NC,3526 

3513 

7D 



LD 

A, L 

3514 

FD 

96 

00 

SUB 

(IY+00) 

3517 

6F 



LD 

L, A 

3518 

7C 



LD 

A, H 

3519 

FD 

9E 

01 

SBC 

(IY+01) 

351C 

67 



LD 

H,A 

351D 

7B 



LD 

A,E 

35 IE 

FD 

9E 

02 

SBC 

(IY+02) 

3521 

5F 



LD 

E,A 

3522 

7A 



LD 

A,D 

3523 

98 



SBC 

B 

3524 

57 



LD 

D,A 

3525 

37 



SCF 


3526 

CB 

11 


RL 

C 

3528 

9F 



SBC 

A 

3529 

29 



ADD 

HL,HL 

352A 

CB 

13 


RL 

E 

352C 

CB 

12 


RL 

D 

352E 

3C 



INC 

A 

35 2 F 

20 

D8 


JR 

NZ,3509 

3531 

C9 



RET 



B: 1.MSB Divisor, b7=1 
CY=0, wenn MSB d. Ergebnis 
OUT: C: Ergebnisbyte 

DE,HL: neue Restmantisse; CY: = 1 
Byteendemarkierung 
noch nicht MSB d. Ergebnisses? 
höchstes Mantissenbyte Argl 
höchstes Mantissenbyte Arg2 

gleich? d. restl. Mant. vergl. 
Arg2>Arg1? dann nicht subtrah. 
Divisormantisse 
byteweise 

von rest-Dividendenmantisse 
subtrahieren 


1.MSB d. Divisormant. in B 

CY:=1 f. Division erfolgt 
in C hinein, ggf. Marke heraus 
A:=$FF, wenn Ende erreicht 
Restmantisse 
um 1 Bit 

linksverschieben 
A:=00, wenn Ende erreicht 
sonst noch ein Durchlauf 
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********************************** 


3532 

7A 



LD 

A,D 

3533 

B8 



CP 

B 

3534 

3F 



CCF 


3535 

CO 



RET 

NZ 

3536 

7B 



LD 

A.E 

3537 

FD 

BE 

02 

CP 

(IY+02) 

353A 

3F 



CCF 


353B 

CO 



RET 

NZ 

353C 

7C 



LD 

A, H 

353D 

FD 

BE 

01 

CP 

(IY+01) 

3540 

3F 



CCF 


3541 

CO 



RET 

NZ 

3542 

7D 



LD 

A, L 

3543 

FD 

BE 

00 

CP 

(IY+00) 

3546 

3F 



CCF 


3547 

C9 



RET 



********************************** 


3548 

4F 



LD 

C,A 

3549 

DD 

7E 

03 

LD 

A,(IX+03) 

354C 

FD 

AE 

03 

XOR 

(IY+03) 

354F 

47 



LD 

B,A 

3550 

DD 

7E 

04 

LD 

A,(IX+04) 

3553 

B7 



OR 

A 

3554 

C8 



RET 

Z 

3555 

81 



ADD 

C 

3556 

4F 



LD 

C, A 

3557 

1F 



RRA 


3558 

A9 



XOR 

C 

3559 

79 



LD 

A, C 

355A 

F2 

68 

35 

JP 

P,3568 

355D 

DD 

CB 

03 FE 

SET 

7,(IX+03) 

3561 

D6 

7F 


SUB 

7F 

3563 

37 



SCF 


3564 

CO 



RET 

NZ 

3565 

FE 

01 


CP 

01 

3567 

C9 



RET 


3568 

B7 



OR 

A 

3569 

F8 



RET 

M 

356A 

AF 



XOR 

A 

356B 

C9 



RET 



Mantissenvergleich 
IN : DE,HL: Hantl 
(IY): Mant2 
B: 1.MSB Mant2 
OUT: Z=1, wenn gleich 

CY=1, wenn Mantl größer 

Mantissen 

byteweise 

vergleichen, 

das Carry 

jeweils invertieren 


Exp addieren, Vorz. berechnen 
IN : (IX): FLO Argl 
(IY): FLO Arg2 
A: Exp2 

OUT: B: Vorzeichenvergleich 
A: Exp d. Ergebnisses 
CY=0, wenn Fehler 
S=1, wenn Überlauf 
S=0, wenn Unterlauf 
Z=1, wenn Ergebnis=0 
Exp2 retten 
Vorz. Argl 

mit Vorz. Arg2 verknüpfen 
und Ergebnis nach B 
Expl 
= 0 ? 

dann Erg.:=0, raus 
Exp2 addieren 
und Ergebnis nach C 
b7 xor Carry: 

CY=1, wenn Über- o. Unterl. 
Ergebnisexp +$7F 
=0? dann Fehler, entspr. beh. 
sonst Vorz. durch 1 ersetzen 
Ergebnisexp berechnen 
CY:=1 f. o.k. 
wenn Exp<>0, dann raus 
sonst CY:=1, Z=1 f Erg.:=0 
und raus 
CY:=0 

Überlauf? d. CY:=0, S:=1, Z:=0 
sonst CY:=0, S:=0, Z:=1 
f. Unterlauf setzen 
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********************************** 

Exponenten holen 







IN : (HL): FLO Zahl 

OUT: CY=0, wenn Arg=0 







A: Exp im 2er Komplement 

356C 

E5 



PUSH 

HL 

Zeiger auf Zahl 

356D 

DD 

El 


POP 

IX 

nach IX 

356F 

DD 

7E 

04 

LD 

A ( (IX+04) 

Exp laden 

3572 

B7 



OR 

A 

Exp=0? (Zahl=0?) 

3573 

C8 



RET 

Z 

dann raus 

3574 

D6 

80 


SUB 

80 

Exp in 2er Komplementsdarst. 

3576 

37 



SCF 


CY:=1 f. Zahl<>0 

3577 

C9 



RET 



********************************** 

FLO (HL):=(HL)*2 A A 







IN : (HL): FLO Zahl 







A: Binärexp 







OUT: (HL):=(HL)*2 A A 

3578 

E5 



PUSH 

HL 

Zeiger auf Arg 

3579 

DD 

El 


POP 

IX 

nach IX 

357B 

B7 



OR 

A 

2er Exp 

357C 

FA 

89 

35 

JP 

M,3589 

neg.? dann abziehen 

357F 

DD 

86 

04 

ADD 

(IX+04) 

sonst zum Exp addieren 

3582 

DD 

77 

04 

LD 

(IX+04),A 

3585 

3F 



CCF 


C:=0 f. Fehler 

3586 

D8 



RET 

C 

o.k.? dann raus 

3587 

18 

OB 


JR 

3594 

sonst Überlauf 

3589 

DD 

86 

04 

ADD 

(IX+04) 

Exp addieren 

358C 

38 

02 


JR 

C,3590 

kein Borger? dann o.k. 

358E 

AF 



XOR 

A 

sonst null 

358F 

37 



SCF 


CY:=1 f. o.k. 

3590 

DD 

77 

04 

LD 

(IX+04),A 

Null setzen 

3593 

C9 



RET 



3594 

DD 

46 

03 

LD 

B, (IX+03) 


3597 

CD 

EE 

36 

CALL 

36EE 


********************************** 

FLO Vergleich (HL)-(DE) 







IN : (HL): FLO Zahl, Argl 







(DE): FLO Zahl, Arg2 







OUT: A=$00,Z=1: Arg1=Arg2 







A=$01,Z=0,C=0: Arg1>Arg2 

A=$FF,Z=0,C=1: Arg1<Arg2 

35 9A 

E5 



PUSH 

HL 

Zeiger auf Argl 

359B 

DD 

El 


POP 

IX 

nach IX 

359D 

D5 



PUSH 

DE 

Zeiger auf Arg2 

359E 

FD 

El 


POP 

IY 

nach IY 

35A0 

DD 

7E 

04 

LD 

A,(IX+04) 

Expl 

35A3 

FD 

BE 

04 

CP 

(IY+04) 

m. Exp2 vergleichen 

35A6 

38 

3A 


JR 

C,35E2 

Exp1<Exp2? d. entspr. behänd. 

35A8 

20 

33 


JR 

NZ,35DD 

Exp1>Exp2? d. entspr. behänd. 

35AA 

B7 



OR 

A 

beide Exp =0? 

35AB 

C8 



RET 

Z 

dann Arg1=Arg2=0, zurück 

35AC 

DD 

7E 

03 

LD 

A,(IX+03) 

sonst Vorzeichen 

35AF 

FD 

AE 

03 

XOR 

(IY+03) 

vergleichen 

35B2 

FA 

DD 

35 

JP 

M,35DD 

versch. Vorz.? d. entspr. beh. 

35B5 

DD 

7E 

03 

LD 

A,(IX+03) 

sonst 

35B8 

FD 

96 

03 

SUB 

(IY+03) 

(Exp gleich, Vorz, gleich) 

35BB 

20 

17 


JR 

NZ,35D4 

Mantissen von oben 
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35BD 

DD 

7E 

02 

LD 

A,(IX+02) 

35C0 

FD 

96 

02 

SUB 

(IY+02) 

35C3 

20 

0F 


JR 

NZ.35D4 

35C5 

DD 

7E 

01 

LD 

A,(IX+01) 

35C8 

FD 

96 

01 

SUB 

(IY+01) 

35CB 

20 

07 


JR 

NZ.35D4 

35 CD 

DD 

7E 

00 

LD 

A,(IX+00) 

35D0 

FD 

96 

00 

SUB 

(IY+00) 

35D3 

C8 



RET 

Z 

35D4 

9F 



SBC 

A 

35D5 

FD 

AE 

03 

XOR 

(IY+03) 

35D8 

87 



ADD 

A 

35D9 

9F 



SBC 

A 

35DA 

D8 



RET 

C 

35DB 

3C 



INC 

A 

35DC 

C9 



RET 


35DD 

DD 

7E 

03 

LD 

A,(IX+03) 

35E0 

18 

F6 


JR 

35D8 

35E2 

FD 

7E 

03 

LD 

A,(IY+03) 

35E5 

2F 



CPL 


35E6 

18 

F0 


JR 

35D8 


byteweise vergleichen 

bei Ungleichheit 
raus 


A:=$FF, wenn Arg1<Arg2 

bei negativen Vorz. b7 invert. 

und ins Carry 

von dort in ganzen Akku 

wenn Arg1<Arg2, raus 

A:=01, wenn Arg1>Arg2 


Vorz. Argl als Vergleichserg. 
setzen 

Vorz. Arg2 

invertiert als Vergleichserg. 
setzen 


********************************** FLO SGN"Funktion 

IN : (HL): FLO Zahl 
OUT: A:= SGN(Arg) 

A=$00,Z=1,CY=0: Arg=0 
A=$01,S=0,CY=0: Arg>0 
A=$FF,S=1,CY=1: Arg<0 


35E8 

E5 



PUSH 

HL 

Zeiger auf Arg 

35E9 

DD 

El 


POP 

IX 

nach IX 

35EB 

DD 

7E 

04 

LD 

A, (IX+04) 

Exp d. Arg 

35EE 

B7 



OR 

A 

Arg =0? 

35EF 

C8 



RET 

Z 

d. A:=0, zurück 

35F0 

DD 

7E 

03 

LD 

A,(IX+03) 

sonst Vorz. d. Arg 

35F3 

87 



ADD 

A 

ins Carry 

35F4 

9F 



SBC 

A 

von dort in den ganzen Akku 

35F5 

D8 



RET 

C 

Arg<0? dann zurück 

35F6 

3C 



INC 

A 

Arg>0? d. A:=01 

35F7 

C9 



RET 




********************************** Vorzeichen invertieren 


IN : (HL): FLO Zahl, Arg 
OUT: (HL): -Arg 


35 F8 

E5 



PUSH 

HL 

Zeiger auf Arg 

35F9 

DD 

El 


POP 

IX 

nach IX 

35FB 

DD 

7E 

03 

LD 

A,(IX+03) 

Vorzeichen 

35FE 

EE 

80 


XOR 

80 

invertieren 

3600 

DD 

77 

03 

LD 

(IX+03),A 

und neu abspeichern 

3603 

C9 



RET 
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********************************** FLO FIX“Funktion 


3604 

AF 


XOR 

A 

3605 

DD 

96 04 

SUB 

(IX+04) 

3608 

20 

0A 

JR 

NZ,3614 

360A 

06 

04 

LD 

B, 04 

360C 

77 


LD 

(HL),A 

360D 

23 


INC 

HL 

360E 

10 

FC 

DJNZ 

360C 

3610 

0E 

01 

LD 

C,01 

3612 

37 


SCF 


3613 

C9 


RET 



IN : (IX)=(HL): FLO Zahl, Arg 
A: Exp 

OUT: (HL): FIX(Arg) 

B: Vorzeichen; C: Mantissenlänge 
A,E: Rundungsbyte 
2er Komplement 
d. Exp bilden 

<>0? d. Nachkommastellen elim. 
sonst alle 4 Mantissenbytes 
auf Null setzen 
Zeiger auf nächstes Byte 

Mantissen länge auf 1 Byte 
CY:=1 f. o.k. 


********************************** Nachkommastellen abschneiden 

IN : (IX)=(HL): FLO Zahl 
A: Exp, 2er Komplem. 
OUT: (HL): 4-Byte Integer 
A,E: Rundungsbyte 
S: Rundungsbit 
B: Vorzeichen 


3614 

C6 A0 

ADD 

A0 

3616 

DO 

RET 

NC 

3617 

E5 

PUSH 

HL 

3618 

CD 3D 36 

CALL 

363D 

361B 

AF 

XOR 

A 

361C 

B8 

CP 

B 

361D 

8F 

ADC 

A 

361E 

Bl 

OR 

C 

361F 

4D 

LD 

C,L 

3620 

44 

LD 

B, H 

3621 

El 

POP 

HL 

3622 

71 

LD 

(HL),C 

3623 

23 

INC 

HL 

3624 

70 

LD 

(HL),B 

3625 

23 

INC 

HL 

3626 

73 

LD 

(HL),E 

3627 

23 

INC 

HL 

3628 

5F 

LD 

E.A 

3629 

7E 

LD 

A, (HL) 

362A 

72 

LD 

(HL),D 

362B 

E6 80 

AND 

80 

362D 

47 

LD 

B.A 

362E 

0E 04 

LD 

C,04 

3630 

AF 

XOR 

A 

3631 

B6 

OR 

(HL) 

3632 

20 05 

JR 

NZ,3639 

3634 

2B 

DEC 

HL 

3635 

0D 

DEC 

C 

3636 

20 F9 

JR 

NZ,3631 

3638 

OC 

INC 

C 

3639 

7B 

LD 

A,E 

363A 

B7 

OR 

A 


C: Mantissenlänge 
CY=1, wenn o.k. 

32-Exp=Anz. zu shiftend. Bits 
Exp>$A0? dann Überlauf, raus 
Zeiger auf Arg retten 
FAC nach rechts shiften 

Nachkorrenaf Lag 

A:=01, wenn Nachkoirmastel len 
und Rundungsbyte 
unteres Word 
nach BC retten 
Zeiger auf Zahl 
untere 3 Bytes 
wieder 

als Integer speichern 


Rundungsbyte nach E retten 
Vorzeichen der Zahl nach A 
1-MSB d. entstandenen Integers 
Vorzeichen isolieren 
und nach B 

Mantissen länge setzen 

oberes Mantissenbyte 
<>0? dann aus Schleife raus 
Zeiger auf nächst nieder. Byte 
Länge des Integers erniedrigen 
noch nicht null? dann weiter 
sonst Mantissenlänge:=1 
Rundungsbyte 

testen: Rundungsbit b7 ■> S 
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363B 37 SCF 

363C C9 RET 


CY:=1 f. o.k. 


********************************** 


363D 

FE 

21 

CP 

21 

363F 

38 

02 

JR 

C,3643 

3641 

3E 

21 

LD 

A,21 

3643 

5E 


LD 

E,(HL) 

3644 

23 


INC 

HL 

3645 

56 


LD 

D, (HL) 

3646 

23 


INC 

HL 

3647 

4E 


LD 

C,(HL) 

3648 

23 


INC 

HL 

3649 

66 


LD 

H,(HL) 

364A 

69 


LD 

L,C 

364 B 

EB 


EX 

DE,HL 

364C 

CB 

FA 

SET 

7,D 

364E 

01 

00 00 

LD 

BC,0000 

3651 

18 

OB 

JR 

365E 

3653 

4F 


LD 

C,A 

3654 

78 


LD 

A,B 

3655 

B5 


OR 

L 

3656 

47 


LD 

B,A 

3657 

79 


LD 

A,C 

3658 

4D 


LD 

C,L 

3659 

6C 


LD 

L,H 

365A 

63 


LD 

H,E 

365 B 

5A 


LD 

£,D 

365 C 

16 

00 

LD 

D ,00 

365E 

D6 

08 

SUB 

08 

3660 

30 

Fl 

JR 

NC,3653 

3662 

C6 

08 

ADD 

08 

3664 

C8 


RET 

Z 

3665 

CB 

3A 

SRL 

D 

3667 

CB 

1B 

RR 

E 

3669 

CB 

IC 

RR 

H 

366B 

CB 

ID 

RR 

L 

366D 

CB 

19 

RR 

C 

366F 

3D 


DEC 

A 

3670 

20 

F3 

JR 

NZ,3665 

3672 

C9 


RET 



FLO Arg rechtsverschieben 
IN : (HL): 4-Byte Mantisse 

A: Anz. zu shiftender Bits 
OUT: DE,HL: geshiftete Mantisse 
C: Rundungsbyte 
B: Nachkommaflag (=0:lnteg.) 
weniger als 33 Bits shiften? 
dann o.k. 

sonst Zahl auf 33 Bits setzen 
Mantisse 
von (HL) 
nach DE,HL 
übernehmen 


Vorz. durch 1 ersetzen 
Nachkommaflag u. Rundungsbyte 
Schleife überspringen 
Bitzähler retten 
Nachkommaflag 

und unterstes Byte verknüpfen 
und als neues Nachkomnaflag 
Bitzähler 

gesamte Mantisse 
8 Bits = 1 Byte 
rechtsverschieben 

Null ins 1.MSB 

Bitzähler f. 1 Byte rechtsver. 
kein Borger? d. noch ein Byte 
Fehler ausgleichen 
ging auf? dann o.k., raus 
gesamte Mantisse 
um 1 Bit 

rechtsverschieben 


Bitzähler entspr. erniedrigen 
noch nicht fertig? d. weiter 


********************************** 


3673 

14 

INC 

D 

3674 

15 

DEC 

D 

3675 

F8 

RET 

M 

3676 

20 17 

JR 

NZ,368F 

3678 

57 

LD 

D,A 

3679 

7B 

LD 

A,E 


FLO Zahl normalisieren 
IN : DE,HL: 4-Byte Mantisse 

A: Exponent; C: Rundungsbyte 
OUT: DE,HL: normalis. Mantisse 
A: neuer Exponent 
oberstes Mantissenbyte 
testen 

oberstes Bit gesetzt? d. raus 
I.MSBoO? d. bitweise normal. 
Exp retten 
restliche 
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367A 

B4 


OR 

H 

367B 

B5 


OR 

L 

367C 

Bl 


OR 

C 

367D 

C8 


RET 

z 

367E 

7A 


LD 

A,D 

367F 

D6 

08 

SUB 

08 

3681 

38 

IC 

JR 

C,369F 

3683 

C8 


RET 

Z 

3684 

53 


LD 

D,E 

3685 

5C 


LD 

E,H 

3686 

65 


LD 

H,L 

3687 

69 


LD 

L,C 

3688 

OE 

00 

LD 

C,00 

368A 

14 


INC 

D 

368B 

15 


DEC 

D 

368C 

28 

Fl 

JR 

Z,367F 

368E 

F8 


RET 

M 

368F 

3D 


DEC 

A 

3690 

C8 


RET 

Z 

3691 

CB 

21 

SLA 

c 

3693 

CB 

15 

RL 

L 

3695 

CB 

14 

RL 

H 

3697 

CB 

13 

RL 

E 

3699 

CB 

12 

RL 

D 

369B 

F2 

8F 36 

JP 

P,368F 

369E 

C9 


RET 


369F 

AF 


XOR 

A 

36A0 

C9 


RET 



********************************** 


36A1 

E5 



PUSH 

HL 

36A2 

DD 

El 


POP 

IX 

36A4 

DD 

70 

04 

LD 

(IX+04),B 

36A7 

47 



LD 

B,A 

36A8 

5E 



LD 

E, (HL) 

36A9 

23 



INC 

HL 

36AA 

56 



LD 

D, (HL) 

36AB 

23 



INC 

HL 

36AC 

7E 



LD 

A,(HL) 

3 6 AD 

23 



INC 

HL 

36AE 

66 



LD 

H, (HL) 

36AF 

6F 



LD 

L,A 

36B0 

EB 



EX 

DE,HL 

36B1 

DD 

7E 

04 

LD 

A,(IX+04) 

36B4 

CD 

73 

36 

CALL 

3673 

36B7 

DD 

77 

04 

LD 

(IX+04),A 


********************************** 


36BA CB 21 SLA C 


Mantisse 

CincL. Rundungsbyte) 

=0 ? 

dann raus, Zahl:=0 
sonst Exp zurück 
-8, f. 1 Byte linksverschieben 
Unterlauf? dann raus, CY:=0 
Null? dann Zahl:=0, raus 
sonst gesamte 
Mantisse 

(incl. Rundungsbyte) 

8 Bits = iByte 
linksverschieben 
oberstes Byte 
testen 

=0? d. weitere 8 Bits versch. 
b7 gesetzt? dann o.k., raus 
sonst f. 1 Bit linksversch. 

Exp =0? dann Zahl:=0, raus 
sonst gesamte 
Mantisse 

(incl. Rundungsbyte) 
un 1 Bit 

linksverschieben 
bis oberstes Bit gesetzt 
danach raus 
CY:=0 f. Fehler 


FLO 4-Byte Mantisse>Real 
IN : (HL): 4-Byte Integer 
B: Exponent 
A: Vorzeichen 
C: Rundungsbyte 
Zeiger auf Mantisse 
nach IX 
Exp ablegen 

Vorzeichen nach B retten 
Mantisse 
nach 
DE, HL 
holen 


Exp wieder zurück 
Zahl normalisieren 
und neuen Exp speichern 

Mantisse runden, Vorz. eintragen 
IN : (IX): Rückgabeadr. f. Mant. 
DE,HL: Mantisse, 4 Bytes 
B<b7>: Vorzeichen 
(IX+04): Exponent 
OUT: (HL): FLO Zahl 

Rundungsbit ins Carry 
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36BC 

30 

13 

JR 

NC,36D1 

36BE 

2C 


INC 

L 

36BF 

20 

10 

JR 

NZ.36D1 

36C1 

24 


INC 

H 

36C2 

20 

0D 

JR 

NZ,36D1 

36C4 

IC 


INC 

E 

36C5 

20 

0A 

JR 

NZ.36D1 

36C7 

14 


INC 

D 

36C8 

20 

07 

JR 

NZ,36D1 

36CA 

DD 

34 04 

INC 

(IX+04) 

36CD 

28 

1 F 

JR 

Z,36EE 

36CF 

16 

80 

LD 

D,80 

36D1 

78 


LD 

A,B 

36D2 

F6 

7F 

OR 

7F 

36D4 

A2 


AND 

D 

36D5 

DD 

77 03 

LD 

(IX+03),A 

36D8 

DD 

73 02 

LD 

(IX+02),E 

36DB 

DD 

74 01 

LD 

(IX+01),H 

36DE 

DD 

75 00 

LD 

(IX+00),L 

36E1 

DD 

E5 

PUSH 

IX 

36E3 

El 


POP 

HL 

36E4 

37 


SCF 


36E5 

C9 


RET 


********************************** 


36E6 

AF 


XOR 

A 

36E7 

DD 

77 04 

LD 

(IX+04),A 

36EA 

18 

F5 

JR 

36E1 


=0? dann nicht aufrunden 
sonst 

Mantisse um 
1 erhöhen 


Übertrag auf Exp? 
d. Exp erhöhen 
Übertrag? dann Überlauf 
sonst D setzen 
Vorzeichen 
b7 isolieren 

Vorzeichen ins 1.MSB hinein 
und Ergebnis als 1.MSB setzen 
restl. 

Mantisse 
speichern 
Zeiger auf Zahl 
nach HL 
CY:=1 f. o.k. 


Unterlauf, Null setzen 
IN : (IX): FLO Zahl 
OUT: FLO Null bei IX u. HL 
Null 

als Exp setzen 
Zeiger nach HL, raus 


********************************** 


36EC 06 00 LD B,00 

********************************** 


36EE 

78 



LD 

A,B 

36EF 

F6 

7F 


OR 

7F 

36F1 

DD 

77 

03 

LD 

(IX+03) ,A 

36F4 

F6 

FF 


OR 

FF 

36F6 

DD 

77 

04 

LD 

(IX+04),A 

36F9 

DD 

77 

00 

LD 

(IX+00),A 

36FC 

DD 

77 

01 

LD 

(IX+01),A 

36FF 

DD 

77 

02 

LD 

(IX+02),A 

3702 

C9 



RET 


3703 

C7 



RST 

00 

3704 

C7 



RST 

00 

3705 

C7 



RST 

00 

3706 

C7 



RST 

00 

3707 

C7 



RST 

00 


Überlauf, max. pos. Zahl setzen 
IN : (IX): FLO Zahl 
OUT: (IX),(HL): max. pos. Zahl 
positives Vorzeichen setzen 

Überlauf, max. Betrag setzen 
IN : (IX): FLO Zahl 

B<b7>: Vorzeichen d. Zahl 
OUT: (IX): max. FLO Betrag 
Vorzeichen 
nicht verändern 
und speichern 
sonst 

gesamte Mantisse 
und Exponenten 
auf maximalen Wert 
($FF) setzen 
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INTEGER ARITHMETICS (INT) 


********************************** 


3708 44 

3709 CD Dl 37 

370C 18 02 


LD B,H 

CALL 37D1 
JR 3710 


INT Integer f. Dez.-Wand, aufber. 
IN : HL: 16-Bit 2er Kompl. Integ. 
OUT: HL: 15-Bit unsigned Integer 
B<b7>: Vorzeichen 
C:=2 als Mantissenlänge 
E:=0 f. Integer 
Vorzeichen 
Absolutwert bilden 
Kommapos. u. Mant.-Länge setz. 


********************************** 


370E 

06 

00 

LD 

B,00 

3710 

IE 

00 

LD 

E,00 

3712 

0E 

02 

LD 

C, 02 

3714 

C9 


RET 



INT pos. Integer, Dez.-Wand.-Par. 
IN : HL: unsigned Integer 
OUT: HL: unsigned Integer 
B<b7>:=0 f. positiv 
C:=2 als Mantissenlänge 
E:=0 f. Integer 
Vorzeichen positiv 
Kommaposition f. Integer 
Mantissenlänge 


********************************** 


3715 

7C 



LD 

A, H 

3716 

B7 



OR 

A 

3717 

FA 

20 

37 

JP 

M,3720 

371A 

B0 



OR 

B 

371B 

FA 

D4 

37 

JP 

M,37D4 

371E 

37 



SCF 


371F 

C9 



RET 


3720 

EE 

80 


XOR 

80 

3722 

B5 



OR 

L 

3723 

CO 



RET 

NZ 

3724 

78 



LD 

A,B 

3725 

37 



SCF 


3726 

8F 



ADC 

A 

3727 

C9 



RET 



INT signed Binary>2er Kompl. 

IN : HL: unsigned Integer 
B<b7>: Vorzeichen 
OUT: HL: 2er Kompl. Integer 
CY=1, Z=0 f. Überlauf 
Hi-Byte d. Integer 
Integer >32767? 
d. nur bei $8000 wandeln 
sonst Vorzeichen 
Vorzeichenwechsel? d. wandeln 
sonst CY:=1 f. o.k. 


Integer 

<>$8000? 

dann CY:=0 f. Fehler, raus 
sonst Vorzeichen 

ins Carry, o.k. b. negativ 
Fehler bei positiv 


********************************** 


3728 

B7 

OR 

A 

3729 

ED 5A 

ADC 

HL,DE 

372B 

37 

SCF 


372C 

E0 

RET 

PO 

372D 

F6 FF 

OR 

FF 

372F 

C9 

RET 



INT HL:=HL+DE 

IN : HL: Integerargl, 2er Kompl. 

DE: Integerarg2, 2er Kompl. 
OUT: HL:=HL+DE 

CY:=0 um ADC f. Parity ermögl. 
2er Kompl. Integer addieren 
CY:=1 f. o.k. 

kein Überlauf? dann o.k., raus 
sonst Z:=0, CY:=0 f. Fehler 
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********************************** iNy Hl:=DE-HL 

IN : HL: Integerargl, 2er Kompl. 

DE: Integerarg2, 2er Kompl. 
OUT: HL:=DE-HL 

3730 EB EX DE,HL 


********************************** 


3731 

B7 

OR 

A 

3732 

ED 52 

SBC 

HL,DE 

3734 

37 

SCF 


3735 

E0 

RET 

PO 

3736 

F6 FF 

OR 

FF 

3738 

C9 

RET 



INT HL:=HL-DE 

IN : HL: Integerargl, 2er Kompl. 

DE: Integerarg2, 2er Kompl. 
OUT: HL:=HL-DE 
CY:=0 f. SBC 
Argumente subtrahieren 
CY:=1 f. o.k. 

kein Überlauf? dann o.k., raus 
sonst Z:=0, CY:=0 f. Fehler 


********************************** 


3739 

CD 

45 

37 

CALL 

3745 

373c 

CD 

50 

37 

CALL 

3750 

373F 

D2 

15 

37 

JP 

NC,3715 

3742 

F6 

FF 


OR 

FF 

3744 

C9 



RET 



INT HL:=HL*DE 

IN : HL: Integerargl, 2er Kompl. 

DE: Integerarg2, 2er Kompl. 
OUT: HL:=ABS(HL)*ABS(DE) 

B:Vorzeichen d. Ergebnisses 
Ergebnisvorz. u. Absolutwerte 
Vorzeichenlose Multiplikation 
kein Überl.? d. in 2er Kompl. 
sonst Z:=0, CY:=0 f. Fehler 


********************************** 


3745 

7C 



LD 

A, H 

3746 

AA 



XOR 

D 

3747 

47 



LD 

B,A 

3748 

EB 



EX 

DE,HL 

3749 

CD 

Dl 

37 

CALL 

37D1 

374 C 

EB 



EX 

DE,HL 

374D 

C3 

Dl 

37 

JP 

37D1 


Vorz. d. Ergebn. bestimmen 
IN : HL: Integer, 2er Kompl. 

DE: Integer, 2er Kompl. 
OUT: HL:=ABS(HL) 

DE:=ABS(DE) 

B: Vorzeichenvergleich 
Vorz. Intl 

mit Vorz. Int2 vergleichen 
und Verleichsergbenis nach B 
Integer 2 

Absolutwert bilden 
Integer 1 

Absolutwert bilden, raus 


********************************** 


3750 

7C 

LD 

A,H 

3751 

B7 

OR 

A 

3752 

28 05 

JR 

Z,3759 

3754 

7A 

LD 

A,D 

3755 

B7 

OR 

A 

3756 

37 

SCF 


3757 

CO 

RET 

NZ 

3758 

EB 

EX 

DE.HL 

3759 

B5 

OR 

L 

375A 

C8 

RET 

Z 

375B 

7A 

LD 

A,D 


vorzeichenlose Multiplikation 
IN : HL: unsigned Integer, Intl 

DE: unsigned Integer, Int2 

OUT: HL: unsigned Integer, Erg. 

CY=1, wenn Fehler 
Hi-Byte Intl 
Null? 
dann o.k. 

Hi-Byte Int2 
gleich Null? 

CY:=1 f. Fehler, wenn 

beide Hi-Bytes<>0? dann Fehler 

Byteoperand nach HL 

Lo-Byte auch Null? 

dann Erg:=0, raus 

Hi-Byte Wordoperand 
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375 C 

B3 


OR 

E 

375D 

7D 


LD 

A,L 

375E 

6B 


LD 

L,E 

375 F 

62 


LD 

H,D 

3760 

C8 


RET 

Z 

3761 

FE 

03 

CP 

03 

3763 

38 

10 

JR 

C,3775 

3765 

37 


SCF 


3766 

8F 


ADC 

A 

3767 

30 

FD 

JR 

NC,3766 

3769 

29 


ADD 

HL,HL 

376A 

D8 


RET 

C 

376B 

87 


ADD 

A 

376C 

30 

02 

JR 

NC,3770 

376E 

19 


ADD 

HL,DE 

376F 

D8 


RET 

C 

3770 

FE 

80 

CP 

80 

3772 

20 

F5 

JR 

NZ,3769 

3774 

C9 


RET 


3775 

FE 

01 

CP 

01 

3777 

C8 


RET 

Z 

3778 

29 


ADD 

HL,HL 

3779 

C9 


RET 



Lo-Byte Wordoperand 
Byteoperand retten 
Wordoperand 
nach HL 

=0? d. Erg.:=0, raus 
ZahLI 

<3? dann speziell behandeln 
CY:=1 als Byteende-Markierung 
Byteoperanden bitweise in CY 
bis zum ersten 1-Bit 
lfd. Ergebnis verdoppeln 
Überlauf? dann raus 
lfd. Bit d. Bitoperanden 
nicht gesetzt? dann weiter 
sonst Byteoperand addieren 
Überlauf? dann Fehler, raus 
Byteende erreicht? 
sonst nächstes Bit bearbeiten 


Byteoperand=1? 
d. Erg: = Wordoperand 
sonst Erg.:=Wordoperand*2 


*********************** **** ******* 


377A CD 89 37 
377D DA 15 37 
3780 C9 


CALL 3789 
JP C,3715 
RET 


INT HL:=HL DIV DE 

IN : HL: Integerl, 2er Kompl. 

DE: Integer2, 2er Kompl. 
OUT: HL:=HL DIV DE, 2er Kompl. 
CY=0 f. Fehler 
Z=1: 'division by zero 1 
Z=0: 'overflow 1 
Division 

o.k.? d. Vorz. in B übernehm. 


********************************** 


3781 

4C 

LD 

C, H 

3782 

CD 89 37 

CALL 

3789 

3785 

EB 

EX 

DE,HL 

3786 

41 

LD 

B,C 

3787 

18 F4 

JR 

377D 


INT HL:=HL MOD DE 

IN : HL: Integerl, 2er Kompl. 

DE: Integer2, 2er Kompl. 
OUT: HL:=HL MOD DE, 2er Kompl. 
Vorz. d. Dividenden retten 
Division 

Rest der Division nach HL 
Vorzeichen d. Dividenden 
in Rest übernehmen, wenn o.k. 


********************************** 


CALL 3745 


INT Division 

IN : HL: Integerl, 2er Kompl. 

DE: Integer2, 2er kompl. 

OUT: HL:=ABS(HL DIV DE) 
DE:=ABS(HL MOD DE) 

B: Vorzeichen d. Quotienten 
Z=1, f. "division by zero" 
Vorz. d. Ergehn, nach B 


3789 CD 45 37 
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********************************** 


378C 

7A 


LD 

A,D 

378D 

B3 


OR 

E 

378E 

C8 


RET 

Z 

378F 

C5 


PUSH 

BC 

3790 

EB 


EX 

DE,HL 

3791 

06 

01 

LD 

B,01 

3793 

7C 


LD 

A, H 

3794 

B7 


OR 

A 

3795 

20 

09 

JR 

NZ.37A0 

3797 

7A 


LD 

A,D 

3798 

BD 


CP 

L 

3799 

38 

05 

JR 

C,37A0 

379B 

65 


LD 

HjL 

379C 

2E 

00 

LD 

L,00 

379E 

06 

09 

LD 

B, 09 

37A0 

7B 


LD 

A,E 

37A1 

95 


SUB 

L 

37A2 

7A 


LD 

A/D 

37A3 

9C 


SBC 

H 

37A4 

38 

05 

JR 

C.37AB 

37A6 

04 


INC 

B 

37A7 

29 


ADD 

HL,HL 

37A8 

30 

F6 

JR 

NC,37A0 

37AA 

3F 


CCF 


37AB 

3F 


CCF 


37AC 

78 


LD 

A,B 

37AD 

44 


LD 

B,H 

37AE 

4D 


LD 

C,L 

37AF 

21 

00 00 

LD 

HL,0000 

37B2 

3D 


DEC 

A 

37B3 

20 

03 

JR 

NZ,37B8 

37B5 

18 

17 

JR 

37CE 

37B7 

29 


ADD 

HL,HL 

37B8 

F5 


PUSH 

AF 

37B9 

78 


LD 

A,B 

37BA 

1F 


RRA 


37BB 

47 


LD 

B,A 

37BC 

79 


LD 

A.C 

37BD 

1F 


RRA 


37BE 

4F 


LD 

C.A 

37BF 

7B 


LD 

A,E 

37C0 

91 


SUB 

C 

37C1 

7k 


LD 

A,D 

37C2 

98 


SBC 

B 

37C3 

38 

05 

JR 

C,37CA 

37C5 

57 


LD 

D,A 

37C6 

7B 


LD 

A,E 

37C7 

91 


SUB 

C 

37C8 

5F 


LD 

E/A 

37C9 

2C 


INC 

L 

37CA 

Fl 


POP 

AF 

37CB 

3D 


DEC 

A 


INT vorzeichenlose Division 
IN : HL: Integerl, unsigned 
DE: Integer2 # unsigned 
OUT: HL:=HL DIV DE 
DE:=HL MOD DE 

Z=1, f. "division by zero" 

Divisor 

= 0 ? 

d. Flag f. "division by zero" 

Vorz. d. Ergebn. retten 

Argunente vertauschen 

Bitzähler 

Hi-Byte Int2 

<> 0 ? 

d. bitweise shiften 
Hi-Byte d. Int1 
Lo-Byte Int2 davon abziehbar 
sonst bitweise shiften 
sonst Divisor bereits um 
1 Byte linksverschieben 
und Bitzähler entspr. setzen 
Divisor 

vom Dividend abziehbar? 


sonst raus aus der Schleife 
Bitzähler erhöhen 
Divisor versch., b. Int1<Int2 
und, wenn o.k., nochmals prüf. 


Zähler f. Linksverschiebungen 
neuer Divisor nach BC 

lfd. Ergebnis zurücksetzen 
Bitzähler 

<>0? dann normal anfangen 
sonst Dividend<Divisor, raus 
Ergebnis mit 2 multiplizier. 
Zähler retten 
Divisor 
un 1 Bit 
nach rechts 
verschieben 


und mit Rest 
vergleichen 


Divisor kleiner? dann weiter 
sonst 

Rest:=Rest-Divisor 


und bO d. lfd. Erg. setzen 

Bitzähler 

herunterzäh len 
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37CC 

20 E9 

JR 

NZ,3787 

37CE 

37 

SCF 


37CF 

CI 

POP 

BC 

37D0 

C9 

RET 



********************************** 


37D1 

7C 

LD 

A,H 

37D2 

B7 

OR 

A 

37D3 

FO 

RET 

P 


********************************** 


37D4 

AF 

XOR 

A 

37D5 

95 

SU8 

L 

37D6 

6F 

LD 

L/A 

37D7 

9C 

SBC 

H 

37D8 

95 

SUB 

L 

37D9 

BC 

CP 

H 

37DA 

67 

LD 

H, A 

37DB 

37 

SCF 


37DC 

C0 

RET 

NZ 

37DD 

FE 01 

CP 

01 

37DF 

C9 

RET 



********************************** 


37E0 

7C 

LD 

A,H 

37E1 

87 

ADD 

A 

37E2 

9F 

SBC 

A 

37E3 

D8 

RET 

C 

37E4 

B5 

OR 

L 

37E5 

C8 

RET 

Z 

37E6 

AF 

XOR 

A 

37E7 

3C 

INC 

A 

37E8 

C9 

RET 



********************************** 


37E9 

7C 


LD 

A, H 

37EA 

AA 


XOR 

D 

37EB 

7C 


LD 

A.H 

37EC 

F2 

F4 37 

JP 

P.37F4 

37EF 

87 


ADD 

A 

37F0 

9F 


SBC 

A 

37F1 

D8 


RET 

C 

37F2 

3C 


INC 

A 

37F3 

C9 


RET 


37F4 

BA 


CP 

D 

37F5 

20 

F9 

JR 

NZ.37F0 


<>0? dann nochmal durchlaufen 
sonst CY:=1 f. o.k. 

Vorz. d. Ergebnisses 


INT HL:=ABS(HL) 

IN : HL: Integer, 2er Kompl. 

OUT: HL:=ABS(HL), 2er Kompl. 
Vorzeichen d. Integers 
testen 

zurück, wenn Zahl positiv 
INT HL:=-HL 

IN : HL: Integer, 2er Kompl. 

OUT: HL:=-HL, 2er Kompl. 
Zweierkomplement 
der beiden 
Bytes des Integers 
bi Iden 

(neues Hi-8yte=altes Hi-Byte?) 


wenn Hi-Byte verändert, zurück 
sonst CY:=0 f. Überl. b. $8000 


INT A:=SGN(HL) 

IN : HL: Integer,2er Kompl. 
OUT: A:=SGN(HL) 

Hi-Byte 

Vorzeichen ins Carry 

und von dort in ganzen Akku 

Integer negativ? d. A:=$FF 

Integer nuLl? 

dann A:=0, raus 

sonst 

A:=01 f. Integer positiv 


INT Vergleich HL-DE 

IN : HL: Integerl, 2er Kompl. 

DE: Integer2, 2er Kompl. 

OUT: A:=$01, Int1>Int2 
A:=$00, Int1=Int2 
A:=$FF, Int1<Int2 
(A:=SGN(HL-DE)) 

Vorzeichen 
vergleichen 
Vorzeichen Intl 

Vorz. gleich? d. entspr. ausw. 
sonst (Vorzeichen ungl.) 

Vorz. Intl in ganz A und CY 
CY=1 bzw. A=$FF? dann raus 
sonst A:=1 setzen 

Hi-Bytes vergleichen 
ungleich? dann raus, CY->A 
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37F7 

7D 

LD 

A.L 

Lo'Bytes 

37F8 

93 

SUB 

E 

vergleichen 

37F9 

20 F5 

JR 

NZ,37F0 

ungleich? dann raus 

37FB 

C9 

RET 


sonst gleich, A:=00 

37FC 

C7 

RST 

00 


37FD 

C7 

RST 

00 


37FE 

C7 

RST 

00 


37FF 

01 





Der Zeichensatz 


3800 

FF 

3801 

C3 

3802 

C3 

3803 

C3 

3804 

C3 

3805 

C3 

3806 

C3 

3807 

FF 


3808 

FF 

3809 

CO 

380A 

CO 

380B 

CO 

380C 

CO 

380D 

CO 

380E 

CO 

380F 

CO 


3810 

18 

3811 

18 

3812 

18 

3813 

18 

3814 

18 

3815 

18 

3816 

18 

3817 

FF 


3818 

03 

3819 

03 

381A 

03 

381B 

03 

381C 

03 

38 ID 

03 

381E 

03 

381F 

FF 


CHR$(0) 

I I I I I I 


CHR$(1) 

i i i i i i i i 


CHR$(2) 


i i i i i i 11 


CHR$(3) 


i i i i i i 
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3820 

OC 

3821 

18 

3822 

30 

3823 

7E 

3824 

OC 

3825 

18 

3826 

30 

3827 

00 


3828 

FF 

3829 

C3 

382A 

E7 

382B 

DB 

382C 

DB 

382D 

E7 

382E 

C3 

382 F 

FF 


3830 

00 

3831 

01 

3832 

03 

3833 

06 

3834 

CC 

3835 

78 

3836 

30 

3837 

00 

3838 

3C 

3839 

66 

383A 

C3 

383B 

C3 

383C 

FF 

383D 

24 

383E 

E7 

383 F 

00 


3840 

00 

3841 

00 

3842 

30 

3843 

60 

3844 

FF 

3845 

60 

3846 

30 

3847 

00 


CHR$(4) 

I I 


I I I I I I 


I I 
I I 


CHR$(5) 

11 i i 11 

i k 

iii i 

ii ii 
ii ii 

i i i i 
i i 

i i i i i i 

CHR$(6) 


11 
i i 

ii ii 
iiii 

i i 


CHR$(7) 

llll 
II II 


I I I I I I I I 
I I 

III III 


CHR$(8) 


11 


11111 i i i 
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CHR$(9) 


3848 

00 

3849 

00 

384A 

oc 

384 B 

06 

384C 

FF 

384D 

06 

384E 

OC 

384 F 

00 


CHRS(IO) 


3850 

18 

1 1 

3851 

18 

1 1 

3852 

18 

1 1 

3853 

18 

1 1 

3854 

DB 

II 11 

3855 

7E 

1 1 1 1 

3856 

3C 

1 I 1 

3857 

18 

1 1 


CHRSC11) 


3858 

18 

1 1 

3859 

3C 

1 1 1 

385A 

7E 

1111 

385B 

DB 

II II 

385C 

18 

1 1 

385D 

18 

1 1 

385E 

18 

1 1 

385 F 

18 

1 1 


CHR$(12) 


3860 

18 

1 1 

3861 

5A 

I 1 1 

3862 

3C 

1 1 f 

3863 

99 

1 1 1 

3864 

DB 

II II 

3865 

7 E 

1 1 1 f 

3866 

3C 

K 1 1 

3867 

18 

1 1 


CHR$(13) 


3868 

00 


3869 

03 


386A 

33 

1 1 

386B 

63 

1 1 

386C 

FE 

<1111 

3860 

60 

1 1 

386E 

30 

1 1 

386F 

00 
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3870 

3C 

3871 

66 

3872 

FF 

3873 

DB 

3874 

DB 

3875 

FF 

3876 

66 

3877 

3C 


3878 

3C 

3879 

66 

387A 

C3 

387B 

DB 

387C 

DB 

387D 

C3 

387E 

66 

387F 

3C 


3880 

FF 

3881 

C3 

3882 

C3 

3883 

FF 

3884 

C3 

3885 

C3 

3886 

C3 

3887 

FF 


3888 

3C 

3889 

7E 

388A 

DB 

388B 

DB 

388C 

DF 

388D 

C3 

388E 

66 

388 F 

3C 


3890 

3C 

3891 

66 

3892 

C3 

3893 

DF 

3894 

DB 

3895 

DB 

3896 

7E 

3897 

3C 


CHR$(14) 

I I I I 


CHR$(15) 

i i i i 
ii ii 


ii ii ii 
ii ii ii 
ii ii 


CHR$(16) 

i i i i i i 


i i i i 


i i 11 m i i 

CHR$(17) 

iiii 
111 m i 

ii ii ii 

ii ii ii 
ii iiiii 
ii ii 

ii ii 

llll 

CHR$(18) 

iiii 
ii ii 
ii ii 

ii iiiii 
ii ii ii 
ii ii ii 

i i i i i i 


iiii 
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3898 

3C 

3899 

66 

389A 

C3 

389B 

FB 

389C 

DB 

389D 

DB 

389E 

7E 

389F 

3C 


38A0 

3C 

38A1 

7E 

38A2 

DB 

38A3 

DB 

38A4 

FB 

38A5 

C3 

38A6 

66 

38A7 

3C 


38A8 

00 

38A9 

01 

38AA 

33 

38AB 

IE 

38AC 

CE 

38AD 

7B 

38AE 

31 

38AF 

00 


38B0 

7E 

38B1 

66 

38B2 

66 

38B3 

66 

38B4 

66 

38B5 

66 

38B6 

66 

38B7 

E7 


38B8 

03 

38B9 

03 

38BA 

03 

38BB 

FF 

38BC 

03 

38BD 

03 

38BE 

03 

38BF 

00 


CHRSC19) 

rill 
ii ii 
ii ii 

i t i i i ii 

ii ii ii 
ii ii ii 

i t i i i i 
i i i i 


CHR$(20) 

1111 

I I I I I I 
II II II 
II II II 

I I I I I II 

II II 

II II 
I I I I 


CHRSC21) 


ii ii 

11 i i 

ii iii 
i i i i ii 


CHR$(22) 

i i 11 


CHR$(23) 


i 111 i i 
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38C0 

FF 

38C1 

66 

38C2 

3C 

38C3 

18 

38C4 

18 

38C5 

3C 

38C6 

66 

38C7 

FF 


38C8 

18 

38C9 

18 

38CA 

3C 

38CB 

3C 

38CC 

3C 

38CD 

3C 

38CE 

18 

38CF 

18 


38D0 

3C 

3801 

66 

38D2 

66 

38D3 

30 

38D4 

18 

38D5 

00 

38D6 

18 

38D7 

00 


38D8 

3C 

38D9 

66 

38DA 

C3 

38DB 

FF 

38DC 

C3 

38DD 

C3 

38DE 

66 

38DF 

3C 


38E0 

FF 

38E1 

DB 

38E2 

DB 

38E3 

DB 

38E4 

FB 

38E5 

C3 

38E6 

C3 

38E7 

FF 


CHR$(24) 

I I I I I I 1 I 
II II 
I I I I 
I I 

I I 

Mil 
I I II 
I I I II I I I 

CHR$(25) 

II 
11 

1111 
1111 
1111 
1111 
11 
i i 

CHR$(26) 

111 i 
ii ii 
ii ii 


i i 


CHR$(27) 

I I M 
II II 
II II 

I I I I I I I I 

II II 

II II 

II II 
I I I I 

CHR$(28) 

.. 

ii ii ii 
ii ti ii 
ii ii ii 
i i 111 ii 


1111 
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CHR$(29) 


38E8 

FF 








1 1 1 1 1 

1 I 

38E9 

C3 








1 1 

1 1 

38EA 

C3 








1 1 

1 1 

38EB 

FB 








1 1 1 1 1 

1 1 

38EC 

DB 








II II 

1 1 

38ED 

OB 








II II 

1 1 

38EE 

DB 








II II 

1 1 

38EF 

FF 








1 f 1 1 1 

1 1 


— 








CHR$(30) 


38F0 

FF 








1 1 1 1 1 

1 1 

38F1 

C3 








1 1 

1 1 

38F2 

C3 








1 1 

1 1 

38F3 

DF 








11 II 

1 1 

38F4 

DB 








11 II 

1 1 

38F5 

DB 








II II 

1 1 

38F6 

DB 








II II 

1 1 

38F7 

FF 








1 1 1 1 1 

1 1 





... 





CHR$(31) 


38F8 

FF 








1 t 1 1 1 

1 1 

38F9 

DB 








II II 

1 1 

38FA 

DB 








II II 

1 1 

38FB 

DB 








II II 

1 1 

38FC 

DF 








II III 

1 1 

38FD 

C3 








1 1 

1 1 

38 FE 

C3 








1 1 

1 1 

38FF 

FF 








1 1 1 1 1 

1 1 

3900 

00 

00 

00 

00 

00 

00 

00 

00 



3908 

18 

18 

18 

18 

18 

00 

18 

00 



3910 

6C 

6C 

6C 

00 

00 

00 

00 

00 



3918 

6C 

6C 

FE 

6C 

FE 

6C 

6C 

00 



3920 

18 3E 

58 3C 

1A 

7C 

18 

00 



3928 

00 

C6 

CC 

18 

30 

66 

C6 

00 



3930 

38 

6C 

38 

76 

DC 

CC 76 

00 



3938 

18 

18 30 

00 

00 

00 

00 

00 



3940 

OC 

18 

30 

30 

30 

18 

OC 

00 



3948 

30 

18 

OC 

OC 

OC 

18 

30 

00 



3950 

00 

66 3C 

FF 

3C 

66 

00 

00 



3958 

00 

18 

18 

7E 

18 

18 

00 

00 



3960 

00 

00 

00 

00 

00 

18 

18 

30 



3968 

00 

00 

00 

7E 

00 

00 

00 

00 



3970 

00 

00 

00 

00 

00 

18 

18 

00 



3978 

06 

OC 

18 30 

60 

CO 

80 

00 



3980 

7C 

C6 

CE 

D6 

E6 

C6 

7C 

00 



3988 

18 

38 

18 

18 

18 

18 

7E 

00 



3990 

3C 

66 

06 3C 

60 

66 

7E 

00 



3998 

3C 

66 

06 

IC 

06 

66 3C 

00 



39A0 

IC 

3C 

6C 

CC 

FE 

OC 

IE 

00 



39A8 

7E 

62 

60 

7C 

06 

66 

3C 

00 



39B 0 

3C 

66 

60 

7C 

66 

66 3C 

00 



39B8 

7E 

66 

06 

OC 

18 

18 

18 

00 



39C0 

3C 

66 66 3C 

66 66 3C 

00 



39C8 

3C 

66 

66 3E 

06 

66 3C 

00 



3900 

00 

00 

18 

18 

00 

18 

18 

00 



3908 

00 

00 

18 

18 

00 

18 

18 30 



39E0 

OC 

18 30 

60 

30 

18 

OC 

00 
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39E8 

00 

00 

7E 

00 

00 

7E 

00 

00 

39F0 

60 

30 

18 

OC 

18 

30 

60 

00 

39F8 

3C 

66 

66 

OC 

18 

00 

18 

00 

3A00 

7 C 

C6 

DE 

DE 

DE 

CO 

7C 

00 

3A08 

18 

3C 

66 

66 

7E 

66 

66 

00 

3A10 

FC 

66 

66 

7C 

66 

66 

FC 

00 

3A18 

3C 

66 

CO 

CO 

CO 

66 

3C 

00 

3A20 

F8 

6C 

66 

66 

66 

6C 

F8 

00 

3A28 

FE 

62 

68 

78 

68 

62 

FE 

00 

3A30 

FE 

62 

68 

78 

68 

60 

FO 

00 

3A38 

3C 

66 

CO 

CO 

CE 

66 

3E 

00 

3A40 

66 

66 

66 

7E 

66 

66 

66 

00 

3A48 

7E 

18 

18 

18 

18 

18 

7E 

00 

3A50 

IE 

OC 

OC 

OC 

CC 

CC 

78 

00 

3A58 

E6 

66 

6C 

78 

6C 

66 

E6 

00 

3A60 

F0 

60 

60 

60 

62 

66 

FE 

00 

3A68 

C6 

EE 

FE 

FE 

D6 

C6 

C6 

00 

3A70 

C6 

E6 

F6 

DE 

CE 

C6 

C6 

00 

3A78 

38 

6C 

C6 

C6 

C6 

6C 

38 

00 

3A80 

FC 

66 

66 

7C 

60 

60 

FO 

00 

3A88 

38 

6C 

C6 

C6 

DA 

CC 

76 

00 

3A90 

FC 

66 

66 

7C 

6C 

66 

E6 

00 

3A98 

3C 

66 

60 

3C 

06 

66 

3C 

00 

3AA0 

7E 

5A 

18 

18 

18 

18 

3C 

00 

3AA8 

66 

66 

66 

66 

66 

66 

3C 

00 

3AB0 

66 

66 

66 

66 

66 

3C 

18 

00 

3AB8 

C6 

C6 

C6 

D6 

FE 

EE 

C6 

00 

3AC0 

C6 

6C 

38 

38 

6C 

C6 

C6 

00 

3AC8 

66 

66 

66 

3C 

18 

18 

3C 

00 

3AD0 

FE 

C6 

8C 

18 

32 

66 

FE 

00 

3AD8 

3C 

30 

30 

30 

30 

30 

3C 

00 

3AE0 

CO 

60 

30 

18 

OC 

06 

02 

00 

3AE8 

3C 

OC 

OC 

OC 

OC 

OC 

3C 

00 

3AF0 

18 

3C 

7E 

18 

18 

18 

18 

00 

3AF8 

00 

00 

00 

00 

00 

00 

00 

FF 

3B00 

30 

18 

OC 

00 

00 

00 

00 

00 

3B08 

00 

00 

78 

OC 

7C 

CC 

76 

00 

3B10 

EO 

60 

7C 

66 

66 

66 

DC 

00 

3B18 

00 

00 

3C 

66 

60 

66 

3C 

00 

3B20 

IC 

OC 

7C 

CC 

CC 

CC 

76 

00 

3B28 

00 

00 

3C 

66 

7E 

60 

3C 

00 

3B30 

IC 

36 

30 

78 

30 

30 

78 

00 

3B38 

00 

00 

3E 

66 

66 

3E 

06 

7C 

3B40 

EO 

60 

6C 

76 

66 

66 

E6 

00 

3B48 

18 

00 

38 

18 

18 

18 

3C 

00 

3B50 

06 

00 

OE 

06 

06 

66 

66 

3C 

3B58 

EO 

60 

66 

6C 

78 

6C 

E6 

00 

3B60 

38 

18 

18 

18 

18 

18 

3C 

00 

3B68 

00 

00 

6C 

FE 

D6 

D6 

C6 

00 

3B70 

00 

00 

DC 

66 

66 

66 

66 

00 

3B78 

00 

00 

3C 

66 

66 

66 

3C 

00 

3B80 

00 

00 

DC 

66 

66 

7C 

60 

FO 

3B88 

00 

00 

76 

CC 

CC 

7C 

OC 

IE 

3B90 

00 

00 

DC 

76 

60 

60 

FO 

00 

3B98 

00 

00 

3C 

60 

3C 

06 

7C 

00 

3BA0 

30 

30 

7C 

30 

30 

36 

IC 

00 

3BA8 

00 

00 

66 

66 

66 

66 

3E 

00 

3BB0 

00 

00 

66 

66 

66 

3C 

18 

00 
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3BB8 00 00 C6 D6 D6 FE 6C 00 

3BC0 00 00 C6 6C 38 6C C6 00 

3BC8 00 00 66 66 66 3E 06 7C 

3BD0 00 00 7E 4C 18 32 7E 00 

3BD8 OE 18 18 70 18 18 OE 00 

3BE0 18 18 18 18 18 18 18 00 

3BE8 70 18 18 OE 18 18 70 00 

3BF0 76 DC 00 00 00 00 00 00 

3BF8 CC 33 CC 33 CC 33 CC 33 

3C00 00 00 00 00 00 00 00 00 

3C08 FO FO FO FO 00 00 00 00 

3C10 OF OF OF OF 00 00 00 00 

3C18 FF FF FF FF 00 00 00 00 

3C20 00 00 00 00 FO FO FO FO 

3C28 FO FO FO FO FO FO FO FO 

3C30 OF OF OF OF FO FO FO FO 

3C38 FF FF FF FF FO FO FO FO 

3C40 00 00 00 00 OF OF OF OF 

3C48 FO FO FO FO OF OF OF OF 

3C50 OF OF OF OF OF OF OF OF 

3C58 FF FF FF FF OF OF OF OF 

3C60 00 00 00 00 FF FF FF FF 

3C68 FO FO FO FO FF FF FF FF 

3C70 OF OF OF OF FF FF FF FF 

3C78 FF FF FF FF FF FF FF FF 

3C80 00 00 00 18 18 00 00 00 

3C88 18 18 18 18 18 00 00 00 

3C90 00 00 00 1F 1F 00 00 00 

3C98 18 18 18 1F OF 00 00 00 

3CAO 00 00 00 18 18 18 18 18 

3CA8 18 18 18 18 18 18 18 18 

3CB0 00 00 00 OF 1F 18 18 18 

3CB8 18 18 18 1F 1F 18 18 18 

3CC0 00 00 00 F8 F8 00 00 00 

3CC8 18 18 18 F8 FO 00 00 00 

3CD0 00 00 00 FF FF 00 00 00 

3CD8 18 18 18 FF FF 00 00 00 

3CE0 00 00 00 FO F8 18 18 18 

3CE8 18 18 18 F8 F8 18 18 18 

3CF0 00 00 00 FF FF 18 18 18 

3CF8 18 18 18 FF FF 18 18 18 

3D00 10 38 6C C6 00 00 00 00 

3D08 OC 18 30 00 00 00 00 00 

3D10 66 66 00 00 00 00 00 00 

3D18 3C 66 60 F8 60 66 FE 00 

3D20 38 44 BA A2 BA 44 38 00 

3D28 7E F4 F4 74 34 34 34 00 

3D30 IE 30 38 6C 38 18 FO 00 

3D38 18 18 OC 00 00 00 00 00 

3D40 40 CO 44 4C 54 iE 04 00 

3D48 40 CO 4C 52 44 08 IE 00 

3D50 EO 10 62 16 EA OF 02 00 

3D58 00 18 18 7E 18 18 7E 00 

3D60 18 18 00 7E 00 18 18 00 

3D68 00 00 00 7E 06 06 00 00 

3D70 18 00 18 30 66 66 3C 00 

3D78 18 00 18 18 18 18 18 00 

3D80 00 00 73 DE CC DE 73 00 
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3D88 

7C 

C6 

C6 

FC 

C6 

C6 

F8 

CO 

3D90 

00 

66 

66 

3C 

66 

66 

3C 

00 

3D98 

3C 

60 

60 

3C 

66 

66 

3C 

00 

3DA0 

00 

00 

IE 

30 

7C 

30 

IE 

00 

3DA8 

38 

6C 

C6 

FE 

C6 

6C 

38 

00 

3DB0 

00 

CO 

60 

30 

38 

6C 

C6 

00 

3DB8 

00 

00 

66 

66 

66 

7C 

60 

60 

3DC0 

00 

00 

00 

FE 

6C 

6C 

6C 

00 

3DC8 

00 

00 

00 

7E 

D8 

D8 

70 

00 

3DD0 

03 

06 

OC 

3C 

66 

3C 

60 

CO 

3DD8 

03 

06 

OC 

66 

66 

3C 

60 

CO 

3DE0 

00 

E6 

3C 

18 

38 

6C 

C7 

00 

3DE8 

00 

00 

66 

C3 

DB 

DB 

7E 

00 

3DF0 

FE 

C6 

60 

30 

60 

C6 

FE 

00 

3DF8 

00 

7C 

C6 

C6 

C6 

6C 

EE 

00 

3E00 

18 

30 

60 

CO 

80 

00 

00 

00 

3E08 

18 

OC 

06 

03 

01 

00 

00 

00 

3E10 

00 

00 

00 

01 

03 

06 

OC 

18 

3E18 

00 

00 

00 

80 

CO 

60 

30 

18 

3E20 

18 

3C 

66 

C3 

81 

00 

00 

00 

3E28 

18 

OC 

06 

03 

03 

06 

OC 

18 

3E30 

00 

00 

00 

81 

C3 

66 

3C 

18 

3E38 

18 

30 

60 

CO 

CO 

60 

30 

18 

3E40 

18 

30 

60 

Ci 

83 

06 

OC 

18 

3E48 

18 

OC 

06 

83 

CI 

60 

30 

18 

3E50 

18 

3C 

66 

C3 

C3 

66 

3C 

18 

3E58 

C3 

E7 

7E 

3C 

3C 

7E 

E7 

C3 

3E60 

03 

07 

OE 

IC 

38 

70 

EO 

CO 

3E68 

CO 

EO 

70 

38 

IC 

OE 

07 

03 

3E70 

CC 

CC 

33 

33 

CC 

CC 

33 

33 

3E78 

AA 

55 

AA 

55 

AA 

55 

AA 

55 

3E80 

FF 

FF 

00 

00 

00 

00 

00 

00 

3E88 

03 

03 

03 

03 

03 

03 

03 

03 

3E90 

00 

00 

00 

00 

00 

00 

FF 

FF 

3E98 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

CO 

3EA0 

FF 

FE 

FC 

F8 

FO 

EO 

CO 

80 

3EA8 

FF 

7F 

3F 

1F 

OF 

07 

03 

01 

3EB0 

01 

03 

07 

OF 

1F 

3F 

7F 

FF 

3EB8 

80 

CO 

EO 

FO 

F8 

FC 

FE 

FF 

3EC0 

AA 

55 

AA 

55 

00 

00 

00 

00 

3EC8 

OA 

05 

OA 

05 

OA 

05 

OA 

05 

3ED0 

00 

00 

00 

00 

AA 

55 

AA 

55 

3ED8 

AO 

50 

AO 

50 

AO 

50 

AO 

50 

3EE0 

AA 

54 

A8 

50 

AO 

40 

80 

00 

3EE8 

AA 

55 

2A 

15 

OA 

05 

02 

01 

3EF0 

01 

02 

05 

OA 

15 

2A 

55 

AA 

3EF8 

00 

80 

40 

AO 

50 

A8 

54 

AA 

3F00 

7E 

FF 

99 

FF 

BD 

C3 

FF 

7E 

3F08 

7E 

FF 

99 

FF 

C3 

BD 

FF 

7E 

3 F10 

38 

38 

FE 

FE 

FE 

10 

38 

00 

3F18 

10 

38 

7C 

FE 

7C 

38 

10 

00 

3F20 

6C 

FE 

FE 

FE 

7C 

38 

10 

00 

3F28 

10 

38 

7C 

FE 

FE 

10 

38 

00 

3F30 

00 

3C 

66 

C3 

C3 

66 

3C 

00 

3F38 

00 

3C 

7E 

FF 

FF 

7E 

3C 

00 

3F40 

00 

7E 

66 

66 

66 

66 

7E 

00 

3F48 

00 

7E 

7E 

7E 

7E 

7E 

7E 

00 

3F50 

OF 

07 

OD 

78 

CC 

CC 

CC 

78 
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3F58 

3C 

66 

66 

66 

3C 

18 

7E 

18 

3F60 

OC 

OC 

OC 

OC 

OC 

3C 

7C 

38 

3F68 

18 

IC 

IE 

1B 

18 

78 

F8 

70 

3F70 

99 

5A 

24 

C3 

C3 

24 

5A 

99 

3F78 

10 

38 

38 

38 

38 

38 

7C 

D6 

3F80 

18 

3C 

7E 

FF 

18 

18 

18 

18 

3F88 

18 

18 

18 

18 

FF 

7E 

3C 

18 

3F90 

10 

30 

70 

FF 

FF 

70 

30 

10 

3F98 

08 

OC 

OE 

FF 

FF 

OE 

OC 

08 

3FA0 

00 

00 

18 

3C 

7E 

FF 

FF 

00 

3FA8 

00 

00 

FF 

FF 

7E 

3C 

18 

00 

3FB0 

80 

EO 

F8 

FE 

F8 

EO 

80 

00 

3FB8 

02 

OE 

3E 

FE 

3E 

OE 

02 

00 

3FC0 

38 

38 

92 

7C 

10 

28 

28 

28 

3FC8 

38 

38 

10 

FE 

10 

28 

44 

82 

3FD0 

38 

38 

12 

7C 

90 

28 

24 

22 

3FD8 

38 

38 

90 

7C 

12 

28 

48 

88 

3FE0 

00 

3C 

18 

3C 

3C 

3C 

18 

00 

3FE8 

3C 

FF 

FF 

18 

OC 

18 

30 

18 

3FF0 

18 

3C 

7E 

18 

18 

7E 

3C 

18 

3FF8 

00 

24 

66 

FF 

66 

24 

00 

00 
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6.1.2 Das CPC-464-Basic 

Das Basic-ROM des CPC ist nicht so klar unterteilt wie das Betriebssystem. 
Einheitlich ist hier die Parametrisierung der Routinen, die einen Befehl 
ausführen. Deshalb wird sie im Listing nicht bei jedem Befehl extra auf¬ 
geführt. Einem Befehl wird der Basic-Programmzeiger (Basic-PC), der auf 
das Zeichen nach dem Befehlstoken zeigt, in HL übergeben. Das Zeichen 
nach dem Befehlstoken wird im Akku übergeben, und das Zero-Flag ist 
gesetzt, wenn das Statement direkt nach dem Befehlstoken zu Ende ist. Dies 
wird von einigen Befehlen zur Fehlererkennung benutzt: Ein RET NZ zu 
Beginn der Befehlsroutine garantiert, daß der Befehl auch nur dann ausge¬ 
führt wird, wenn keine weiteren Zeichen im Statement mehr folgen. Das 
Carry-Flag ist bei einem Befehls-Ansprung immer gelöscht. Die Interpre¬ 
terschleife erwartet von der Befehlsroutine in HL den Programmzeiger, der 
auf das Statementende zeigen muß oder Zeilenende). 

Ähnlich wie bei den Befehlen ist auch bei den Basic-Funktionen die Para¬ 
metrisierung nicht bei jeder Funktion einzeln angegeben. Die Funktionen 
des Basics sind in drei Gruppen aufgeteilt: Der Gruppe 1 (Tokens $00 bis 
$ 1D) wird lediglich das Argument im FAC übergeben. Das Resultat wird 
ebenfalls wieder im FAC erwartet. Bei Gruppe 2 (Tokens $40 bis $49) wird 
kein Argument, sondern der Basic-PC in HL übergeben. Zurückgeben 
müssen die Funktionen der Gruppe 2 das Ergebnis im FAC und den Basic- 
PC in HL. Für Gruppe 3 (Token $71 bis $7F) gilt die gleiche Parametrisie¬ 
rung wie für Gruppe 2. Der Unterschied zu Gruppe 2 besteht darin, daß 
vor dem Funktionsaufruf auf eine nach dem Token folgende Klammer auf 
geprüft und diese überlesen wird. 

Obwohl sich für die Operatoren des Basics entsprechende Betrachtungen 
anstellen ließen, haben wir die Parametrisierung hier jeweils einzeln 
aufgeführt. 
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********************************** 

COOO 80 

C001 01 00 

C003 00 

C004 4C C0 

********************************** 


C006 

31 

00 

C0 


LD 

SP.C000 

C009 

CD 

CB 

BC 


CALL 

BCCB 

cooc 

CD 

C4 

F4 


CALL 

F4C4 

C00F 

DA 

00 

00 


JP 

C.0000 

C012 

21 

00 

AC 


LD 

HL,AC00 

C015 

36 

00 



LD 

(HL),00 

C017 

06 

1B 



LD 

B,1B 

C019 

23 




INC 

HL 

C01A 

36 

C9 



LD 

(HL),C9 

C01C 

10 

FB 



DJNZ 

C019 

C01E 

21 

3F 

CO 


LD 

HL,C03F 

C021 

CD 

37 

C3 


CALL 

C337 

C024 

AF 




XOR 

A 

C025 

32 

00 

AC 


LD 

(AC00),A 

C028 

CD 

CB 

DD 


CALL 

DDCB 

C02B 

CD 

84 

CA 


CALL 

CA84 

C02E 

CD 

97 

BD 


CALL 

BD97 

C031 

CD 

D3 

CO 


CALL 

C0D3 

C034 

CD 

3E 

CI 


CALL 

C13E 

C037 

11 

F0 

00 


LD 

DE,00F0 

C03A 

CD 

06 

F7 


CALL 

F706 

C03D 

18 

25 



JR 

C064 

********************************** 

C03F 

20 

42 

41 

53 

49 43 

20 31 

C047 

2E 

30 

0A 

0A 

00 


********************************** 

C04C 

42 

41 

53 

49 

C3 00 


********************************** 

C052 

CD 

El 

CE 


CALL 

CEE1 

C055 

CO 




RET 

NZ 

C056 

31 

00 

CO 


LD 

SP,COOO 

C059 

CD 

9A 

E7 


CALL 

E79A 

C05C 

CD 

63 

El 


CALL 

El 63 

C05F 

CD 

43 

CA 


CALL 

CA43 

C062 

38 

54 



JR 

C,C0B8 


********************************** 


C064 

CD 

01 

AC 

CALL 

AC01 

C067 

31 

00 

CO 

LD 

SP,COOO 

C06A 

CD 

62 

CI 

CALL 

C162 

C06D 

CD 

D6 

DD 

CALL 

DDD6 

C070 

DC 

B6 

BC 

CALL 

C,BCB6 

C073 

CD 

48 

BB 

CALL 

BB48 

C0 76 

CD 

86 

C3 

CALL 

C386 

C079 

3A 

45 

AE 

LD 

A,(AE45) 

C07C 

B7 



OR 

A 


Kennz. für Vordergrund-ROM 
Version 1.0 

Zeiger auf "BASIC" 

Basic-Kaltstart 
IN : DE: LoRAM 
KL: Hi RAM 

Stackpointer initialisieren 
auf ROM-Erweiterungen prüfen 
RAM-Zeiger initialisieren 
kein Platz ? dann Kaltstart 
Zeiger auf Flag/User-Vektoren 
Flag f. Space-Unterdr. löschen 
Zahl der Bytes 
Zeiger in User-Vektoren-Tab. 
Opcode für RET in Tabelle 
weitere Bytes ? 

Zeiger auf " BASIC 1.0" 
ausgeben 

Flag f. Space-Unterdr. löschen 
Direkt-Modus einschalten 
Fehlernr. und -zeile init. 
Start-Seed-Wert für RND setzen 
AUTO abschalten 
NEW-Befehl 

Nr. des 1. User-Zeichens 
SYMBOL AFTER 240 
zur Eingabeschleife 

Meldung des Basics 

" BASIC 1.0",LF,LF 


Name des ROMs 

"BASI", "C"+$80 

Basic-Befehl ED IT 
Zeilennr. holen 
Statementende ? sonst Fehler 
Stackpointer fnitialisieren 
Zeile im Programm suchen 
Zeile nach ASCII wandeln 
und ausgeben, neue Zeile holen 
kein Abbruch ? dann auswerten 

Eingabeschleife 
User-Vektor 

St ackpoint er initialisieren 
Ausdruckauswertung & I/O init. 
Flag für Programm-Modus holen 
Programm ? dann SOUND HOLD 
Break-Taste verriegeln 
Bildschirm initialisieren 
Flag für geschütztes Programm 
Programm geschützt ? 
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C07D 

C4 

3E 

CI 

CALL 

NZ,C13E 

C080 

3A 

AA 

AD 

LD 

A, (ADAA) 

C083 

D6 

02 


SUB 

02 

C085 

20 

09 


JR 

NZ,C090 

C087 

32 

AA 

AD 

LD 

(ADAA),A 

C08A 

CD 

DF 

CA 

CALL 

CADF 

C08D 

EB 



EX 

DE,HL 

C08E 

38 

C6 


JR 

C,C056 

C090 

21 

cc 

CO 

LD 

HL,COCC 

C093 

CD 

41 

C3 

CALL 

C341 

C096 

CD 

CB 

DD 

CALL 

DDCB 

C099 

3A 

IC 

AC 

LD 

A,(ACIC) 

C09C 

B7 



OR 

A 

C09D 

28 

11 


JR 

Z,C0B0 

C09F 

CD 

02 

CI 

CALL 

CI 02 

C0A2 

30 

CO 


JR 

NC,C064 

C0A4 

7E 



LD 

A,(HL) 

C0A5 

B7 



OR 

A 

C0A6 

28 

Fl 


JR 

Z,C099 

C0A8 

CD 

D2 

E6 

CALL 

E6D2 

COAB 

CD 

7A CI 

CALL 

C17A 

COAE 

18 

E9 


JR 

C099 

COBO 

CD 

3B 

CA 

CALL 

CA3B 

C0B3 

30 

FB 


JR 

NC,COBO 

C0B5 

CD 

4E 

C3 

CALL 

C34E 

C0B8 

CD 

BC 

E6 

CALL 

E6BC 

COBB 

30 

05 


JR 

NC,C0C2 

COBD 

C4 

7A 

CI 

CALL 

NZ,C17A 

COCO 

18 D4 


JR 

C096 

C0C2 

CD 

BB 

DE 

CALL 

DEBB 

C0C5 

CD 

53 

C4 

CALL 

C453 

C0C8 

2B 



DEC 

HL 

C0C9 

C3 

74 

DD 

JP 

DD74 

********************************** 

cocc 

52 

65 

61 64 

79 OA 

00 

********************************** 

C0D3 

AF 



XOR 

A 

C0D4 

18 

05 


JR 

CODB 

********************************** 

C0D6 

22 

ID 

AC 

LD 

(AC1D),HL 

C0D9 

3E 

FF 


LD 

A, FF 

CODB 

32 

IC 

AC 

LD 

(ACIC),A 

CODE 

C9 



RET 


********************************** 

CODF 

11 

0A 

00 

LD 

DE,000A 

C0E2 

28 

02 


JR 

Z,C0E6 

C0E4 

FE 

2C 


CP 

2C 

C0E6 

C4 

El 

CE 

CALL 

NZ,CEE1 

C0E9 

D5 



PUSH 

DE 

COEA 

11 

0A 

00 

LD 

DE,000A 

COED 

CD 

55 

DD 

CALL 

DD55 


dann löschen 
Fehlernr. (ERR) 

nicht Nr. für "Syntax error" ? 
sonst Fehlernr. löschen 
Fehlerzeilennr. (ERRL) nach HL 
nach DE 

Programm-Modus ? dann ED IT 
Zeiger auf "Ready" 
ausgeben 

Direkt-Modus einschalten 

Flag für AUTO 

AUTO nicht aktiv ? 
AUTO-Eingabezeile holen 
Abbruch ? dann Eingabeschleife 
erstes Zeichen aus Zeile 

Zeilenende ? dann nächste ZI. 
Zeile im Programm einfügen 
Basic-Zeiger initialisieren 
nächste Zeile holen 

Eingabezeile holen 
Abbruch ? dann neue Zeile 
LF ausgeben 

Zeile auswerten, ggf. einfügen 
Direkteingabe ? 

Leerz. ? sonst Basic-Zg. init. 
nächste Zeile holen 

Zeile tokenisieren 
Break-Taste entriegeln 
Zeiger vor Zeile 
Eingabe ausführen 


Ready.. 

AUTO ausschalten 

Flag für AUTO ausgeschaltet 


AUTO-Zeilennummer setzen 
Zeilennummer 
und Flag für AUTO 
setzen 


Basic-Befehl AUTO 

Default-Startzeilennr. 
Statementende ? dann Default 
Komma ? 

sonst Startzeilennr. holen 
und retten 

Default-Schrittweite 
folgt Komma ? 
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COFO 

DC 

El 

CE 

CALL 

C,CEE1 

C0F3 

CD 

4A 

DD 

CALL 

DD4A 

C0F6 

EB 



EX 

DE,HL 

C0F7 

22 

1F 

AC 

LD 

(AC1F),HL 

CO FA 

El 



POP 

HL 

COFB 

CD 

D6 

CO 

CALL 

C0D6 

COFE 

Ci 



POP 

BC 

COFF 

C3 

96 

CO 

JP 

C096 

********************************** 


CI 02 

2A 

ID 

AC 

LD 

HL,(AC1D) 

C105 

E5 



PUSH 

HL 

C106 

CD 

79 

EE 

CALL 

EE79 

CI 09 

Dl 



POP 

DE 

C10A 

CD 

A3 

E7 

CALL 

E7A3 

C10D 

3E 

2A 


LD 

A,2A 

Ci 0F 

38 

02 


JR 

C,C113 

cm 

3E 

20 


LD 

A,20 

Ci 13 

CD 

56 

C3 

CALL 

C356 

Ci 16 

CD 

D3 

CO 

CALL 

C0D3 

C119 

CD 

3B 

CA 

CALL 

CA3B 

eile 

DO 



RET 

NC 

CI ID 

CD 

4E 

C3 

CALL 

C34E 

C120 

E5 



PUSH 

HL 

C121 

2A 

1F 

AC 

LD 

HL,(AC1F) 

CI 24 

19 



ADD 

HL,DE 

C125 

D4 

D6 

CO 

CALL 

NC,C0D6 

C128 

El 



POP 

HL 

C129 

37 



SCF 


C12A 

C9 



RET 


********************************** 

C12B 

CO 



RET 

NZ 

C12C 

CD 

3E 

CI 

CALL 

C13E 

C12F 

C3 

64 

CO 

JP 

C064 

********************************** 

C132 

E5 



PUSH 

HL 

C133 

CD 

8C 

Ci 

CALL 

C18C 

C136 

CD 

5B 

CI 

CALL 

C15B 

C139 

CD 

7A 

Ci 

CALL 

C17A 

C13C 

El 



POP 

HL 

C13D 

C9 



RET 



********************************** 


C13E 

2A 

7F 

AE 

LD 

HL,(AE7F) 

C141 

EB 



EX 

DE,HL 

C142 

2A 

7B AE 

LD 

HL,(AE7B) 

C145 

CD 

DA 

FF 

CALL 

FFDA 

C148 

62 



LD 

H,D 

C149 

6B 



LD 

L,E 

C14A 

13 



INC 

DE 

C14B 

AF 



XOR 

A 

C14C 

77 



LD 

(HL) ,A 

C14D 

ED 

BO 


LDIR 


C14F 

32 

45 

AE 

LD 

(AE45),A 


dann Schrittweite holen 
auf Statementende prüfen 

Schrittweite speichern 
Startzeilennr. 
als AUTO-Zeilennr. setzen 
Aufrufadresse vom Stack 
zur Eingabeschleife 

AUTO-Eingabezeile holen 
OUT: CY=0 für Abbruch 

HL: Zeiger auf Eingabezeile 
aktuelle AUTO-Zeilennr. 
retten 

und ausgeben 
AUTO-Zeilennr. 

Zeile im Programm suchen 

,l *" als Warnung 

Zeile schon vorhanden ? 

sonst Space 

ausgeben 

AUTO ausschalten 

Eingabezeile holen 

Abbruch ? dann zurück 

LF ausgeben 

Zeiger auf Zeile 

AUTO-Schrittweite 

zu Zeilennr. addieren 

neu setzen, wenn nicht zu groß 

CY=1 für keinen Abbruch 


Basic-Befehl NEW 

Statementende ? sonst Fehler 

NEW ausführen 

zur Eingabeschleife 

Basic-Befehl CLEAR 
Basic-PC retten 
Variablen löschen 
Ausdrucksausw. und I/O init. 
Basic-Zeiger init. 

Basic-PC zurück 


NEW Fortsetzung 

Zeiger auf Start d. freien RAM 
nach OE 
HIMEM-Zeiger 

Differenz (freier Platz) n. BC 
Zeiger auf Start des freien 
RAM als Quelladresse nach HL 
Zeiger danach als Zieladresse 
Null 

an RAM-Start 

freies RAM löschen 

Flag f. ungeschütztes Programm 




416 Die Listings des CPC-464-ROMs 


C152 

CD 

76 

E6 

CALL 

E676 

C155 

CD 

8C 

CI 

CALL 

C18C 

C158 

CD 

6B 

Ci 

CALL 

C16B 

C15B 

CD 

AD 

D2 

CALL 

D2AD 

C15E 

AF 



XOR 

A 

C15F 

CD 

73 

BD 

CALL 

BD73 

********************************** 

C162 

CD 

B3 

FB 

CALL 

FBB3 

C165 

CD 

FD 

D9 

CALL 

D9FD 

Ci 68 

C3 

9D 

CI 

JP 

C19D 

********************************** 

C16B 

CD 

E6 

DD 

CALL 

DDE6 

C16E 

CD 

D3 

CO 

CALL 

C0D3 

C171 

CD 

F2 

Fl 

CALL 

F1F2 

CI 74 

CD 

76 

E6 

CALL 

E676 

CI 77 

CD 

Bl 

D5 

CALL 

D5B1 

********************************** 

C17A 

CD 

D9 

CB 

CALL 

CBD9 

C17D 

CD 

AB 

CB 

CALL 

CBAB 

Ci 80 

CD 

ED 

C8 

CALL 

C8ED 

C183 

CD 

8E 

F5 

CALL 

F58E 

CI 86 

CD 

D2 

D5 

CALL 

D5D2 

C189 

C3 

E5 

DC 

JP 

DCE5 

********************************** 

C18C 

C5 



PUSH 

BC 

C18D 

E5 



PUSH 

HL 

C18E 

CD 

CA 

F5 

CALL 

F5CA 

C191 

CD 

AE 

D5 

CALL 

D5AE 

CI 94 

CD 

FC 

D5 

CALL 

D5FC 

C197 

CD 

89 

E9 

CALL 

E989 

C19A 

El 



POP 

HL 

C19B 

CI 



POP 

BC 

C19C 

C9 



RET 



********************************** 


C19D 

AF 

XOR 

A 

C19E 

CD AF Ci 

CALL 

C1AF 

CI AI 

AF 

XOR 

A 


********************************** 


C1A2 

E5 



PUSH 

HL 

CI A3 

F5 



PUSH 

AF 

C1A4 

FE 

08 


CP 

08 

C1A6 

DC 

B4 

BB 

CALL 

C,BBB4 

C1A9 

Fl 



POP 

AF 

C1AA 

21 

21 

AC 

LD 

HL,AC21 

C1AD 

18 

04 


JR 

ClB3 


********************************** 


C1AF E5 PUSH HL 


Programm löschen 
Variablen löschen 
Basic initialisieren 
Kassetten-I/O init. 

Flag für RAD 
setzen 

Ausdruckauswertung und I/O init. 
Stringstackpointer init. 
FN-Listenzeiger löschen 
Ein-/Ausgabekanäle init. 

Basic initialisieren 
TROFF-Befehl 
AUTO ausschalten 
ZONE 13 

Programm löschen 
Variablenbereich freigeben 

Basic-Zeiger initialisieren 
ON ERROR ausschalten 
CONT sperren 
Events initialisieren 
Basic-Stackpointer init. 
definierte Funktionen löschen 
RESTORE 

Variablen löschen 


Stringbereich freigeben 
Variablenzeiger init. 
DEFREAL A-Z 

Variablenoffsets löschen 


Ein-/Ausgabekanäle initialisieren 
Null 

als Eingabekanal-Nr. setzen 
Null 

neue Streamnummer setzen 
IN : A: neue Streamnr. 

OUT: A: alte Streamnr. 

neue Nr. retten 

Nr. für BiLdschirm ? 

dann entspr. Window auswählen 

neue Nr. 

Zeiger auf aktuelle Streamnr. 
Streamnr. setzen 

neue Eingabekanal-Nr. setzen 
IN : A: neue Kanalnr. 

OUT: A: alte Kanalnr. 
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C1B0 

21 22 AC 

LD 

HL,AC22 

C1B3 

D5 

PUSH 

DE 

C1B4 

5F 

LD 

E,A 

C1B5 

7E 

LD 

A, (HL) 

C1B6 

73 

LD 

(HL) ,E 

C1B7 

Dl 

POP 

DE 

C1B8 

El 

POP 

HL 

C1B9 

C9 

RET 



* *** * **************************** * 


C1BA 3A 21 AC LD A,(AC21) 

C1BD FE 08 CP 08 

C1BF C9 RET 

****************** ******************* 


C1C0 

3A 

22 

AC 

LD 

A, (AC22) 

C1C3 

FE 

09 


CP 

09 

C1C5 

C9 



RET 


********************************** 

C1C6 

CD 

E3 

CI 

CALL 

C1E3 

C1C9 

18 D7 


JR 

C1A2 

********************************** 

C1CB 

CD 

E3 

CI 

CALL 

C1E3 

C1CE 

18 

DF 


JR 

C1AF 

********************************** 

C1D0 

CD 

E3 

Ci 

CALL 

C1E3 

C1D3 

FE 

08 


CP 

08 

C1D5 

30 

2E 


JR 

NC,C205 

C1D7 

CD 

A2 

CI 

CALL 

C1A2 

ClDA 

Ci 



POP 

BC 

C1DB 

F5 



PUSH 

AF 

ClDC 

CD 

F9 

FF 

CALL 

FFF9 

C1DF 

Fl 



POP 

AF 

C1E0 

C3 

A2 

Ci 

JP 

C1A2 


********************************** 


C1E3 

7E 



LD 

A,(HL) 

C1E4 

FE 

23 


CP 

23 

C1E6 

3E 

00 


LD 

A,00 

C1E8 

CO 



RET 

NZ 

C1E9 

CD 

F5 

CI 

CALL 

C1F5 

C1EC 

F5 



PUSH 

AF 

ClED 

CD 

55 

DD 

CALL 

DD55 

CI F0 

D4 

4A 

DD 

CALL 

NC,DD4A 

C1F3 

Fl 



POP 

AF 

C1F4 

C9 



RET 



Zeiger auf aktuelle Kanalnr. 

neue Nr. 
alte Nr. retten 
neue Nr. setzen 


aktuelle Streamnr. holen 
OUT: A: aktuelle Streamnr. 
CY=1, wenn Bildschirm 
aktuelle Streamnr. 

<8 bei Bildschirm 


aktuelle Eingabekanalnr. holen 
OUT: A: aktuelle Eingabekanalnr. 
CY=1, wenn Bildschirm 
aktuelle Eingabekanalnr. 

<9 bei Bildschirm/Drucker 


optionale Streamnr. holen/setzen 
OUT: A: alte Streamnr. 

optionale Filenr. holen 
als aktuelle Streamnr. setzen 

opt. Eingabekanalnr. holen/setzen 
OUT: A: alte Eingabekanalnr. 
optionale Filenr. holen 
als Eingabekanalnr. setzen 

opt. Streamnr. setzen/rücksetzen 
optionale Filenr. holen 
>8 ? 

dann "Improper argument" 
Filenr. als Streamnr. setzen 
Aufrufadresse vom Stack 
alte Streamnr. retten 
aufrufende Routine weiterführ, 
alte Streamnr. 

wieder als aktuelle Nr. setzen 

optionale Filenr. holen 
OUT: A: Filenr. 

Zeichen aus Basic-Text 
"#" ? 

Default-Wert 

nicht ll # 1 ' ? dann Default 
sonst Filenr. holen 
Nr. retten 
folgt Korrma ? 

sonst Test auf Statementende 
Streamnr. 
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********************************** 


C1F5 

CD 

37 DD 

CALL 

DD37 

C1F8 

23 




C1F9 

3E 

OA 

LD 

A, OA 

********************************** 


CI FB 

C5 



PUSH 

BC 

CI FC 

D5 



PUSH 

DE 

CI FD 

47 



LD 

B, A 

Ci FE 

CD 

67 

CE 

CALL 

CE67 

C201 

B8 



CP 

B 

C202 

Dl 



POP 

DE 

C203 

Ci 



POP 

BC 

C204 

D8 



RET 

C 

C205 

IE 

05 


LD 

E, 05 

C207 

C3 

94 

CA 

JP 

CA94 

********************************** 

C20A 

CD 

DO 

CI 

CALL 

C1D0 

C20D 

01 

96 

BB 

LD 

BC,BB96 

C210 

18 

06 


JR 

C218 

********************************** 

C212 

CD 

DO 

CI 

CALL 

C1D0 

C215 

01 

90 

BB 

LD 

BC,BB90 

C218 

CD 

4B 

C2 

CALL 

C24B 

C21B 

E5 



PUSH 

HL 

C21C 

CD 

F9 

FF 

CALL 

FFF9 

C21F 

El 



POP 

HL 

C220 

C9 



RET 


********************************** 

C221 

CD 

3C 

C2 

CALL 

C23C 

C224 

E5 



PUSH 

HL 

C225 

CD 

38 

BC 

CALL 

BC38 

C228 

El 



POP 

HL 

C229 

C9 



RET 


********************************** 

C22A 

CD 

4B 

C2 

CALL 

C24B 

C22D 

F5 



PUSH 

AF 

C22E 

CD 

37 

DD 

CALL 

DD37 

C231 

2C 





C232 

CD 

3C 

C2 

CALL 

C23C 

C235 

Fl 



POP 

AF 

C236 

E5 



PUSH 

HL 

C237 

CD 

32 

BC 

CALL 

BC32 

C23A 

El 



POP 

HL 

C23B 

C9 



RET 


********************************** 


C23C 

CD 44 C2 

CALL 

C244 

C23F 

41 

LD 

B.C 


Filenr. holen 
OUT: A: Filenr. 

Test auf "#" 

Limit+1 für Filenr. 

Byte kleiner A holen 
IN : A: Limit+1 
OUT: A: Byte 


Limi t 

Byte holen, nach A 
<B ? 


dann o.k., zurück 

Nr. für "Improper argument" 

FehLer ausgeben 

Basic-Befehl PAPER 

opt. Streamnr. setzen/rücks. 
Zeiger auf TXT SET PAPER 
Paper-Wert setzen 

Basic-Befehl PEN 

opt. Streamnr. setzen/rücks. 
Zeiger auf TXT SET PEN 
Farbstiftnr. holen 

Routine zum Setzen aufrufen 


Basic-Befehl BORDER 
2 Farbwerte holen 

SCR SET BORDER 


Basic-Befehl INK 

Farbstiftnr. holen 
und retten 
Test auf ,1 ," 

II II 
; 

2 Farbwerte holen 
Farbstiftnr. 

SCR SET INK 


2 Farbwerte holen 
OUT: B: 1. Farbwert 
C: 2. Farbwert 
Farbwert holen 
als 1. Farbwert setzen 
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C240 

CD 

55 

DD 

CALL 

DD55 

C243 

DO 



RET 

NC 

C244 

3E 

20 


LD 

A,20 

C246 

CD 

FB 

CI 

CALL 

CI FB 

C249 

4F 



LD 

C,A 

C24A 

C9 



RET 


********************************** 

C24B 

3E 

10 


LD 

A, 10 

C24D 

18 

AC 


JR 

CI FB 

********************************** 

C24F 

3E 

03 


LD 

A,03 

C251 

CD 

FB 

Ci 

CALL 

Ci FB 

C254 

E5 



PUSH 

HL 

C255 

CD 

0E 

BC 

CALL 

BC0E 

C258 

El 



POP 

HL 

C259 

C9 



RET 


********************************** 

C25A 

CD 

DO 

Ci 

CALL 

C1D0 

C25D 

3E 

OC 


LD 

A, 0C 

C25F 

C3 

6E 

C3 

JP 

C36E 

********************************** 

C262 

01 

67 

C2 

LD 

BC.C267 

C265 

18 

12 


JR 

C279 

********************************** 

C267 

3A 

21 

AC 

LD 

A,(AC21) 

C26A 

FE 

08 


CP 

08 

C26C 

30 

97 


JR 

NC,C205 

C26E 

CD 

78 

BB 

CALL 

BB78 

C271 

CD 

87 

BB 

CALL 

BB87 

C274 

TD 



LD 

A,L 

C275 

C9 



RET 


********************************** 

C276 

01 

90 

C2 

LD 

BC,C290 

C279 

CD 

F5 

Ci 

CALL 

C1F5 

C27C 

CD 

A2 

CI 

CALL 

C1A2 

C27F 

F5 



PUSH 

AF 

C280 

CD 

37 

DD 

CALL 

DD37 

C283 

29 





C284 

E5 



PUSH 

HL 

C285 

CD 

F9 

FF 

CALL 

FFF9 

C288 

CD 

0A 

FF 

CALL 

FF0A 

C28B 

El 



POP 

HL 

C28C 

Fl 



POP 

AF 

C28D 

C3 

A2 

CI 

JP 

C1A2 

********************************** 

C290 

3A 

21 

AC 

LD 

A,(AC21) 

C293 

FE 

08 


CP 

08 

C295 

CA 

DF 

C3 

JP 

Z,C3DF 


folgt Komma ? 

nein ? dann 2. Wert=1. Wert 
Limit+1 für Farbwert 
Byte <32 holen 
als Farbwert nach C 


Farbstiftnr. holen 
OUT: A: Farbstiftnr. 

Limit+1 für Farbstiftnr. 
Byte <16 holen 

Basic-Befehl MODE 

Limit+1 für Mode-Nr. 

Byte <3 als Mode-Nr. holen 

SCR SET MODE 


Basic-Befehl CLS 

opt. Filenr. setzen/rücksetzen 
ASCII-Code f. Bildsch. löschen 
Zeichen ausgeben 

Basic-Funktion VPOS 

Routine für Cursorzeile holen 
Cursorzeile holen, nach FAC 

Cursorzeile holen 

OUT: A: Cursorzeile 
aktuelle Streamnr. 

Drucker oder Kassette ? 
dann "Improper argument" 
Cursorposition holen 
Position ggf. korrigieren 
Cursorzei le 


Basic-Funktion POS 

Routine für Cursorspalte holen 

Streamnr. holen 

als aktuelle Streamnr. setzen 

alte Streamnr. retten 

Test auf ")" 

ii )n 

Basic-PC retten 
Routine aufrufen 
Position nach FAC 
Basic-PC zurück 
alte Streamnr. 
wieder setzen 

horizontale Position f. I/O holen 
OUT: A: Position 

aktuelle Streamnr. 

Drucker ? 

dann Druckkopfspalte holen 
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C298 

3A 

25 

AC 

LD 

A,(AC25) 

C29B 

DO 



RET 

NC 

C29C 

C3 

9C 

C3 

JP 

C39C 


&********************************* 


C29F 

3A 

21 

AC 

LD 

A,(AC21) 

C2A2 

FE 

08 


CP 

08 

C2A4 

28 

0D 


JR 

Z.C2B3 

C2A6 

DO 



RET 

NC 

C2A7 

D5 



PUSH 

DE 

C2A8 

E5 



PUSH 

HL 

C2A9 

CD 

69 

BB 

CALL 

BB69 

C2AC 

7A 



LD 

A,D 

C2AD 

94 



SUB 

H 

C2AE 

3C 



INC 

A 

C2AF 

El 



POP 

HL 

C2B0 

Dl 



POP 

DE 

C2B1 

37 



SCF 


C2B2 

C9 



RET 


C2B3 

3A 

24 

AC 

LD 

A, (AC24) 

C2B6 

FE 

FF 


CP 

FF 

C2B8 

C9 



RET 



********************************** 


C2B9 

E5 

PUSH 

HL 

C2BA 

CD BF C2 

CALL 

C2BF 

C2BD 

El 

POP 

HL 

C28E 

C9 

RET 



**** tät tV ******* * ******************* * 


C2BF 

67 



LD 

H,A 

C2C0 

CD 

9F 

C2 

CALL 

C29F 

C2C3 

3F 



CCF 


C2C4 

D8 



RET 

C 

C2C5 

6F 



LD 

L,A 

C2C6 

CD 

90 

C2 

CALL 

C290 

C2C9 

3D 



DEC 

A 

C2CA 

37 



SCF 


C2CB 

C8 



RET 

Z 

C2CC 

84 



ADD 

H 

C2CD 

3F 



CCF 


C2CE 

DO 



RET 

NC 

C2CF 

3D 



DEC 

A 

C2D0 

BD 



CP 

L 

C2D1 

C9 



RET 


rkicifiritiK'iriric'kiridc'k'kitifk'kic'kifk’k'kitiririiirititicit 

C2D2 

CD 

DO 

CI 

CALL 

C1D0 

C2D5 

CD 

27 

C3 

CALL 

C327 

C2D8 

E5 



PUSH 

HL 

C2D9 

EB 



EX 

DE, HL 

C2DA 

24 



INC 

H 


aktuelle Position für Kassette 
Kassette ? dann zurück 
Cursorspalte holen 

aktuelle Ausgabe-Breite holen 
OUT: A: Breite 

CY=1, wenn gültig 
aktuelle Streamnr. 

Drucker ? 

dann UIDTH holen 

nicht Bildschirm ? dann zurück 


Window-Begrenzungen holen 
rechte Grenze 
- linke Grenze 
+1 ergibt Breite 


CY=1 für gültig 
WIDTH laden 

CY=0 wenn $FF (ungültig) 


auf Platz in Zeile prüfen 
IN : A: benötigte Zeichenzahl 
OUT: CY=0, wenn zu lang für Zeile 

auf Platz in Zeile prüfen 


auf Platz in Zeile prüfen 
IN : A: benötigte Zeichenzahl 
OUT: CY=0, wenn zu lang für Zeile 
Zahl der Zeichen 
Ausgabebreite holen 
keine gültige Breite ? 
dann zurück 
Breite 

akt. Position holen 
Abstand zu Zeilenanfang 

Zeilenanfang ? dann o.k. 

Zahl der ben. Zeichen addieren 
Übertrag ? 
dann kein Platz 

mit max. Breite vergleichen 


Basic-Befehl LOCATE 

opt. Streamnr. setzen/rücks. 
Koordinaten holen 
Basic-PC retten 
Koordinaten nach HL 
Korrektur für 
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C2DB 

2C 



INC 

L 

relative Position 

C2DC 

CD 

75 

BB 

CALL 

B875 

Cursor entsprechend setzen 

C2DF 

El 



POP 

HL 

Basic-PC zurück 

C2E0 

C9 



RET 



********************************** 

Basic-Befehl WINDOW 

C2E1 

7 E 



LD 

A, (HL) 

aktuelles Zeichen 

C2E2 

FE 

E7 


CP 

E7 

Token für SWAP ? 

C2E4 

28 

17 


JR 

Z.C2FD 

dann WINDOW SWAP 

C2E6 

CD 

DO 

CI 

CALL 

C1D0 

opt. Streamnr. setzen/rücks 

C2E9 

CD 

27 

C3 

CALL 

C327 

Spaltengrenzen holen 

C2EC 

D5 



PUSH 

DE 

und retten 

C2ED 

CD 

37 

DD 

CALL 

DD37 

Test auf 

C2F0 

2C 





11 II 
f 

C2F1 

CD 

27 

C3 

CALL 

C327 

Zeilengrenzen holen 

C2F4 

E3 



EX 

(SP),HL 

Spaltengrenzen zurück 

C2F5 

7A 



LD 

A.D 

Spaltengrenzen nach H/D, 

C2F6 

55 



LD 

D,L 

Zeilengrenzen nach L/E 

C2F7 

6F 



LD 

L,A 

bringen 

C2F8 

CD 

66 

BB 

CALL 

BB66 

als Windowgrenzen setzen 

C2FB 

El 



POP 

HL 

Basic-PC zurück 

C2FC 

C9 



RET 



********************************** 

Basic-Befehl WINDOW SWAP 

C2FD 

CD 

3F 

DD 

CALL 

DD3F 

SWAP-Token übergehen 

C300 

CD 

12 

C3 

CALL 

C312 

1. Window-Nr. holen 

C303 

48 



LD 

C, B 

nach C 

C304 

CD 

55 

DD 

CALL 

DD55 

Test auf Komma 

C307 

06 

00 


LD 

B, 00 

Def au11-Window-N r. 

C309 

DC 

12 

C3 

CALL 

C, C312 

Komma ? dann 2. Window-Nr. 

C30C 

E5 



PUSH 

HL 

Basic-PC retten 

C30D 

CD 

B7 

BB 

CALL 

BBB7 

Window-Parameter tauschen 

C310 

El 



POP 

HL 

Basic-PC zurück 

C311 

C9 



RET 




********************************** yindow-Nr holsn 

OUT: S: Window-Nr. (CPC 464) 
A: Window-Nr. 

(CPC 664/6128) 


C312 

3E 

08 


LD 

A,08 

Limit+1 

C314 

CD 

FB 

Ci 

CALL 

CI FB 

Byte<8 als Window-Nr. holen 

C317 

47 



LD 

B,A 

nach B 

C318 

C9 



RET 



********************************** 

Basic-Befehl TAG 

C319 

CD 

DO 

CI 

CALL 

C1D0 

opt. Streamnr. setzen/rücks 

C31C 

3E 

FF 


LD 

A, FF 

Flag für TAG ON 

C31E 

18 

04 


JR 

C324 

Flag setzen 

********************************** 

Basic-Befehl TAGOFF 

C320 

CD 

DO 

CI 

CALL 

C1D0 

opt. Streamnr. setzen/rücks 

C323 

AF 



XOR 

A 

Flag für TAGOFF 

C324 

C3 

63 

BB 

JP 

BB63 

TAG-Flag setzen 


********************************** Koordinaten holen 

OUT: D: 1. Koordinate 
E: 2. Koordinate 

C327 CD 2F C3 CALL C32F 1. Koordinate holen 
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C32A 

53 



LD 

D,E 

C32B 

CD 

37 

DD 

CALL 

DD37 

C32E 

2C 





C32F 

D5 



PUSH 

DE 

C330 

CD 

6D 

CE 

CALL 

CE6D 

C333 

Dl 



POP 

DE 

C334 

5F 



LD 

E,A 

C335 

ID 



DEC 

E 

C336 

C9 



RET 


********************************** 

C337 

3E 

84 


LD 

A,84 

C339 

32 

24 

AC 

LD 

(AC24),A 

C33C 

E5 



PUSH 

HL 

C33D 

CD 

9D 

Ci 

CALL 

C19D 

C340 

El 



POP 

HL 


•kieiticicicicickictrtricitltrtcicick-k'kic'tsltiritick'&c'&icicitic 


C341 

F5 

PUSH 

AF 

C342 

E5 

PUSH 

HL 

C343 

7E 

LD 

A,(HL) 

C344 

23 

INC 

HL 

C345 

B7 

OR 

A 

C346 

C4 56 C3 

CALL 

NZ.C356 

C349 

20 F8 

JR 

NZ,C343 

C34B 

El 

POP 

HL 

C34C 

Fl 

POP 

AF 

C34D 

C9 

RET 



********************************** 


C34E 

F5 



PUSH 

AF 

C34F 

3E 

OA 


LD 

A, OA 

C351 

CD 

56 

C3 

CALL 

C356 

C354 

Fl 



POP 

AF 

C355 

C9 



RET 


********************************** 

C356 

F5 



PUSH 

AF 

C357 

CD 

5C 

C3 

CALL 

C35C 

C35A 

Fl 



POP 

AF 

C35B 

C9 



RET 


itirk ********* *** ***** jär itirk **£ **** irkit 

C35C 

FE 

OA 


CP 

OA 

C35E 

20 

OE 


JR 

NZ,C36E 

C360 

3A 

21 

AC 

LD 

A,(AC21) 

C363 

FE 

08 


CP 

08 

C365 

CA 

A8 

C3 

JP 

Z,C3A8 

C368 

D2 

EA 

C3 

JP 

NC,C3EA 

C36B 

C3 

92 

C3 

JP 

C392 

C36E 

F5 



PUSH 

AF 

C36F 

C5 



PUSH 

BC 

C370 

4F 



LD 

C,A 

C371 

CD 

77 

C3 

CALL 

C377 


nach D 
Test auf 

II II 
f 

Byte <>0 holen 

als Koordinate 

Korrektur f. absolute Koord. 


I/O init., String ausgeben 
IN : HL: Zeiger auf String 
132 

als UIDTH-Wert setzen 

Ein-/Ausgabe initialisieren 


String ausgeben 

IN : HL: Zeiger auf String 


Zeichen aus String 
Zeiger auf nächstes Zeichen 

kein Ende ? dann ausgeben 
kein Ende ? dann weiter 


Linefeed ausgeben 

ASCII-Code für Linefeed 
Zeichen ausgeben 


Zeichen ausgeben 
IN : A: Zeichen 

Zeichen ausgeben 


Zeichen ausgeben 
IN : A: Zeichen 
Linefeed ? 
sonst ausgeben 
aktuelle Streamnr. 
Drucker ? 

dann LF an Drucker 
Kassette ? 

sonst LF an Bildschirm 


Zeichen 

ausgeben 
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C374 

CI 

POP 

BC 

C375 

Fl 

POP 

AF 

C376 

C9 

RET 



********************************** 


C377 

3A 

21 

AC 

LD 

A, (AC21) 

C37A 

FE 

08 


CP 

08 

C37C 

CA 

B5 

C3 

JP 

Z,C3B5 

C37F 

D2 

F8 

C3 

JP 

NC,C3F8 

C382 

79 



LD 

A,C 

C383 

C3 

99 

C3 

JP 

C399 

********************************** 

C386 

AF 



XOR 

A 

C387 

CD 

63 

BB 

CALL 

BB63 

C38A 

CD 

54 

BB 

CALL 

BB54 

C38D 

CD 

9C 

C3 

CALL 

C39C 

C390 

3D 



DEC 

A 

C391 

C8 



RET 

Z 

********************************** 

C392 

3E 

0D 


LD 

A,0D 

C394 

CD 

99 

C3 

CALL 

C399 

C397 

3E 

0A 


LD 

A,0A 

C399 

C3 

5A 

BB 

JP 

BB5A 

********************************** 

C39C 

C5 



PUSH 

BC 

C39D 

E5 



PUSH 

HL 

C39E 

CD 

78 

BB 

CALL 

BB78 

C3A1 

CD 

87 

BB 

CALL 

BB87 

C3A4 

7C 



LD 

A,H 

C3A5 

El 



POP 

HL 

C3A6 

CI 



POP 

BC 

C3A7 

C9 



RET 



********************************** 


C3A8 

C5 



PUSH 

BC 

C3A9 

OE 

0D 


LD 

C, 0D 

C3AB 

CD 

B5 

C3 

CALL 

C3B5 

C3AE 

OE 

0A 


LD 

C,0A 

C3B0 

CD 

B5 

C3 

CALL 

C3B5 

C3B3 

CI 



POP 

BC 

C3B4 

C9 



RET 


********************************** 

C3B5 

E5 



PUSH 

HL 

C3B6 

79 



LD 

A f C 

C3B7 

EE 

0D 


XOR 

0D 

C3B9 

28 

13 


JR 

Z ,C3CE 

C3BB 

79 



LD 

A f C 

C3BC 

FE 

20 


CP 

20 

C3BE 

38 

14 


JR 

C,C3D4 

C3C0 

2A 

23 

AC 

LD 

HL,(AC23) 

C3C3 

24 



INC 

H 

C3C4 

7D 



LD 

A,L 


Zeichen ausgeben (ohne LF-Beh.) 
IN : C: Zeichen 

aktuelle Streamnr. 

Drucker ? 

dann Zeichen an Drucker 
Kassette ? 
sonst Zeichen 
auf Bildschirm ausgeben 

Bildschirm initialisieren 
Null 
TAGOFF 

TXT VDU ENABLE 
Cursorspalte holen 
am Zeilenanfang ? 
dann zurück 

Linefeed auf Bildschirm ausgeben 
CR 

ausgeben 

LF 

ausgeben 

Cursorspalte holen 

Cursorposition holen 
ggf. korrigieren 
Cursorspalte 


Linefeed an Drucker ausgeben 
CR 

an Drucker ausgeben 
LF 

an Drucker ausgeben 


Zeichen an Drucker ausgeben 
IN : C: Zeichen 

Zeichen 
CR ? 

dann Druckkopfposition =1 
Zeichen 

Steuerzeichen ? 
dann Position nicht erhöhen 
Position/WIDTH-Wert 
Druckkopfposition erhöhen 
Breite 
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C3C5 

28 

07 


JR 

Z,C3CE 

C3C7 

BC 



CP 

H 

C3C8 

CC 

A8 

C3 

CALL 

Z,C3A8 

C3CB 

3A 

23 

AC 

LD 

A,(AC23) 

C3CE 

3C 



INC 

A 

C3CF 

28 

03 


JR 

Z,C3D4 

C3D1 

32 

23 

AC 

LD 

(AC23),A 

C3D4 

El 



POP 

HL 

C3D5 

79 



LD 

A,C 

C3D6 

CD 

2B 

BD 

CALL 

BD2B 

C3D9 

D8 



RET 

C 

C3DA 

CD 

3C 

C4 

CALL 

C43C 

C3DD 

18 

F6 


JR 

C3D5 


********************************** 


C3DF 

3A 23 AC 

LD 

A,(AC23) 

C3E2 

C9 

RET 



********************************** 


C3E3 

CD 

6D 

CE 

CALL 

CE6D 

C3E6 

32 

24 

AC 

LD 

(AC24),A 

C3E9 

C9 



RET 



********************************** 


C3EA 

3E 

01 


LD 

A, 01 

C3EC 

32 

25 

AC 

LD 

(AC25),A 

C3EF 

3E 

0D 


LD 

A,0D 

C3F1 

CD 

0D 

C4 

CALL 

C40D 

C3F4 

3E 

0A 


LD 

A,0A 

C3F6 

18 

15 


JR 

C40D 


********************************** 


C3F8 

E5 



PUSH 

HL 

C3F9 

21 

25 

AC 

LD 

HL,AC25 

C3FC 

79 



LD 

A,C 

C3FD 

06 

01 


LD 

B, 01 

C3FF 

FE 

0D 


CP 

0D 

C401 

28 

08 


JR 

Z,C40B 

C403 

FE 

20 


CP 

20 

C405 

38 

05 


JR 

C.C40C 

C407 

46 



LD 

B,(HL) 

C408 

04 



INC 

B 

C409 

28 

01 


JR 

Z,C40C 

C40B 

70 



LD 

CHL),B 

C40C 

El 



POP 

HL 

C40D 

CD 

95 

BC 

CALL 

BC95 

C410 

D8 



RET 

C 

C411 

C3 

6B 

CB 

JP 

CB6B 

********************************** 

C414 

C3 

86 

BC 

JP 

BC86 

********************************** 

C417 

E5 



PUSH 

HL 

C418 

CD 

89 

BC 

CALL 

BC89 

C41B 

28 

F4 


JR 

Z,C411 


Übertrag bei Position ? 
Position m. Breite vergleichen 
gleich ? dann LF an Drucker 
D ruckkopfposition 
erhöhen 
ungültig ? 

sonst neue Position speichern 
Zeichen 

an Drucker ausgeben 
Zeichen ausgegeben ? 
sonst auf ESC-Taste prüfen 
und warten 

Druckkopfposition holen, nach A 


Basic-Befehl WIDTH 
Byte <>0 holen 
als WIDTH-Wert setzen 


Linefeed an Kassette ausgeben 
Eins für Zeilenanfang 
als Kassetten-Position setzen 
CR 

an Kassette ausgeben 
LF 

an Kassette ausgeben 

Zeichen an Kassette ausgeben 
IN : C: Zeichen 

Zeiger auf Kassettenposition 
Zeichen 

Position für Zeilenanfang 
CR ? 

dann Position setzen 

Steuerzeichen ? 

dann Position nicht erhöhen 

Position 

erhöhen 

ungültig ? 

sonst wieder speichern 

Zeichen an Kassette ausgeben 
kein Abbruch ? dann zurück 
Break ausgeben, Abbruch 

Zeichen zurück in Kassettenbuffer 
IN : A: Zeichen 
CAS RETURN 

Basic-Funktion EOF 
Basic-PC retten 
CAS TEST EOF 

Abbruch ? dann behandeln 
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C41D 

3F 

CCF 


C41E 

9F 

SBC 

A 

C41F 

CD 05 FF 

CALL 

FF05 

C422 

El 

POP 

HL 

C423 

C9 

RET 



********************************** 


C424 

3A 

22 

AC 

LD 

A, (AC22) 

C427 

FE 

09 


CP 

09 

C429 

CA 

80 

BC 

JP 

Z,BC80 

C42C 

CD 

09 

BB 

CALL 

BB09 

C42F 

D8 



RET 

C 

C430 

CD 

81 

BB 

CALL 

BB81 

C433 

CD 

06 

BB 

CALL 

BB06 

C436 

C3 

84 

BB 

JP 

BB84 

********************************** 

C439 

C3 

09 

BB 

JP 

BB09 

********************************** 

C43C 

CD 

09 

BB 

CALL 

BB09 

C43F 

DO 



RET 

MC 

C440 

FE 

FC 


CP 

FC 

C442 

CO 



RET 

MZ 

C443 

C5 



PUSH 

BC 

C444 

D5 



PUSH 

DE 

C445 

E5 



PUSH 

HL 

C446 

CD 

6F 

C4 

CALL 

C46F 

C449 

DA 

6B 

CB 

JP 

C,CB6B 

C44C 

CD 

53 

C4 

CALL 

C453 

C44F 

El 



POP 

HL 

C450 

Dl 



POP 

DE 

C451 

CI 



POP 

BC 

C452 

C9 



RET 


********************************** 

C453 

E5 



PUSH 

HL 

C454 

11 

5E 

C4 

LD 

DE,C45E 

C457 

OE 

FD 


LD 

C, FD 

C459 

CD 

45 

BB 

CALL 

BB45 

C45C 

El 



POP 

HL 

C45D 

C9 



RET 


********************************** 

C45E 

E5 



PUSH 

HL 

C45F 

CD 

09 

BB 

CALL 

BB09 

C462 

30 

04 


JR 

MC,C468 

C464 

FE 

EF 


CP 

EF 

C466 

20 

F7 


JR 

NZ,C45F 

C468 

CD 

6F 

C4 

CALL 

C46F 

C46B 

El 



POP 

HL 

C46C 

C3 

47 

C8 

JP 

C847 


A=$FF bei EOF, sonst A=0 
Byte nach FAC 
Basic-PC zurück 


Zeichen einiesen 

OUT: A: Zeichen 

aktueller Eingabekanal 

Kassette ? 

dann CAS IM CHAR 

Zeichen von Tastatur holen 

Taste gedrückt ? dann fertig 

Cursor einschalten 

auf Taste warten 

Cursor wieder ausschalten 

Zeichen von Tastatur hoLen 
KM READ CHAR 

auf ESC-Taste prüfen 

Zeichen von Tastatur holen 
keine Taste gedrückt ? 
ESC-Taste ? 
nein ? dann zurück 


auf weitere Taste warten 
Abbruch ? dann Break ausgeben 
Abbruch durch Break ermögl. 


ESC-Abbruch einmal ermöglichen 

Routinenadresse 
ROM-Konfig., Basic-ROM ein 
KM ARM BREAK 


Break-Event-Routine 

Zeiger auf Routinenadresse 
Zeichen von Tastatur einiesen 
keine Taste gedrückt ? 
Break-Event durch ESC ? 
nein ? d. weitere Tasten lesen 
auf weitere Taste warten 
Zeiger auf Routinenadresse 
Flag f. Abbruch o. OM BREAK s. 


********************************** 


C46F 

CD B6 BC 

CALL 

BCB6 

C472 

F5 

PUSH 

AF 


nach ESC/Break auf Taste warten 
OUT: CY=1 bei Abbruch 
SOUND HOLD 

Flag für aktiv retten 
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C473 

CD 

30 

C4 

CALL 

C430 

C476 

FE 

EF 


CP 

EF 

C478 

28 

F9 


JR 

Z,C473 

C47A 

FE 

FC 


CP 

FC 

C47C 

28 

OB 


JR 

Z,C489 

C47E 

FE 

20 


CP 

20 

C480 

C4 

OC 

BB 

CALL 

NZ,BB0C 

C483 

Fl 



POP 

AF 

C484 

DC 

B9 

BC 

CALL 

C,BCB9 

C487 

B7 



OR 

A 

C488 

C9 



RET 


C489 

Fl 



POP 

AF 

C48A 

37 



SCF 


C48B 

C9 



RET 



********************************** 


C48C 

CD 

1A 

C5 

CALL 

C51A 

C48F 

C5 



PUSH 

BC 

C490 

D5 



PUSH 

DE 

C491 

CD 

55 

DD 

CALL 

DD55 

C494 

30 

18 


JR 

NC.C4AE 

C496 

CD 

1A 

C5 

CALL 

C51A 

C499 

C5 



PUSH 

BC 

C49A 

D5 



PUSH 

DE 

C49B 

CD 

37 

DD 

CALL 

DD37 

C49E 

2C 





C49F 

CD 

1A 

C5 

CALL 

C51A 

C4A2 

C5 



PUSH 

BC 

C4A3 

E3 



EX 

(SP),HL 

C4A4 

CD 

D2 

BB 

CALL 

BBD2 

C4A7 

El 



POP 

HL 

C4A8 

Dl 



POP 

DE 

C4A9 

E3 



EX 

(SP),HL 

C4AA 

CD 

CF 

BB 

CALL 

BBCF 

C4AD 

El 



POP 

HL 

C4AE 

Dl 



POP 

DE 

C4AF 

E3 



EX 

(SP),HL 

C4B0 

CD 

C9 

BB 

CALL 

BBC9 

C4B3 

El 



POP 

HL 

C4B4 

C9 



RET 


********************************** 

C4B5 

CD 

51 

DD 

CALL 

DD51 

C4B8 

38 

06 


JR 

C,C4C0 

C4BA 

CD 

4B 

C2 

CALL 

C24B 

C4BD 

CD 

E4 

BB 

CALL 

BBE4 

C4C0 

E5 



PUSH 

HL 

C4C1 

CD 

DB 

BB 

CALL 

BBDB 

C4C4 

El 



POP 

HL 

C4C5 

C9 



RET 



Taste einlesen 

Code f. Break-Ev. durch ESC ? 
dann neue Taste holen 
ESC-Taste ? 

dann Flag für Abbruch setzen 
Space ? 

nein ? dann zurück in Buffer 
Sound aktiv ? 
dann SOUND CONTINUE 
CY=0 für keinen Abbruch 


CY=1 für Abbruch 


Basic-Befehl ORIGIN 
Koordinaten holen 

als Graphikcursorposition 
retten 

folgt Komma ? 
nein ? 

sonst Koordinaten holen 
als Grenzen (links,rechts) 
retten 
Test auf 

II II 
r 

Koordinaten holen 
untere Grenze retten, 
nach HL, Basic-PC retten 
Grenzen oben/unten setzen 
Basic-PC vom Stack 
linke Grenze vom Stack, 
rechte nach HL, PC retten 
Grenzen links/rechts setzen 
Basic-PC vom Stack 
X-Cursorposition vom Stack 
Y-Pos. nach HL, PC retten 
Koordinaten-Ursprung setzen 
Basic-PC vom Stack 


Basic-Befehl CLG 
Statementende ? 
dann keinen Farbstift holen 
Färbstiftnr. holen 
GRA SET PAPER 

Graphik-Window löschen 


********************************** Basic*Befehl DRAW 
C4C6 01 F6 BB LD BC,BBF6 GRA LINE ABSOLUTE 

C4C9 18 0D JR C4D8 

********************************** Basic-Befehl DRAWR 
C4CB 01 F9 BB LD BC,BBF9 GRA LINE RELATIVE 

C4CE 18 08 JR C4D8 
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* *** * * ***************** * ********** 


C4D0 

01 

EA 

BB 

LD 

BC,BBEA 

C4D3 

18 

03 


JR 

C4D8 

********************************** 

C4D5 

01 

ED 

BB 

LD 

BC.BBED 

C4D8 

C5 



PUSH 

BC 

C4D9 

CD 

1A 

C5 

CALL 

C51A 

C4DC 

CD 

55 

DD 

CALL 

DD55 

C4DF 

30 

06 


JR 

NC,C4E7 

C4E1 

CD 

4B 

C2 

CALL 

C24B 

C4E4 

CD 

DE 

BB 

CALL 

BBDE 

C4E7 

18 

28 


JR 

C511 

********************************** 

C4E9 

01 

F0 

BB 

LD 

BC,BBF0 

C4EC 

18 

03 


JR 

C4F1 

********************************** 

C4EE 

01 

F3 

BB 

LD 

BC,BBF3 

C4F1 

C5 



PUSH 

BC 

C4F2 

CD 

1A 

C5 

CALL 

C51A 

C4F5 

CD 

37 DD 

CALL 

DD37 

C4F8 

29 





C4F9 

E3 



EX 

(SP),HL 

C4FA 

C5 



PUSH 

BC 

C4FB 

E3 



EX 

(SP),HL 

C4FC 

CI 



POP 

BC 

C4FD 

CD 

F9 

FF 

CALL 

FFF9 

C500 

CD 

0A 

FF 

CALL 

FF0A 

C503 

El 



POP 

HL 

C504 

C9 



RET 


********************************** 

C505 

01 

CO 

BB 

LD 

BC,BBC0 

C508 

18 

03 


JR 

C50D 


********************************** 


C50A 

01 

C3 

BB 

LD 

BC,BBC3 

C50D 

C5 



PUSH 

BC 

C50E 

CD 

1A 

C5 

CALL 

C51A 

C511 

E3 



EX 

(SP),HL 

C512 

C5 



PUSH 

BC 

C513 

E3 



EX 

(SP),HL 

C514 

Ci 



POP 

BC 

C515 

CD 

F9 

FF 

CALL 

FFF9 

C518 

El 



POP 

HL 

C519 

C9 



RET 



********************************** 


C51A 

CD 

86 

CE 

CALL 

CE86 

C51D 

D5 



PUSH 

DE 

C51E 

CD 

37 

DD 

CALL 

DD37 

C521 

2C 





C522 

CD 

86 

CE 

CALL 

CE86 

C525 

42 



LD 

B,D 


Basic-Befehl PLOT 
GRA PLOT ABSOLUTE 


Basic-Befehl PLOTR 
GRA PLOT RELATIVE 
Routinenadresse retten 
Koordinaten holen 
folgt Komma ? 
nein ? 

sonst Farbstift-Nr. holen 
GRA SET PEN 
Routine ausführen 

Basic-Befehl TEST 
GRA TEST ABSOLUTE 


Basic-Funktion TESTR 
GRA TEST RELATIVE 
Routinenadresse retten 
Koordinaten holen 
Test auf ") n 
11)11 

Routinenadr. v. St., PC retten 
Y-Koordinate auf Stack 
nach HL, Routinenadr. retten 
und nach BC 
Routine anspringen 
Funktionsergebnis in FAC 
Basic-PC zurück 


Basic-Befehl MOVE 
GRA MOVE ABSOLUTE 


Basic-Befehl MOVER 
GRA MOVE RELATIVE 
Routinenadresse retten 
Koordinaten holen 
Routinenadr. v. St., PC retten 
Y-Koordinate auf Stack 
nach HL, Routinenadr. retten 
und nach BC 
Routine anspringen 
Basic-PC zurück 


Graphik-Koordinaten holen 
OUT: DE: 1. Koordinate 
BC: 2. Koordinate 
Integerwert holen 
und retten 
Test auf 

II II 
t 

Integerwert holen 
nach 
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C526 45 LD C,E BC 

C527 Dl POP DE 1. Koordinate vom Stack 

C528 C9 RET 


********************************** 


C529 

CD 

B3 

D6 

CALL 

D6B3 

C52C 

E5 



PUSH 

HL 

C52D 

C5 



PUSH 

BC 

C52E 

D5 



PUSH 

DE 

C52F 

CD 

C5 

C9 

CALL 

C9C5 

C532 

22 

2C 

AC 

LD 

(AC2C),HL 

C535 

D5 



PUSH 

DE 

C536 

E5 



PUSH 

HL 

C537 

EB 



EX 

DE,HL 

C538 

CD 

32 

C6 

CALL 

C632 

C53B 

CC 

AC 

F5 

CALL 

Z,F5AC 

C53E 

El 



POP 

HL 

C53F 

CD 

51 

DD 

CALL 

DD51 

C542 

11 

00 

00 

LD 

DE,0000 

C545 

D4 

86 

D6 

CALL 

NC,D686 

C548 

44 



LD 

B, H 

C549 

4D 



LD 

C,L 

C54A 

El 



POP 

HL 

C54B 

E3 



EX 

(SP),HL 

C54C 

7A 



LD 

A, D 

C54D 

B3 



OR 

E 

C54E 

C4 

B8 

FF 

CALL 

NZ.FFB8 

C551 

C2 

F6 

C5 

JP 

NZ,C5F6 

C554 

EB 



EX 

DE,HL 

C555 

CD 

D2 

DD 

CALL 

DDD2 

C558 

E3 



EX 

(SP),HL 

C559 

CD 

CE 

DD 

CALL 

DDCE 

C55C 

El 



POP 

HL 

C55D 

Fl 



POP 

AF 

C55E 

E3 



EX 

(SP),HL 

C55F 

D5 



PUSH 

DE 

C560 

C5 



PUSH 

BC 

C561 

E5 



PUSH 

HL 

C562 

01 

05 

16 

LD 

BC,1605 

C565 

B9 



CP 

C 

C566 

28 

OB 


JR 

Z,C573 

C568 

01 

02 

10 

LD 

BC,1002 

C56B 

B9 



CP 

C 

C56C 

28 

05 


JR 

Z,C573 

C56E 

IE 

0D 


LD 

E, 0D 

C570 

C3 

94 

CA 

JP 

CA94 

C573 

78 



LD 

A,B 

C574 

CD 

B0 

F5 

CALL 

F5B0 

C577 

73 



LD 

(HL),E 

C578 

23 



INC 

HL 

C579 

72 



LD 

(HL),D 

C57A 

23 



INC 

HL 

C57B 

E3 



EX 

(SP),HL 

C57C 

CD 

37 

DD 

CALL 

DD37 

C57F 

EF 





C580 

CD 

FB 

CE 

CALL 

CEFB 

C583 

79 



LD 

A,C 

C584 

CD 

D7 

FE 

CALL 

FED7 


Basic-Befehl FOR 

einfache Variable holen 
Basic-PC retten 
Typflag der Variablen 
und Variablenadresse retten 
zugehöriges NEXT suchen 
Zeiger nach NEXT-Token 
Adresse der FOR-Zeile und 
Zeiger nach NEXT-Token retten 
und nach DE 

offene Schleife m. glei. NEXT 
gefunden ? dann vom Stack 
Zeiger nach NEXT-Token 
Statementende ? 

Kennz. f. keine NEXT-Variable 
nein ? dann NEXT-Var. holen 
Zeiger nach NEXT-Variable 
bzw. NEXT-Token nach HL 
FOR-Variablen-Adresse 
vom Stack 
NEXT-Variable 
vorhanden ? 

Variablenadr. ggf. gleich ? 
nein ? dann "Unexpected NEXT" 
FOR-Variablenadresse nach DE 
akt. (NEXT-)Zeilenadr. holen 
retten, FOR-Zeilenadresse 
wieder als akt. Zeilenadr. 
NEXT-Zeilenadresse 
Typflag der FOR-Variablen 
FOR-Zeilenadr. retten, PC zur 
FOR-Variablenadresse, 

Zeiger nach NEXT-Statement 
und PC nach FOR-Var. retten 
Stack-Kennz./Typ für REAL 
mit Variablentyp vergleichen 
REAL ? 

Stack-Kennz./Typ für INTEGER 
mit Variablentyp vergleichen 
INTEGER ? 

sonst Nr. f. "Type mismatch" 
Fehler ausgeben 
Größe des Stackeintrags 
Platz auf Basic-Stack reserv. 

FOR-Variablenadresse 
auf Basic-Stack eintragen 

Eintragszeiger retten, PC zur 
Test auf "=" 

II — II 

Startwert holen 
FOR-Variablentyp 
Startwert-Typ angleichen 
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C587 

E5 



PUSH 

HL 

C588 

21 

27 

AC 

LD 

HL,AC27 

C58B 

CD 

62 

FF 

CALL 

FF62 

C58E 

El 



POP 

HL 

C58F 

CD 

37 

DD 

CALL 

DD37 

C592 

EC 





C593 

CD 

FB 

CE 

CALL 

CEFB 

C596 

E3 



EX 

(SP),HL 

C597 

79 



LD 

A, C 

C598 

CD 

D7 

FE 

CALL 

FED7 

C59B 

CD 

62 

FF 

CALL 

FF62 

C59E 

EB 



EX 

DE,HL 

C59F 

E3 



EX 

(SP),HL 

C5A0 

EB 



EX 

DE,HL 

C5A1 

21 

01 

00 

LD 

HL,0001 

C5A4 

CD 

0D 

FF 

CALL 

FFOD 

C5A7 

EB 



EX 

DE,HL 

C5A8 

7E 



LD 

A, (HL) 

C5A9 

FE 

E6 


CP 

E6 

C5AB 

20 

06 


JR 

NZ,C5B3 

C5AD 

CD 

3F 

DD 

CALL 

DD3F 

C5B0 

CD 

FB 

CE 

CALL 

CEFB 

C5B3 

79 



LD 

A, C 

C5B4 

CD 

D7 

FE 

CALL 

FED7 

C5B7 

E3 



EX 

(SP),HL 

C5B8 

CD 

62 

FF 

CALL 

FF62 

C5BB 

CD 

A3 

FD 

CALL 

FDA3 

C5BE 

EB 



EX 

DE,HL 

C5BF 

77 



LD 

(HL),A 

C5C0 

23 



INC 

HL 

C5C1 

EB 



EX 

DE,HL 

C5C2 

El 



POP 

HL 

C5C3 

CD 

4A 

DD 

CALL 

DD4A 

C5C6 

EB 



EX 

DE,HL 

C5C7 

73 



LD 

(HL),E 

C5C8 

23 



INC 

HL 

C5C9 

72 



LD 

(HL),D 

C5CA 

23 



INC 

HL 

C5CB 

EB 



EX 

DE, HL 

C5CC 

CD 

D2 

DD 

CALL 

DDD2 

C5CF 

EB 



EX 

DE,HL 

C5D0 

73 



LD 

(HL),E 

C5D1 

23 



INC 

HL 

C5D2 

72 



LD 

(HL),D 

C5D3 

23 



INC 

HL 

C5D4 

Dl 



POP 

DE 

C5D5 

73 



LD 

(HL),E 

C5D6 

23 



INC 

HL 

C5D7 

72 



LD 

(HL),D 

C5D8 

23 



INC 

HL 

C5D9 

ED 

5B 

2C AC 

LD 

DE,(AC2C) 

C5DD 

73 



LD 

(HL),E 

C5DE 

23 



INC 

HL 

C5DF 

72 



LD 

(HL),D 

C5E0 

23 



INC 

HL 

C5E1 

70 



LD 

(HL),B 

C5E2 

Dl 



POP 

DE 

C5E3 

21 

27 

AC 

LD 

HL,AC27 


Basic-PC retten 

Zeiger auf Zwischenspeicher 

Startwert Zwischenspeichern 

Basic-PC 

Test auf TO 

Token für TO 

Endwert holen 

PC retten, Eintragszeiger zur. 
Typ der FOR-Variablen 
Endwert-Typ angleichen 
Endwert auf Basic-Stack 
Eintragszeiger 
retten, Basic-PC 
zurück 

Default-Stepwert 

in FAC eintragen 

Basic-PC nach HL 

Zeichen nach Endwert 

Token für STEP ? 

nein ? dann Default 

sonst STEP-Token übergehen 

Stepwert holen 

Typflag der FOR-Variablen 

Stepwert-Typ angleichen 

PC retten, Eintragszeiger zur. 

Stepwert auf Basic-Stack 

Vorzeichen des Stepwerts holen 

Eintragszeiger nach HL 

Vorzeichen auf Basic-Stack 

Eintragszeiger 

nach DE 

Basic-PC zurück 
Test auf Statementende 
PC nach DE, Eintragsz. nach HL 
Basic-PC 

(nach FOR-Statement) 
auf Basic-Stack eintragen 

Adresse des 
FOR-Zeilenanfangs 
nach DE 

FOR-Zeilenadresse 

auf Basic-Stack eintragen 

Zeiger nach NEXT-Statement 

auf Basic-Stack 
eintragen 

Zeiger nach NEXT-Token 

auf Basic-Stack 
eintragen 

Länge des Eintrags eintragen 
Adresse der FOR-Variablen 
Adresse des Startwertes 
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C5E6 

CD 

66 

FF 

CALL 

FF66 

C5E9 

AF 



XOR 

A 

C5EA 

32 

26 

AC 

LD 

(AC26),A 

C5ED 

El 



POP 

HL 

C5EE 

CD 

CE 

DD 

CALL 

DDCE 

C5F1 

2A 

2C 

AC 

LD 

HL,(AC2C) 

C5F4 

18 

OA 


JR 

C600 

C5F6 

IE 

01 


LD 

E, 01 

C5F8 

C3 

94 

CA 

JP 

CA94 


********************************** 


C5FB 

3E 

FF 


LD 

A, FF 

C5FD 

32 

26 

AC 

LD 

(AC26),A 

C600 

EB 



EX 

DE,HL 

C601 

CD 

32 

C6 

CALL 

C632 

C604 

20 

F0 


JR 

NZ,C5F6 

C606 

EB 



EX 

DE,HL 

C607 

CD 

AC 

F5 

CALL 

F5AC 

C60A 

EB 



EX 

DE,HL 

C60B 

E5 



PUSH 

HL 

C60C 

CD 

61 

C6 

CALL 

C661 

C60F 

28 

0F 


JR 

Z,C620 

C611 

Fl 



POP 

AF 

C612 

23 



INC 

HL 

C613 

5E 



LD 

E, (HL) 

C614 

23 



INC 

HL 

C615 

56 



LD 

D, (HL) 

C616 

23 



INC 

HL 

C617 

7E 



LD 

A, (HL) 

C618 

23 



INC 

HL 

C619 

66 



LD 

H, (HL) 

C61A 

6F 



LD 

L,A 

C61B 

CD 

CE 

DD 

CALL 

DDCE 

C61E 

EB 



EX 

DE,HL 

C61F 

C9 



RET 


C620 

01 

05 

00 

LD 

BC.0005 

C623 

09 



ADD 

HL,BC 

C624 

5E 



LD 

E, (HL) 

C625 

23 



INC 

HL 

C626 

56 



LD 

D,(HL) 

C627 

El 



POP 

HL 

C628 

CD 

AC 

F5 

CALL 

F5AC 

C62B 

EB 



EX 

DE,HL 

C62C 

CD 

55 

DD 

CALL 

DD55 

C62F 

38 

CF 


JR 

C,C600 

C631 

C9 



RET 



Startwert an Variable zuweisen 
Flag für Test auf 
Schleifenende setzen 
FOR-Zeilenadresse 
als aktuelle Zeilenadr. setzen 
Zeiger nach NEXT-Token als PC 
auf Schleifenende testen 

Nr. für "Unexpected NEXT" 
Fehler ausgeben 

Basic-Befehl NEXT 

Flag für Schleifendurchlauf 
setzen 

Zeiger nach NEXT-Token nach DE 
zugehörige FOR-Schleife suchen 
gef. ? sonst "Unexpected NEXT" 
Zeiger oberh. d. Eint, nach HL 
darüber liegende Schlf. löschen 
Zeiger oberh. d. nächst. Eint. 
= Zeiger auf diesen Eintrag 
Stepw. ggf. addieren, Ende pr. 
Schleifenende ? 

Zeiger auf Stackeintr. löschen 
Zeiger nach Stepwert-Vorzeich. 

Zeiger nach FOR-Statement 
nach DE 


FOR-Zeilenadresse 
nach HL 

als aktuelle Zeilenadr. setzen 
Zg. nach FOR-Statement als PC 

Offset zu NEXT-Zeiger 
zu Zeiger auf Vorzeichen add. 
Zeiger nach NEXT- 
Variable bzw. 

NEXT-Token 

Zeiger auf diesen Eintrag 
Schleife v. Basic-Stack lösch. 
Zg. nach NEXT-Statem. als PC 
folgt Konsna ? 

dann nächste NEXT-Variable 


*********************************** offene F0R“Schl6ife suchen 

IN : DE: Zeiger nach zugeh. NEXT 
OUT: DE: Zeiger für Eintrag 

HL: Zeiger f. nächst. Eintr. 
A,B: Länge des Eintrags 
Z=1, wenn gefunden 

C632 2A 8B BO LD HL,(B08B) Basic-Stackpointer 

C635 E5 PUSH HL retten 

C636 2B DEC HL Zeiger auf obersten Eintrag 

C637 46 LD B,(HL) Länge des obersten Eintrags 
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C638 

23 


INC 

HL 

C639 

7D 


LD 

A/L 

C63A 

90 


SUB 

B 

C63B 

6F 


LD 

L,A 

C63C 

9F 


SBC 

A 

C63D 

84 


ADD 

H 

C63E 

67 


LD 

H, A 

C63F 

E3 


EX 

(SP),HL 

C640 

78 


LD 

A,B 

C641 

FE 

07 

CP 

07 

C643 

28 

19 

JR 

Z,C65E 

C645 

FE 

10 

CP 

10 

C647 

28 

04 

JR 

Z,C64D 

C649 

FE 

16 

CP 

16 

C64B 

20 

0D 

JR 

NZ.C65A 

C64D 

E5 


PUSH 

HL 

C64E 

2B 


DEC 

HL 

C64F 

2B 


DEC 

HL 

C650 

7E 


LD 

A, (HL) 

C651 

2B 


DEC 

HL 

C652 

6E 


LD 

L, (HL) 

C653 

67 


LD 

H, A 

C654 

CD 

B8 FF 

CALL 

FFB8 

C657 

El 


POP 

HL 

C658 

20 

04 

JR 

NZ,C65E 

C65A 

EB 


EX 

DE,HL 

C65B 

El 


POP 

HL 

C65C 

78 


LD 

A,B 

C65D 

C9 


RET 


C65E 

El 


POP 

HL 

C65F 

18 

D4 

JR 

C635 


********* ******** ***************** 


C661 

5E 



LD 

E,(HL) 

C662 

23 



INC 

HL 

C663 

56 



LD 

D, (HL) 

C664 

23 



INC 

HL 

C665 

FE 

10 


CP 

10 

C667 

28 

2D 


JR 

Z.C696 

C669 

E5 



PUSH 

HL 

C66A 

01 

05 

00 

LD 

BC,0005 

C66D 

79 



LD 

A, C 

C66E 

EB 



EX 

DE,HL 

C66F 

CD 

4B 

FF 

CALL 

FF4B 

C672 

El 



POP 

HL 

C673 

3A 

26 AC 

LD 

A, (AC26) 

C676 

B7 



OR 

A 

C677 

28 

10 


JR 

Z.C689 

C679 

E5 



PUSH 

HL 

C67A 

09 



ADD 

HL,BC 

C67B 

CD 

CC 

FC 

CALL 

FCCC 

C67E 

El 



POP 

HL 

C67F 

E5 



PUSH 

HL 

C680 

2B 



DEC 

HL 


alten Zeiger wieder zurück 

Länge subtrahieren, 
gibt Zeiger für 
nächsten Eintrag 


retten, alten Zeiger zurück 
Länge 

WHILE-Schleife ? 
dann weiter suchen 
Integer-FOR-Schleife ? 
dann auswerten 
REAL-FOR-Schleife ? 
nein ? dann nichts gefunden 
Zeiger für diesen Stack-Eintr. 
Zeiger auf zugehörigen 
NEXT-Zeiger 

Zeiger nach zugehörigem 
NEXT-Token laden 

mit Zg. nach ges. NEXT vergl. 
Zeiger für Stackeintrag 
ungleich ? dann weiter suchen 
Stack-Suchzeiger nach DE 
Zeiger für nächsten Eintrag 
Länge des Eintrags 

Zeiger für nächsten Eintrag 
weiter suchen 

Stepw. ggf. addieren, Ende prüfen 
IN : HL: Zeiger auf Stackeintrag 
A: Eintragsgröße 
OUT: A=0, Z=1 bei Schleifenende 
HL: Zeiger auf Stepw.-Vorz. 

FOR-Variablenadresse 
aus Eintrag 

Eintragsgröße für Integer ? 

dann Integer-Schleife 

Eintragszeiger retten 

Eintragsgröße 

Typflag für REAL 

FOR-Variablenadresse nach HL 

FOR-Variable in FAC holen 

Eintragszeiger 

Flag für Test/Durchlauf 

nur Test auf Ende ? 
sonst Eintragszeiger retten 
Endw.-Gr. add., gibt Stepw.-Z. 
Stepwert zu FAC addieren 
Zeiger auf Endwert 
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C681 

56 



LD 

D, (HL) 

C682 

2B 



DEC 

HL 

C683 

5E 



LD 

E, (HL) 

C684 

EB 



EX 

DE,HL 

C685 

CD 

62 

FF 

CALL 

FF62 

C688 

El 



POP 

HL 

C689 

E5 



PUSH 

HL 

C68A 

OE 

05 


LD 

C,05 

C68C 

CD 

09 

FD 

CALL 

FD09 

C68F 

El 



POP 

HL 

C690 

01 

0A 

00 

LD 

BC,000A 

C693 

09 



ADD 

HL,BC 

C694 

96 



SUB 

(HL) 

C695 

C9 



RET 


C696 

E5 



PUSH 

HL 

C697 

EB 



EX 

DE,HL 

C698 

5E 



LD 

E,(HL) 

C699 

23 



INC 

HL 

C69A 

56 



LD 

D, (HL) 

C69B 

3A 

26 

AC 

LD 

A,(AC26) 

C69E 

B7 



OR 

A 

C69F 

28 

16 


JR 

Z,C6B7 

C6A1 

E3 



EX 

(SP),HL 

C6A2 

E5 



PUSH 

HL 

C6A3 

23 



INC 

HL 

C6A4 

23 



INC 

HL 

C6A5 

7E 



LD 

A,(HL) 

C6A6 

23 



INC 

HL 

C6A7 

66 



LD 

H,(HL) 

C6A8 

6F 



LD 

L,A 

C6A9 

CD 

AC 

BD 

CALL 

BDAC 

C6AC 

IE 

06 


LD 

E,06 

C6AE 

D2 

94 

CA 

JP 

NC,CA94 

C6B1 

EB 



EX 

DE,HL 

C6B2 

El 



POP 

HL 

C6B3 

E3 



EX 

(SP),HL 

C6B4 

72 



LD 

(HL),D 

C6B5 

2B 



DEC 

HL 

C6B6 

73 



LD 

(HL),E 

C6B7 

El 



POP 

HL 

C6B8 

7E 



LD 

A, (HL) 

C6B9 

23 



INC 

HL 

C6BA 

E5 



PUSH 

HL 

C6BB 

66 



LD 

H,(HL) 

C6BC 

6F 



LD 

L,A 

C6BD 

EB 



EX 

DE,HL 

C6BE 

CD 

C4 

BD 

CALL 

BDC4 

C6C1 

El 



POP 

HL 

C6C2 

23 



INC 

HL 

C6C3 

23 



INC 

HL 

C6C4 

23 



INC 

HL 

C6C5 

96 



SUB 

(HL) 

C6C6 

C9 



RET 



FOR-Variablenadresse 
laden 

nach HL 

FAC wieder nach FOR-Variable 
Zeiger auf Endwert 

Typflag für REAL 

FAC mit Endwert vergleichen 

Zeiger auf Endwert 

Step- und Endwert übergehen 

gibt Zeiger auf Stepwert-Vorz. 

vom Vergleichsergebnis abz. 


Endwertzeiger retten 
FOR-Variablenadresse nach HL 

Variablenwert nach DE 

Flag für Test/Durchlauf 

nur Test auf Ende ? 
FOR-Variablenadresse retten 
Eintragszeiger wieder retten 

Zeiger auf Stepwert 

Stepwert 
nach HL 

zu Variablenwert addieren 
Nr. für "Overflow" 

Überlauf ? dann Fehler ausg. 
neuen Variablenwert nach DE 
Variablenadresse 
vom Stack 

neuen Variablenwert 
eintragen 

Endwert-Zeiger zurück 
Endwert lo 

Zeiger auf Endwert hi 
retten 
Endwert hi 
Endwert lo 

nach DE, FOR-Variablenw. n. HL 
Werte vergleichen 
Zeiger auf Endwert hi 

+3= Zeiger auf Stepwert- 
Vorzeichen 

von Vergleichsergebnis abz. 



Die Listings der CPC-ROMs 433 


********************************** 


C6C7 

CD 

FB 

CE 

CALL 

CEFB 

C6CA 

FE 

AO 


CP 

AO 

C6CC 

28 

04 


JR 

Z,C6D2 

C6CE 

CD 

37 

DD 

CALL 

DD37 

C6D1 

EB 





C6D2 

E5 



PUSH 

HL 

C6D3 

CD 

A3 

FD 

CALL 

FDA3 

C6D6 

El 



POP 

HL 

C6D7 

CC 

9F 

E8 

CALL 

Z,E89F 

C6DA 

C8 



RET 

Z 

C6DB 

CD 

51 

DD 

CALL 

DD51 

C6DE 

D8 



RET 

C 

C6DF 

FE 

IE 


CP 

IE 

C6E1 

28 

05 


JR 

Z,C6E8 

C6E3 

FE 

ID 


CP 

ID 

C6E5 

C2 

AB 

DD 

JP 

NZ.DDAB 

********************************** 

C6E8 

CD 

67 

E7 

CALL 

E767 

C6EB 

EB 



EX 

DE,HL 

C6EC 

C9 



RET 


********************************** 

C6ED 

CD 

67 

E7 

CALL 

E767 

C6F0 

CD 

EF 

E8 

CALL 

E8EF 

C6F3 

EB 



EX 

DE,HL 

C6F4 

OE 

00 


LD 

C,00 


********************************** 


C6F6 

E5 



PUSH 

HL 

C6F7 

3E 

06 


LD 

A,06 

C6F9 

CD 

B0 

F5 

CALL 

F5B0 

C6FC 

71 



LD 

(HL),C 

C6FD 

23 



INC 

HL 

C6FE 

73 



LD 

(HL),E 

C6FF 

23 



INC 

HL 

C700 

72 



LD 

<HL),D 

C701 

23 



INC 

HL 

C702 

EB 



EX 

DE,HL 

C703 

CD 

D2 

DD 

CALL 

DDD2 

C706 

EB 



EX 

DE,HL 

C707 

73 



LD 

<HL),E 

C708 

23 



INC 

HL 

C709 

72 



LD 

<HL),D 

C70A 

23 



INC 

HL 

C70B 

36 

06 


LD 

(HL),06 

C70D 

El 



POP 

HL 

C70E 

C9 



RET 


********************************** 

C70F 

CO 



RET 

NZ 

C710 

CD 

2E 

C7 

CALL 

C72E 

C713 

CD 

AC 

F5 

CALL 

F5AC 

C716 

4E 



LD 

C, (HL) 

C717 

23 



INC 

HL 


Basic-Befehl IF 

Ausdruck als Bedingung holen 

Token für GOTO ? 

dann nicht auf THEN prüfen 

Test auf THEN 

Token für THEN 

Basic-PC retten 

Vorzeichen von FAC holen 

Basic-PC zurück 

FAC=0 ? dann zugeh. ELSE such. 

kein ELSE ? dann nächste Zeile 

Statementende ? 

dann zurück 

Zeilennummer ? 

dann zum GOTO-Befehl 

Zeilenadresse ? 

nein ? dann folgenden Befehl 

Basic-Befehl GOTO 

Zeilenadresse holen 
als neuen Basic-PC setzen 


Basic-Befehl GOSUB 
Zeilenadresse holen 
bis Statementende über lesen 
neuer PC in HL, alter in DE 
Kennzeichen für norm. GOSUB 

GOSUB-Datensatz auf Stack 
IN : DE: einzutragende Adresse 
C: Flag für GOSUB-Art 

Größe des Eintrags 

Platz auf Basic-Stack reserv. 

GOSUB-Art auf Basic-Stack 


einzutragende Adresse 
auf Basic-Stack 


akt. Zeilenadresse nach DE 


aktuelle Zeilenadresse 
auf Basic-Stack 

Eintragsgröße auf Basic-Stack 


Basic-Befehl RETURN 

Statementende ? sonst Fehler 
GOSUB auf Basic-Stack suchen 
Stackeintrag löschen 
GOSUB-Flag 
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C718 

5E 



LD 

E, (HL) 

C719 

23 



INC 

HL 

C71A 

56 



LD 

D,(HL) 

C71B 

23 



INC 

HL 

C71C 

7E 



LD 

A,(HL) 

C71D 

23 



INC 

HL 

C71E 

66 



LD 

H, (HL) 

C71F 

6F 



LD 

L,A 

C720 

CD 

CE 

DD 

CALL 

DDCE 

C723 

EB 



EX 

DE,HL 

C724 

79 



LD 

A, C 

C725 

FE 

01 


CP 

01 

C727 

D8 



RET 

C 

C728 

CA 

A4 

C8 

JP 

Z,C8A4 

C72B 

C3 

B6 

C8 

JP 

C8B6 

********************************** 

C72E 

2A 

8B 

BO 

LD 

HL, (B08B) 

C731 

2B 



DEC 

HL 

C732 

7E 



LD 

A,(HL) 

C733 

F5 



PUSH 

AF 

C734 

7D 



LD 

A, L 

C735 

96 



SUB 

(HL) 

C736 

6F 



LD 

L,A 

C737 

9F 



SBC 

A 

C738 

84 



ADD 

H 

C739 

67 



LD 

H,A 

C73A 

23 



INC 

HL 

C73B 

Fl 



POP 

AF 

C73C 

FE 

06 


CP 

06 

C73E 

C8 



RET 

Z 

C73F 

B7 



OR 

A 

C740 

20 

EF 


JR 

NZ.C731 

C742 

IE 

03 


LD 

E,03 

C744 

C3 

94 

CA 

JP 

CA94 


********************************** 


C747 

E5 



PUSH 

HL 

C748 

CD 

18 

CA 

CALL 

CA18 

C74B 

E5 



PUSH 

HL 

C74C 

EB 



EX 

DE,HL 

C74D 

22 

2E 

AC 

LD 

(AC2E),HL 

C750 

CD 

B8 

C7 

CALL 

C7B8 

C753 

CC 

AC 

F5 

CALL 

Z,F5AC 

C756 

3E 

07 


LD 

A,07 

C758 

CD 

B0 

F5 

CALL 

F5B0 

C75B 

EB 



EX 

DE,HL 

C75C 

CD 

D2 

DD 

CALL 

DDD2 

C75F 

EB 



EX 

DE,HL 

C760 

73 



LD 

(HL),E 

C761 

23 



INC 

HL 

C762 

72 



LD 

(HL),D 

C763 

23 



INC 

HL 

C764 

Dl 



POP 

DE 

C765 

73 



LD 

(HL),E 

C766 

23 



INC 

HL 

C767 

72 



LD 

(HL),D 


zwischengespeicherte 
Adresse nach DE 


alte Zeilenadresse 
nach HL 

als neue Zeilenadresse setzen 

gespeicherte Adresse nach HL 

GOSUB-Flag 

norm. GOSUB ? 

dann PC=Adresse, zurück 

AFTER-/EVERY- o. ON SQ-GOSUB ? 

sonst ON BREAK-GOSUB 

GOSUB auf Basic-Stack suchen 
OUT: HL: Zeiger auf Eintrag 
Basic-Stackpointer 
Zeiger auf oberstes Byte 
Länge des obersten Eintrags 
retten 


Länge abziehen, gibt Zeiger 
oberhalb des nächsten 
Eintrags 

DEC HL wieder ausgleichen 

Eintrags länge 

GOSUB ? 

dann gefunden 

nicht Ende des Basic-Stacks ? 
dann nächsten Eintrag prüfen 
Nr. für "Unexpected RETURN" 
Fehler ausgeben 

Basic-Befehl WHILE 
Basic-PC retten 
zugehöriges WEND suchen 
Zeiger nach WEND-Token 
nach DE, WEND-Zeilenadr. n. HL 
WEND-Zeilenadresse speichern 
zugehörige WHILE-Schleife su. 
gef. ? dann vom Stack löschen 
Größe des WH ILE-Eintrags 
Platz auf Basic-Stack reserv. 

akt. Zeilenadr. nach DE 


Zeilenadresse 

auf Basic-Stack eintragn 

Zeiger nach WEND-Token 

auf Basic-Stack eintragen 
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C768 

23 



INC 

HL 

C769 

EB 



EX 

DE,HL 

C76A 

E3 



EX 

(SP),HL 

C76B 

EB 



EX 

DE,HL 

C76C 

73 



LD 

(HL),E 

C76D 

23 



INC 

HL 

C76E 

72 



LD 

(HL),D 

C76F 

23 



INC 

HL 

C770 

36 

07 


LD 

(HL),07 

C772 

EB 



EX 

DE,HL 

C773 

Dl 



POP 

DE 

C774 

18 

2A 


JR 

C7A0 

********************************** 

C776 

CO 



RET 

NZ 

C777 

EB 



EX 

DE,HL 

C778 

CD 

B8 

C7 

CALL 

C7B8 

C77B 

IE 

IE 


LD 

E,1E 

C77D 

C2 

94 

CA 

JP 

NZ.CA94 

C780 

E5 



PUSH 

HL 

C781 

11 

07 

00 

LD 

DE,0007 

C784 

19 



ADD 

HL,DE 

C785 

CD 

AC 

F5 

CALL 

F5AC 

C788 

CD 

D2 

DD 

CALL 

DDD2 

C78B 

22 

2E 

AC 

LD 

(AC2E),HL 

C78E 

El 



POP 

HL 

C78F 

5E 



LD 

E, (HL) 

C790 

23 



INC 

HL 

C791 

56 



LD 

D, (HL) 

C792 

23 



INC 

HL 

C793 

EB 



EX 

DE,HL 

C794 

CD 

CE 

DD 

CALL 

DDCE 

C797 

EB 



EX 

DE,HL 

C798 

5E 



LD 

E,(HL) 

C799 

23 



INC 

HL 

C79A 

56 



LD 

D, (HL) 

C79B 

23 



INC 

HL 

C79C 

7E 



LD 

A, (HL) 

C79D 

23 



INC 

HL 

C79E 

66 



LD 

H, (HL) 

C79F 

6F 



LD 

L,A 

C7A0 

D5 



PUSH 

DE 

C7A1 

CD 

FB 

CE 

CALL 

CEFB 

C7A4 

E5 



PUSH 

HL 

C7A5 

CD 

A3 

FD 

CALL 

FDA3 

C7A8 

El 



POP 

HL 

C7A9 

Dl 



POP 

DE 

C7AA 

CO 



RET 

NZ 

C7AB 

2A 

2E 

AC 

LD 

HL,(AC2E) 

C7AE 

CD 

CE 

DD 

CALL 

DDCE 

C7B1 

3E 

07 


LD 

A, 07 

C7B3 

CD 

A0 

F5 

CALL 

F5A0 

C7B6 

EB 



EX 

DE,HL 

C7B7 

C9 



RET 



Zeiger nach WEND-Token 
retten, Basic-PC (nach 
WH ILE-Token) zurück 

Zeiger nach WHILE-Token 
auf Basic-Stack 

Eintragsgröße auf Basic-Stack 
Basic-PC wieder nach HL 
Zeiger nach WEND-Token 
auf Schleifenende prüfen 

Basic-Befehl WEND 

Statementende ? sonst Fehler 
PC (nach WEND-Token) nach DE 
zugehörige WHILE-Schleife su, 
Nr. für "Unexpected WEND" 
keine Schleife ? dann Fehler 
Zeiger auf Stack-Eintrag 
Eintragsgröße addieren, 
gibt Zeiger oberhalb Eintrag 
darüberliegende Schlf. löschen 
aktuelle Zeilenadresse 
speichern 

Zeiger auf Stack-Eintrag 

WHILE-Zeilenadresse 
laden 


als akt. Zeilenadr. setzen 


Zeiger nach WEND-Token 
nach DE 


Zeiger nach WHILE-Token 
als Basic-PC nach HL 

Zeiger nach WEND-Token 
Ausdruck (WHILE-Bed.) holen 
PC nach Bedingung retten 
Vorzeichen der Bedingung 
PC nach Bedingung 
Zeiger nach WEND-Token 
BedingungoO (wahr) ? 
sonst WEND-Zeilenadresse 
als akt. Zeilenadr, setzen 
Größe des Basic-Stack-Eintrags 
Schleife v. Basic-Stack lösch. 
Zeiger nach WEND-Token als PC 
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********************************** 


C7B8 

2A 

8B 

B0 

LD 

HL,(B08B) 

C7BB 

2B 



DEC 

HL 

C7BC 

E5 



PUSH 

HL 

C7BD 

7D 



LD 

A,L 

C7BE 

96 



SUB 

(HL) 

C7BF 

6F 



LD 

L,A 

C7C0 

9F 



SBC 

A 

C7C1 

84 



ADD 

H 

C7C2 

67 



LD 

H,A 

C7C3 

23 



INC 

HL 

C7C4 

E3 



EX 

(SP),HL 

C7C5 

7E 



LD 

A,(HL) 

C7C6 

FE 

10 


CP 

10 

C7C8 

28 

16 


JR 

Z,C7E0 

C7CA 

FE 

16 


CP 

16 

C7CC 

28 

12 


JR 

Z,C7E0 

C7CE 

FE 

07 


CP 

07 

C7D0 

20 

OC 


JR 

NZ,C7DE 

C7D2 

2B 



DEC 

HL 

C7D3 

2B 



DEC 

HL 

C7D4 

2B 



DEC 

HL 

C7D5 

7E 



LD 

A,(HL) 

C7D6 

2B 



DEC 

HL 

C7D7 

6E 



LD 

L, (HL) 

C7D8 

67 



LD 

H, A 

C7D9 

CD 

B8 

FF 

CALL 

FFB8 

C7DC 

20 

02 


JR 

NZ,C7E0 

C7DE 

El 



POP 

HL 

C7DF 

C9 



RET 


C7E0 

El 



POP 

HL 

C7E1 

18 

D8 


JR 

C7BB 

********************************** 

C7E3 

FE 

9C 


CP 

9C 

C7E5 

CA 

E5 

CB 

JP 

Z,CBE5 

C7E8 

CD 

67 

CE 

CALL 

CE67 

C7EB 

4F 



LD 

C, A 

C7EC 

46 



LD 

B, (HL) 

C7ED 

78 



LD 

A,B 

C7EE 

FE 

A0 


CP 

A0 

C7F0 

28 

05 


JR 

Z,C7F7 

C7F2 

CD 

37 

DD 

CALL 

DD37 

C7F5 

9F 





C7F6 

2B 



DEC 

HL 

C7F7 

0D 



DEC 

C 

C7F8 

78 



LD 

A,B 

C7F9 

CA 

AB 

DD 

JP 

Z,DDAB 

C7FC 

CD 

3F 

DD 

CALL 

DD3F 

C7FF 

CD 

El 

CE 

CALL 

CEE1 

C802 

FE 

2C 


CP 

2C 

C804 

28 

Fl 


JR 

Z,C7F7 

C806 

C9 



RET 



offene WH ILE-Schleife suchen 
IN : DE: Zeiger nach zugeh. WEND 
HL: Zeiger auf Eintrag 
Z=1, wenn Schleife gefunden 
Basic-Stackpointer 
Zeiger auf obersten Eintrag 
retten 

Länge des Eintrags 
subtrahieren, 
gibt Zeiger auf Eintrag 
(oberhalb des nächsten) 

DEC HL ausgleichen 
Zeiger auf Eintrag retten 
Länge des Eintrags 
Integer-FOR-Schleife ? 
dann weitersuchen 
REAL-FOR-Schleife ? 
dann weitersuchen 
WHILE-Schleife ? 
nein ? dann nicht gefunden 


Zeiger auf WEND-Zeiger 

Zeiger nach WEND-Token 
laden 

mit ges. Zeiger vergleichen 
ungleich ? dann weitersuchen 
Zeiger auf Schleifeneintrag 

Zeiger oberhalb nächst. Eintr. 
weitersuchen 

Basic-Befehl ON 

folgt Token für ERROR ? 
dann ON ERROR 
Bytewert holen 

nach C als Zähler f. Zeilennr. 
folgendes Zeichen 

Token für GOTO ? 
dann o.k. 

Test auf GOSUB 

Token für GOSUB 

PC wieder auf GOSUB-Token 

Zähler für Zeilennunmern 

GOTQ-/GOSUB-Token 

Zähler=0 ? dann entspr. Befehl 

sonst nächstes Zeichen 

Zei lennuim>er holen 

folgt Komma ? 

dann weiter behandeln 




Die Listings der CPC-ROMs 437 


********************************** 


C807 

AF 



XOR 

A 

C808 

32 

30 

AC 

LD 

(AC30),A 

C80B 

CD 

FB 

BC 

CALL 

BCFB 

C80E 

30 

ID 


JR 

NC,C82D 

C810 

47 



LD 

B,A 

C811 

3A 

30 

AC 

LD 

A,(AC30) 

C814 

E6 

7F 


AND 

7F 

C816 

32 

30 

AC 

LD 

(AC30),A 

C819 

C5 



PUSH 

BC 

C81A 

E5 



PUSH 

HL 

C81B 

CD 

FE 

BC 

CALL 

BCFE 

C81E 

El 



POP 

HL 

C81F 

CI 



POP 

BC 

C820 

3A 

30 

AC 

LD 

A, (AC30) 

C823 

17 



RLA 


C824 

F5 



PUSH 

AF 

C825 

78 



LD 

A,B 

C826 

D4 

01 

BD 

CALL 

NC,BD01 

C829 

Fl 



POP 

AF 

C82A 

17 



RLA 


C82B 

30 

DE 


JR 

NC,C80B 

C82D 

3A 

30 

AC 

LD 

A,(AC30) 

C830 

E6 

04 


AND 

04 

C832 

C4 

53 

C4 

CALL 

NZ,C453 

C835 

2A 

34 

AE 

LD 

HL,(AE34) 

C838 

3A 

30 

AC 

LD 

A,(AC30) 

C83B 

E6 

03 


AND 

03 

C83D 

C8 



RET 

Z 

C83E 

1F 



RRA 


C83F 

DA 

6B 

CB 

JP 

C,CB6B 

C842 

23 



INC 

HL 

C843 

Fl 



POP 

AF 

C844 

C3 

93 

DD 

JP 

DD93 

********************************** 

C847 

22 

36 

AC 

LD 

(AC36),HL 

C84A 

3E 

04 


LD 

A,04 

C84C 

30 

50 


JR 

NC,C89E 

C84E 

2A 

34 

AC 

LD 

HL,(AC34) 

C851 

7C 



LD 

A, K 

C852 

B5 



OR 

L 

C853 

C4 

D6 

DD 

CALL 

NZ,DDD6 

C856 

3E 

41 


LD 

A,41 

C858 

30 

44 


JR 

NC,C89E 

C85A 

11 

31 

AC 

LD 

DE.AC31 

C85D 

OE 

02 


LD 

C,02 

C85F 

18 

25 


JR 

C886 

********************************** 

C861 

D5 



PUSH 

DE 

C862 

CD 

37 DD 

CALL 

DD37 

C865 

9F 





C866 

CD 

67 

E7 

CALL 

E767 

C869 

42 



LD 

B,D 

C86A 

4B 



LD 

C,E 

C86B 

CD 

61 

DD 

CALL 

DD61 


Synchronous Events bearbeiten 
Flags für Eventbearbeitung 
löschen 

nächstes sync. Event 
laufende Priorität größer ? 
Priorität des alten Events 
Flag für "kein DOME SYNC" 
löschen 

alte Priorität und 
Adr. des Event-Blocks retten 
Sync. Event ausführen 
Adresse des Event-Blocks und 
alte Priorität zurück 
Bearbeitungs-Flags 
Flag für "kein DONE SYNC» ? 
Bearbeitungs-Flags retten 
alte Priorität 

ggf. KL DONE SYNC, Ev. ausgef. 

Bearbeitungs-Flags 

Flag f. Ende der Sync-Schleife 

nicht gesetzt ? dann weiter 

Bearbeitungs-Flags 

Flag für "Break ermöglichen" ? 

dann Break-Abbruch ermöglichen 

PC für auszuführende Routine 

Bearbeitungs-Flags 

weder Abbruch noch Routine ? 

dann fertig 

Flag für Abbruch gesetzt ? 
dann Break ausgeben, Abbruch 
Zeiger auf Start der Zeile 
Aufrufadresse löschen 
Routine ausführen 

Break-Event Fortsetzung 

Zeiger auf Routinenadresse 
Flag für "Break ermöglichen" 
ESC (Break) nicht gedrückt ? 
Zeiger auf 0N-BREAK-Rout ine 

ON BREAK aktiv ? 
dann Flag für Direkt-Modus h. 
Flag f. Abbruch/Schleifenende 
Direkt-Modus bzw. inaktiv ? 
Zeiger auf ON-BREAK-Parameter 
Kennz. für ON BREAK-GOSUB 
Stackeintr. und Flags setzen 

Zeilenadresse in Event-Block 
IN : DE: Adresse des Event-Blocks 
Adresse retten 
Test auf GOSUB 
Token für GOSUB 
Zeilenadresse holen 
Zeilenadresse 
nach BC 

Spaces, TABs und LFs über lesen 
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C86E 

Dl 


POP 

DE 

C86F 

E5 


PUSH 

HL 

C870 

21 

0A 00 

LD 

HL,000A 

C873 

19 


ADD 

HL,DE 

C874 

71 


LD 

(HL),C 

C875 

23 


INC 

HL 

C876 

70 


LD 

(HL) ,B 

C877 

El 


POP 

HL 

C878 

C9 


RET 


********************************** 

C879 

23 


INC 

HL 

C87A 

23 


INC 

HL 

C87B 

23 


INC 

HL 

C87C 

EB 


EX 

DE,HL 

C87D 

CD 

D6 DD 

CALL 

DDD6 

C880 

3E 

40 

LD 

A,40 

C882 

30 

1A 

JR 

NC,C89E 

C884 

OE 

01 

LD 

C,01 

C886 

D5 


PUSH 

DE 

C887 

CD 

F6 C6 

CALL 

C6F6 

C88A 

2A 

34S)AE 

LD 

HL,(AE34) 

C88D 

EB 


EX 

DE,HL 

C88E 

El 


POP 

HL 

C88F 

70 


LD 

(HL),B 

C890 

23 


INC 

HL 

C891 

73 


LD 

(HL),E 

C892 

23 


INC 

HL 

C893 

72 


LD 

(HL),D 

C894 

23 


INC 

HL 

C895 

5E 


LD 

E, (HL) 

C896 

23 


INC 

HL 

C897 

56 


LD 

D,(HL) 

C898 

EB 


EX 

DE,HL 

C899 

22 

W 

-T" 

> 

m 

LD 

(AE34),HL 

C89C 

3E 

C2 

LD 

A,C2 

C89E 

21 

30 AC 

LD 

HL,AC30 

C8A1 

B6 


OR 

(HL) 

C8A2 

77 


LD 

(HL),A 

C8A3 

C9 


RET 


********************************** 

C8A4 

7E 


LD 

A,(HL) 

C8A5 

23 


INC 

HL 

C8A6 

5E 


LD 

E, (HL) 

C8A7 

23 


INC 

HL 

C8A8 

56 


LD 

D,(HL) 

C8A9 

D5 


PUSH 

DE 

C8AA 

01 

F7 FF 

LD 

BC,FFF7 

C8AD 

09 


ADD 

HL,BC 

C8AE 

CD 

01 BD 

CALL 

BD01 

C8B1 

El 


POP 

HL 

C8B2 

Fl 


POP 

AF 

C8B3 

C3 

74 DD 

JP 

DD74 


Adresse des Event-Blocks 
Basic-PC retten 

Offset zu Zeilenadressenfeld 
im Parameterfeld addieren 

Zeilenadr. in Parameterfeld 
des Event-Blocks speichern 
Basic-PC zurück 


Event-Routine f. AFTER/EVERY/SQ 
Zeiger auf Routinenadresse 
im Event-Block +3 ergibt 
Adresse des Parameterfelds 
nach DE 

Flag für Direkt-Modus holen 
Flag für Ende d. Sync-Schleife 
Direkt-Modus ? 

Flag f. EVERY-/AFTER-/SQ-GOSUB 
Adresse des Parameter-Feldes 
GOSUB-Datensatz a. Basic-Stack 
Zeiger auf Statementanfang 
nach DE 

Adresse des Parameterfeldes 
Priorität des alten Events 
in Parameterfeld eintragen 

Zeiger auf Statementanfang 
in Parameterfeld eintragen 

Routinenadresse aus 
Parameterfeld laden, nach DE 

und nach HL 

und Zwischenspeichern 

SchlfEnde/Rout./k. DONE SYNC 

Event-Bearbeitungs-Flags 

entsprechende Flags setzen 

und Flags wieder speichern 


RETURN Forts. (AFTER/EVERY/SQ) 
Priorität des alten Events 


alten Basic-PC 
retten 

Zeiger -7 ergibt 
Zeiger auf Event-Block 
KL DONE SYNC, Event ausgeführt 
neuer Basic-PC 
Aufrufadresse löschen 
zur Interpreterschleife 
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********************************** 


C8B6 

7E 



LD 

A, (HL) 

C8B7 

2A 

36 

AC 

LD 

HL,(AC36) 

C8BA 

01 

FC 

FF 

LD 

BC,FFFC 

C8BD 

09 



ADD 

HL,BC 

C8BE 

CD 

01 

BD 

CALL 

BD01 

C8C1 

CD 

53 

C4 

CALL 

C453 

C8C4 

2A 

32 

AC 

LD 

HL,(AC32) 

C8C7 

Fl 



POP 

AF 

C8C8 

C3 

74 

DD 

JP 

DD74 


********************************** 


C8CB 

FE 

CE 


CP 

CE 

C8CD 

11 

00 

00 

LD 

DE,0000 

C8D0 

28 

08 


JR 

Z,C8DA 

C8D2 

CD 

37 

DD 

CALL 

DD37 

C8D5 

9F 





C8D6 

CD 

67 

E7 

CALL 

E767 

C8D9 

2B 



DEC 

HL 

C8DA 

ED 

53 

34 AC 

LD 

(AC34),DE 

C8DE 

C3 

3F 

DD 

JP 

DD3F 


********************************** 


C8E1 

E5 



PUSH 

HL 

C8E2 

CD 

04 

BD 

CALL 

BD04 

C8E5 

El 



POP 

HL 

C8E6 

C9 



RET 


********************************** 

C8E7 

E5 



PUSH 

HL 

C8E8 

CD 

07 

BD 

CALL 

BD07 

C8EB 

El 



POP 

HL 

C8EC 

C9 



RET 


********************************** 

C8ED 

CD 

A7 

BC 

CALL 

BCA7 

C8F0 

21 

5C 

AC 

LD 

HL,AC5C 

C8F3 

06 

04 


LD 

B, 04 

C8F5 

E5 



PUSH 

HL 

C8F6 

CD 

EC 

BC 

CALL 

BCEC 

C8F9 

El 



POP 

HL 

C8FA 

11 

12 

00 

LD 

DE,0012 

C8FD 

19 



ADD 

HL, DE 

C8FE 

10 

F5 


DJNZ 

C8F5 

C900 

CD 

48 

BB 

CALL 

BB48 

C903 

CD 

F5 

BC 

CALL 

BCF5 

C906 

21 

00 

00 

LD 

HL,0000 

C909 

22 

34 

AC 

LD 

(AC34),HL 

C90C 

CD 

53 

C4 

CALL 

C453 

C90F 

21 

38 

AC 

LD 

HL,AC38 

C912 

11 

05 

03 

LD 

DE,0305 

C915 

01 

00 

08 

LD 

BC,0800 

C918 

CD 

24 

C9 

CALL 

C924 

C91B 

21 

62 

AC 

LD 

HL,AC62 

C91E 

11 

OB 

04 

LD 

DE.040B 

C921 

01 

01 

02 

LD 

BC,0201 


RETURN Forts. (ON BREAK) 

Priorität des alten Events 
Zg. auf Rout.-Adr. im Ev.-Bl. 

-4 gibt Zeiger 
auf Event-Block 

KL DONE SYNC, Event ausgeführt 
Break-Abbruch wieder ermöglichen 
alten Basic-PC 
Aufrufadresse löschen 
zur Interpreterschleife 

Basic-Befehl ON BREAK 
folgt Token für STOP ? 

Kennz. für ON BREAK inaktiv 
STOP ? dann abschalten 
sonst Test auf GOSUB 
Token für GOSUB 
Zeilenadresse holen 
Zeiger auf Zeilenende davor 
Adr. d. ON BREAK-Routine setz, 
nächstes Zeichen holen 

Basic-Befehl DI 
Basic-PC retten 
KL EVENT DISABLE 
Basic-PC zurück 


Basic-Befehl EI 
Basic-PC retten 
KL EVENT ENABLE 
Basic-PC zurück 


Events für Basic initialisieren 
SOUND RESET 

Zeiger auf Event-Blocks 
Zahl der Event-Blocks 

KL DEL TICKER, Block aushängen 

Länge eines Blocks 
addieren 

weitere Event-Blocks ? 
Break-Taste verriegeln 
KL SYNC RESET 

Kennz. für ON BREAK inaktiv 
setzen 

Break-Abbruch ermöglichen 
Zeiger auf SQ-Event-Blocks 

3 Blocks, 5 Parameter-Bytes 
Priorität =8 
Event-Blocks generieren 

Zg. a. AFTER-/EVERY-Event-Bl. 

4 Blocks, 11 Parameter-Bytes 
Priorität = 2,4,8,16 
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********************************** Event"Block - Gruppe initialisieren 

IN : B: Start-Priorität; C: Flag f. wachs. Pr. 

D: Zahl d. Blocks; E: Länge d. Param.-Felds 
HL: Adresse des 1. Blocks 


C924 

C5 



PUSH 

BC 


C925 

D5 



PUSH 

DE 


C926 

OE 

FD 


LD 

C,FD 

ROM-Konfig., Basic-ROM ein 

C928 

11 

79 

C8 

LD 

DE,C879 

Adresse der Event-Routine 

C92B 

CD 

EF 

BC 

CALL 

BCEF 

KL INIT EVENT 

C92E 

Dl 



POP 

DE 

ParameterfeId-Größe 

C92F 

D5 



PUSH 

DE 


C930 

16 

00 


LD 

D,00 

Größe hi =0 

C932 

19 



ADD 

HL,DE 

Größe zu Zeiger addieren 

C933 

Dl 



POP 

DE 


C934 

CI 



POP 

BC 


C935 

79 



LD 

A/C 

Flag für wachsende Priorität 

C936 

B7 



OR 

A 


C937 

28 

03 


JR 

Z,C93C 

nicht gesetzt ? 

C939 

78 



LD 

A,B 

sonst Priorität 

C93A 

87 



ADD 

A 

mal 2 

C93B 

47 



LD 

B, A 


C93C 

15 



DEC 

D 

Zähler für Blocks 

C93D 

20 

E5 


JR 

NZ,C924 

weitere Blocks ? 

C93F 

C9 



RET 



********************************** 

Basic-Befehl ON SQ 

C940 

CD 

37 

DD 

CALL 

DD37 

Test auf 

C943 

28 





II £ II 

C944 

CD 

67 

CE 

CALL 

CE67 

Byte-Ausdruck als Kanal holen 

C947 

F5 



PUSH 

AF 

und retten 

C948 

CD 

5D 

C9 

CALL 

C95D 

Adresse des Event-Blocks holei 

C94B 

B7 



OR 

A 

weitere Bits gesetzt ? 

C94C 

20 

IE 


JR 

NZ.C96C 

dann Fehler 

C94E 

CD 

37 

DD 

CALL 

DD37 

Test auf ")" 

C951 

29 





11)11 

C952 

CD 

61 

C8 

CALL 

C861 

Zeilenadresse in Event-Block 

C955 

Fl 



POP 

AF 

Kanal 

C956 

E5 



PUSH 

HL 

Basic-PC retten 

C957 

EB 



EX 

DE, HL 

Adr. des Event-Blocks nach HL 

C958 

CD 

BO 

BC 

CALL 

BCBO 

SOUND ARM EVENT 

C95B 

El 



POP 

HL 

Basic-PC zurück 

C95C 

C9 



RET 




********************************** 


C95D 

1F 



RRA 


C95E 

11 

38 

AC 

LD 

DE.AC38 

C961 

D8 



RET 

C 

C962 

1 F 



RRA 


C963 

11 

44 

AC 

LD 

DE.AC44 

C966 

D8 



RET 

C 

C967 

1F 



RRA 


C968 

11 

50 

AC 

LD 

DE,AC50 

C96B 

D8 



RET 

C 

C96C 

IE 

05 


LD 

E ,05 

C96E 

C3 

94 

CA 

JP 

CA94 


Adresse des SQ-Event-Blocks holen 
IN : A: Kanal-Byte 
OUT: DE: Adresse 

Adresse für SQ 0 
entspr. Bit gesetzt ? 

Adresse für SQ 1 
entspr. Bit gesetzt ? 

Adresse für SQ 2 
entspr. Bit gesetzt ? 

Nr. für "Improper argument" 
Fehler ausgeben 
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********************************** 


C971 

CD 

7C 

CE 

CALL 

CE7C 

C974 

01 

00 

00 

LD 

BC,0000 

C977 

18 

05 


JR 

C97E 

********************************** 

C979 

CD 

7C 

CE 

CALL 

CE 7 C 

C97C 

42 



LD 

B,D 

C97D 

4B 



LD 

C,E 

C97E 

D5 



PUSH 

DE 

C97F 

C5 



PUSH 

BC 

C980 

CD 

55 

DD 

CALL 

DD55 

C983 

11 

00 

00 

LD 

DE,0000 

C986 

DC 

86 

CE 

CALL 

C,CE86 

C989 

EB 



EX 

DE,HL 

C98A 

CD 

Bl 

C9 

CALL 

C9B1 

C98D 

E5 



PUSH 

HL 

C98E 

01 

06 

00 

LD 

BC,0006 

C991 

09 



ADD 

HL,BC 

C992 

EB 



EX 

DE,HL 

C993 

CD 

61 

C8 

CALL 

C861 

C996 

Dl 



POP 

DE 

C997 

CI 



POP 

BC 

C998 

E3 



EX 

(SP),HL 

C999 

EB 



EX 

DE,HL 

C99A 

CD 

E9 

BC 

CALL 

BCE9 

C99D 

El 



POP 

HL 

C99E 

C9 



RET 



********************************** 


C99F 

CD 

8D 

FE 

CALL 

FE8D 

C9A2 

CD 

Bl 

C9 

CALL 

C9B1 

C9A5 

CD 

EC 

BC 

CALL 

BCEC 

C9A8 

38 

03 


JR 

C,C9AD 

C9AA 

11 

00 

00 

LD 

DE, 0000 

C9AD 

EB 



EX 

DE,HL 

C9AE 

C3 

0D 

FF 

JP 

FF0D 


********************************** 


C9B1 

7C 


LD 

A, H 

C9B2 

B7 


OR 

A 

C9B3 

20 

B7 

JR 

NZ,C96C 

C9B5 

7D 


LD 

A, L 

C9B6 

FE 

04 

CP 

04 

C9B8 

30 

82 

JR 

NC,C96C 

C9BA 

87 


ADD 

A 

C9BB 

87 


ADD 

A 

C9BC 

87 


ADD 

A 

C9BD 

85 


ADD 

L 

C9BE 

87 


ADD 

A 

C9BF 

6F 


LD 

L,A 

C9C0 

01 

5C AC 

LD 

BC,AC5C 

C9C3 

09 


ADD 

HL,BC 

C9C4 

C9 


RET 



Basic-Befehl AFTER 
Ticker-Zähler holen 
Reload-Zähler =0 


Basic-Befehl EVERY 
Ticker-Zähler 

Reload-Zähler auf gleichen 
Wert setzen 
Ticker-Zähler 
und Reload-Zähler retten 
Test auf Komma 
Default-Timer-Nr. 

Komma ? dann Timer-Nr. holen 
Timer-Nr. nach HL 
Adresse des zugeh. Event-Bl. 
retten 

Länge des Ticker-Kopfes 
zu Event-Block-Adr. addieren 
Adresse (ohne Kopf) nach DE 
Zeilenadr. in Event-Block 
Adresse des Event-Blocks 
Reload-Zähler 

PC retten, Ticker-Zähler n. HL 
nach DE, Event-Blockadr. n. HL 
KL ADD TICKER, Block einhängen 
Basic-PC zurück 


Basic-Funktion REMAIN 
CI NT, FAC nach Integer 
Adr. des zugeh. Event-Blocks 
KL DEL TICKER, Block aushängen 
war Block in Ticker Chain ? 
sonst Null 

verbleibenden Zähler nach HL 
und in FAC eintragen 

Event-Block-Adresse berechnen 
IN : HL: Nummer des Blocks 
OUT: HL: Adresse des Blocks 

(Block f. EVERY/AFTER) 
Blocknr. hi 
<> 0 ? 

dann "Improper argument" 
Blocknr. Io 
>4 ? 

dann "Improper argument" 

mal 18, da ein Event-Block 
18 Bytes lang ist 


gibt Offset f. Block-Tabelle 
Adr. der Event-Block-Tabelle 
Offset addieren 
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******** ************** ************* 


C9C5 

EB 



EX 

DE,HL 

0906 

CD 

D2 

DD 

CALL 

DDD2 

0909 

EB 



EX 

DE,KL 

C9CA 

2B 



DEC 

HL 

C9CB 

06 

01 


LD 

B,01 

C9CD 

0E 

1A 


LD 

C,1A 

C9CF 

CD 

23 

E9 

CALL 

E923 

C9D2 

E5 



PUSH 

HL 

C9D3 

CD 

3F 

DD 

CALL 

DD3F 

C9D6 

FE 

B0 


CP 

B0 

C9D8 

28 

08 


JR 

Z,C9E2 

C9DA 

El 



POP 

HL 

C9DB 

FE 

9E 


CP 

9E 

C9DD 

20 

EE 


JR 

NZ.C9CD 

C9DF 

04 



INC 

B 

C9E0 

18 

EB 


JR 

C9CD 

C9E2 

Fl 



POP 

AF 

C9E3 

EB 



EX 

DE,HL 

C9EA 

E5 



PUSH 

HL 

C9E5 

CD 

D2 

DD 

CALL 

DDD2 

C9E8 

E3 



EX 

(SP),HL 

C9E9 

CD 

CE 

DD 

CALL 

DDCE 

C9EC 

EB 



EX 

DE,HL 

C9ED 

05 



DEC 

B 

C9EE 

28 

24 


JR 

Z,CA14 

C9F0 

CD 

3F 

DD 

CALL 

DD3F 

C9F3 

28 

0E 


JR 

Z,CA03 

C9F5 

05 



PUSH 

BC 

C9F6 

D5 



PUSH 

DE 

C9F7 

CD 

86 

D6 

CALL 

D686 

C9FA 

Dl 



POP 

DE 

C9FB 

CI 



POP 

BC 

C9FC 

CD 

55 

DD 

CALL 

DD55 

C9FF 

30 

02 


JR 

NC,CA03 

CA01 

10 

F2 


DJNZ 

C9F5 

CA03 

2B 



DEC 

HL 

CA04 

78 



LD 

A,B 

CA05 

B7 



OR 

A 

CA06 

28 

OC 


JR 

Z,CA14 

CA08 

EB 



EX 

DE,HL 

CA09 

CD 

D2 

DD 

CALL 

DDD2 

CAOC 

E3 



EX 

(SP),HL 

CAOD 

CD 

CE 

DD 

CALL 

DDCE 

CA10 

El 



POP 

HL 

CA11 

EB 



EX 

DE,HL 

CA12 

18 

B9 


JR 

C9CD 

CA14 

Dl 



POP 

DE 

CA15 

C3 

3F 

DD 

JP 

DD3F 


zugehöriges NEXT suchen 
IN : HL: PC nach FOR-Token 
OUT: HL: Zeiger nach NEXT-Token 
DE: FOR-ZeiLenadresse 
($AE36): NEXT-Zeilenadresse 

akt. Zeilenadresse nach DE 

Zeiger auf FOR-Token 

Zähler f. Verschachtelungen 

Nr. für "NEXT missing" 

nächs. Statem. s., ggf. Fehler 

Suchzeiger vor Statement 

nächstes Zeichen 

Token für NEXT ? 

dann auswerten 

Suchzeiger vor Statement 

Token für FOR ? 

nein ? dann weitersuchen 

Verschachtelungstiefe erh. 

weiter suchen 

Suchzeiger löschen 

akt. Suchzeilenadr. nach HL 

und retten 

aktuelle (FOR-) Zeilenadresse 
retten, Suchzeilenadresse 
als akt. Zeilenadresse setzen 
nach DE, Suchzeiger nach HL 
VerschachteLungstiefe 
weitere Verschachtelungen ? 
nächstes Zeichen 
Statem.-Ende ? dann keine Var. 


(NEXT-)Variable holen/überles. 


folgt Koruna ? 

nein ? dann keine weitere Var. 
weitere Verschachtelungen ? 
Suchzeiger auf NEXT-Token 
Verschachtelungstiefe 
=0 ? 

dann zugehöriges NEXT gefunden 

Suchzeiger nach DE 

Suchzeilenadresse holen 

retten, FOR-Zeilenadr. nach HL 

und als akt. Zeilenadr. setzen 

Suchzeilenadresse 

nach DE, Suchzeiger nach HL 

weiter suchen 

FOR-Zeilenadresse 

Zeiger nach NEXT-Token 
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*******•*■****★ *********** ********** 


CA18 

2B 



DEC 

HL 

CA19 

EB 



EX 

DE, HL 

CA1A 

CD 

D2 

DD 

CALL 

DDD2 

CA1D 

EB 



EX 

DE,HL 

CA1E 

06 

00 


LD 

B,00 

CA20 

04 



INC 

B 

CA21 

OE 

ID 


LD 

C,1D 

CA23 

CD 

23 

E9 

CALL 

E923 

CA26 

E5 



PUSH 

HL 

CA27 

CD 

3F 

DD 

CALL 

DD3F 

CA2A 

El 



POP 

HL 

CA2B 

FE 

D6 


CP 

D6 

CA2D 

28 

Fl 


JR 

Z.CA20 

CA2F 

FE 

D5 


CP 

D5 

CA31 

20 

EE 


JR 

NZ,CA21 

CA33 

10 

EC 


DJNZ 

CA21 

CA35 

CD 

3F 

DD 

CALL 

DD3F 

CA38 

C3 

3F 

DD 

JP 

DD3F 


iriririrk-kitirititirirPeititirk’kirkitititirk'kirkit'kitititit 


CA3B 

21 

A4 AC 

LD 

HL,ACA4 

CA3E 

36 

00 


LD 

(HL),00 

CA40 

C3 

3A 

BD 

JP 

BD3A 

it'kififk'kirkitirkitiritif'kitiririckirkititirititiTifirkirir 

CA43 

21 

A4 

AC 

LD 

HL,ACA4 

CA46 

CD 

3A 

BD 

CALL 

BD3A 

CA49 

C3 

4E 

C3 

JP 

C34E 


*********************************** 


CA4C 

C5 



PUSH 

BC 

CA4D 

D5 



PUSH 

DE 

CA4E 

21 

A4 AC 

LD 

HL,ACA4 

CA51 

E5 



PUSH 

HL 

CA52 

06 

01 


LD 

B, 01 

CA54 

OE 

00 


LD 

C,00 

CA56 

CD 

80 

BC 

CALL 

BC80 

CA59 

CA 6B 

CB 

JP 

Z,CB6B 

CA5C 

30 

22 


JR 

NC,CA80 

CA5E 

77 



LD 

<HL),A 

CA5F 

FE 

0D 


CP 

0D 

CA61 

28 

17 


JR 

Z,CA7A 

CA63 

0E 

00 


LD 

C,00 

CA65 

FE 

0A 


CP 

0A 

CA67 

20 

06 


JR 

NZ,CA6F 

CA69 

78 



LD 

A,B 

CA6A 

3D 



DEC 

A 

CA6B 

28 

E7 


JR 

Z,CA54 

CA6D 

0E 

FF 


LD 

C,FF 

CA6F 

78 



LD 

A,B 


zugehöriges WEND suchen 
IN : HL: PC nach WHILE-Token 
OUT: HL: Zeiger nach WEND-Token 
DE: WEND-Zeilenadresse 
Zeiger auf WHILE-Token 

akt. Zeilenadresse nach DE 

Zähler f. Verschachtelungen 
Zähler erhöhen 
Nr. für "WEND missing" 
nächs. Statem. s., ggf. Fehler 

nächstes Zeichen 

Token für WHILE ? 

dann Tiefe erh., weiter suchen 

Token für WEND ? 

nein ? dann weitersuchen 

weitere Verschachtelungen ? 

Zeiger auf WEND-Token 

Zeiger nach WEND-Token 

Eingabezeile holen 
OUT: HL: Zeiger auf Zeile 
Zeiger auf Buffer 
Kennz. für Buffer leer 
Zeile holen 

Buffer ausgeben, Zeile holen 
OUT: HL: Zeiger auf Zeile 
Zeiger auf Buffer 
Buffer ausgeben, Zeile holen 
Linefeed ausgeben 

Zeile von Kassette holen 
OUT: HL: Zeigr auf Zeile 
CY=0 bei EOF 


Zeiger auf Buffer 
retten 

Zeilenlänge=1 
Flag für LF löschen 
Zeichen von Kassette holen 
Abbruch ? dann Break ausgeben 
EOF ? 

Zeichen in Buffer speichern 
CR ? 

dann Ende bzw. LF-CR 
sonst Flag für LF löschen 
LF ? 
nein ? 

Zeilenlänge 
=1 ? 

dann nächstes Zeichen 
sonst Flag für LF setzen 
Zeilenlänge 
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CA70 

B7 



OR 

A 

CA71 

IE 

17 


LD 

E» 17 

CA73 

CA 

94 

CA 

JP 

Z,CA94 

CA76 

23 



INC 

HL 

CA77 

04 



INC 

B 

CA78 

18 

DC 


JR 

CA56 

CA7A 

79 



LD 

A,C 

CA7B 

B7 



OR 

A 

CA7C 

20 

D8 


JR 

NZ,CA56 

CA7E 

77 



LD 

(HL),A 

CA7F 

37 



SCF 


CA80 

El 



POP 

HL 

CA81 

Dl 



POP 

DE 

CA82 

CI 



POP 

BC 

CA83 

C9 



RET 


********************************** 

CA84 

AF 



XOR 

A 

****★*★★**★*★*************★★****★* 

CA85 

32 

AA 

AD 

LD 

(ADAA),A 

CA88 

CD 

D2 

DD 

CALL 

DDD2 

CA8B 

22 

A6 

AD 

LD 

(ADA6),HL 

CA8E 

C9 



RET 



CA8F 

CD 

6D 

CE 

CALL 

CE6D 

CA92 

CO 



RET 

NZ 

CA93 

5F 



LD 

E.A 


* ********************************** 


CA94 

CD 

04 

AC 

CALL 

AC04 

CA97 

7B 



LD 

A/E 

CA 98 

CD 

85 

CA 

CALL 

CA85 

CA9B 

2A 

34 

AE 

LD 

HL.CAE34) 

CA9E 

22 

A8 

AD 

LD 

(ADA8),HL 

CAA1 

CD 

B0 

CB 

CALL 

CBB0 

CAA4 

31 

00 

CO 

LD 

SP,C000 

CAA7 

2A 

32 

AE 

LD 

HL,(AE32) 

CAAA 

CD 

AC 

F5 

CALL 

F5AC 

CAAD 

CD 

B3 

FB 

CALL 

FBB3 

CABO 

CD 

FD 

D9 

CALL 

D9FD 

CAB3 

CD 

DF 

CA 

CALL 

CADF 

CAB6 

2A 

AF 

AD 

LD 

HL,(ADAF) 

CAB9 

EB 



EX 

DE,HL 

CABA 

21 

Bl 

AD 

LD 

HL,ADB1 

CABD 

30 

OC 


JR 

NC,CACB 

CABF 

7A 



LD 

A,D 

CACO 

B3 



OR 

E 

CAC1 

28 

08 


JR 

Z.CACB 

CAC3 

A6 



AND 

(HL) 

CAC4 

20 

05 


JR 

NZ,CACB 

CAC6 

35 



DEC 

(HL) 

CAC7 

EB 



EX 

DE,HL 


Nr. für "Line too long" 

Länge =$100 ? dann Fehler 

Bufferzeiger 

und Zeilenlänge erhöhen 

nächstes Zeichen 

LF-Flag 

gesetzt ? 

dann nächstes Zeichen 
sonst Null ans Bufferende 
C=1 für kein EOF 
Zeiger auf Zeile 


Fehlernr. und -zeile init. 
Fehlernr. Null 

Fehlernr. setzen 
IN : A: Fehlernr. 

Fehlernr. speichern 
akt. Zeilenadresse holen 
und für ERRL speichern 


Basic-Befehl ERROR 
Byte <>0 holen 

Statementende ? sonst Fehler 
Byte als Fehlernr. nach E 

Fehler behandeln 

IN : E: Nr. des Fehlers (CPC 464) 
A: Nr. des Fehlers 

(CPC 664/6128) 

User-Vektor 

Fehlernr. 

f. ERR speichern, ERRL setzen 
Zeiger auf Statementanfang 
für RESUME speichern 
PC und Zeilenadr. f. CONT sp. 
Stackpointer initialisieren 
Basic-SP bei Statementanfang 
als Basic-Stackpointer setzen 
Stringdescriptorstack init. 
FN-Listenzeiger init. 

Flag für Direkt-Modus holen 
Adresse der ON ERROR-Routine 
nach DE 

Flag f. ON ERROR-Routine aktiv 
Direkt-Modus ? d. Fehler ausg. 

keine ON ERROR-Routine ? 
dann Fehler ausgeben 
ON ERROR-Routine aktiv ? 
dann Fehler ausgeben 
Flag f. ON ERROR-Routine setz. 
Adr. der Routine als PC 
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CAC8 

C3 

93 

DD 

JP 

DD93 

CACB 

36 

00 


LD 

(HL),00 

CACD 

3A 

AA 

AD 

LD 

A.(ADAA) 

CADO 

CD 

45 

CC 

CALL 

CC45 

CAD3 

2A 

A6 

AD 

LD 

HL, (ADA6) 

CAD6 

CD 

CE 

DD 

CALL 

DDCE 

CAD9 

CD 

36 

CB 

CALL 

CB36 

CADC 

C3 

64 

CO 

JP 

C064 


OH ERROR-Rout ine ausführen 
Flag f. ON ERROR-Rout, inaktiv 
Fehler-Nr. 

Adresse d. Fehlerstrings holen 
Adresse der Fehlerzeile 
als akt. Zeilenadresse setzen 
Fehlermeldung ausgeben 
zur Eingabeschleife 


********************************** 


CADF 

2A 

A6 

AD 

LD 

HL,(ADA6) 

CAE2 

CD 

D9 

DD 

CALL 

DDD9 

CAE5 

D8 



RET 

C 

CAE6 

21 

00 

00 

LD 

HL,0000 

CAE9 

C9 



RET 


********************************** 

CAEA 

D5 



PUSH 

DE 

CAEB 

E5 



PUSH 

HL 

CAEC 

21 

13 

CD 

LD 

HL,CD13 

CAEF 

IE 

OB 


LD 

E, OB 

CAF1 

18 

07 


JR 

CAFA 


********* ******************* ****** 


CAF3 

D5 



PUSH 

DE 

CAF4 

E5 



PUSH 

HL 

CAF5 

21 

B9 

CC 

LD 

HL,CCB9 

CAF8 

IE 

06 


LD 

E,06 

CAFA 

F5 



PUSH 

AF 

CAFB 

E5 



PUSH 

HL 

CAFC 

2A 

AF 

AD 

LD 

HL,(ADAF) 

CAFF 

7C 



LD 

A, H 

CB00 

B5 



OR 

L 

CB01 

El 



POP 

HL 

CB02 

C2 

94 

CA 

JP 

NZ,CA94 

CB05 

AF 



XOR 

A 

CB06 

CD 

A2 

CI 

CALL 

C1A2 

CB09 

F5 



PUSH 

AF 

CB0A 

CD 

41 

C3 

CALL 

C341 

CB0D 

CD 

4E 

C3 

CALL 

C34E 

CB10 

Fl 



POP 

AF - 

CB 11 

CD 

A2 

CI 

CALL 

C1A2 

CB 14 

Fl 



POP 

AF 

CB 15 

El 



POP 

HL 

CB16 

Dl 



POP 

DE 

CB17 

C9 



RET 


********************************** 

CB18 

CD 

86 

C3 

CALL 

C386 

CB1B 

21 

23 

CB 

LD 

HL,CB23 

CB 1 E 

CD 

48 

CB 

CALL 

CB48 

CB21 

18 

ID 


JR 

CB40 


Error-Zei lennutrmer holen 
OUT: HL: Zeilennr. 

CY=1 für Programm-Modus 
CY=0 für Direkt-Modus 
Adresse der Error-Zeile 
Zeilennr. und Flag holen 
Programm-Modus ? 
sonst Zeilennr. =0 


"Division by zero" ausgeben 

Zeiger auf "Division by zero" 
entsprechende Fehlernr. 
Meldung ggf. ausgeben 

"Overflow" ausgeben 


Zeiger auf "Overflow" 
entsprechende Fehlernr. 


Adresse der ON ERROR-Routine 
ON ERROR-Routine 
vorhanden ? 

dann normale Fehlerbehandlung 
sonst Null 

als Streamnr. setzen 
alte Streamnr. retten 
Fehlerstring ausgeben 
Linefeed ausgeben 
alte Steamnr. 
wieder setzen 


"Urtdefined line xxxxx in yyyyy" 
IN : DE: Zeilennr. (xxxxx) 
Bildschirm init. 

Zeiger auf "Undefined line" 
mit Zeilennr. ausgeben 
" in" Zeilennr. ausgeben 
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********************************** 


CB23 

55 

6E 

64 

65 

66 

69 

6E 

65 

CB2B 

64 

20 

6C 

69 

6E 

65 

20 

00 


********************************** 

CB33 

11 

4F 

CB 


LD 

DE,CB4F 

********************************** 

CB36 

CD 

9D 

CI 


CALL 

C19D 

CB39 

CD 

86 

C3 


CALL 

C386 

CB3C 

EB 




EX 

DE,HL 

CB3D 

CD 

41 

C3 


CALL 

C341 

CB40 

CD 

D6 

DD 


CALL 

DDD6 

CB43 

DO 




RET 

NC 

CB44 

EB 




EX 

DE,HL 

CB45 

21 

55 

CB 


LD 

HL,CB55 

CB48 

CD 

41 

C3 


CALL 

C341 

CB4B 

EB 




EX 

DE,HL 

CB4C 

C3 

79 

EE 


JP 

EE79 

********************************** 

CB4F 

42 

72 

65 

61 

6B 00 


CB55 

20 

69 

6E 

20 

00 


********************************** 

CB5A 

CO 




RET 

NZ 

CB5B 

E5 




PUSH 

HL 

CB5C 

CD 

33 

CB 


CALL 

CB33 

CB5F 

El 




POP 

HL 

CB60 

CD 

93 

CB 


CALL 

CB93 

CB 63 

18 

2B 



JR 

CB90 

********************************** 

CB65 

CO 




RET 

NZ 

CB66 

CD 

93 

CB 


CALL 

CB93 

CB69 

18 

IC 



JR 

CB87 

********************************** 

CB6B 

CD 

33 

CB 


CALL 

CB33 

CB6E 

2A 

34 

AE 


LD 

HL,(AE34) 

CB71 

CD 

B0 

CB 


CALL 

CBB0 

CB74 

18 

1A 



JR 

CB90 

********************************** 

CB76 

CD 

D6 

DD 


CALL 

DDD6 

CB79 

30 

12 



JR 

NC,CB8D 

CB7B 

CD 

AB 

CB 


CALL 

CBAB 

CB7E 

3A 

Bl 

AD 


LD 

A,(ADB1) 

CB81 

B7 




OR 

A 

CB82 

iE 

13 



LD 

E# 13 

CB84 

C2 

94 

CA 


JP 

NZ,CA94 

CB87 

CD 

98 D2 


CALL 

D298 

CB8A 

CD 

AI 

D2 


CALL 

D2A1 

CB8D 

CD 

CB 

DD 


CALL 

DDCB 

CB90 

C3 

64 

CO 


JP 

C064 


Undefine 
d line . 


"Break in" Zeilennr. ausgeben 
Zeiger auf "Break" 

Meldung mit Zeilennr. ausgeben 
IN : DE: Zeiger auf Meldung 
Ein-/Ausgabe init. 
Bildschirm init. 

Zeiger auf Meldung nach HL 
Meldung ausgeben 
akt. Zeilennr. holen 
Direkt-Modus ? dann fertig 
Zeilennr. nach DE 
Zeiger auf " in" 

String ausgeben 
Zeilennr. nach HL 
und ausgeben 


Break, 
in . 

Basic-Befehl STOP 

Statementende ? sonst Fehler 

Basic-PC retten 

"Break in" Zeilennr. ausgeben 

Basic-PC 

mit Zeilenadresse f. CONT sp. 
zur Eingabeschleife 

Basic-Befehl END 

Statementende ? sonst Fehler 
Zeilenadr. und PC f. CONT sp. 
Files schließen, zur Eingabes. 

"Break" ausgeben, Abbruch 

"Break in" Zeilennr. ausgeben 
Zeiger auf Statementanfang 
als PC mit Zeilenadr. f. CONT 
zur Eingabeschleife 

Programmende behandeln 

Flag für Direkt-Modus holen 
bereits Direkt-Modus ? 

CONT sperren 

Flag f. ON ERROR-Routine aktiv 

Nr. für "RESUME missing" 
aktiv ? dann Fehler ausgeben 
CLOSEIN 
CLOSEOUT 

Direkt-Modus einschalten 
zur Eingabeschleife 
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********************************** 


CB93 

EB 



EX 

DE,HL 

CB94 

CD 

D6 

DD 

CALL 

DDD6 

CB97 

EB 



EX 

DE,HL 

CB98 

DO 



RET 

NC 

CB99 

7E 



LD 

A, (HL) 

CB9A 

FE 

01 


CP 

01 

CB9C 

28 

OB 


JR 

Z,CBA9 

CB9E 

23 



INC 

HL 

CB9F 

7E 



LD 

A,(HL) 

CBAO 

23 



INC 

HL 

CBA1 

B6 



OR 

(HL) 

CBA2 

28 

07 


JR 

Z,CBAB 

CBA4 

23 



INC 

HL 

CBA5 

CD 

CE 

DD 

CALL 

DDCE 

CBA8 

23 



INC 

HL 

CBA9 

18 

05 


JR 

CBBO 

********************************** 

CBAB 

21 

00 

00 

LD 

HL,0000 

CB AE 

18 

OC 


JR 

CBBC 

********************************** 

CBBO 

EB 



EX 

DE,HL 

CBB1 

CD 

D6 

DD 

CALL 

DDD6 

CBB4 

DO 



RET 

NC 

CBB5 

CD 

D2 

DD 

CALL 

DDD2 

CBB8 

22 

AD 

AD 

LD 

(ADAD),HL 

CBBB 

EB 



EX 

DE,HL 

CBBC 

22 

AB 

AD 

LD 

(ADAB),HL 

CBBF 

C9 



RET 



********************************** 


CBC0 

CO 



RET 

NZ 

CBC1 

2A 

AB 

AD 

LD 

HL,(ADAB) 

CBC4 

7C 



LD 

A,H 

CBC5 

B5 



OR 

L 

CBC6 

IE 

11 


LD 

E, 11 

CBC8 

CA 

94 

CA 

JP 

Z,CA94 

CBCB 

E5 



PUSH 

HL 

CBCC 

2A 

AD 

AD 

LD 

HL,(ADAD) 

CBCF 

CD 

CE 

DD 

CALL 

DDCE 

CBD2 

CD 

B9 

BC 

CALL 

BCB9 

CBD5 

El 



POP 

HL 

CBD6 

C3 

74 

DD 

JP 

DD74 


********************************** 


CBD9 

AF 



XOR 

A 

CBDA 

32 

Bl 

AD 

LD 

(ADB1),A 

CBDD 

11 

00 

00 

LD 

DE, 0000 

CBE0 

ED 

53 

AF AD 

LD 

(ADAF),DE 

CBE4 

C9 



RET 


********************************** 

CBE5 

CD 

3F 

DD 

CALL 

DD3F 

CBE8 

CD 

37 

DD 

CALL 

DD37 


PC und Zeilenadr. für CONT retten 
IN : HL: PC (Statementende !) 

akt. Zeilennr. nach DE 

Direkt-Modus ? dann fertig 
aktuelles Zeichen 
Token für ? 
dann PC setzen 

nächste Zeilenadresse 
=0 (Programmende) ? 

dann CONT sperren 

Zeiger auf nächste Zeile 

als aktuelle Zeilenadr. setzen 

Zeiger vor Zeilentext 

mit Zeilenadr. für CONT retten 

CONT sperren 

Flag für CONT gesperrt 
als CONT-PC setzen 

PC und Zeilenadr. für CONT retten 
IN : HL: Basic-PC 
Basic-PC nach DE 
Flag für Direkt-Modus holen 
Direkt-Modus ? 

Zeilenadresse holen 
und für CONT speichern 
Basic-PC 

für CONT speichern 


Basic-Befehl CONT 

Statementende ? sonst Fehler 
geretteter PC für CONT 

CONT gesperrt ? 

Nr. für "Cannot continue" 

gesperrt ? dann Fehler 

Basic-PC retten 

CONT-Zeilenadresse 

als akt. Zeilenadresse setzen 

SOUND CONTINUE 

Basic-PC 

zur Interpreterschleife 

ON ERROR ausschalten 

Flag für ON ERROR-Routine 
inaktiv 

Flag f. keine ON ERROR-Routine 
als Routinenadresse setzen 


Basic-Befehl ON ERROR 
ERROR-Token übergehen 
Test auf GOTO 
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CBEB 

AO 





CBEC 

CD 

El 

CE 

CALL 

CEE1 

CBEF 

E5 



PUSH 

HL 

CBFO 

CD 

9A 

E7 

CALL 

E79A 

CBF3 

22 

AF 

AD 

LD 

(ADAF),HL 

CBF6 

El 



POP 

HL 

CBF7 

C9 



RET 



********************************** 


CBF8 

CD 

DD 

CB 

CALL 

CBDD 

CBFB 

3A 

Bl 

AD 

LD 

A,(ADB1) 

CBFE 

B7 



OR 

A 

CBFF 

C8 



RET 

Z 

CCOO 

C3 

A4 

CA 

JP 

CAA4 


********************************** 


CC03 

28 

14 


JR 

Z,CC19 

CC05 

FE 

BO 


CP 

BO 

CC07 

28 

17 


JR 

Z,CC20 

CC09 

CD 

67 

E7 

CALL 

E767 

CCOC 

CD 

4A 

DD 

CALL 

DD4A 

CCOF 

D5 



PUSH 

DE 

CC10 

CD 

2B 

CC 

CALL 

CC2B 

CC13 

El 



POP 

HL 

CC14 

23 



INC 

HL 

CC15 

Fl 



POP 

AF 

CC16 

C3 

93 

DD 

JP 

DD93 

********************************** 

CC19 

CD 

2B 

CC 

CALL 

CC2B 

CC1C 

Fl 



POP 

AF 

CClD 

C3 

74 

DD 

JP 

DD 74 

********************************** 

CC20 

CD 

3F 

DD 

CALL 

DD3F 

CC23 

CO 



RET 

NZ 

CC24 

CD 

2B 

CC 

CALL 

CC2B 

CC27 

23 



INC 

HL 

CC28 

C3 

EF 

E8 

JP 

E8EF 

********************************** 

CC2B 

3A 

Bl 

AD 

LD 

A,(ADB1) 

CC2E 

B7 



OR 

A 

CC2F 

IE 

14 


LD 

E, 14 

CC31 

CA 

94 

CA 

JP 

Z,CA94 

CC34 

AF 



XOR 

A 

CC35 

32 

AA 

AD 

LD 

(ADAA),A 

CC38 

32 

Bl 

AD 

LD 

(ADB1),A 

CC3B 

2A 

A6 

AD 

LD 

HL,(ADA6) 

CC3E 

CD 

CE 

DD 

CALL 

DDCE 

CC41 

2A 

A8 

AD 

LD 

HL,(ADA8) 

CC44 

C9 



RET 



Token für GOTO 
Zeilennummer holen 
Basic-PC retten 
Zeile im Programm suchen 
als Adr. der ON ERROR-Routine 
Basic-PC zurück 


Basic-Befehl ON ERROR GOTO 0 
ON ERROR ausschalten 
Flag f. ON ERROR-Routine aktiv 

nicht gesetzt ? dann o.k. 
sonst behandelten Fehler ausg. 

Basic-Befehl RESUME 
Statementende ? 

Token für NEXT ? 
dann RESUME NEXT 
Zeilenadresse holen 
auf Statementende prüfen 
Zeilenadresse retten 
Basic-Zeiger setzen 
Zeilenadresse 

Null am Zeilenende übergehen 
Aufrufadresse löschen 
zur Interpreterschleife 

RESUME ohne Parameter 

Basic-Zeiger setzen, PC holen 
Aufrufadresse löschen 
zur Interpreterschleife 

RESUME NEXT 

NEXT übergehen 

Statementende ? sonst Fehler 
Basic-Zeiger setzen, PC holen 
Zeiger auf nächstes Zeichen 
nächstes Statement suchen 

Basic-Zeiger für RESUME setzen 
OUT : HL: neuer Basic-PC 

Flag f. ON ERROR-Routine aktiv 

Nr. für "Unexpected RESUME" 
inaktiv ? dann Fehler 
Null 

als Fehlernr. 

ON ERROR-Routine inaktiv 

Error-Zeilenadresse 

als akt. Zeilenadresse setzen 

Error-PC 


********************************** 


CC45 11 5B CC LD DE,CC5B 


Adresse des Fehlerstrings holen 
IN : A: Fehlernr. 

OUT: DE: Adresse 

Adresse der Tabelle 
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CC48 

FE 

1F 

CP 

1F 

Fehlernr. zu groß ? 

CC4A 

DO 


RET 

NC 

dann "Unknown error" 

CC4B 

B7 


OR 

A 

Null ? 

CC4C 

C8 


RET 

Z 

dann "Unknown error" 

CC4D 

47 


LD 

B,A 

Fehlernr. 

CC4E 

1A 


LD 

A,(DE) 


CC4F 

13 


INC 

DE 

nächsten String suchen 

CC50 

B7 


OR 

A 

(String-Ende bei Null-Byte) 

CC51 

20 

FB 

JR 

NZ,CC4E 


CC53 

05 


DEC 

B 

Zähler für Strings 

CC54 

20 

F8 

JR 

NZ.CC4E 

richtigen erreicht ? 

CC56 

1A 


LD 

A,(DE) 

1. Zeichen 

CC57 

B7 


OR 

A 

Null ? 

CC58 

28 

EB 

JR 

Z.CC45 

dann "Unknown error" 

CC5A 

C9 


RET 




************************************ Tabslls der Fehlerineldungen 


CC5B 

55 

6E 

6B 

6E 

6F 

77 

6E 

20 

0 

"Unknown error" 

CC63 

65 

72 

72 

6F 

72 

00 





CC69 

55 

6E 

65 

78 

70 

65 

63 

74 

1 

"Unexpected NEXT" 

CC71 

65 

64 

20 

4E 

45 

58 

54 

00 



CC79 

53 

79 

6E 

74 

61 

78 

20 

65 

2 

"Syntax error" 

CC81 

72 

72 

6F 

72 

00 






CC86 

55 

6E 

65 

78 

70 

65 

63 

74 

3 

"Unexpected RETURN" 

CC8E 

65 

64 

20 

52 

45 

54 

55 

52 



CC96 

4E 

00 









CC98 

44 

41 

54 

41 

20 

65 

78 

68 

4 

"DATA exhausted" 

CCAO 

61 

75 

73 

74 

65 

64 

00 




CCA 7 

49 

6D 

70 

72 

6F 

70 

65 

72 

5 

"Inproper argument" 

CCAF 

20 

61 

72 

67 

75 

6D 

65 

6E 



CCB7 

74 

00 









CCB9 

4F 

76 

65 

72 

66 

6C 

6F 

77 

6 

"Overflow" 

CCC1 

00 










CCC2 

4D 

65 

6D 

6F 

72 

79 

20 

66 

7 

"Memory full" 

CCCA 

75 

6C 

6C 

00 







CCCE 

4C 

69 

6E 

65 

20 

64 

6F 

65 

8 

"Line does not exist 11 

CCD6 

73 

20 

6E 

6F 

74 

20 

65 

78 



CODE 

69 

73 

74 

00 







CCE2 

53 

75 

62 

73 

63 

72 

69 

70 

9 

"Subscript out of ränge" 

CCEA 

74 

20 

6F 

75 

74 

20 

6F 

66 



CCF2 

20 

72 

61 

6E 

67 

65 

00 




CCF9 

41 

72 

72 

61 

79 

20 

61 

6C 

10 

"Array already dimensioned" 

CD 01 

72 

65 

61 

64 

79 

20 

64 

69 



CD 09 

60 

65 

6E 

73 

69 

6F 

6E 

65 



CDU 

64 

00 









CD13 

44 

69 

76 

69 

73 

69 

6F 

6E 

11 

"Division by zero" 

CD1B 

20 

62 

79 

20 

7A 

65 

72 

6F 



CD23 

00 










CD 24 

49 

6E 

76 

61 

6C 

69 

64 

20 

12 

"Invalid direct command" 

CD2C 

64 

69 

72 

65 

63 

74 

20 

63 



CD34 

6F 

6D 

60 

61 

6E 

64 

00 




CD3B 

54 

79 

70 

65 

20 

6D 

69 

73 

13 

"Type mismatch" 

CD43 

60 

61 

74 

63 

68 

00 





CD49 

53 

74 

72 

69 

6E 

67 

20 

73 

14 

"String space full" 

CD51 

70 

61 

63 

65 

20 

66 

75 

6C 


CD59 

6C 

00 









CD5B 

53 

74 

72 

69 

6E 

67 

20 

74 

15 

"String too long" 

CD 63 

6F 

6F 

20 

6C 

6F 

6E 

67 

00 
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CD6B 

53 

74 

72 

69 

6E 

67 

20 

65 

CD73 

78 

70 

72 

65 

73 

73 

69 

6F 

CD7B 

6E 

20 

74 

6F 

6F 

20 

63 

6F 

CD83 

6D 

70 

6C 

65 

78 

00 



CD89 

43 

61 

6E 

6E 

6F 

74 

20 

43 

CD91 

4F 

4E 

54 

69 

6E 

75 

65 

00 

CD99 

55 

6E 

6B 

6E 

6F 

77 

6E 

20 

CDA1 

75 

73 

65 

72 

20 

66 

75 

6E 

CDA9 

63 

74 

69 

6F 

6E 

00 



CDAF 

52 

45 

53 

55 

4D 

45 

20 

6D 

CDB7 

69 

73 

73 

69 

6E 

67 

00 


CDBE 

55 

6E 

65 

78 

70 

65 

63 

74 

CDC6 

65 

64 

20 

52 

45 

53 

55 

4D 

CD CE 

45 

00 







CDD0 

44 

69 

72 

65 

63 

74 

20 

63 

CDD8 

6F 

6D 

6D 

61 

6E 

64 

20 

66 

CDE0 

6F 

75 

6E 

64 

00 




CDE5 

4F 

70 

65 

72 

61 

6E 

64 

20 

CDED 

6D 

69 

73 

73 

69 

6E 

67 

00 

CDF5 

4C 

69 

6E 

65 

20 

74 

6F 

6F 

CD FD 

20 

6C 

6F 

6E 

67 

00 



CE03 

45 

4F 

46 

20 

6D 

65 

74 

00 

CE0B 

46 

69 

6C 

65 

20 

74 

79 

70 

CE13 

65 

20 

65 

72 

72 

6F 

72 

00 

CElB 

4E 

45 

58 

54 

20 

6D 

69 

73 

CE23 

73 

69 

6E 

67 

00 




CE28 

46 

69 

6C 

65 

20 

61 

6C 

72 

CE30 

65 

61 

64 

79 

20 

6F 

70 

65 

CE38 

6E 

00 







CE3A 

55 

6E 

6B 

6E 

6F 

77 

6E 

20 

CE42 

63 

6F 

6D 

60 

61 

6E 

64 

00 

CE4A 

57 

45 

4E 

44 

20 

6D 

69 

73 

CE52 

73 

69 

6E 

67 

00 




CE57 

55 

6E 

65 

78 

70 

65 

63 

74 

CE5F 

65 

64 

20 

57 

45 

4E 

44 

00 


********************************** 


CE67 

CD 

86 

CE 

CALL 

CE86 

CE6A 

F5 



PUSH 

AF 

CE6B 

18 

08 


JR 

CE75 

************** ***** ****** * ** * ***** 

CE6D 

CD 

86 

CE 

CALL 

CE86 

CE70 

F5 



PUSH 

AF 

CE71 

7A 



LD 

A,D 

CE72 

B3 



OR 

E 

CE73 

28 

36 


JR 

Z,CEAB 

CE75 

7A 



LD 

A,D 

CE76 

B7 



OR 

A 

CE77 

20 

32 


JR 

NZ,CEAB 

CE79 

Fl 



POP 

AF 

CE7A 

7B 



LD 

A,E 

CE7B 

C9 



RET 


********************************** 

CE7C 

CD 

86 

CE 

CALL 

CE86 


16 "String expression too 
complex" 


17 "Cannot CONTinue" 

18 "Unknown user function" 


19 "RESUME missing" 

20 "Unexpected RESUME" 


21 "Direct command found" 


22 "Operand missing" 

23 "Line too long" 

24 "EOF met" 

25 "File type error" 

26 "NEXT missing" 

27 "File already open" 


28 "Unknown command" 

29 "WEND missing" 

30 "Unexpected WEND" 


Byte-Ausdruck holen 
OUT: A: Byte 

Integer holen, nach DE 
Flag für Statementende 
auf Byte-Wert prüfen 

Byte-Ausdruck <>0 holen 
OUT: A: Byte 
Integer holen 
Flag für Statementende 

Ausdruck =0 ? 
dann "Improper argument" 
Hi-Byte 
<>0 ? 

dann "Improper argument" 
Flag für Statementende 
Lo-Byte nach A 

Integer von 0..32767 holen 
OUT: DE: Integerwert 
Integer holen 
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CE7F 

F5 



PUSH 

AF 

CE80 

7A 



LD 

A,D 

CE81 

17 



RLA 


CE82 

38 

27 


JR 

C.CEAB 

CE84 

Fl 



POP 

AF 

CE85 

C9 



RET 


********************************** 

CE86 

CD 

FB 

CE 

CALL 

CEFB 

CE89 

F5 



PUSH 

AF 

CE8A 

EB 



EX 

DE,HL 

CE8B 

CD 

o 

OD 

FE 

CALL 

FE8D 

CE8E 

EB 



EX 

DE,HL 

CE8F 

Fl 



POP 

AF 

CE90 

C9 



RET 


********************************** 

CE91 

CD 

FB 

CE 

CALL 

CEFB 

CE94 

F5 



PUSH 

AF 

CE95 

C5 



PUSH 

BC 

CE96 

E5 



PUSH 

HL 

CE97 

CD 

C2 

FE 

CALL 

FEC2 

CE9A 

EB 



EX 

DE, HL 

CE9B 

El 



POP 

HL 

CE9C 

Ci 



POP 

BC 

CE9D 

Fl 



POP 

AF 

CE9E 

C9 



RET 



**** ä **** * ********************* *** 


CE9F 

CD 

FB 

CE 

CALL 

CEFB 

CEA2 

C3 

DA 

FB 

JP 

FBDA 

********************************** 

CEA5 

CD 

FB 

CE 

CALL 

CEFB 

CEA8 

C3 

3C 

FF 

JP 

FF3C 

CEAB 

iE 

05 


LD 

E,05 

CEAD 

C3 

94 

CA 

JP 

CA94 


****** * *** * *** ■* ****************** * 


CEBO 

01 

01 

00 

LD 

BC,0001 

CEB3 

11 

FF 

FF 

LD 

DE,FFFF 

CEB6 

CD 

55 

DD 

CALL 

DD55 

CEB9 

D4 

51 

DD 

CALL 

NC,DD51 

CEBC 

D8 



RET 

C 

CEBD 

FE 

23 


CP 

23 

CEBF 

C8 



RET 

Z 

CECO 

FE 

F5 


CP 

F5 

CEC2 

28 

OA 


JR 

Z,CECE 

CEC4 

CD 

El 

CE 

CALL 

CEE1 


Hi-Byte 

Vorzeichen negativ ? 
dann "Irrproper argument" 


Integer von -32768..32767 holen 
OUT: DE: Integerwert 
Ausdruck holen 

Basic-PC nach DE 

CINT, FAC nach Integer in HL 

Integer nach DE, PC nach HL 


Integer von -32768..65535 holen 
OUT: DE: Integerwert 
Ausdruck holen 


UNT, FAC nach Integer in HL 
Integerwert nach DE 


String holen, vom Stringstack lö. 
OUT: DE: Adrese des Strings 
A,B: Stringlänge 
Ausdruck holen 

String vom Stringstack löschen 

Stringausdruck holen 
Ausdruck holen 
auf String prüfen 

Nr. für "Improper argument" 
Fehler ausgeben 

Zeilennunmernbereich holen 
OUT: BC: Startzeilennummer 
DE: Endzeilennunmer 
CY=1, wenn Komma 
Z=1, wenn Statementende/"#" 
Default-Startzeilennr. 
Default-Endzeilennr. 
folgt Komma ? 

sonst Test auf Statementende 
Komna/Statem.-Ende ? dann Def. 
"#" ? 

dann Default 
Token für "-" ? 
dann keine Startzeilennr. 
Startzeilennr. holen 
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CEC7 

42 



LD 

B.D 

CEC8 

4B 



LD 

C,E 

CEC9 

C8 



RET 

Z 

CECA 

CD 

55 

DD 

CALL 

DD55 

CECD 

D8 



RET 

C 

CECE 

CD 

37 

DD 

CALL 

DD37 

CEDI 

F5 





CED2 

11 

FF 

FF 

LD 

DE,FFFF 

CED5 

C8 



RET 

Z 

CED6 

CD 

55 

DD 

CALL 

DD55 

CED9 

D8 



RET 

C 

CEDA 

CD 

El 

CE 

CALL 

CEE1 

CEDD 

C4 

55 

DD 

CALL 

NZ,DD55 

CEEO 

C9 



RET 



********************************** 


CEE1 

7E 



LD 

A, (HL) 

CEE2 

23 



INC 

HL 

CEE3 

5E 



LD 

E, (HL) 

CEE4 

23 



INC 

HL 

CEE5 

56 



LD 

D, (HL) 

CEE6 

FE 

IE 


CP 

IE 

CEE8 

28 

OE 


JR 

Z,CEF8 

CEEA 

FE 

ID 


CP 

ID 

CEEC 

C2 

7B 

DO 

JP 

NZ.D07B 

CEEF 

E5 



PUSH 

HL 

CEFO 

EB 



EX 

DE,HL 

CE Fl 

23 



INC 

HL 

CEF2 

23 



INC 

HL 

CEF3 

23 



INC 

HL 

CEF4 

5E 



LD 

E, (HL) 

CEF5 

23 



INC 

HL 

CEF6 

56 



LD 

D,(HL) 

CEF7 

El 



POP 

HL 

CEF8 

C3 

3F 

DD 

JP 

DD3F 


********************************** 


CEFB 

C5 



PUSH 

BC 

CEFC 

2B 



DEC 

HL 

CEFD 

06 

00 


LD 

B,00 

CEFF 

CD 

07 

CF 

CALL 

CF07 

CF02 

CI 



POP 

BC 

CF03 

2B 



DEC 

HL 

CF04 

C3 

3F 

DD 

JP 

DD3F 


********************************** 


CF07 

C5 

PUSH 

BC 

CF08 

CD CB CF 

CALL 

CFCB 

CFOB 

E5 

PUSH 

HL 

CFOC 

El 

POP 

HL 


als Default-Endznr. in DE 
als Startzeilennr. nach BC 
Statementende ? dann Default 
folgt Korona ? 
dann Default 
Test auf 
Token für 

Default-Endzeilennr. 

Statementende ? dann Default 

folgt Korona ? 

dann Default 

Endzeilennr. holen 

St.-Ende ? sonst Test a. Korona 


Zeilennummer holen 
OUT: DE: Zeilennummer 
folgendes Token 

nachfolgende Zeilenadresse 
bzw. ZeiLennr. nach DE 

Zeilennummer ? 

dann fertig 

Zeilenadresse ? 

nein ? dann "Syntax error" 

Basic-PC retten 

Zeilenadresse nach HL 

Zeilenende und Zeilenkopf 
übergehen 

Zeilennuroner aus Zeile 
laden 
Basic-PC 

nächstes Zeichen holen 

Ausdruck holen 
OUT: Ausdruck im FAC 

A: Zeichen nach Ausdruck 
Z=1 für Statementende 

Zeiger a. Zeichen vor Ausdruck 
Hierarchiecode (HC) bis Ende 
Ausdruck bis Ausdrucksende h. 

letztes Zeichen des Ausdrucks 
Zeichen nach Ausdruck holen 

Teilausdruck holen 
(bis zu einem Operator, dessen 
Hierarchiecode (HC) <=8 ist) 

IN : B: Hierachiecode (HC) 

End-HC retten 
1. Operanden holen 
Basic-PC retten 

Basic-PC 
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CFOD 

CI 


POP 

BC 

CFOE 

7E 


LD 

A,(HL) 

CFOF 

FE 

EE 

CP 

EE 

CF11 

D8 


RET 

C 

C F12 

FE 

FE 

CP 

FE 

CF14 

DO 


RET 

NC 

C F15 

FE 

F4 

CP 

F4 

C F17 

38 

40 

JR 

C,CF59 

CF19 

CC 

45 FF 

CALL 

Z,FF45 

CF1C 

20 

12 

JR 

NZ.CF30 


********************************** 


CF1E 

C5 



PUSH 

BC 

CF1F 

E5 



PUSH 

HL 

CF20 

2A 

C2 

BO 

LD 

HL,(B0C2) 

CF23 

E3 



EX 

(SP),HL 

CF24 

CD 

CB 

CF 

CALL 

CFCB 

CF27 

CD 

3C 

FF 

CALL 

FF3C 

CF2A 

E3 



EX 

(SP),HL 

CF2B 

CD 

63 

F8 

CALL 

F863 

CF2E 

18 

DC 


JR 

CFOC 

********************************** 

CF30 

7E 



LD 

A,(HL) 

CF31 

D6 

F4 


SUB 

F4 

CF33 

87 



ADD 

A 

CF34 

87 



ADD 

A 

CF35 

C6 

81 


ADD 

81 

CF37 

5F 



LD 

E,A 

CF38 

CE 

CF 


ADC 

CF 

CF3A 

93 



SUB 

E 

CF3B 

57 



LD 

D,A 

CF3C 

EB 



EX 

DE,HL 

CF3D 

78 



LD 

A,B 

CF3E 

BE 



CP 

(HL) 

CF3F 

EB 



EX 

DE,HL 

CF40 

DO 



RET 

NC 

CF41 

C5 



PUSH 

BC 

CF42 

CD 

53 

FF 

CALL 

FF53 

CF45 

D5 



PUSH 

DE 

CF46 

C5 



PUSH 

BC 

CF47 

1A 



LD 

A, (DE) 

CF48 

47 



LD 

B, A 

CF49 

CD 

07 

CF 

CALL 

CF07 

CF4C 

CI 



POP 

BC 

CF4D 

E3 



EX 

(SP),HL 

CF4E 

23 



INC 

HL 

CF4F 

EB 



EX 

DE,HL 

CF50 

79 



LD 

A,C 

CF51 

CD 

A0 

F5 

CALL 

F5A0 

CF54 

CD 

FB 

FF 

CALL 

FF FB 

CF57 

18 

B3 


JR 

CFOC 


********************************** 


CF59 

78 

LD 

A,B 

CF5A 

FE OA 

CP 

OA 

CF5C 

DO 

RET 

NC 

CF5D 

C5 

PUSH 

BC 


und End-HC zurück 

nächstes Zeichen 

kleiner als Token für ,I > M ? 

d. kein Operator, Ausdruckende 

größer als Token für XOR ? 

d. kein Operator, Ausdruckende 

kleiner als Token für "+" ? 

dann Vergleichsoperator 

"+" ? d. Operan. auf Str. prf. 

kein String oder nicht ll +" ? 

Stringverknüpfung M + n 
End-HC retten 
Basic-PC retten 
Zeiger auf 1. Descriptor 
retten, PC zurück 
2. Stringoperanden holen 
auf String prüfen 
PC retten, Zg. auf 1. Descr. 
Strings verketten 
weitere Operanden/Operatoren 

Operator behandeln 
Operator-Token 
minus Token für "+" 

Nr. in Tabelle mal 4, 
da 4 Bytes pro Eintrag 


zu Tabellenstart (CF81) 
addieren 

Tabellenzeiger n. HL, PC n. DE 

End-Hierarchiecode 

mit HC des Operators vergl. 

PC nach HL, Tab.-Zeiger n. DE 
End-HC >= lfd. HC ? d. fertig 
End-HC 

1. Operanden auf Basic-Stack 
Operator-Tabellenadresse 

ggf. Vergl.-Nr./Typ d. 1. Opr. 
laufenden HC aus Tabelle holen 
als End-HC für rekurs. Aufruf 

2. Operanden rekursiv holen 
ggf. Vergl.-Nr./Typ d. 1. Opr. 
PC retten, Operatortab.-Zeiger 
+1 gibt Aufrufadresse 

nach DE 

Typ des 1. Operanden 

1. Oper, vom Stack, Adr. n. HL 

Operation ausführen 

weitere Operanden/Operatoren 

Vergleichsoperator auswerten 
End-HC 

mit HC für Vergleich vergl. 
End-HC >= lfd. HC ? d. fertig 
End-HC retten 
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CF5E 

7E 



LD 

A,(HL) 

CF5F 

D6 

ED 


SUB 

ED 

CF61 

47 



LD 

B,A 

CF62 

CD 

45 

FF 

CALL 

FF45 

CF65 

11 

A9 

CF 

LD 

DE,CFA9 

CF68 

20 

D8 


JR 

NZ,CF42 

CF6A 

E5 



PUSH 

KL 

CF6B 

2A 

C2 

B0 

LD 

HL,(B0C2) 

CF6E 

E3 



EX 

(SP),HL 

CF6F 

C5 



PUSH 

BC 

CF70 

06 

0A 


LD 

B, OA 

CF72 

CD 

07 

CF 

CALL 

CF07 

CF75 

CI 



POP 

BC 

CF76 

E3 



EX 

(SP),HL 

CF77 

C5 



PUSH 

BC 

CF78 

CD 

97 

F8 

CALL 

F897 

CF7B 

CI 



POP 

BC 

CF7C 

CD 

AF 

CF 

CALL 

CFAF 

CF7F 

18 

8B 


JR 

CFOC 

********************************** 

CF81 

OC 





CF82 

C3 

CC 

FC 

JP 

FCCC 

CF85 

oc 





CF86 

C3 

El 

FC 

JP 

FCE1 

CF89 

12 





CF8A 

C3 

F5 

FC 

JP 

FCF5 

CF8D 

12 





CF8E 

C3 

12 

FD 

JP 

FD12 

CF91 

16 





CF92 

C3 

F4 

D4 

JP 

D4F4 

CF95 

10 





CF96 

C3 

37 

FD 

JP 

FD37 

CF99 

06 





CF9A 

C3 

58 

FD 

JP 

FD58 

CF9D 

0E 





CF9E 

C3 

49 

FD 

JP 

FD49 

CFA1 

04 





CFA2 

C3 

63 

FD 

JP 

FD63 

CFA5 

02 





CFA6 

C3 

6D 

FD 

JP 

FD6D 

CFA9 

0A 





********************************** 

CFAA 

C5 



PUSH 

BC 

CFAB 

CD 

09 

FD 

CALL 

FD09 

CFAE 

CI 



POP 

BC 


Token des Vergleichsoperators 

Nr. des Operators von 1..6 

als Maske für <, =, > nach B 

Stringflag holen 

Tab.-Adr. f. numer. Vergleich 

kein String ? dann num. Vergl. 

Basic-PC retten 

Zeiger auf Descr. d. 1. Oper. 

retten, PC zurück 

Vergleichsmaske retten 

End-HC für Vergleich 

2. Operanden rekursiv holen 

Vergleichsmaske zurück 

PC retten, Descr.-Zg. d. 1. 0. 

Vergleichsmaske retten 

Stringvergleich 

Vergleichsmaske 

Vergl. entspr. Maske auswerten 
weitere Operanden/Operatoren 

Tabelle der Hierarchiecodes und 
der Operatorenadressen 

+, Addition (numerisch) 


-, Subtraktion 


*, Multiplikation 


/, Division 


Ä , Potenzierung 


\, Integerdivision 


AND 


MOD 


OR 


XOR 

numerischer Vergleich 

numerischer Vergleich 
Vergleichsmaske retten 
Vergleich durchf., Ergeb. n. A 
Vergleichsmaske 
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CFAF 

C6 

01 

ADD 

01 

CFB1 

8F 


ADC 

A 

CFB2 

AO 


AND 

B 

CFB3 

C6 

FF 

ADD 

FF 

CFB5 

9F 


SBC 

A 

CFB6 

C3 

05 FF 

JP 

FF05 


********************************** 


CFB9 

2B 



DEC 

HL 

CFBA 

06 

14 


LD 

B, 14 

CFBC 

CD 

07 

CF 

CALL 

CF07 

CFBF 

C3 

89 

FD 

JP 

FD89 

********************************** 

CFC2 

2B 



DEC 

HL 

CFC3 

06 

08 


LD 

B,08 

CFC5 

CD 

07 

CF 

CALL 

CF07 

CFC8 

C3 

77 

FD 

JP 

FD77 

********************************** 

CFCB 

CD 

3F 

DD 

CALL 

DD3F 

CFCE 

28 

ID 


JR 

Z.CFED 

CFDO 

FE 

0E 


CP 

0E 

CFD2 

38 

39 


JR 

C,O00D 

CFD4 

FE 

20 


CP 

20 

CFD6 

38 

54 


JR 

C,D02C 

CFD8 

FE 

22 


CP 

22 

CFDA 

CA 

CB 

F7 

JP 

Z,F7CB 

CFDD 

FE 

FF 


CP 

FF 

CFDF 

CA 

80 

DO 

JP 

Z.D080 

CFE2 

E5 



PUSH 

HL 

CFE3 

21 

F2 

CF 

LD 

HL,CFF2 

CFE6 

CD 

93 

FF 

CALL 

FF93 

CFE9 

E3 



EX 

(SP),HL 

CFEA 

C3 

3F 

DD 

JP 

DD3F 

CFED 

IE 

16 


LD 

E, 16 

CFEF 

C3 

94 

CA 

JP 

CA 94 


********************************** 


CFF2 

08 


CFF3 

78 

DO 

CFF5 

F5 


CFF6 

B9 

CF 

CFF8 

F4 


CFF9 

CE 

CF 

CFFB 

28 


CFFC 

70 

DO 

CFFE 

FE 


CFFF 

C2 

CF 

D001 

E3 


D002 

EE 

DO 


Erg. $FF f. >, 0 f. =, 1 f. < 

1 f. >, 2 f. =, 4 f.< 

Erg. in Vergl.-Maske isolieren 
CY=0, wenn falsch 
A=0, wenn falsch, sonst A=$FF 
Ergebnis in FAC eintragen 

auswerten 
PC vor Ausdruck 
End-HC für Vorzeichenwechsel 
Teilausdruck holen 
Vorzeichenwechsel 

NOT auswerten 

PC vor Ausdruck 
End-HC für NOT 
Teilausdruck holen 
NOT ausführen 

Einzeloperanden holen 
nächstes Zeichen holen 
"Operand missing" bei St.-Ende 
Token für Variable ? 
dann auswerten 
Token für Konstante ? 
dann auswerten 

IHI 7 

dann Stringkonstante holen 
Token für Funktion ? 
dann Funktionsauswertung 
Basic-PC retten 
Zeiger auf Tabelle 
Adr. entsp. Token aus Tab. h. 
Adr. auf Stack, PC zurück 
nächstes Z., Routine ausf. 

Nr. für "Operand missing" 
Fehler ausgeben 

Tabelle für Operandenauswertung 
8 TabelLeneinträge 
D078, "Syntax error"/User-Vek. 

Token für 

CFB9, Vorzeichenwechsel ausw. 

Token für "+" 

CFCE, Operanden holen 

11(11 

D070, Ausdruck und ")" holen 

Token für NOT 
CFC2, NOT auswerten 

Token für ERL 
DOEE, ERL auswerten 
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D004 E4 
D005 30 Dl 

D007 AC 
D008 4B F9 

D00A 40 
DOOB FA DO 


********************************** 


D00D 

CD 

90 

D6 

CALL 

D690 

D010 

30 

OB 


JR 

NC,D01D 

D012 

FE 

03 


CP 

03 

D014 

28 

0F 


JR 

Z,D025 

D016 

E5 



PUSH 

HL 

D017 

EB 



EX 

DE,HL 

D018 

CD 

4B 

FF 

CALL 

FF4B 

D01B 

El 



POP 

HL 

D01C 

C9 



RET 


D01D 

FE 

03 


CP 

03 

D01F 

C2 

F3 

FE 

JP 

NZ,FEF3 

D022 

11 

2B 

DO 

LD 

DE,D02B 

D025 

EB 



EX 

DE,HL 

D026 

22 

C2 

B0 

LD 

(B0C2),HL 

D029 

EB 



EX 

DE,HL 

D02A 

C9 



RET 


D02B 

00 





************** * ** *** * * * * **** * * * * * * 

D02C 

D6 

0E 


SUB 

OE 

D02E 

FE 

0A 


CP 

OA 

D030 

38 

ID 


JR 

C,D04F 

D032 

23 



INC 

HL 

D033 

FE 

OB 


CP 

OB 

D035 

28 

17 


JR 

Z, D04E 

D037 

FE 

0F 


CP 

OF 

D039 

38 

0E 


JR 

C,D049 

D03B 

FE 

11 


CP 

11 

D03D 

38 

1A 


JR 

C,D059 

D03F 

20 

3A 


JR 

NZ.D07B 

D041 

3E 

05 


LD 

A,05 

D043 

CD 

4B 

FF 

CALL 

FF4B 

D046 

2B 



DEC 

HL 

D047 

18 

24 


JR 

D06D 

D049 

5E 



LD 

E, (HL) 

D04A 

23 



INC 

HL 

D04B 

56 



LD 

D,(HL) 

D04C 

18 

04 


JR 

D052 

D04E 

7E 



LD 

A, (HL) 

D04F 

5F 



LD 

E,A 

D050 

16 

00 


LD 

D, 00 

D052 

EB 



EX 

DE,HL 

D053 

CD 

0D 

FF 

CALL 

FFOD 

D056 

EB 



EX 

DE,HL 

D057 

18 

14 


JR 

D06D 

D059 

5E 



LD 

E, (HL) 

D05A 

23 



INC 

HL 


Token für FN 

D130, definierte Funktion aw. 

Token für MID$ 

F94B, MID$-Funktion 

" 3 " 

DOFA, Variablenadresse holen 

Variablenwert holen 

Variable holen, Adresse n. DE 
existiert Variable nicht ? 
Stringvariable ? 
dann Descriptor übertragen 
Basic-PC retten 
Variablenadresse nach HL 
Variable nach FAC 
Basic-PC zurück 

kein String ? 

dann FAC löschen 

Descr.-Zeiger für Leerstring 

als akt. Descriptoradresse 


String länge 0 

Konstantenwert holen 

Token in Bereich 0..$11 
Kurz-Konstante <10 ? 
dann Wert setzen 
Zeiger auf Konstanten-Wert 
Ein-Byte-Konstante ? 
dann folgendes Byte holen 
Zwei-Byte-Konstante ? 
dann auswerten 
Zeilennr. oder -adresse ? 
dann auswerten 

keine REAL-Zahl ? dann Fehler 
Typ für REAL, 5 Bytes 
Wert aus Programn nach FAC 
Basic-PC auf letztes REAL-Byte 
nächstes Zeichen holen 

Zwei-Byte-Konstante 
nach DE 
und nach FAC 
Ein-Byte-Konstante 
als Lo-Byte 
Hi-Byte=0 

Integerwert in DE nach FAC 
nächstes Zeichen holen 
Zeilennr. bzw. -adresse 




Die Listings der CPC-ROMs 457 


D05B 

56 



LD 

D,(HL) 

D05C 

E5 



PUSH 

HL 

D05D 

FE 

0F 


CP 

0F 

D05F 

20 

07 


JR 

NZ.D068 

D061 

13 



INC 

DE 

D062 

EB 



EX 

DE,HL 

D063 

23 



INC 

HL 

D064 

23 



INC 

HL 

D065 

5E 



LD 

E,(HL) 

D066 

23 



INC 

HL 

D067 

56 



LD 

D, (HL) 

D068 

EB 



EX 

DE,HL 

D069 

CD 

60 

FE 

CALL 

FE60 

D06C 

El 



POP 

HL 

D06D 

C3 

3F 

DD 

JP 

DD3F 

********************************** 

D070 

CD 

FB 

CE 

CALL 

CEFB 

D073 

CD 

37 

DD 

CALL 

DD37 

D076 

29 





D077 

C9 



RET 


D078 

CD 

0D 

AC 

CALL 

AC0D 

D07B 

IE 

02 


LD 

E,02 

D07D 

C3 

94 

CA 

JP 

CA94 

********************************** 

D080 

23 



INC 

HL 

D081 

4E 



LD 

C,(HL) 

D082 

CD 

3F 

DD 

CALL 

DD3F 

D085 

79 



LD 

A,C 

D086 

FE 

40 


CP 

40 

D088 

38 

05 


JR 

C,D08F 

D08A 

FE 

49 


CP 

49 

D08C 

DA 

BB 

DO 

JP 

C,D0BB 

D08F 

CD 

37 

DD 

CALL 

DD37 

D092 

28 





D093 

79 



LD 

A,C 

D094 

87 



ADD 

A 

D095 

C6 

IE 


ADD 

IE 

D097 

4F 



LD 

C,A 

D098 

FE 

59 


CP 

59 

D09A 

30 

0D 


JR 

NC.D0A9 

D09C 

FE 

ID 


CP 

ID 

D09E 

38 

0E 


JR 

C,D0AE 

D0A0 

CD 

70 

DO 

CALL 

D070 

D0A3 

E5 



PUSH 

HL 

D0A4 

CD 

AE 

DO 

CALL 

DOAE 

D0A7 

El 



POP 

HL 

D0A8 

C9 



RET 


D0A9 

CD 

0A 

AC 

CALL 

ACOA 

DOAC 

18 

CD 


JR 

D07B 


********************************** 


üOAE E5 PUSH HL 

DOAF 06 00 LD B,00 


nach DE 

Basic-PC retten 
ZeUenadresse ? 

nein ? dann Zeilennr. nach FAC 
Null am Zeilenende übergehen 
Zeiger auf Zeile nach HL 
Zeilen Länge 
übergehen 

Zeilennummer aus Zeile laden 
nach DE 

Zeilennummer nach HL 
nach REAL wandeln, in FAC 
Basic-PC zurück 
Zeichen nach Konstante holen 

Ausdruck und ")" holen 
Ausdruck holen 
Test auf ")" 

n) ii 


User-Vektor 

Nr. für "Syntax error" 

Fehler ausgeben 

Funktionsauswertung 
Zeiger auf Token 
Funktions-Token laden 
Zeiger auf nächstes Zeichen 
Funktions-Token 
Gruppe 1 (Tokens 0-S1D) ? 
dann Argument holen, ausf. 
Gruppe 2 (Tokens S40-S48) ? 
dann ausführen 
Test auf "(" 

ll( II 

Token 

mal 2, 2 Bytes pro Eintrag 
Offset für Tabelle addieren 
Offset in Tabelle 
größer als max. Tab.-Offset ? 
dann Fehler 

Gruppe 3 (Tokens S71-S7F) ? 
dann ausführen 

sonst Argument und holen 
Basic-PC retten 
Funktion ausführen 
Basic-PC zurück 


User-Vektor 
"Syntax error" 

Funktion anspringen (Gruppen 1/3) 
IN : C: Tabellenoffset 
PC retten 
Offset hi =0 
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D0B1 

21 90 Dl 

LD 

HL,D190 

D0B4 

09 

ADD 

HL, BC 

D0B5 

7E 

LD 

A,(HL) 

D0B6 

23 

INC 

HL 

D0B7 

66 

LD 

H,(HL) 

D0B8 

6F 

LD 

L,A 

D0B9 

E3 

EX 

(SP),HL 

DOBA 

C9 

RET 



********************************** 


D0BB 

E5 




PUSH 

HL 

D0BC 

4F 




LD 

C, A 

D0BD 

06 

00 



LD 

B,00 

D0BF 

21 

4A 

DO 


LD 

HL,D04A 

D0C2 

09 




ADD 

HL,BC 

D0C3 

09 




ADD 

HL,BC 

D0C4 

7E 




LD 

A, (HL) 

D0C5 

23 




INC 

HL 

D0C6 

66 




LD 

H, (HL) 

D0C7 

6F 




LD 

L,A 

D0C8 

E3 




EX 

(SP),HL 

D0C9 

C9 




RET 


********************************** 

D0CA 

17 

C4 

DC 

DO 

F4 DO 

24 FA 

D0D2 

DB 

D4 

84 

D5 

E5 DO 

07 Dl 

D0DA 

0E 

Dl 





********************************** 

D0DC 

E5 




PUSH 

HL 

D0DD 

3A 

AA 

AD 


LD 

A,(ADAA) 

D0E0 

CD 

0A 

FF 


CALL 

FF0A 

D0E3 

El 




POP 

HL 

D0E4 

C9 




RET 



********************************** 


D0E5 

E5 



PUSH 

HL 

D0E6 

CD 

0D 

BD 

CALL 

BDOD 

D0E9 

CD 

7C 

FE 

CALL 

FE7C 

D0EC 

El 



POP 

HL 

D0ED 

C9 



RET 


********************************** 

DOEE 

E5 



PUSH 

HL 

D0EF 

CD 

DF 

CA 

CALL 

CADF 

D0F2 

18 

0E 


JR 

Dl 02 

********************************** 

D0F4 

E5 



PUSH 

HL 

D0F5 

2A 

7B 

AE 

LD 

HL,(AE7B) 

D0F8 

18 

08 


JR 

D102 

********************************** 

D0FA 

CD 

90 

D6 

CALL 

D690 

D0FD 

D2 

AB 

CE 

JP 

NC,CEAB 


Adresse der Tabelle 
Offset addieren 

Adresse aus Tabelle 
laden, nach HL 

auf Stack, PC zurück 
Funktion anspringen 

Funktion anspringen (Gruppe 2) 

IN : A: Token 

($40..$48, CPC 464) 
($40..$49, CPC 664/6128) 
PC retten 
Token 
Hi-Byte =0 

Adresse der Tabelle -$80 
Token mal 2 addieren 
2 mal $40 gleicht -$80 aus 

Adresse aus Tabelle 
laden, nach HL 

auf Stack, PC zurück 
Funktion anspringen 

Funktionsadressen, Tokens $40-$48 
EOF, ERR, HIMEM, INKEY$ 

PI, RND, TIME, XPOS 
YPOS 

Basic-Funktion ERR 
Basic-PC retten 
Nummer des letzten Fehlers 
in FAC eintragen 
PC zurück 


Basic-Funktion TIME 
Basic-PC retten 

KL TIME PLEASE, Timer n. DE/HL 
4-Byte-Wert nach FAC 
PC zurück 


ERL auswerten 

Basic-PC retten 

Error-Zeilennr. nach HL 

in positive REAL-Zahl wandeln 

Basic-Funktion HIMEM 
Basic-PC retten 
HIMEM-Zeiger 

in positive REAL-Zahl wandeln 

Variablenadresse nach FAC ("3") 
Variable holen, Adr. nach DE 
existiert Var. n. ? d. Fehler 
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Dl 00 

E5 

PUSH 

HL 

Dl 01 

EB 

EX 

DE,HL 

Dl 02 

CD 60 FE 

CALL 

FE60 

D105 

El 

POP 

HL 

Dl 06 

C9 

RET 



********************************** 


Dl 07 

E5 



PUSH 

KL 

Dl 08 

CD 

C6 

BB 

CALL 

BBC6 

D10B 

EB 



EX 

DE,HL 

Dl 0C 

18 

04 


JR 

Dl 12 

********************************** 

Dl 0E 

E5 



PUSH 

HL 

Dl 0F 

CD 

C6 

BB 

CALL 

BBC6 

Dl 12 

CD 

0D 

FF 

CALL 

FF0D 

Dl 15 

El 



POP 

KL 

Dl 16 

C9 



RET 


********************************** 

Dl 17 

CD 

37 

DD 

CALL 

DD37 

D11A 

E4 





D11B 

EB 



EX 

DE,HL 

Dl IC 

CD 

D6 

DD 

CALL 

DDD6 

Dl 1F 

EB 



EX 

DE,HL 

Dl 20 

IE 

OC 


LD 

E,0C 

D122 

D2 

94 

CA 

JP 

NC.CA94 

Dl 25 

CD 

A2 

D6 

CALL 

D6A2 

Dl 28 

EB 



EX 

DE,HL 

D129 

73 



LD 

(HL),E 

D12A 

23 



INC 

HL 

D12B 

72 



LD 

(HL),D 

D12C 

EB 



EX 

DE,HL 

D12D 

C3 

EF 

E8 

JP 

E8EF 

********************************** 

D130 

CD 

A2 

D6 

CALL 

D6A2 

D133 

C5 



PUSH 

BC 

D134 

E5 



PUSH 

HL 

D135 

EB 



EX 

DE, HL 

Dl 36 

5E 



LD 

E, (HL) 

Dl 37 

23 



INC 

HL 

Dl 38 

56 



LD 

D,(HL) 

Dl 39 

EB 



EX 

DE,HL 

D13A 

7C 



LD 

A,H 

D13B 

B5 



OR 

L 

D13C 

IE 

12 


LD 

E, 12 

D13E 

CA 

94 

CA 

JP 

Z, CA94 

D141 

CD 

07 

DA 

CALL 

DA07 

Dl 44 

7E 



LD 

A, (HL) 

Dl 45 

FE 

28 


CP 

28 

Dl 47 

20 

2C 


JR 

NZ.D175 

Dl 49 

CD 

3F 

DD 

CALL 

DD3F 

D14C 

E3 



EX 

(SP),HL 

D14D 

CD 

37 

DD 

CALL 

DD37 

D150 

28 





D151 

E3 



EX 

(SP),HL 

Dl 52 

CD 

4B 

DA 

CALL 

DA4B 


Basic-PC retten 
Variablenadresse nach KL 
KL in positive REAL-Zahl 
Basic-PC zurück 


Basic-Funktion XPOS 
Basic-PC retten 
GRA ASK CURSOR, XPOS nach DE 
X-Koordinate nach HL 
und in FAC 

Basic-Funktion YPOS 
Basic-PC retten 
GRA ASK CURSOR, YPOS nach HL 
HL in FAC eintragen 
Basic-PC zurück 


Basic-Befehl DEF 
Test auf FN 
Token für FN 

Flag für Direkt-Modus holen 

N. f. "Invalid direct command" 
Direkt-Modus ? dann Fehler 
FN-Eintr. suchen, ggf. anlegen 
Zeiger auf Eintrag nach HL 
aktuellen PC als Zeiger auf 
Funktionsdefinition in 
FN-Eintrag speichern 
PC wieder nach HL 
nächstes Statement suchen 

definierte Funktion auswerten 
FN-Eintrag suchen 
Typ des Funktionsresultats und 
Programmzeiger retten 
FN-Eintrags-Zeiger nach HL 

Zeiger auf Funktions¬ 
definition nach DE 
nach KL 

Funktion nicht definiert ? 

Nr. f. "Unknown user function" 
ggf. Fehler ausgeben 
neuen Eintrag in FN-Liste 
Zeichen aus Definition 
"(" ? 

nein ? dann keine Parameter 
nächstes Zeichen 
Def.-PC retten, Aufruf-PC zur. 
Test auf "(" 

ll/ll 

Aufruf-PC retten, Def.-PC zur. 
FN-Var. auf B.-Stack, in Liste 
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D155 

E3 




EX 

(SP),HL 

D156 

D5 




PUSH 

DE 

D157 

CD 

FB 

CE 


CALL 

CEFB 

D15A 

E3 




EX 

(SP),HL 

D15B 

78 




LD 

A,B 

D15C 

CD 

66 

D6 


CALL 

D666 

D15F 

El 




POP 

HL 

D160 

CD 

55 

DD 


CALL 

DD55 

Dl 63 

30 

07 



JR 

NC,D16C 

Dl 65 

E3 




EX 

(SP),HL 

Dl 66 

CD 

37 

DD 


CALL 

DD37 

Dl 69 

2C 






D16A 

18 

E6 



JR 

D152 

D16C 

CD 

37 

DD 


CALL 

DD37 

D16F 

29 






D170 

E3 




EX 

(SP),HL 

D171 

CD 

37 

DD 


CALL 

DD37 

D174 

29 






Dl 75 

CD 

27 

DA 


CALL 

DA27 

Dl 78 

CD 

37 

DD 


CALL 

DD37 

D17B 

EF 






D17C 

CD 

FB 

CE 


CALL 

CEFB 

D17F 

C2 

7B 

DO 


JP 

NZ,D07B 

Dl 82 

CD 

30 

DA 


CALL 

DA30 

Dl 85 

CD 

45 

FF 


CALL 

FF45 

Dl 88 

CC 

49 

FB 


CALL 

Z,FB49 

D18B 

El 




POP 

HL 

D18C 

Fl 




POP 

AF 

D18D 

C3 

D7 

FE 


JP 

FED7 

********************************** 

Dl 90 

BA 

F8 

EA 

F8 

C4 F8 AI FA 

Dl 98 

3C 

F9 

EE 

Dl 

EA Dl 

76 C2 

D1A0 

43 

F9 

19 

D2 

36 FA 

E9 C4 

D1A8 

EE 

C4 

AB 

CE 

62 C2 


********************************** 

D1AE 

85 

FD 

10 

FA 

3E D5 

16 FA 

D1B6 

8D 

FE 

34 

D5 

EC FE 

20 D5 

Dl CO 

E8 

FD 

2D 

FC 

09 D4 

6D Fl 

D1C8 

ED 

FD 

23 

D4 

0A FA 

2A D5 

DIDO 

25 

D5 

34 

F8 

58 Fl 

9F C9 

D1D8 

02 

FF 

2F 

D5 

57 FA 

29 D3 

D1E0 

EF 

D4 

IE 

F9 

39 D5 

C2 FE 

D1E8 

42 

F8 

77 

FA 



********************************** 

DlEA 

06 

FF 



LD 

B, FF 

D1EC 

18 

02 



JR 

Dl F0 


********************** * 3 - ********** 


D1EE 

06 

01 


LD 

B, 01 

D1F0 

CD 

FB 

CE 

CALL 

CEFB 

D1F3 

CD 

55 

DD 

CALL 

DD55 

D1F6 

30 

IC 


JR 

NC.D214 

D1F8 

CD 

53 

FF 

CALL 

FF53 

Dl FB 

CD 

FB 

CE 

CALL 

CEFB 

Dl FE 

E5 



PUSH 

HL 


Def.-PC retten, Aufruf-PC zur. 
Zeiger auf Funktions-Variable 
aktuellen Parameter holen 
Aufr.-PC r., FN-Var.-Zg. n. HL 
Typflag 

Param. an FN-Var. zuweisen 

Aufruf-PC 

folgt Komma ? 

sonst ausrechnen 

Aufruf-PC retten, Def.-PC zur. 

Test auf Komma 

II II 
t 

nächsten akt. Parameter holen 
Test auf ")" 

II ) II 

Def.-PC retten, Aufruf-PC zur. 
Test auf ")" 

n) ii 

FN-Var.-Liste in FN-Liste 
Test auf ,, =" 

Token für 

Funktionsresultat berechnen 
Statementende ? sonst Fehler 
FN-Var.-Liste wieder aushängen 
Typflag des Resultats 
String ? dann ggf. auf S-Stack 
Aufruf-PC 

Typflag des Resultats 

Res. an Funkt ionstyp angleich. 

Funktionsadressen, Tokens $71-$7F 
BIN$, DECS, HEXS, INSTR 
LEFTS, MAX, MIN, POS 
RIGHTS, ROUND, STRINGS, TEST 
TESTR, Improper argument, VPOS 

Funktionsadressen, Tokens S00-S1D 
ABS, ASC, ATN, CHRS 
CINT, COS, CREAL, EXP 
FIX, FRE, INKEY, INP 
INT, JOY, LEN, LOG 
LOGIO, LOWERS, PEEK, REMAIN 
SGN, SIN, SPACES, SQ 
SQR, STRS, TAN, UNT 
UPPERS, VAL 

Basic-Funktion MIN 
Flag für MIN 


Basic-Funktion MAX 
Flag für MAX 
Ausdruck holen 
folgt Koruna ? 
nein ? dann fertig 
FAC auf Basic-Stack 
Ausdruck holen 
Basic-PC retten 
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Dl FF 

79 



LD 

A,C 

D200 

CD 

AO 

F5 

CALL 

F5A0 

D203 

C5 



PUSH 

BC 

D204 

E5 



PUSH 

HL 

D205 

CD 

09 

FD 

CALL 

FD 09 

D208 

El 



POP 

HL 

D209 

CI 



POP 

BC 

D20A 

B7 



OR 

A 

D2QB 

28 

04 


JR 

Z,D211 

D20D 

B8 



CP 

B 

D20E 

C4 

4E 

FF 

CALL 

NZ,FF4E 

D211 

El 



POP 

HL 

D212 

18 

DF 


JR 

D1F3 

D214 

CD 

37 

DD 

CALL 

DD37 

D217 

29 





D218 

C9 



RET 



********************************** 


D219 

CD 

FB 

CE 

CALL 

CEFB 

D21C 

CD 

53 

FF 

CALL 

FF53 

D21F 

CD 

55 

DD 

CALL 

DD55 

D222 

11 

00 

00 

LD 

DE,0000 

D225 

DC 

86 

CE 

CALL 

C,CE86 

D228 

CD 

37 

DD 

CALL 

DD37 

D22B 

29 





D22C 

E5 



PUSH 

HL 

D22D 

D5 



PUSH 

DE 

D22E 

21 

27 

00 

LD 

HL,0027 

D231 

19 



ADD 

HL,DE 

D232 

11 

4F 

00 

LD 

DE,004F 

D235 

CD 

B8 

FF 

CALL 

FFB8 

D238 

D2 

AB 

CE 

JP 

NC,CEAB 

D23B 

Dl 



POP 

DE 

D23C 

79 



LD 

A,C 

D23D 

CD 

A0 

F5 

CALL 

F5A0 

D240 

43 



LD 

B,E 

D241 

CD 

AF 

FD 

CALL 

FDAF 

D244 

El 



POP 

HL 

D245 

C9 



RET 


**★#**£*&**********★********■&***** 

D246 

CO 



RET 

NZ 

D247 

E5 



PUSH 

HL 

D248 

CD 

AD 

D2 

CALL 

D2AD 

D24B 

CD 

37 

F6 

CALL 

F637 

D24E 

CD 

9B 

BC 

CALL 

BC9B 

D251 

CD 

71 

F6 

CALL 

F671 

D254 

El 



POP 

HL 

D255 

C9 



RET 


•k'k-k'k'k-k-k-kitifk'k'kitit'k'k-k'k'k-kickit'k'k'k'kickirit'k'k 

D256 

CD 

73 

D2 

CALL 

D273 

D259 

CD 

37 

F6 

CALL 

F637 

D25C 

C3 

8C 

BC 

JP 

BC8C 


Typflag des vorherigen Ausdr. 
letzten Ausdr. vom Stack 
Typflag 

und Zeiger auf letzten Ausdr. 
letzen Ausdruck mit FAC vergl. 
Zeiger auf letzten Ausdruck 
und Typ zurück 
Vergleichsergebnis 
gleich ? dann nächsten Ausdr. 
mit MAX/MIN-Flag vergleichen 
ggf. letz. Ausdr. in FAC holen 
Basic-PC zurück 
nächsten Ausdruck holen 
Test auf ll )" 

11 j»i 


Basic-Funktion ROUND 
Ausdruck holen 
FAC auf Basic-Stack 
folgt Komma ? 

Defau11- Rundungsexponent 
ggf. Rundungsexp. holen 
Test auf 
11)11 

Basic-PC 

Rundungsexponent 
39 (max. Exp.-Betrag) 
addieren 
max. Wert 

Betrag des Exp. >39 ? 
dann 11 Improper argurnent" 
Rundungsexponent 
Typ des Arguments 
Argument vom Basic-Stack 
Rundungsexponent 
Argument runden 
Basic-PC zurück 


Basic-Befehl CAT 

Statementende ? sonst Fehler 

Basic-PC 

Kassette init. 

Output-Buffer reservieren 
CAS CATALOG 

Output-Buffer freigeben 
Basic-PC 


Basic-Befehl OPENOUT 

File öffnen, Fehler prüfen 

Output-Buffer reservieren 
CAS OUT OPEN 
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********************************** 


D25F 

CD 

6A 

D2 

CALL 

D26A 

D262 

FE 

16 


CP 

16 

D264 

C8 



RET 

Z 

D265 

IE 

19 


LD 

E# 19 

D267 

C3 

94 

CA 

JP 

CA94 


********************************** 


D26A 

CD 

73 

D2 

CALL 

D273 

D26D 

CD 

32 

F6 

CALL 

F632 

D270 

C3 

77 

BC 

JP 

BC77 

********************************** 

D273 

CD 

9F 

CE 

CALL 

CE9F 

D276 

E3 



EX 

(SP),KL 

D277 

EB 



EX 

DE,HL 

D278 

CD 

85 

D2 

CALL 

D285 

D27B 

CA 

6B 

CB 

JP 

Z,CB6B 

D27E 

El 



POP 

HL 

D27F 

D8 



RET 

C 

D280 

IE 

1B 


LD 

E,1B 

D282 

C3 

94 

CA 

JP 

CA94 


********************************** 


D285 

D5 


PUSH 

DE 

D286 

OE 

00 

LD 

C,00 

D288 

78 


LD 

A,B 

D289 

B7 


OR 

A 

D28A 

28 

08 

JR 

Z,D294 

D28C 

7E 


LD 

A, (HL) 

D28D 

FE 

21 

CP 

21 

D28F 

20 

03 

JR 

NZ,D294 

D291 

23 


INC 

HL 

D292 

05 


DEC 

B 

D293 

0D 


DEC 

C 

D294 

79 


LD 

A, C 

D295 

C3 

6B BC 

JP 

BC6B 


********************************** 


D298 

E5 



PUSH 

HL 

D299 

CD 

7A 

BC 

CALL 

BC7A 

D29C 

CD 

6D 

F6 

CALL 

F66D 

D29F 

El 



POP 

HL 

D2A0 

C9 



RET 


********************************** 

D2A1 

E5 



PUSH 

HL 

D2A2 

CD 

8F 

BC 

CALL 

BC8F 


Basic-Befehl OPENIN 
Eingabefile öffnen 
Filetyp für Datenfile ? 
dann o.k. 

Nr. für "File type error" 
Fehler augeben 

Eingabefile öffnen 
OUT: A: Filetyp 

DE: Startadresse 
BC: Länge 
File öffnen 

Input-Buffer reservieren 
CAS IN OPEN 

File öffnen 
OUT: A: Filetyp 

Namen h. # Adr. n. DE, Lä. n. B 
PC retten, Aufrufadr. nach HL 
nach DE, Adr. des Namens n. HL 
File eröffnen 
Abbruch ? dann "Break" 

PC zurück 
kein Fehler ? 
sonst "File already open" 
Fehler ausgeben 

File öffnen Fortsetzung 
IN : DE: Adresse der Open-Rout ine 
HL: Adresse des Namens 
B: Länge des Namens 
OUT: CY=0, wenn Fehler 

CY=0, Z=1, wenn Abbruch 
Routinenadresse auf Stack 
Flag für Meldungen 
Länge des Namen 
=0 ? 

dann Flag für Meldungen 
1. Zeichen des Namen 
"!" ? 

nein ? dann Flag für Meldungen 

sonst 11 !" übergehen 

Länge erniedrigen 

Flag für keine Meldungen 

Flag 

CAS NOISY, danach File öffnen 

Basic-Befehl CLOSEIN 
PC retten 
CAS IN CLOSE 
Input-Buffer freigeben 
PC 


Basic-Befehl CLOSEOUT 
PC retten 
CAS OUT CLOSE 
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D2A5 

CA 

6B 

CB 

JP 

Z,CB6B 

D2A8 

CD 

71 

F6 

CALL 

F671 

D2AB 

El 



POP 

HL 

D2AC 

C9 



RET 


********************************** 

D2AD 

C5 



PUSH 

BC 

D2AE 

D5 



PUSH 

DE 

D2AF 

E5 



PUSH 

HL 

D2B0 

CD 

7D 

BC 

CALL 

BC7D 

D2B3 

CD 

6D 

F6 

CALL 

F66D 

D2B6 

CD 

92 

BC 

CALL 

BC92 

D2B9 

CD 

71 

F6 

CALL 

F671 

D2BC 

El 



POP 

HL 

D2BD 

Dl 



POP 

DE 

D2BE 

CI 



POP 

BC 

D2BF 

C9 



RET 



********************************** 


D2C0 

CD 

67 

CE 


CALL 

CE67 

D2C3 

32 

B2 

AD 


LD 

(ADB2),A 

D2C6 

CD 

37 

DD 


CALL 

DD37 

D2C9 

2C 






D2CA 

CD 

FF 

D3 


CALL 

D3FF 

D2CD 

ED 

53 

B5 

AD 

LD 

(ADB5),DE 

D2D1 

CD 

55 

DD 


CALL 

DD55 

D2D4 

11 

14 

00 


LD 

DE,0014 

D2D7 

DC 

86 

CE 


CALL 

C,CE86 

D2DA 

ED 

53 

B9 

AD 

LD 

(ADB9),DE 

D2DE 

01 

OC 

10 


LD 

BC,100C 

D2E1 

CD 

0D 

D3 


CALL 

D30D 

D2E4 

32 

B8 

AD 


LD 

(ADB8),A 

D2E7 

OE 

00 



LD 

C,00 

D2E9 

CD 

0D 

D3 


CALL 

D30D 

D2EC 

32 

B3 

AD 


LD 

<ADB3),A 

D2EF 

CD 

0D 

D3 


CALL 

D30D 

D2F2 

32 

B4 

AD 


LD 

(ADB4),A 

D2F5 

06 

20 



LD 

B,20 

D2F7 

CD 

0D 

D3 


CALL 

D30D 

D2FA 

32 

B7 

AD 


LD 

(ADB7),A 

D2FD 

CD 

4A 

DD 


CALL 

DD4A 

D300 

E5 




PUSH 

HL 

D301 

21 

B2 

AD 


LD 

HL,ADB2 

D304 

CD 

AA 

BC 


CALL 

BCAA 

D307 

El 




POP 

HL 

D308 

D8 




RET 

C 

D309 

Fl 




POP 

AF 

D30A 

C3 

71 

DD 


JP 

DD71 


********************************** 


D30D 

CD 55 DD 

CALL 

DD55 

D310 

79 

LD 

A.C 

D311 

DO 

RET 

NC 

D312 

7E 

LD 

A,(HL) 

D313 

FE 2C 

CP 

2C 


Abbruch ? dann "Break" 
Output-Buffer freigeben 
PC 


Kassette initialisieren 


CAS IN ABANDON 
Input-Buffer freigeben 
CAS OUT ABANDON 
Output-Buffer freigeben 


Basic-Befehl SOUND 
Bytewert holen 
als Kanal-Status setzen 
Test auf Komma 

II II 
/ 

Tonperiode <4096 holen 

und speichern 

Test auf Koruna 

Default-Dauer 

Komma ? dann Dauer holen 

Dauer speichern 

max. und Default-Wert 

Lautstärke holen 

und speichern 

Default-Wert 

ENV-Folgenr. holen 

und speichern 

ENT-Folgenr. holen 

und speichern 

max. Wert 

Geräusch-Folgenr. holen 

und speichern 

Test auf Statementende 

Basic-PC retten 

Zeiger auf SOUND-Parameter 

SOUND QUEUE 

Basic-PC zurück 

in Uarteschlange eingehängt ? 

sonst Aufrufadresse löschen 

und Befehl nochmal ausführen 

Bytewert für SOUND holen 
IN : B: maximaler Wert+1 
C: Default-Wert 
OUT: A: Bytewert 
folgt Komma ? 

Default-Wert 

kein Komma ? dann Default 
nächstes Zeichen 
zweites Komma ? 
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D315 

79 

LD 

A,C 

D316 

C8 

RET 

Z 

********************************** 


D317 

CD 

67 

CE 

CALL 

CE67 

D31A 

B8 



CP 

B 

D31B 

D8 



RET 

C 

D31C 

18 

2B 


JR 

D349 

********************************** 

D31E 

06 

08 


LD 

B,08 

D320 

CD 

17 

D3 

CALL 

D317 

D323 

E5 



PUSH 

HL 

D324 

CD 

B3 

BC 

CALL 

BCB3 

D327 

El 



POP 

HL 

D328 

C9 



RET 


********************************** 

D329 

CD 

8D 

FE 

CALL 

FE8D 

D32C 

7D 



LD 

A,L 

D32D 

B7 



OR 

A 

D32E 

1F 



RRA 


D32F 

38 

06 


JR 

C.D337 

D331 

1F 



RRA 


D332 

38 

03 


JR 

C,D337 

D334 

1 F 



RRA 


D335 

30 

12 


JR 

NC.D349 

D337 

B4 



OR 

H 

D338 

20 

0F 


JR 

NZ,D349 

D33A 

7D 



LD 

A, L 

D33B 

CD 

AD 

BC 

CALL 

BCAD 

D33E 

C3 

0A 

FF 

JP 

FF0A 


********************************** 


D341 

CD 

86 

CE 

CALL 

CE86 

D344 

7B 



LD 

A,E 

D345 

87 



ADD 

A 

D346 

9F 



SBC 

A 

D347 

BA 



CP 

D 

D348 

C8 



RET 

Z 

D349 

1E 

05 


LD 

E, 05 

D34B 

C3 

94 

CA 

JP 

CA94 

********************************** 

D34E 

CD 

6D 

CE 

CALL 

CE6D 

D351 

FE 

10 


CP 

10 

D353 

30 

F4 


JR 

NC,D349 

D355 

F5 



PUSH 

AF 

D356 

11 

67 

D3 

LD 

DE,D367 

D359 

CD 

D8 

D3 

CALL 

D3D8 

D35C 

Fl 



POP 

AF 

D35D 

E5 



PUSH 

HL 

D35E 

21 

BB 

AD 

LD 

HL,ADBB 

D361 

71 



LD 

<HL),C 


Default-Wert 

2. Komma ? dann Default 

Bytewert kleiner B holen 
IN : B: maximaler Wert+1 
OUT: A: Bytewert 
Bytewert holen 
mit max. Wert vergleichen 
o.k. ? 

sonst "Improper argument" 

Basic-Befehl RELEASE 
max. Wert+1 
Kanalbyte<8 holen 
Basic-PC 
SOUND RELEASE 
PC zurück 


Basic-Funktion SQ 

CINT, FAC nach Integer 

Lo-Byte 

CY=0 

bO gesetzt ? 


bl gesetzt ? 

b2 nicht gesetzt ? 

dann "Improper argument" 

Hi-Byte und restl. Lo-Byte 

<>0 ? dann "Improper argument" 

Kanal-Byte 

SOUND CHECK 

Byte in FAC eintragen 

Integer von -128..+127 holen 
OUT: DE: Integerwert 
Integerwert holen 
Lo-Byte 

Vorzeichen ins Carry 
$FF, wenn negativ, sonst 0 
=Hi-Byte ? 
dann o.k. 

Nr. für "Improper argument" 
Fehler ausgeben 

Basic-Befehl ENV 

Byte <>0 als Folgenr. holen 
Byte >=16 ? 
dann Fehler 
Folgenr. 

Rout. f. ENV-Param.-Gr. holen 
max. 5 Parametergruppen holen 
Folgenr. 

Basic-PC 

Zeiger auf Parameter-Tabelle 
Zahl der Gruppen an Tab.-Start 
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D362 

CD 

BC BC 

CALL 

BCBC 

D365 

El 


POP 

HL 

D366 

C9 


RET 


********************************** 

D367 

7E 


LD 

A, (HL) 

D368 

FE 

EF 

CP 

EF 

D36A 

20 

12 

JR 

NZ.D37E 

D36C 

CD 

3F DD 

CALL 

DD3F 

D36F 

06 

10 

LD 

B, 10 

D371 

CD 

17 D3 

CALL 

D317 

D374 

F6 

80 

OR 

80 

D376 

4F 


LD 

C f A 

D377 

CD 

37 DD 

CALL 

DD37 

D37A 

2C 




D37B 

C3 

91 CE 

JP 

CE91 

D37E 

06 

80 

LD 

B,80 

D380 

CD 

17 D3 

CALL 

D317 

D383 

18 

40 

JR 

D3C5 


********************************** 


D385 

CD 

41 

D3 

CALL 

D341 

D388 

7A 



LD 

A,D 

D389 

B7 



OR 

A 

D38A 

7B 



LD 

A,E 

D38B 

28 

02 


JR 

Z,D38F 

D38D 

2F 



CPL 


D38E 

3C 



INC 

A 

D38F 

5F 



LD 

E/A 

D390 

B7 



OR 

A 

D391 

28 

B6 


JR 

Z,D349 

D393 

FE 

10 


CP 

10 

D395 

30 

B2 


JR 

NC.D349 

D397 

D5 



PUSH 

DE 

D398 

11 

AE 

D3 

LD 

DE,D3AE 

D39B 

CD 

D8 

D3 

CALL 

D3D8 

D39E 

Dl 



POP 

DE 

D39F 

E5 



PUSH 

HL 

D3A0 

21 

BB 

AD 

LD 

HL.ADBB 

D3A3 

7A 



LD 

A,D 

D3A4 

E6 80 


AND 

80 

D3A6 

Bl 



OR 

C 

D3A7 

77 



LD 

(HL) ,A 

D3A8 

7B 



LD 

A,E 

D3A9 

CD 

BF 

BC 

CALL 

BCBF 

D3AC 

El 



POP 

HL 

D3AD 

C9 



RET 



********************************** 


D3AE 

7E 



LD 

A, (HL) 

D3AF 

FE 

EF 


CP 

EF 

D3B1 

20 

0D 


JR 

NZ,D3C0 

D3B3 

CD 

3F 

DD 

CALL 

DD3F 

D3B6 

CD 

FF 

03 

CALL 

D3FF 

D3B9 

7A 



LD 

A,D 

D3BA 

C6 

F0 


ADD 

F0 


SOUND AMPL ENVELOPE 
Basic-PC zurück 


Parametergruppe für ENV holen 
OUT: C,D,E: geholte Parameter 
Zeichen aus Basic-Text 
Token für ,, =" ? 
nein ? 

sonst nächstes Zeichen 

max Wert+1 

Registerwert holen 

Kennz. für "= M -Gruppe setzen 

Registerwert nach C 

Test auf Komma 

II II 
/ 

Veränderungsperiode nach DE 
max. Wert+1 
Schrittanzahl holen 
Schrittw. und Pausenzeit holen 

Basic-Befehl ENT 

Wert von -128..+127 holen 
Hi-Byte (Vorzeichen) 

Lo-Byte 
positiv ? 
sonst Betrag 
berechnen 
Wert als Folgenr. 

=0 ? 

dann Fehler 
>=16 ? 
dann Fehler 

Vorzeichen und Folgenr. retten 
Rout. f. ENT-Param.-Gr. holen 
max. 5 Parametergruppen holen 
Vorzeichen/Folgenr. 

Basic-PC retten 
Zeiger auf Parameter-Tabelle 
Vorzeichen der Folgenr. 
b7 isolieren 

als Flag für Wiederholung 

mit Anzahl d. Gruppen an Start 

Folgenr. 

SOUND TONE ENVELOPE 
Basic-PC zurück 


Parametergruppe für ENT holen 
OUT: C f D,E: geholte Parameter 
Zeichen aus Basic-Text 
Token für "=" ? 
nein ? 

sonst nächstes Zeichen 
Tonperiode <4096 holen 
Tonperiode hi 

Kennz. für '^"-Gruppe setzen 
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D3BC 

4F 



LD 

C,A 

D3BD 

43 



LD 

B.E 

D3BE 

18 

OE 


JR 

D3CE 

D3C0 

06 

F0 


LD 

B, F0 

D3C2 

CD 

17 

D3 

CALL 

D317 

D3C5 

4F 



LD 

C,A 

D3C6 

CD 

37 

DD 

CALL 

DD37 

D3C9 

2C 





D3CA 

CD 

41 

D3 

CALL 

D341 

D3CD 

43 



LD 

B,E 

D3CE 

CD 

37 

DD 

CALL 

DD37 

D3D1 

2C 





D3D2 

CD 

67 

CE 

CALL 

CE67 

D3D5 

57 



LD 

D,A 

D3D6 

58 



LD 

E,B 

D3D7 

C9 



RET 


********************************** 


D3D8 

01 

00 

05 

LD 

BC,0500 

D3DB 

CD 

55 

DD 

CALL 

DD55 

D3DE 

30 

IC 


JR 

NC,D3FC 

D3E0 

D5 



PUSH 

DE 

D3E1 

C5 



PUSH 

BC 

D3E2 

CD 

FB 

FF 

CALL 

FFFB 

D3E5 

79 



LD 

A, C 

D3E6 

Ci 



POP 

BC 

D3E7 

C5 



PUSH 

BC 

D3E8 

E5 



PUSH 

HL 

D3E9 

21 

BC 

AD 

LD 

HL,ADBC 

D3EC 

06 

00 


LD 

B,00 

D3EE 

09 



ADD 

HL,BC 

D3EF 

09 



ADD 

HL,BC 

D3F0 

09 



ADD 

HL,BC 

D3F1 

77 



LD 

(HL),A 

D3F2 

23 



INC 

HL 

D3F3 

73 



LD 

(HL),E 

D3F4 

23 



INC 

HL 

D3F5 

72 



LD 

(HL),D 

D3F6 

El 



POP 

HL 

D3F7 

CI 



POP 

BC 

D3F8 

OC 



INC 

C 

D3F9 

Dl 



POP 

DE 

D3FA 

10 

DF 


DJNZ 

D3DB 

D3FC 

C3 

4A 

DD 

JP 

DD4A 

********************************** 

D3FF 

CD 

86 

CE 

CALL 

CE86 

D402 

7A 



LD 

A,D 

D403 

E6 

F0 


AND 

F0 

D405 

C2 

49 

D3 

JP 

NZ,D349 

D408 

C9 



RET 


********************************** 

D409 

CD 

8D 

FE 

CALL 

FE8D 

D40C 

11 

50 

00 

LD 

DE,0050 

D40F 

CD 

B8 

FF 

CALL 

FFB8 

D412 

30 

22 


JR 

NC,D436 


Tonperiode hi 
Tonperiode lo 
Pausezeit holen 
max. Wert+1 
Schrittanzahl holen 
nach C 

Test auf Komma 

n ii 

i 

Wert von -128..+127 holen 
als Schrittweite 
Test auf Komma 

II II 
f 

Bytewert holen 
als Pausenzeit 
Schrittweite 


Parametergruppen f. ENV/ENT holen 
IN : DE: Routinenadr. f. 1 Gruppe 
OUT: C: Zahl der geholten Gruppen 
max. Zahl/Zähler f. Gruppen 
folgt Komma ? 
nein ? dann fertig 


nächste Gruppe holen 
1. Parameter-Byte 
Nr. der Gruppe 

Basic-PC retten 
Zeiger auf Tabelle 
Gruppennr. hi =0 
Gruppennr. 3 mal 
addieren, da 3 Bytes 
pro Parameter-Gruppe 

Parameter-Gruppe 
in Tabelle speichern 


Basic-PC zurück 
Zähler für Gruppen 
Nr. der Gruppe erhöhen 

weitere Parameter-Gruppen ? 
auf Statementende prüfen 

Integerwert von 0..4095 holen 
Integerwert holen 
Hi-Byte 

oberes Nibble isolieren 
<>0 ? dann Fehler 

Basic-Funktion INKEY 

CI NT, FAC nach Integer 
max. Tastennummer+1 
Nr. zu groß ? 
dann "Improper argument" 
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D414 

7D 



LD 

A,L 

D415 

CD 

IE 

BB 

CALL 

BBlE 

D418 

21 

FF 

FF 

LD 

HL,FFFF 

D41B 

28 

03 


JR 

Z,D420 

D41D 

69 



LD 

L,C 

D41E 

26 

00 


LD 

H,00 

D420 

C3 

0D 

FF 

JP 

FF0D 

***★*★★************★**★***★******* 

D423 

CD 

24 

BB 

CALL 

BB24 

D426 

EB 



EX 

DE,HL 

D427 

CD 

8D 

FE 

CALL 

FE8D 

D42A 

7C 



LD 

A,H 

D42B 

B5 



OR 

L 

D42C 

28 

02 


JR 

Z,D430 

D42E 

53 



LD 

D,E 

D42F 

2B 



DEC 

HL 

D430 

7C 



LD 

A,H 

D431 

B5 



OR 

L 

D432 

7A 



LD 

A,D 

D433 

CA 

OA 

FF 

JP 

Z, FF0A 

D436 

C3 

49 

D3 

JP 

D349 


********************************** 


D439 

FE 

8D 


CP 

8D 

D43B 

28 

19 


JR 

Z,D456 

D43D 

3E 

20 


LD 

A,20 

D43F 

CD 

17 

D3 

CALL 

D317 

D442 

F5 



PUSH 

AF 

D443 

CD 

37 

DD 

CALL 

DD37 

D446 

2C 





D447 

CD 

9F 

CE 

CALL 

CE9F 

D44A 

48 



LD 

C, B 

D44B 

Fl 



POP 

AF 

D44C 

47 



LD 

B,A 

D44D 

E5 



PUSH 

HL 

D44E 

EB 



EX 

DE, HL 

D44F 

CD 

0F 

BB 

CALL 

BBOF 

D452 

El 



POP 

HL 

D453 

30 

El 


JR 

NC,D436 

D455 

C9 



RET 



********************************** 


D456 

CD 

3F 

DD 

CALL 

DD3F 

D459 

CD 

67 

CE 

CALL 

CE67 

D45C 

4F 



LD 

C# A 

D45D 

FE 

50 


CP 

50 

D45F 

30 

D5 


JR 

NC,D436 

D461 

CD 

37 

DD 

CALL 

DD37 

D464 

2C 





D465 

06 

02 


LD 

B,02 

D467 

CD 

17 

D3 

CALL 

D317 

D46A 

1 F 



RRA 


D46B 

9F 



SBC 

A 

D46C 

47 



LD 

B,A 

D46D 

C5 



PUSH 

BC 

D46E 

E5 



PUSH 

HL 

D46F 

79 



LD 

A,C 


Nr. der Taste 
KM TEST KEY 

-1, Wert für nicht gedrückt 
Taste nicht gedrückt ? 
CTRL/SHIFT-Flag ins Lo-Byte 
Hi-Byte=0 

HL in FAC eintragen 

Basic-Funktion JOY 

KM GET JOYSTICK, nach HL 
nach DE 

CINT, FAC nach Integer nach HL 
Wert=0 ? 

dann JOY(O), Wert in D 
sonst JOY(1), Wert in E 
Argument 

Argimrent =1 ? 

Wert 

ggf. nach FAC 

sonst "Inproper argument" 

Basic-Befehl KEY 

folgt Token für "DEF" ? 
dann KEY DEF 
(??) 

Byte <212 holen (B ist $D4!) 

Bytewert 

Test auf Konrna 

II II 
9 

String holen, v. St.-Stack lö. 

Stringlänge 

Bytewert 

als Tasten-ASCII-Code 

Basic-PC retten 

Zeiger auf String nach HL 

KM SET EXPAND 

Basic-PC zurück 

Fehler ? 


Basic-Befehl KEY DEF 
DEF-Token übergehen 
Byte als Tastennr. holen 
nach C 
>= 80 ? 

dann "Improper argument" 

Test auf Komna 

II II 
r 

max. Wert+1 

Bytewert holen als Repeatflag 
Flag ins Carry 

$FF, wenn Flag ges., sonst 0 

Repeat-Flag 

und Tastennr. retten 

Basic-PC retten 

Tastennr. 
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D470 

CD 

39 

BB 

CALL 

BB39 

D473 

El 



POP 

HL 

D474 

CI 



POP 

BC 

D475 

11 

27 

BB 

LD 

DE.BB27 

D478 

CD 

84 

D4 

CALL 

D484 

D47B 

11 

2D 

BB 

LD 

DE,BB2D 

D47E 

CD 

84 

D4 

CALL 

D484 

D481 

11 

33 

BB 

LD 

DE.BB33 

D484 

CD 

55 

DD 

CALL 

DD55 

D487 

DO 



RET 

NC 

D488 

D5 



PUSH 

DE 

D489 

CD 

67 

CE 

CALL 

CE67 

D48C 

47 



LD 

B,A 

D48D 

E3 



EX 

(SP),HL 

D48E 

79 



LD 

A,C 

D48F 

CD 

F8 

FF 

CALL 

FFF8 

D492 

El 



POP 

HL 

D493 

C9 



RET 



********************************** 


D494 

FE 

A4 


CP 

A4 

D496 

01 

3F 

BB 

LD 

BC,BB3F 

D499 

28 

10 


JR 

Z,D4AB 

D49B 

FE 

A2 


CP 

A2 

D49D 

01 

3E 

BC 

LD 

BC.BC3E 

D4A0 

28 

09 


JR 

Z,D4AB 

D4A2 

FE 

D9 


CP 

D9 

D4A4 

28 

ID 


JR 

Z,D4C3 

D4A6 

IE 

02 


LD 

E,02 

D4A8 

C3 

94 

CA 

JP 

CA94 

D4AB 

C5 



PUSH 

BC 

D4AC 

CD 

3F 

DD 

CALL 

DD3F 

D4AF 

CD 

6D 

CE 

CALL 

CE6D 

D4B2 

4F 



LD 

C, A 

D4B3 

CD 

37 

DD 

CALL 

DD37 

D4B6 

2C 





D4B7 

CD 

6D 

CE 

CALL 

CE6D 

D4BA 

5F 



LD 

E,A 

D4BB 

51 



LD 

D,C 

D4BC 

CI 



POP 

BC 

D4BD 

EB 



EX 

DE,HL 

D4BE 

CD 

F9 

FF 

CALL 

FFF9 

D4C1 

EB 



EX 

DE,HL 

D4C2 

C9 



RET 


********************************** 

D4C3 

CD 

3F 

DD 

CALL 

DD3F 

D4C6 

06 

02 


LD 

B, 02 

D4C8 

CD 

17 

D3 

CALL 

D317 

D4CB 

E5 



PUSH 

HL 

D4CC 

21 

A7 

00 

LD 

HL,00A7 

D4CF 

3D 



DEC 

A 

D4D0 

3E 

32 


LD 

A,32 

D4D2 

28 

02 


JR 

Z,D4D6 

D4D4 

29 



ADD 

HL,HL 

D4D5 

0F 



RRCA 


D4D6 

CD 

68 

BC 

CALL 

BC68 

D4D9 

El 



POP 

HL 

D4DA 

C9 



RET 



ICH SET REPEAT 

Basic-PC zurück 

Tastennr. zurück 

ICM SET TRANSLATE 

Argument holen, Routine anspr. 

KM SET SHIFT 

Argument holen, Routine anspr. 

KM SET CONTROL 

folgt Komma ? 

nein ? dann zurück 

Routinenadresse retten 

Bytewert holen 

als ASCII-Wert nach B 

PC retten, Routinenadr. n. HL 

Nr. der Taste 

Routine anspringen 

Basic-PC zurück 


Basic-Befehl SPEED 
Token für KEY ? 

KM SET DELAY 
ggf. ausführen 
Token für INK ? 

SCR SET FLASHING 
ggf. ausführen 
Token für WRITE ? 
dann SPEED WRITE 
Nr. für "Syntax error" 

Fehler ausgeben 
Routinenadresse retten 
nächstes Zeichen 
Byte <>0 holen 
als 1. Periodenlänge 
Test auf Komma 

II II 

I 

Byte <>0 holen 
als 2. Periodenlänge 
1. Perioden länge 
Routinenadresse 

PC n. DE, Perioden längen n. HL 
Routine anspringen 
PC wieder nach HL 

Basic-Befehl SPEED WRITE 
WRITE-Token übergehen 
max. Wert+1 
Byte <2 holen 
Basic-PC retten 
Wert für 2000 Baud 
SPEED WRITE 1 ? 

Wert für 2000 Baud 
dann Werte für 2000 Baud 
sonst Werte 
für 1000 Baud 
CAS SET SPEED 
Basic-PC zurück 
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********************************** 


D4DB 

E5 



PUSH 

HL 

D4DC 

CD 

19 

FF 

CALL 

FF19 

D4DF 

CD 

ID 

FF 

CALL 

FF1D 

D4E2 

CD 

76 

BD 

CALL 

BD76 

D4E5 

El 



POP 

HL 

D4E6 

C9 



RET 


********************************** 

D4E7 

3E 

FF 


LD 

A, FF 

D4E9 

18 

01 


JR 

D4EC 

********************************** 

D4EB 

AF 



XOR 

A 

D4EC 

C3 

73 

BD 

JP 

BD73 

********************************** 

D4EF 

01 

79 

BD 

LD 

BC.BD79 

D4F2 

18 

16 


JR 

D50A 

********************************** 


D4F4 

E5 



PUSH 

HL 

D4F5 

C5 



PUSH 

BC 

D4F6 

CD 

EC 

FE 

CALL 

FEEC 

D4F9 

EB 



EX 

DE,HL 

D4FA 

21 

CB 

AD 

LD 

HL,ADCB 

D4FD 

CD 

3D 

BD 

CALL 

BD3D 

D500 

Ci 



POP 

BC 

D501 

E3 



EX 

(SP),HL 

D502 

79 



LD 

A,C 

D503 

CD 

4B 

FF 

CALL 

FF4B 

D506 

Dl 



POP 

DE 

D507 

01 

7C 

BD 

LD 

BC,BD7C 

********************************** 

D50A 

CD 

19 

D5 

CALL 

D519 

D50D 

D8 



RET 

C 

D50E 

CA 

EA 

CA 

JP 

Z,CAEA 

D511 

FA 

F3 

CA 

JP 

M,CAF3 

D514 

IE 

05 


LD 

E,05 

D516 

C3 

94 

CA 

JP 

CA 94 

D519 

C5 



PUSH 

BC 

D51A 

D5 



PUSH 

DE 

D51B 

CD 

EC 

FE 

CALL 

FEEC 

D51E 

Dl 



POP 

DE 

D51F 

C9 



RET 


********************************** 

D520 

01 

85 

BD 

LD 

BC,BD85 

D523 

18 

E5 


JR 

D50A 


Basic-Funktion PI 
Basic-PC retten 
FAC-Typ auf REAL setzen 
Zeiger auf FAC holen, nach HL 
Wert für PI holen 
Basic-PC zurück 


Basic-Befehl DEG 
Flag für DEG 
setzen 

Basic-Befehl RAD 
Flag für RAD 
Flag setzen 

Basic-Funktion SGR 
Routine für SQR 
Funktion ausführen 

Basic-Operator A 

IN : HL: Zeiger auf 1. Operanden 
C: Typ des 1. Operanden 
(1.Operand = Basis) 

2. Operand (Exponent) im FAC 

OUT: Potenz im FAC 

Zeiger auf Basis retten 

Typ der Basis retten 

CREAL, Exponent nach REAL 

Zeiger auf Exp. nach DE 

Zeiger auf Zwischenspeicher 

FAC kopieren 

Typ der Basis zurück 

Exp.-Zg. retten, Basiszg. zur. 

Typflag der Basis 

Basis nach FAC 

Zeiger auf Exponenten 

Routine für Potenzierung 

REAL-Funktion/-Operator ausführen 

IN : BC: Routinenadresse 
Funktion ausführen 
kein Fehler ? 

ggf. "Division by zero" ausg. 
ggf. "Overflow" ausgeben 
Nr. für "Improper argument" 
Fehler ausgeben 

Routinenadresse auf Stack 

CREAL, FAC n. REAL, Zg. n. HL 

Routine anspringen 

Basic-Funktion EXP 
Routine für EXP 
Funktion ausführen 
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D525 

01 

82 

BD 


LD 

BC,BD82 

D528 

18 

E0 



JR 

D50A 


D52A 

01 

7F 

BD 


LD 

BC,BD7F 

D52D 

18 

DB 



JR 

D50A 

'k'k'k'k-k'k'k'k'k'k-k'k'k'k'k'k'k'kitick'k’k'k'k'k'k'kick'k'k'k'k 

D52F 

01 

88 

BD 


LD 

BC,BD88 

D532 

18 

D6 



JR 

D50A 


D534 

01 

8B 

BD 


LD 

BC,BD8B 

D537 

18 

Dl 



JR 

D50A 


D539 

01 

8E 

BD 


LD 

BC,BD8E 

D53C 

18 

CC 



JR 

D50A 


D53E 

01 

91 

BD 


LD 

BC,BD91 

D541 

18 

C7 



JR 

D50A 

***★*★*★***★**★★*★***★************ 

D543 

52 

61 

6E 

64 

6F 6D 

20 6E 

D54B 

75 

6D 

62 65 

72 20 

73 65 

D553 

65 

64 

20 

3F 

20 00 



D559 

28 

06 



JR 

Z,D561 

D55B 

CD 

FB 

CE 


CALL 

CEFB 

D55E 

E5 




PUSH 

HL 

D55F 

18 

1B 



JR 

D57C 

D561 

E5 




PUSH 

HL 

D562 

21 

43 

D5 


LD 

HL.D543 

D565 

CD 

41 

C3 


CALL 

C341 

D568 

CD 

3B 

CA 


CALL 

CA3B 

D56B 

D2 

6B 

CB 


JP 

NC,CB6B 

D56E 

CD 

4E 

C3 


CALL 

C34E 

D571 

CD 

A3 

EC 


CALL 

EC A3 

D574 

30 

EC 



JR 

NC,D562 

D576 

CD 

61 

DD 


CALL 

DD61 

D579 

B7 




OR 

A 

D57A 

20 

E6 



JR 

NZ,D562 

D57C 

CD 

EC 

FE 


CALL 

FEEC 

D57F 

CD 

9A 

BD 


CALL 

BD9A 

D582 

El 




POP 

HL 

D583 

C9 




RET 



D584 

7E 




LD 

A,(HL) 

D585 

FE 

28 



CP 

28 

D587 

20 

IC 



JR 

NZ,D5A5 

D589 

CD 

3F 

DD 


CALL 

DD3F 

D58C 

CD 

FB 

CE 


CALL 

CEFB 

D58F 

CD 

37 DD 


CALL 

DD37 

D592 

29 







Basic-Funktion LOGIO 
Routine für LOGIO 
Funktion ausführen 

Basic-Funktion LOG 
Routine für LOG 
Funktion ausführen 

Basic-Funktion SIN 
Routine für SIN 
Funktion ausführen 

Basic-Funktion COS 
Routine für COS 
Funktion ausführen 

Basic-Funktion TAN 
Routine für TAN 
Funktion ausführen 

Basic-Funktion ATN 
Routine für ATN 
Funktion ausführen 


Random n 
umber se 
ed ? . 

Basic-Befehl RANDOMIZE 
Statementeende ? 
sonst Ausdruck holen 
Basic-PC retten 
Seed-Wert setzen 
Basic-PC retten 

Zeiger "Random number seed ? 11 
String ausgeben 
Eingabezeile holen 
Abbruch ? dann "Break" 

Linefeed ausgeben 
Eingabe nach binär wandeln 
Fehler ? dann neue Zeile 
Spaces, TABs und LFs über lesen 
folgendes Zeichen 
kein Ende ? dann neue Zeile 
CREAL, FAC nach REAL 
RND-Seed-Wert setzen 
Basic-PC zurück 


Basic-Funktion RND 
folgendes Zeichen 
"(" ? 

nein ? dann RND-Wert holen 
"(" übergehen 
Ausdruck holen 
Test auf ")" 

» 1)11 
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D593 

E5 



PUSH 

HL 

D594 

CD 

EC 

FE 

CALL 

FEEC 

D597 

CD 

70 

BD 

CALL 

BD70 

D59A 

20 

05 


JR 

NZ,D5A1 

D59C 

CD 

A0 

BD 

CALL 

BDA0 

D59F 

El 



POP 

HL 

D5A0 

C9 



RET 


D5A1 

FC 

9A 

BD 

CALL 

M,BD9A 

D5A4 

El 



POP 

HL 

D5A5 

E5 



PUSH 

HL 

D5A6 

CD 

16 

FF 

CALL 

FF16 

D5A9 

CD 

9D 

BD 

CALL 

BD9D 

D5AC 

El 



POP 

HL 

D5AD 

C9 



RET 


********************************** 

D5AE 

CD 

BE 

D5 

CALL 

D5BE 

D5B1 

2A 

83 

AE 

LD 

HL,(AE83) 

D5B4 

22 

85 

AE 

LD 

(AE85),HL 

D5B7 

22 

87 AE 

LD 

(AE87),HL 

D5BA 

22 

89 AE 

LD 

(AE89),HL 

D5BD 

C9 



RET 



********************************** 


D5BE 

21 

DO 

AD 

LD 

HL,ADD0 

D5C1 

3E 

36 


LD 

A,36 

D5C3 

CD 

CB 

D5 

CALL 

D5CB 

********************************** 

D5C6 

21 

06 

AE 

LD 

HL,AE06 

D5C9 

3E 

06 


LD 

A,06 

D5CB 

36 

00 


LD 

(HL),00 

D5CD 

23 



INC 

HL 

D5CE 

3D 



DEC 

A 

D5CF 

20 

FA 


JR 

NZ,D5CB 

D5D1 

C9 



RET 



********************************** 
D5D2 21 00 00 LD HL,0000 

D5D5 22 04 AE LD (AE04),HL 

D5D8 C9 RET 

********************************** 
D5D9 3E 5B LD A,5B 

********************************** 


D5DB 

2A 85 AE 

LD 

HL,(AE85) 

D5DE 

2B 

DEC 

HL 

D5DF 

44 

LD 

B,H 

D5E0 

4D 

LD 

C,L 

D5E1 

87 

ADD 

A 

D5E2 

C6 4E 

ADD 

4E 

D5E4 

6F 

LD 

L,A 

D5E5 

CE AD 

ADC 

AD 

D5E7 

95 

SUB 

L 


Basic-PC retten 

CREAL, FAC nach REAL wandeln 

Vorzeichen holen 

Zahl <>0 ? 

sonst letzten RND-Wert holen 
PC zurück 

negativ ? d. Seed-Wert setzen 
Basic-PC 

FAC-Typ auf REAL, Zeiger n. HL 
RND-Wert holen 
PC zurück 


Variablenbereich freigeben 

verkettete Listen der Var. lö. 
Zeiger auf Programmende 
als Variablenstart, 

Arraystart 

und Arrayende setzen 


verkettete Listen d. Var. löschen 
Tabellenadr. der Listenoffsets 
27 Offsets für Buchst, und FN 
Tabelle löschen 

verkett. Listen d. Felder löschen 
Tabellenadr. der Listenoffsets 
3 Offsets für 3 Feldtypen 
Tabellenbyte löschen 
Tabellenzeiger 
Zähler für Bytes 
weitere Bytes ? 


definierte Funktionen löschen 
Null als 

1. Offset der VL d. Funktionen 


1. 0. der VL der Funktionen holen 
"Z ,, +1, Nr. in Tabelle 

1. 0. der VL der Variablen holen 
IN : A: Anfangsbuchstabe 
OUT: BC: Variablenstart-1 

HL: Zg. auf 1. Offset der VL 
Start der einfachen Variablen 
-1 als Korrektur für Offsets 
nach BC 

mal 2, da 2 Bytes pro Eintrag 

AD4E = ADD0-2*"A" addieren 
gibt Zeiger in Tabelle 
nach HL 
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D5E8 67 LD H,A 

D5E9 C9 RET 


********************************** 


D5EA 

2A 

87 AE 

LD 

HL,(AE87) 

D5ED 

2B 


DEC 

HL 

D5EE 

44 


LD 

B, H 

D5EF 

4D 


LD 

C,L 

D5F0 

E6 

03 

AND 

03 

D5F2 

3D 


DEC 

A 

D5F3 

87 


ADD 

A 

D5F4 

C6 

06 

ADD 

06 

D5F6 

6F 


LD 

L,A 

D5F7 

CE 

AE 

ADC 

AE 

D5F9 

95 


SUB 

L 

D5FA 

67 


LD 

H,A 

D5FB 

C9 


RET 


********************************** 

D5FC 

01 

5A 41 

LD 

BC.415A 

D5FF 

iE 

05 

LD 

E,05 


********************************** 


D601 

79 


LD 

A,C 

D602 

90 


SUB 

B 

D603 

38 

3D 

JR 

C,D642 

D605 

E5 


PUSH 

HL 

D606 

3C 


INC 

A 

D607 

21 

CB AD 

LD 

HL,ADCB 

D60A 

06 

00 

LD 

B,00 

D60C 

09 


ADD 

HL,BC 

D60D 

73 


LD 

(HL),E 

D60E 

2B 


DEC 

HL 

D60F 

3D 


DEC 

A 

D610 

20 

FB 

JR 

NZ,D60D 

D612 

El 


POP 

HL 

D613 

C9 


RET 



********************************** 


D614 

iE 

03 

LD 

E,03 

D616 

18 

06 

JR 

D61E 

********************************** 

D618 

iE 

02 

LD 

E,02 

D61A 

18 

02 

JR 

D61E 

********************************** 

D61C 

IE 

05 

LD 

E,05 

D61E 

7E 


LD 

A, (HL) 

D61F 

CD 

71 FF 

CALL 

FF71 

D622 

30 

IE 

JR 

NC,D642 

D624 

4F 


LD 

C, A 


1. Offset für VL der Felder holen 

IN : A: Typflag 

OUT: BC: Arraystart-1 

HL: Zg. auf 1. Offset der VL 
Start der Arrays 
-1, Korrektur für Offset 
nach BC 

Typflag in Offset in Tabelle 
wandeln, 0 für REAL, 2 für 
Integer, 4 für Strings 

AE06 (Tabellenstart) 
addieren 

gibt Zeiger in HL 


DEFREAL A-Z 

"A", "Z" als Grenzen 
Typflag für REAL 

DEF-Typflag in Tabelle 
IN : A: Typflag 

B: Anfangsbuchstabe 
C: Endbuchstabe 
Endbuchstabe 
minus Anfangsbuchstabe 
Endbuchst, kleiner ? d. Fehler 

Zahl der Buchstaben 

AE0C- M A", Zeiger auf Tabelle 

Anfangsbuchstabe hi =0 

Buchstaben addieren 

Typflag in Tabelle eintragen 

Tabellenzeiger 

Zähler 

weitere Buchstaben ? 


Basic-Befehl DEFSTR 
Typflag für String 


Basic-Befehl DEFINT 
Typflag für Integer 


Basic-Befehl DEFREAL 
Typflag für REAL 
folgendes Zeichen 
Buchstabe ? 
nein ? dann Fehler 
als Endbuchstaben 
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LD B,A 

CALL DD3F 

CP 2D 

JR NZ,D639 

CALL DD3F 

CALL FF71 

JR NC.D642 

LD C, A 

CALL DD3F 

CALL D601 

CALL DD55 

JR C.D61E 

RET 

LD E,02 

JR D64C 


D646 

IE 

09 

LD 

E,09 

D648 

18 

02 

JR 

D64C 

D64A 

IE 

0A 

LD 

E,0A 

D64C 

C3 

94 CA 

JP 

CA94 


********************************** 
D64F FE F8 CP F8 

D651 CA AO Fl JP Z,FlAO 


********************************** 


D654 

CD 

86 

D6 

CALL 

D686 

D657 

D5 



PUSH 

DE 

D658 

CD 

37 DD 

CALL 

DD37 

D65B 

EF 





D65C 

CD 

FB 

CE 

CALL 

CEFB 

D65F 

78 



LD 

A, B 

D660 

E3 



EX 

(SP),HL 

D661 

CD 

66 

D6 

CALL 

D666 

D664 

El 



POP 

HL 

D665 

C9 



RET 



und Anfangsbuchstaben setzen 
nächstes Zeichen 

ll - ii 9 

nein ? dann nur ein Buchst. 

Zeichen nach holen 

Buchstabe ? 

nein ? dann Fehler 

als Endbuchstaben 

Endbuchst, übergehen 

DEF-Typflag in Tabelle eintr. 

folgt Komma ? 

dann weitere Buchstaben 

Nr. für "Syntax error" 

Fehler ausgeben 

N. f. "Subscript out of ränge" 
Fehler ausgeben 

"Array already dimensioned" 
Fehler ausgeben 

LET bzw. RSX-Wort auswerten 
Interpretercode = $7C ? 
dann RSX-Wort auswerten 

Basic-Befehl LET 

Variable holen, ggf. anlegen 
Variablenadresse retten 
Test auf “=" 

Token für "=" 

Ausdruck holen 
Typflag der Variablen 
PC retten, Variablenadr. n. HL 
Ausdruck an Variable zuweisen 
PC zurück 


D625 

47 



D626 

CD 

3F 

DD 

D629 

FE 

2D 


D62B 

20 

OC 


D62D 

CD 

3F 

DD 

D630 

CD 

71 

FF 

D633 

30 

0D 


D635 

4F 



D636 

CD 

3F 

DD 

D639 

CD 

01 

D6 

D63C 

CD 

55 

DD 

D63F 

38 

DD 


D641 

C9 



D642 

IE 

02 


D644 

18 

06 



********************************** 


D666 

47 



LD 

B,A 

D667 

CD 

23 

FF 

CALL 

FF23 

D66A 

B8 



CP 

B 

D66B 

78 



LD 

A,B 

D66C 

C4 

D7 

FE 

CALL 

NZ,FED7 

D66F 

CD 

45 

FF 

CALL 

FF45 

D672 

C2 

62 

FF 

JP 

NZ,FF62 

D675 

E5 



PUSH 

HL 

D676 

CD 

59 

FB 

CALL 

FB59 

D679 

Dl 



POP 

DE 

D67A 

C3 

66 

FF 

JP 

FF66 

********************************** 

D67D 

CD 

B5 

D7 

CALL 

D7B5 

D680 

CD 

55 

DD 

CALL 

DD55 

D683 

38 

F8 


JR 

C,D67D 

D685 

C9 



RET 



FAC an Variable zuweisen 
IN : A: Typflag der Variablen 
HL: Variablenadresse 
Typflag der Variablen 
Typflag des FAC holen 
m. Typflag d. Variablen vergl. 
Typflag der Variablen 
ungleich ? dann FAC angleichen 
Typ des FAC holen 
kein String ? d. FAC kopieren 
Zeiger auf Variable retten 
String ggf. kopieren, v. Stack 
Zeiger auf Variable 
Descriptor in Var. kopieren 

Basic-Befehl DIM 

eine Variable dimensionieren 

folgt Kornna ? 

dann nächste Variable 
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********************************** 


D686 

CD 06 D9 

CALL 

D906 

D689 

CD DB D7 

CALL 

D7DB 

D68C 

38 42 

JR 

C,D6D0 

D68E 

18 28 

JR 

D6B8 


********************************** 


D690 

CD 

06 D9 

CALL 

D906 

D693 

CD 

DB 

D7 

CALL 

D7DB 

D696 

38 38 


JR 

C,D6D0 

D698 

E5 



PUSH 

HL 

D699 

79 



LD 

A, C 

D69A 

CD 

DB 

D5 

CALL 

D5DB 

D69D 

CD 

DE 

D6 

CALL 

D6DE 

D6A0 

18 2D 


JR 

D6CF 

********************************** 

D6A2 

CD 

06 

D9 

CALL 

D906 

D6A5 

38 21 


JR 

C.D6C8 

D6A7 

E5 



PUSH 

HL 

D6A8 

CD 

D9 

D5 

CALL 

D5D9 

D6AB 

CD 

DE 

D6 

CALL 

D6DE 

D6AE 

D4 

3D 

D7 

CALL 

NC.D73D 

D6B1 

18 

IC 


JR 

D6CF 

********************************** 

D6B3 

CD 

06 

D9 

CALL 

D906 

D6B6 

38 

10 


JR 

C,D6C8 

D6B8 

E5 



PUSH 

HL 

D6B9 

79 



LD 

A,C 

D6BA 

CD 

DB 

D5 

CALL 

D5DB 

D6BD 

CD 

DE 

D6 

CALL 

D6DE 

D6C0 

3A 

CI 

B0 

LD 

A, (B0C1) 

D6C3 

D4 49 

D7 

CALL 

NC,D749 

D6C6 

18 

07 


JR 

D6CF 


********************************** 


D6C8 

E5 


PUSH 

HL 

D6C9 

2A 85 

AE 

LD 

HL,(AE85) 

D6CC 

2B 


DEC 

HL 

D6CD 

19 


ADD 

HL,DE 

D6CE 

EB 


EX 

DE,HL 

D6CF 

El 


POP 

HL 

D6D0 

3A CI 

B0 

LD 

A,(B0C1) 

D6D3 

47 


LD 

B,A 

D6D4 

4F 


LD 

C,A 

D6D5 

C9 


RET 



Variable holen, ggf. neu anlegen 
OUT: DE: Variablenadresse 

A,B,C: Typ der Variablen 
Variablennamen u. Offset holen 
Adr. berechnen , auf Feld prf. 
Offset eingetragen ? d. fertig 
Variable suchen bzw. anlegen 

Variable hoLen, nicht anlegen 
OUT: DE: Variablenadresse 

A,B,C: Typ der Variablen 
CY=1, wenn Var. existiert 
Variablennamen und Offet holen 
Adr. berechnen , auf Feld prf. 
Offset eingetragen ? d. fertig 
Basic-PC zurück 
1. Byte des Namens 
entspr. Adr. d. 1. Offs. d. VL 
Variable suchen, Adresse holen 
Typflag laden, zurück 

FN-Eintrag suchen, ggf. anlegen 
FN-Namen und Offset holen 
Offset eingetragen ? d. fertig 
Basic-PC retten 
Adr. d. 1. Offs, der VL holen 
FN-Eintrag suchen, Adr. holen 
nicht gefunden ? dann anlegen 
Typflag laden, zurück 

einfache Var. holen, ggf. anlegen 
Variablennamen u. Offset holen 
Offset eingetragen ? 

Basic-PC retten 
1. Byte des Namens 
entspr. Adr. d. 1. Offs. d. VL 
Variable suchen, Adresse holen 
Typflag 

existiert Var. nicht ? d. anl. 
sonst Typ laden, fertig 

Adresse aus Offset berechnen 

IN : DE: Offset 

OUT: DE: Variablenadresse 

A,B,C: Typ der Variablen 
Basic-PC retten 
Variablenstart 
-1, Korrektur für Offset 
zu Offset addieren 
Variablenadresse nach DE 
Basic-PC zurück 
Typflag 
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********************************** Variable überlesen, Typ holen 

OUT: A,B,C: Typ 


D6D6 

CD 

06 

D9 

CALL 

D906 

Variablennamen u. 

Offset holen 

D6D9 

CD 

CI 

E8 

CALL 

E8C1 

ggf. Arrayindizes 

überlesen 

D6DC 

18 

F2 


JR 

D6D0 

Typflag laden 



********************************** 


D6DE 

D5 



PUSH 

DE 

D6DF 

EB 



EX 

DE,HL 

D6E0 

2A 

2B 

AE 

LD 

HL,(AE2B) 

D6E3 

7C 



LD 

A, H 

D6E4 

B5 



OR 

L 

D6E5 

28 

OE 


JR 

Z.D6F5 

D6E7 

D5 



PUSH 

DE 

D6E8 

23 



INC 

HL 

D6E9 

23 



INC 

HL 

D6EA 

C5 



PUSH 

BC 

D6EB 

01 

00 

00 

LD 

BC,0000 

D6EE 

CD 

08 

D7 

CALL 

D708 

D6F1 

CI 



POP 

BC 

D6F2 

38 

10 


JR 

C,D704 

D6F4 

Dl 



POP 

DE 

D6F5 

EB 



EX 

DE,HL 

D6F6 

E5 



PUSH 

HL 

D6F7 

CD 

08 

D7 

CALL 

D708 

D6FA 

38 

03 


JR 

C,D6FF 

D6FC 

El 



POP 

HL 

D6FD 

Dl 



POP 

DE 

D6FE 

C9 



RET 


D6FF 

Fl 



POP 

AF 

D700 

El 



POP 

HL 

D701 

C3 

6D 

D7 

JP 

D76D 

D704 

Fl 



POP 

AF 

D705 

Fl 



POP 

AF 

D706 

37 



SCF 


D707 

C9 



RET 



********************************** 


D708 

7E 

LD 

A, (HL) 

D709 

23 

INC 

HL 

D70A 

66 

LD 

H,(HL) 

D70B 

6F 

LD 

L,A 

D70C 

B4 

OR 

H 

D70D 

C8 

RET 

Z 

D70E 

09 

ADD 

HL,BC 


Variable suchen 

IN : DE: Zeiger a. Variablentoken 
HL: Adr. d. 1. Offsets d. VL 
OUT: CY=1, wenn gefunden 

DE: Adr. des Variablenwerts 
CY=0, wenn nicht gefunden 
dann HL und DE wie IN 
Zeiger auf Variablentoken 
Adr. d. 1. Offsets d. VL n. DE 
Zeiger a. 1. Eint. d. FN-Liste 

kein Eintrag vorhanden ? 
dann Var.-Liste durchsuchen 

+2=Zg. auf VL der Funktions- 
Var. des obersten FN-Aufrufs 

Offset=0, da absolute Adresse 
Var. in FN-Var.-Liste suchen 

gefunden ? dann fertig 
Adr. d. 1. Offsets d. VL 
nach HL 
retten 

Var. in VL suchen 
gefunden ? 

Adr. d. 1. Offsets d. VL 
Zeiger auf Variv->blentoken 
CY=0 für nicht gefunden 

Zeiger auf Variablentoken 
Offset d. Var. ins Programm 


CY=1 für gefunden 


Eintrag in VL suchen 
IN : ($AE27): Zeiger ges. Namen 
($B0C1): gesuchter Typ 
BC: Basisadresse für Offsets 
HL: Zeiger 1. Offset der VL 
OUT: CY=1, wenn gefunden 

HL: Zg. vor Namen auf Offset 
DE: Zeiger nach Typflag 

nächsten Offset aus VL laden 


Offset =0 ? 

dann Ende der VL, nicht gef. 
Basisadr. zu Offset addieren 
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D70F 

E5 


PUSH 

HL 

D710 

23 


INC 

HL 

D711 

23 


INC 

HL 

D712 

EB 


EX 

DE,HL 

D713 

2A 

27 AE 

LD 

HL,(AE27) 

D716 

1A 


LD 

A, (DE) 

D717 

BE 


CP 

(HL) 

D718 

20 

14 

JR 

NZ,D72E 

D71A 

23 


INC 

HL 

D71B 

13 


INC 

DE 

D71C 

17 


RLA 


D71D 

30 

F7 

JR 

NC,D716 

D71F 

EB 


EX 

DE,HL 

D720 

3A 

CI BO 

LD 

A, (BOCl) 

D723 

3D 


DEC 

A 

D724 

AE 


XOR 

(HL) 

D725 

E6 

07 

AND 

07 

D727 

20 

05 

JR 

NZ.D72E 

D729 

EB 


EX 

DE,HL 

D72A 

13 


INC 

DE 

D72B 

El 


POP 

KL 

D72C 

37 


SCF 


D72D 

C9 


RET 


D72E 

El 


POP 

HL 

D72F 

18 

D7 

JR 

D708 


********************************** 


D731 

F5 

PUSH 

AF 

D732 

54 

LD 

D, H 

D733 

5D 

LD 

E,L 

D734 

23 

INC 

HL 

D735 

23 

INC 

HL 

D736 

7E 

LD 

A,(HL) 

D737 

23 

INC 

HL 

D738 

17 

RLA 


D739 

30 FB 

JR 

NC,D736 

D73B 

Fl 

POP 

AF 

D73C 

C9 

RET 


********************************** 

D73D 

3E 02 

LD 

A,02 

D73F 

CD 49 D7 

CALL 

D749 

D742 

1B 

DEC 

DE 

D743 

1A 

LD 

A, (DE) 

D744 

F6 40 

OR 

40 

D746 

12 

LD 

(DE),A 

D747 

13 

INC 

DE 

D748 

C9 

RET 



Zeiger auf nächsten Offset 
+2=Zeiger auf 
Variablennamen 
nach DE 

Zeiger auf gesuchten Namen 
Byte aus Namen 

m. gesuchtem Namen vergleichen 
ungleich ? d. nächster Eintrag 
Zeiger 
erhöhen 

Ende des Namens ? 

nein ? dann weiter vergleichen 

Zeiger nach Namen nach HL 

gesuchtes Typflag 

auf Variablen-Format 

mit Variablen-Typ vergleichen 

FN-Kennz.-Bits löschen 

ungleich ? d. nächster Eintrag 

Zeiger auf Typ nach DE 

Zeiger nach Typ 

Zeiger auf Start des Eintrags 

CY=1 für gefunden 

Zeiger auf nächsten Offset 
weitersuchen 

Variablennamen überlesen 
IN : HL: Zeiger auf Var.-Kopf 
OUT: DE: wie HL IN 

HL: Zeiger nach Namen 

Zeiger auf Var.-Kopf 
nach DE retten 

+2=Zeiger auf Name 
Byte aus Namen 

Name zu Ende ? 
nein ? dann weiter 


FN-Eintrag neu anlegen 
OUT: DE: Adresse des Eintrags 
Größe = 2 Bytes 
Variable neu anlegen 
Zeiger auf Typflag 
Typflag 

Kennz. für FN-Eintrag setzen 
Zeiger wieder zurück 


********************************** einfache Variable neu anlegen 

IN : A: Typflag 

BC: Start der Variablen-1 
DE: Zeiger auf Var.-Token 
HL: Adr. d. 1. Offsets d. VL 
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D749 

D5 



PUSH 

DE 

D74A 

E5 



PUSH 

HL 

D74B 

C5 



PUSH 

BC 

D74C 

F5 



PUSH 

AF 

D74D 

CD 

77 

D7 

CALL 

D777 

D750 

F5 



PUSH 

AF 

D751 

2A 

87 

AE 

LD 

HL, (AE87) 

D754 

EB 



EX 

DE,HL 

D755 

CD 

F8 

F5 

CALL 

F5F8 

D758 

CD 

3A 

F5 

CALL 

F53A 

D75B 

Fl 



POP 

AF 

D75C 

CD 

8A 

D7 

CALL 

D78A 

D75F 

Fl 



POP 

AF 

D760 

2B 



DEC 

HL 

D761 

36 

00 


LD 

(HL),00 

D763 

3D 



DEC 

A 

D764 

20 

FA 


JR 

NZ,D760 

D766 

CI 



POP 

BC 

D767 

E3 



EX 

(SP),HL 

D768 

CD 

A5 

D7 

CALL 

D7A5 

D76B 

Dl 



POP 

DE 

D76C 

El 



POP 

HL 


********************************** 


D76D 

23 

INC 

HL 

D76E 

7B 

LD 

A.E 

D76F 

91 

SUB 

C 

D770 

77 

LD 

(HL),A 

D771 

23 

INC 

HL 

D772 

7A 

LD 

A,D 

D773 

98 

SBC 

B 

D774 

77 

LD 

(HL),A 

D775 

37 

SCF 


D776 

C9 

RET 



********************************** 


D777 

C6 

03 

ADD 

03 

D779 

4F 


LD 

C/A 

D77A 

2A 

27 AE 

LD 

HL,(AE27) 

D77D 

06 

00 

LD 

B,00 

D77F 

OC 


INC 

C 

D780 

04 


INC 

B 

D781 

7E 


LD 

A, (HL) 

D782 

23 


INC 

HL 

D783 

17 


RLA 


D784 

30 

F9 

JR 

NC,D77F 

D786 

78 


LD 

A,B 

D787 

06 

00 

LD 

B,00 

D789 

C9 


RET 



OUT: DE: Adresse d. Var.-Eintrags 
CY=1, da Variable existiert 


ben. Platz für Variablenwert 
Namenlänge holen, Platz ber. 
Namenlänge 

Zeiger auf Arraystart 

als Einfügestelle f. neue Var. 

Platz schaffen, Arrays versch. 

Array-Zeiger entspr. korrig. 

Länge des Namen 

Namen und Typ übertragen 

Typ/Länge des Variablenwertes 

Variablenwert löschen 

weitere Bytes ? 

Start der Variablen-1 
Var.-Adr. retten, VL-Adr. zur. 
Variable in VL eintragen 
Adresse des Variablenwertes 
Zeiger auf Variablen-Token 

Variablen-Offset ins Programm sp. 

IN : HL: Zeiger auf Var.-Token 
DE: Adresse des Var.-Eintr. 
BC: Basisadr. für Offset 

OUT: CY=1, da Variable existiert 
Zeiger auf Offset 

Adr, der Variable/des Feldes 
minus Basisadresse für 
Offsets gibt Offset für 
Variable/Feld, ins Programm 
eintragen, un schneiles 
Auffinden zu ermöglichen 

CY=1, weil Variable existiert 


Namenlänge holen, Platz berechnen 
IN : A: Typflag 
OUT: A: Länge des Namens 
BC: benötigter Platz 
1 B. f. Typ, 2 B. f. VL-Offs. 
ben. Platz nach C 
Adresse des Namens 
Zähler für Namenlänge 
ben. Platz erhöhen 
Namenlänge erhöhen 
Byte aus Namen 

Ende des Namens ? 
nein ? dann weiter 
Länge des Namens 
benötigter Platz hi =0 
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********************************** 


D78A 

62 



LD 

H,D 

D78B 

6B 



LD 

L.E 

D78C 

09 



ADD 

HL,BC 

D78D 

4F 



LD 

C, A 

D78E 

06 

00 


LD 

B, 00 

D790 

E5 



PUSH 

HL 

D791 

D5 



PUSH 

DE 

D792 

13 



INC 

DE 

D793 

13 



INC 

DE 

D794 

2A 

27 

AE 

LD 

HL,(AE27) 

D797 

CD 

F2 

FF 

CALL 

FFF2 

D79A 

3A 

CI 

BO 

LD 

A,(B0C1) 

D79D 

3D 



DEC 

A 

D79E 

12 



LD 

<DE),A 

D79F 

13 



INC 

DE 

D7A0 

42 



LD 

B,D 

D7A1 

4B 



LD 

C,E 

D7A2 

Dl 



POP 

DE 

D7A3 

El 



POP 

HL 

D7A4 

C9 



RET 



********************************** 


D7A5 

7E 


LD 

A, (HL) 

D7A6 

12 


LD 

(DE),A 

D7A7 

7B 


LD 

A,E 

D7A8 

91 


SUB 

C 

D7A9 

77 


LD 

( HL) ,A 

D7AA 

23 


INC 

HL 

D7AB 

7E 


LD 

A,(HL) 

D7AC 

F5 


PUSH 

AF 

D7AD 

7A 


LD 

A,D 

D7AE 

98 


SBC 

B 

D7AF 

77 


LD 

(HL),A 

D7B0 

Fl 


POP 

AF 

D7B1 

13 


INC 

DE 

D7B2 

12 


LD 

(DE),A 

D7B3 

13 


INC 

DE 

D7B4 

C9 


RET 


********************************** 

D7B5 

CD 06 

D9 

CALL 

D906 

D7B8 

7E 


LD 

A, (HL) 

D7B9 

FE 28 


CP 

28 

D7BB 

28 05 


JR 

Z,D7C2 

D7BD 

EE 5B 


XOR 

5B 

D7BF 

C2 42 

D6 

JP 

NZ,D642 


Namen und Typ übertragen 
IN : A: Länge des Namens 

DE: Zeiger auf Eintrag 
BC: Länge des Eintrags 
OUT: DE wie IN 

HL: Zg. auf Ende d. Eintrags 
BC: Zeiger nach Typflag 
Zeiger auf Eintrag 
nach HL 

Länge addieren, Zg. auf Ende 
Länge des Namens 
nach BC 

Zeiger auf Ende des Eintrags 
Zeiger auf Eintrag 

+2=Zeiger auf Platz f. Namen 
Zeiger auf Namen 
Namen kopieren 
Typ 

auf VariabLenformat 
und übertragen 
Zeiger nach Typ (auf Wert) 
nach BC 


Eintrag in VL einhängen 
IN : HL: Zeiger a. 1. Offs. d. VL 
DE: Zeiger auf Eintrag 
BC: Basisadresse für Offsets 
OUT: DE: Zeiger auf Nameneintrag 
BC: wie IN 

bisherigen 1. Offset der VL 
in neuen Eintrag speichern, 
Zeiger auf diesen Eintrag 
minus Basisadresse 
als neuen 1. Offset setzen 
für Lo-Byte 


und analog für Hi-Byte 


Zeiger nach Offset auf Namen 


eine VariabLe dimensionieren 

Variablennamen u. Offset holen 
folgendes Zeichen 
Klarraner auf ? 
dann o.k. 

eckige KL armer auf ? 
sonst "Syntax error" 
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D7C2 

CD 

5A 

D8 

CALL 

D85A 

D7C5 

E5 



PUSH 

HL 

D7C6 

C5 



PUSH 

BC 

D7C7 

3A 

CI 

BO 

LD 

A,(B0C1) 

D7CA 

CD 

EA 

D5 

CALL 

D5EA 

D7CD 

CD 

08 

D7 

CALL 

D708 

D7D0 

DA 

4A 

D6 

JP 

C,D64A 

D7D3 

CI 



POP 

BC 

D7D4 

3E 

FF 


LD 

A, FF 

D7D6 

CD 

8A 

D8 

CALL 

D88A 

D7D9 

El 



POP 

HL 

D7DA 

C9 



RET 



Indizes holen, auf Basic-Stack 
Basic-PC 

und Zahl d. Dimensionen retten 
Typ der Variablen 
Adr. 1. Offs. d. VL, Basisadr. 
Feldvariable suchen 
gefunden ? dann Fehler 
Zahl der Dimensionen zurück 
Flag für kein Default-DIM 
Feldvariable dimensionieren 
Basic-PC zurück 


********************************** 


OUT: 

CY=1, wenn 

Var. gefunden 

D7DB 

F5 



PUSH 

AF 

D7DC 

7E 



LD 

A, (HL) 

D7DD 

FE 

28 


CP 

28 

D7DF 

28 

10 


JR 

Z,D7F1 

D7E1 

EE 

5B 


XOR 

5B 

D7E3 

28 

0C 


JR 

Z,D7F1 

D7E5 

Fl 



POP 

AF 

D7E6 

DO 



RET 

NC 

D7E7 

E5 



PUSH 

HL 

D7E8 

2A 

85 

AE 

LD 

HL,(AE85) 

D7EB 

2B 



DEC 

HL 

D7EC 

19 



ADD 

HL,DE 

D7ED 

EB 



EX 

DE, HL 

D7EE 

El 



POP 

HL 

D7EF 

37 



SCF 


D7F0 

C9 



RET 


D7F1 

CD 

5A 

D8 

CALL 

D85A 

D7F4 

Fl 



POP 

AF 

D7F5 

E5 



PUSH 

HL 

D7F6 

30 

07 


JR 

NC.D7FF 

D7F8 

2A 

87 

AE 

LD 

HL,(AE87) 

D7FB 

2B 



DEC 

HL 

D7FC 

19 



ADD 

HL, DE 

D7FD 

18 

15 


JR 

D814 

D7FF 

C5 



PUSH 

BC 

D800 

D5 



PUSH 

DE 

D801 

3A 

CI 

B0 

LD 

A, (B0C1) 

D804 

CD 

EA 

D5 

CALL 

D5EA 

D807 

CD 

08 

D7 

CALL 

D708 

D80A 

30 

0F 


JR 

NC.D81B 

D80C 

13 



INC 

DE 

D80D 

13 



INC 

DE 

D80E 

El 



POP 

HL 

D80F 

CD 

6D 

D7 

CALL 

D76D 

D812 

CI 



POP 

BC 

D813 

EB 



EX 

DE,HL 

D814 

78 



LD 

A,B 


Var.-Adr. holen, auf Feld prüfen 
IN : CY=1 ,wenn Offset eingetr. 
CY=1: DE: Feld/Var.-Offset 
CY=0: DE: Zeiger Var.-Token 

CY=1: DE: Feld/Var.-Adresse 
CY=0: DE wie IN 
Flag für Offset eingetragen 
Zeichen aus Basic-Text 
Klammer auf ? 
dann Feldvariable 
eckige Klarrener auf ? 
dann Feldvariable 
Flag für Offset zurück 
Offset n. eingtr. ? dann zur. 
Basic-PC retten 
Zeiger auf Variablenstart 
-1, Korrektur für Offset 
Offset addieren 
gibt Variablenadr., nach DE 
Basic-PC zurück 
CY=1 für gefunden 


Indizes holen, auf Basic-Stack 

Flag für Offset 

Basic-PC retten 

Offs. n. einget. ? d. Feld su. 

Zeiger auf Start der Felder 

-1, Korrektur für Offset 

Offset addieren 

Adresse des Feldelements ber. 

Zahl der Dimensionen 

und Zeiger auf Var.-Token 

Typ des Feldes 

Adr. d. 1. Offsets d. VL holen 
Feld in VL suchen 
nicht gef. ? d. dimensionieren 
Zeiger auf 

Zahl der Dimensionen 
Zeiger auf Variablen-Token 
Offset ins Programm eintragen 
Zahl der Dimensionen 
Zg. auf Zahl d. Dimens. n. HL 
Dimensionen-Zahl im Programm 
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D815 

96 



SUB 

(HL) 

D816 

C2 

46 

D6 

JP 

NZ,D646 

D819 

18 

0A 


JR 

D825 

D81B 

El 



POP 

HL 

D81C 

CI 



POP 

BC 

D81D 

AF 



XOR 

A 

D81E 

CD 

8A 

D8 

CALL 

D88A 

D821 

CD 

6D 

D7 

CALL 

D76D 

D824 

EB 



EX 

DE,HL 

D825 

11 

00 

00 

LD 

DE,0000 

D828 

46 



LD 

B,(HL) 

D829 

23 



INC 

HL 

D82A 

E5 



PUSH 

HL 

D82B 

D5 



PUSH 

DE 

D82C 

5E 



LD 

E,(HL) 

D82D 

23 



INC 

HL 

D82E 

56 



LD 

D, (HL) 

D82F 

3E 

02 


LD 

A, 02 

D831 

CD 

A0 

F5 

CALL 

F5A0 

D834 

7E 



LD 

A, (HL) 

D835 

23 



INC 

HL 

D836 

66 



LD 

H, (HL) 

D837 

6F 



LD 

L.A 

D838 

CD 

B8 

FF 

CALL 

FFB8 

D83B 

D2 

46 

D6 

JP 

NC,D646 

D83E 

E3 



EX 

(SP),HL 

D83F 

CD 

BE 

BD 

CALL 

BDBE 

D842 

Dl 



POP 

DE 

D843 

19 



ADD 

HL,DE 

D844 

EB 



EX 

DE,HL 

D845 

El 



POP 

HL 

D846 

23 



INC 

HL 

D847 

23 



INC 

HL 

D848 

05 



DEC 

B 

D849 

20 

DF 


JR 

NZ.D82A 

D84B 

E5 



PUSH 

HL 

D84C 

2A 

CI 

B0 

LD 

HL,(B0C1) 

D84F 

26 

00 


LD 

H, 00 

D851 

CD 

BE 

BD 

CALL 

BDBE 

D854 

Dl 



POP 

DE 

D855 

19 



ADD 

HL,DE 

D856 

EB 



EX 

DE,HL 

D857 

El 



POP 

HL 

D858 

37 



SCF 


D859 

C9 



RET 



ick'k-irk'X'k'kirk'k'k'kicb'kick'kitickick'kirkick'kick'k'k 


D85A 

D5 



PUSH 

DE 

D85B 

CD 

3F 

DD 

CALL 

DD3F 

D85E 

3A 

CI 

B0 

LD 

A,(B0C1) 

D861 

F5 



PUSH 

AF 

D862 

06 

00 


LD 

B, 00 

D864 

CD 

7C 

CE 

CALL 

CE7C 

D867 

E5 



PUSH 

HL 

D868 

3E 

02 


LD 

A, 02 

D86A 

CD 

B0 

F5 

CALL 

F5B0 

D86D 

73 



LD 

(HL),E 


= Zahl der Dimens. im Feld ? 
nein ? dann Fehler 
Adresse des Feldelements ber. 
Zeiger auf Variablen-Token 
Zahl der Dimensionen 
Flag, Default-Dimensionierung 
Feld dimensionieren 
Offset in Programm eintragen 
Zg. auf Dimens.-Zahl nach HL 
Nr. des Feldelements=0 
Zahl der Dimensionen 
Zeiger auf Indextabelle 
retten 

Nr. des Feldelements 

nächsten Index aus Tabelle, 
nach DE 

2 Bytes (für nächsten Index) 
vom Basic-Stack 
aktuellen Index vom 
Basic-Stack holen, 
nach HL 

m. maximalem Index vergleichen 
akt. Index zu groß ? d. Fehler 
Index retten, Elementnr. n. HL 
mit max. Index multiplizieren 
aktuellen Index 
addieren 

neue Elementnr. nach DE 
Zeiger in Indextabelle 
Zeiger auf nächsten 
Index 

Zahl der Dimensionen 
weitere Indizes ? 

Zeiger auf Feldelemente 
Typflag/Größe eines Elements 
Größe hi=0 

mit Nr. des Elements multipl. 
Zeiger auf Feldelemente 
Offset für Element addieren 
Adresse des Elements nach DE 
Basic-PC zurück 
CY=1 für gefunden 


Indizes holen, auf Basic-Stack 
OUT: B: Zahl der Indizes 

nächstes Zeichen 
Typ der Variablen 
retten 

Zahl der lndizes=0 
nächsten Index holen 
Basic-PC retten 
2 Bytes für Index 
auf Basic-Stack reservieren 
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D86E 

23 



INC 

HL 

D86F 

72 



LD 

(HL),D 

D870 

El 



POP 

HL 

D871 

04 



INC 

B 

D872 

CD 

55 

DD 

CALL 

DD55 

D875 

38 

ED 


JR 

C,D864 

D877 

7E 



LD 

A, (HL) 

D878 

FE 

29 


CP 

29 

D87A 

28 

05 


JR 

Z,D881 

D87C 

FE 

5D 


CP 

5D 

D87E 

C2 

42 

D6 

JP 

NZ,D642 

D881 

CD 

3F 

DD 

CALL 

DD3F 

D884 

Fl 



POP 

AF 

D885 

32 

CI 

BO 

LD 

(B0C1),A 

D888 

Dl 



POP 

DE 

D889 

C9 



RET 



*********************************** 


D88A 

E5 



PUSH 

HL 

D8SB 

32 

26 

AE 

LD 

(AE26),A 

D88E 

C5 



PUSH 

BC 

D88F 

78 



LD 

A, B 

D890 

87 



ADD 

A 

D891 

C6 

03 


ADD 

03 

D893 

CD 

77 

D7 

CALL 

D777 

D896 

F5 



PUSH 

AF 

D897 

2A 

89 

AE 

LD 

HL,(AE89) 

D89A 

EB 



EX 

DE,HL 

D89B 

CD 

F8 

F5 

CALL 

F5F8 

D89E 

Fl 



POP 

AF 

D89F 

CD 

8A 

D7 

CALL 

D78A 

D8A2 

60 



LD 

H,B 

D8A3 

69 



LD 

L,C 

D8A4 

CI 



POP 

BC 

D8A5 

D5 



PUSH 

DE 

D8A6 

23 



INC 

HL 

D8A7 

23 



INC 

HL 

D8A8 

3A 

CI 

B0 

LD 

A,(B0C1) 

D8AB 

5F 



LD 

E,A 

D8AC 

16 

00 


LD 

D, 00 

D8AE 

70 



LD 

(HL),B 

D8AF 

E5 



PUSH 

HL 

D8B0 

23 



INC 

HL 

D8Bl 

D5 



PUSH 

DE 

D8B2 

3A 

26 

AE 

LD 

A,(AE26) 

D8B5 

B7 



OR 

A 

D8B6 

11 

OB 

00 

LD 

DE,000B 

D8B9 

28 

OB 


JR 

Z,D8C6 

D8BB 

E5 



PUSH 

HL 

D8BC 

3E 

02 


LD 

A,02 

D8BE 

CD 

A0 

F5 

CALL 

F5A0 

D8C1 

5E 



LD 

E,(HL) 


Index auf Basic-Stack 

Basic-PC zurück 

Zahl der Indizes erhöhen 

folgt Komma ? 

dann nächster Index 

nächstes Zeichen 

Klamner zu ? 

dann o.k. 

eckige Klarcmer zu ? 
nein ? dann "Syntax error" 
Klammer übergehen 
Typ der Feldvariablen 
wieder setzen 


Feldvariable neu anlegen 
IN : A=0 für Default-DIM 
A=$FF für Index-DIM 
B: Zahl der Dimensionen 
OUT: DE: Zeiger auf Zahl der Di¬ 
mensionen im Feldeintrag 
BC: Start der Felder-1 

Flag für Default-DIM retten 
Zahl der Dimensionen 
nach A 

2 Bytes pro Index 
Platz f. Dirn.-Zahl/Feldlänge 
Namenlänge und ben. Platz hol. 
Länge des Namens retten 
Zeiger auf Ende der Felder 
als Einfügestelle nach DE 
Platz reservieren 
Länge des Namens 
Namen und Typ übertragen 
Zeiger nach Typflag 
nach HL 

Zahl der Dimensionen 
Zeiger auf Feldeintrag 
Zeiger auf Typt-2, Platz 
für Länge übergehen 
Typ des Feldes 
als Feldgröße 
nach DE 

Dirn.-Zahl in Feld speichern 
Zeiger auf Zahl der Dimens. 
Zeiger auf Indextabelle 
Feldgröße retten 
Flag für Default-DIM 
Default-Dimensionierung ? 

11 als Default-Index 
ggf. Default als Index 
Zeiger in Indextabelle retten 
2 Bytes für nächsten Index 
vom Basic-Stack 
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D8C2 

23 



INC 

HL 

D8C3 

56 



LD 

D, (HL) 

D8C4 

13 



INC 

DE 

D8C5 

El 



POP 

HL 

D8C6 

73 



LD 

(HL),E 

D8C7 

23 



INC 

HL 

D8C8 

72 



LD 

(HL),D 

D8C9 

23 



INC 

HL 

D8CA 

E3 



EX 

(SP),HL 

D8CB 

CD 

BE 

BD 

CALL 

BDBE 

D8CE 

DA 

46 

D6 

JP 

C,D646 

D8D1 

EB 



EX 

DE,HL 

D8D2 

El 



POP 

HL 

D8D3 

10 

DC 


DJNZ 

D8B1 

D8D5 

42 



LD 

B,D 

D8D6 

4B 



LD 

C.E 

D8D7 

54 



LD 

D,H 

D8D8 

5D 



LD 

E,L 

D8D9 

CD 

FB 

F5 

CALL 

F5FB 

D8DC 

22 

89 

AE 

LD 

(AE89),HL 

D8DF 

C5 



PUSH 

BC 

D8E0 

2B 



DEC 

HL 

D8E1 

36 

00 


LD 

(HL),00 

D8E3 

OB 



DEC 

BC 

D8E4 

78 



LD 

A, B 

D8E5 

Bl 



OR 

C 

D8E6 

20 

F8 


JR 

NZ,D8E0 

D8E8 

CI 



POP 

BC 

D8E9 

El 



POP 

HL 

D8EA 

5E 



LD 

E, (HL) 

D8EB 

16 

00 


LD 

D, 00 

D8ED 

EB 



EX 

DE,HL 

D8EE 

29 



ADD 

HL,HL 

D8EF 

23 



INC 

HL 

D8F0 

09 



ADD 

HL,BC 

D8F1 

EB 



EX 

DE,HL 

D8F2 

2B 



DEC 

HL 

D8F3 

2B 



DEC 

HL 

D8F4 

73 



LD 

(HL),E 

D8F5 

23 



INC 

HL 

D8F6 

72 



LD 

(HL),D 

D8F7 

23 



INC 

HL 

D8F8 

E3 



EX 

(SP).HL 

D8F9 

EB 



EX 

DE,HL 

D8FA 

3A 

CI 

B0 

LD 

A,(B0C1) 

D8FD 

CD 

EA 

D5 

CALL 

D5EA 

D900 

CD 

A5 

D7 

CALL 

D7A5 

D903 

Dl 



POP 

DE 

D904 

El 



POP 

HL 

D905 

C9 



RET 



*****************£****■****■***■***** 


Index aus Basic-Stack 
laden, nach DE 

Zeiger in Indextabelle 

Index in Indextabelle 
des Feldes eintragen 

Tab.-Zg. retten, Feldgr. n. HL 
bisherige Feldgröße mal Index 
Übertrag ? dann Fehler 
neue Feldgröße nach DE 
Zeiger in Indextabelle 
weitere Indizes ? 

Feldgröße 

als benötigter Platz nach BC 
Zeiger nach Indextabelle 
als Einfügeadresse nach DE 
Platz reservieren 
neues Ende der Felder setzen 
Länge der Feldelemente retten 

Feld-Byte löschen 
Bytezähler 


weitere Bytes ? 

Länge der Feldelemente 
Zeiger auf Zahl der Dimens. 
Dimensionen-Zahl lo 
hi =0 

nach HL, Zg. auf Dirn, nach DE 
2 Bytes pro Index 
+1 für Dimensionsbyte 
Länge d. Feldelemente addieren 
Feldlänge nach DE 
Zeiger auf Dimensionsbyte -2 
gibt Zeiger a. Längeneintrag 

Feldlänge eintragen 

Zeiger auf Dimensionsbyte 
retten, Zg. a. Feldeintr. zur. 
nach DE, Feldlänge nach HL 
Typ des Feldes 

Adr. d. 1. Offsets d. VL holen 
Feld in entspr. VL einhängen 
Zeiger auf Dimensionsbyte 


Variablenname und Offset holen 
OUT: CY=1: Offset eingetragen 
DE: Offset für Variable 
CY=0: Offset nicht eingetr. 
DE: Zeiger auf Var.-Token 
C: 1. Byte des Namens 
(SAE27): Zeiger auf Namen 
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D906 

CD 

7F 

D9 

CALL 

D97F 

D909 

23 



INC 

HL 

D90A 

5E 



LD 

E,(HL) 

D90B 

23 



INC 

HL 

D90C 

56 



LD 

D, (HL) 

D90D 

7A 



LD 

A,D 

D90E 

B3 



OR 

E 

D90F 

28 

0A 


JR 

Z,D91B 

D911 

23 



INC 

HL 

D912 

7E 



LD 

A, (HL) 

D913 

17 



RLA 


D914 

30 

FB 


JR 

NC,D911 

D916 

CD 

3F 

DD 

CALL 

DD3F 

D919 

37 



SCF 


D91A 

C9 



RET 


D91B 

2B 



DEC 

HL 

D91C 

2B 



DEC 

HL 

D91D 

EB 



EX 

DE,HL 

D91E 

CI 



POP 

BC 

D91F 

2A 

27 

AE 

LD 

HL,(AE27) 

D922 

E5 



PUSH 

HL 

D923 

21 

2B 

D9 

LD 

HL ,D92B 

D926 

E5 



PUSH 

HL 

D927 

C5 



PUSH 

BC 

D928 

EB 



EX 

DE,HL 

D929 

18 

OE 


JR 

D939 


☆ ******☆*☆*☆*☆☆ * * ■irk’k'triz-iiit'k'it 


D92B 

E5 



PUSH 

HL 

D92C 

2A 

27 

AE 

LD 

HL,(AE27) 

D92F 

CD 

AC 

F5 

CALL 

F5AC 

D932 

El 



POP 

HL 

D933 

E3 



EX 

(SP),HL 

D934 

22 

27 AE 

LD 

(AE27),HL 

D937 

El 



POP 

HL 

D938 

C9 



RET 



it ***** *■ ** it irk'k'k * * lSnär ***☆***&☆#*☆*☆ 


D939 

E5 


PUSH 

HL 

D93A 

7E 


LD 

A, (HL) 

D93B 

23 


INC 

HL 

D93C 

23 


INC 

HL 

D93D 

23 


INC 

HL 

D93E 

4E 


LD 

C, (HL) 

D93F 

CB 

A9 

RES 

5,C 

D941 

FE 

OB 

CP 

OB 

D943 

38 

19 

JR 

C,D95E 

D945 

79 


LD 

A,C 

D946 

E6 

1 F 

AND 

1F 

D948 

C6 

OB 

ADD 

OB 

D94A 

5F 


LD 

E,A 

D94B 

CE 

AE 

ADC 

AE 

D94D 

93 


SUB 

E 

D94E 

57 


LD 

D,A 

D94F 

1A 


LD 

A, (DE) 

D950 

32 

Ci BO 

LD 

(B0C1),A 

D953 

E3 


EX 

(SP),HL 


Typ nach Variablen-Token setz. 
Zeiger nach Token 

Offset der Variable holen 


Offset nicht eingetragen ? 
dann Namen auswerten 

Zeichen aus Name 

Ende des Namen ? 

nein ? dann weiter überlesen 

Zeichen nach Name 

CY=1 für Offset eingetragen 


PC zurück auf Token 
nach DE 
Aufrufadresse 

alten Variablennamen-Zeiger 
retten 

Namen von Basic-Stack löschen 
als Rücksprungadresse 
alte Rücksprungadresse 
Zeiger auf Var.-Token nach HL 
Namen holen, auf Basic-Stack 

Variablennamen vom Basic-Stack 

Zeiger auf Namen 
als Basic-SP setz. (Narren lö.) 
zweitobersten 
Stackeintrag holen 
alten Namenzeiger zurück 


Variablennamen auf Basic-Stack 
PC auf Variablen-Token 
Token 

Offset übergehen 

1. Zeichen aus Namen 
auf Großschrift forcieren 
markierte Variable ? 
dann keine Typenbestimmung 
1. Zeichen des Namens 
Nr. des Buchstaben 

SAEOB (SAEOC-1, Adresse der 
Tabelle für DEFINT/STR/REAL) 
addieren 

Typflag aus Tabelle laden 
als Typ der Variablen setzen 
Adr. Namen r., Adr. Token zur. 
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D954 

36 

0D 


LD 

(HL),0D 

D956 

FE 

05 


CP 

05 

D958 

28 

03 


JR 

Z,D95D 

D95A 

C6 

09 


ADD 

09 

D95C 

77 



LD 

(HL) ,A 

D95D 

E3 



EX 

(SP),HL 

D95E 

EB 



EX 

DE,HL 

D95F 

3E 

28 


LD 

A,28 

D961 

CD 

B0 

F5 

CALL 

F5B0 

D964 

22 

27 

AE 

LD 

(AE27),HL 

D967 

06 

29 


LD 

B,29 

D969 

05 



DEC 

B 

D96A 

CA 

42 

D6 

JP 

Z,D642 

D96D 

1A 



LD 

A, (DE) 

D96E 

13 



INC 

DE 

D96F 

E6 

DF 


AND 

DF 

D971 

77 



LD 

(HL),A 

D972 

23 



INC 

HL 

D973 

17 



RLA 


D974 

30 

F3 


JR 

NC,D969 

D976 

CD 

AC 

F5 

CALL 

F5AC 

D979 

EB 



EX 

DE,HL 

D97A 

2B 



DEC 

HL 

D97B 

Dl 



POP 

DE 

D97C 

C3 

3F 

DD 

JP 

DD3F 


********************************** 


D97F 

7E 



LD 

A, (HL) 

D980 

FE 

OB 


CP 

OB 

D982 

38 

02 


JR 

C,D986 

D984 

C6 

F7 


ADD 

F7 

D986 

FE 

04 


CP 

04 

D988 

28 

09 


JR 

Z,D993 

D98A 

30 

04 


JR 

NC,D990 

D98C 

FE 

02 


CP 

02 

D98E 

30 

05 


JR 

NC.D995 

D990 

C3 

42 

D6 

JP 

D642 

D993 

3E 

05 


LD 

A,05 

D995 

32 

CI 

B0 

LD 

(BOCl),A 

D998 

C9 



RET 



********************************** 


D999 

CD 

C6 

D5 

CALL 

D5C6 

D99C 

2A 

89 

AE 

LD 

HL,(AE89) 

D99F 

EB 



EX 

DE,HL 

D9A0 

2A 

87 

AE 

LD 

HL,(AE87) 

D9A3 

CD 

B8 

FF 

CALL 

FFB8 

D9A6 

C8 



RET 

Z 

D9A7 

D5 



PUSH 

DE 

D9A8 

CD 

31 

D7 

CALL 

D731 

D9AB 

7E 



LD 

A, (HL) 

D9AC 

23 



INC 

HL 

D9AD 

E6 

07 


AND 

07 

D9AF 

3C 



INC 

A 

D9B0 

E5 



PUSH 

HL 

D9B1 

CD 

EA 

D5 

CALL 

D5EA 

D9B4 

CD 

A5 

D7 

CALL 

D7A5 

D9B7 

El 



POP 

HL 


Token f. REAL-Var. ohne Kennz. 
REAL-Variable ? 
dann Token o.k. 

sonst Tok. f. String/Integer 
ohne Kennz. setzen 
Adr. Token r., Adr. Namen zur. 
Zeiger auf Name nach DE 
40 Bytes für Namen 
Platz auf Basic-Stack reserv. 
Zeiger auf Platz speichern 
max. Namenlänge+1 
restl. Namenbytes 
zu lang ? dann "Syntax error" 
Byte aus Namen 

auf Großschrift forcieren 
in Basic-Stack übertragen 

Ende des Namens erreicht ? 
nein ? dann weiter 
Namenende als neuen Basic-SP 
Zeiger nach Namen nach HL 
Zeiger auf letztes Namenbyte 
Zeiger auf Var.-Token zurück 
Zeichen nach Namen holen 

Variablentyp entspr. Token setzen 
Variablen-Token 
Var. m. Kennz./Statementende ? 
dann auswerten 

Token f. Var. m. K. generieren 

REAL-Variable ? 

dann Typ auf REAL setzen 

keine Variable ? dann Fehler 

Statementende ? 

nein ? dann Typ setzen 

"Syntax error" 

Typ für REAL 
Typ setzen 


VL der Felder neu generieren 
VL der Felder loschen 
Zeiger auf Ende der Felder 
nach DE 

Zeiger auf Start der Felder 
akt. Zeiger = Ende d. Felder ? 
dann fertig 

Zeiger auf Ende der Felder 
Feldnamen überlesen 
Typflag des Feldes 
Zeiger nach Typflag 
Typflag nach FAC- 
Typflag-Format 
Zeiger nach Typflag 
Adr. d. 1. Offset der VL holen 
Feld in entspr. VL einhängen 
Zeiger nach Typflag 
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D9B8 

5E 



LD 

E,(HL) 

D9B9 

23 



INC 

HL 

D9BA 

56 



LD 

D,(HL) 

D9BB 

23 



INC 

HL 

D9BC 

19 



ADD 

HL,DE 

D9BD 

Dl 



POP 

DE 

D9BE 

18 

E3 


JR 

D9A3 

********************************** 

D9C0 

CD 

89 

E9 

CALL 

E989 

D9C3 

CD 

CC 

D9 

CALL 

D9CC 

D9C6 

CD 

55 

DD 

CALL 

DD55 

D9C9 

38 

F8 


JR 

C,D9C3 

D9CB 

C9 



RET 


********************************** 

D9CC 

CD 

06 

D9 

CALL 

D906 

D9CF 

E5 



PUSH 

HL 

D9D0 

3A 

CI 

BO 

LD 

A, (B0C1) 

D9D3 

CD 

EA 

D5 

CALL 

D5EA 

D9D6 

CD 

08 

D7 

CALL 

D708 

D9D9 

E5 



PUSH 

HL 

D9DA 

EB 



EX 

DE,HL 

D9DB 

IE 

05 


LD 

E,05 

D9DD 

D2 

94 

CA 

JP 

NC,CA94 

D9E0 

5E 



LD 

E,(HL) 

D9E1 

23 



INC 

HL 

D9E2 

56 



LD 

D, (HL) 

D9E3 

23 



INC 

HL 

D9E4 

19 



ADD 

HL,DE 

D9E5 

EB 



EX 

DE,HL 

D9E6 

2A 

89 

AE 

LD 

HL,(AE89) 

D9E9 

CD 

CF 

FF 

CALL 

FFCF 

D9EC 

E3 



EX 

(SP),HL 

D9ED 

CI 



POP 

BC 

D9EE 

EB 



EX 

DE,HL 

D9EF 

78 



LD 

A,B 

D9F0 

Bl 



OR 

C 

D9F1 

C4 

F2 

FF 

CALL 

NZ,FFF2 

D9F4 

EB 



EX 

DE,HL 

D9F5 

22 

89 

AE 

LD 

(AE89),HL 

D9F8 

CD 

99 

D9 

CALL 

D999 

D9FB 

El 



POP 

HL 

D9FC 

C9 



RET 



********************************** 


D9FD 

21 

00 

00 

LD 

HL,0000 

DAOO 

22 

2B 

AE 

LD 

(AE2B),HL 

DA03 

22 

29 

AE 

LD 

(AE29),HL 

DA06 

C9 



RET 



********************************** 


DA07 

E5 


PUSH 

HL 

DA08 

2A 

2B AE 

LD 

HL,(AE2B) 

DAOB 

E5 


PUSH 

HL 

DAOC 

2A 

29 AE 

LD 

HL,(AE29) 

DAOF 

EB 


EX 

DE,HL 

DA10 

3E 

06 

LD 

A, 06 


Feldlänge laden, 
nach DE 

addieren, gibt Adr. d. n. Feld 
Zeiger auf Ende der Felder 
nächstes Feld einhängen 

Basic-Befehl ERASE 

Var.-Offsets im Prg. löschen 
ein Feld löschen 
folgt Komma ? 
dann nächstes Feld 


ein Feld löschen 

Variablennamen u. Offset holen 

Basic-PC retten 

Typ der Variablen 

Adr. d. Offsets der VL holen 

Feld in entspr. VL suchen 

Zeiger auf Feldeintrag 

Zeiger nach Typ nach HL 

Nr. für "Improper argument“ 

Feld nicht gef. ? dann Fehler 

Länge des Feldes laden, 
nach DE 

addieren 

gibt Feld-Endadresse, nach DE 
Zeiger auf Ende der Felder 
Feld-Endadresse abziehen 
Länge bis Ende r., Feldadr. z. 
zu verschiebende Länge 
Feldadr. n. DE, Endadr. n. HL 
Länge <>0 ? 

dann folgende Felder versch. 
Endadresse des versch. Blocks 
als neues Ende der Felder 
VL der Felder neu generieren 
Basic-PC zurück 


FN-Listenzeiger löschen 

Zeiger auf FN-VL 

Zeiger a. akt. FN-Listeneintr. 


neuen Eintrag in FN-Liste gener. 

Zeiger auf 1. Eintrag d. FN-VL 
retten 

Zeiger a. bearbeiteten Eintrag 
nach DE 

Größe eines FN-Listeneintrags 
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DA12 

CD 

BO 

F5 

CALL 

F5B0 

DA15 

22 

29 

AE 

LD 

(AE29),HL 

DA18 

73 



LD 

(HL),E 

DA19 

23 



INC 

HL 

DA1A 

72 



LD 

(HL) ,D 

DA1B 

23 



INC 

HL 

DA1C 

AF 



XOR 

A 

DAlD 

77 



LD 

(HL),A 

DA1E 

23 



INC 

HL 

DA1F 

77 



LD 

(HL),A 

DA20 

23 



INC 

HL 

DA21 

Dl 



POP 

DE 

DA22 

73 



LD 

(HL),E 

DA23 

23 



INC 

HL 

DA24 

72 



LD 

(HL),D 

DA25 

El 



POP 

HL 

DA26 

C9 



RET 



•k-kiirick'it'it'&'k'kit'k'k'if •k'it'kirk'tt'k'k ix iiit'k 


DA27 

E5 



PUSH 

HL 

DA28 

2A 

29 

AE 

LD 

HL, (AE29) 

DA2B 

22 

2B 

AE 

LD 

(AE2B),HL 

DA2E 

El 



POP 

HL 

DA2F 

C9 



RET 



•kivk-k'irkii-kirifk-kix'kixixix'k'txit'k-ix-k'k-kixixix-k-k'k-k'k'k 


DA30 

E5 



PUSH 

HL 

DA31 

2A 

29 

AE 

LD 

HL,(AE29) 

DA34 

CD 

AC 

F5 

CALL 

F5AC 

DA37 

5E 



LD 

E,(HL) 

DA38 

23 



INC 

HL 

DA39 

56 



LD 

D, (HL) 

DA3A 

23 



INC 

HL 

DA3B 

EB 



EX 

DE,HL 

DA3C 

22 

29 

AE 

LD 

(AE29),HL 

DA3F 

EB 



EX 

DE,HL 

DA40 

23 



INC 

HL 

DA41 

23 



INC 

HL 

DA42 

5E 



LD 

E, (HL) 

DA43 

23 



INC 

HL 

DA44 

56 



LD 

D, (HL) 

DA45 

EB 



EX 

DE,HL 

DA46 

22 

2B 

AE 

LD 

(AE2B),HL 

DA49 

El 



POP 

HL 

DA4A 

C9 



RET 



■kirk-k'k-ififk'kixix'kixixix-kix'k-kix-kix-k^ix-kixix^rit'k'ic’kit 


DA4B 

E5 



PUSH 

HL 

DA4C 

3E 

02 


LD 

A,02 

DA4E 

CD 

BO 

F5 

CALL 

F5B0 

DA51 

E3 



EX 

(SP),HL 

DA52 

CD 

7F 

D9 

CALL 

D97F 

DA55 

CD 

39 

D9 

CALL 

D939 

DA58 

E3 



EX 

(SP),HL 

DA59 

EB 



EX 

DE,HL 

DA5A 

2A 

29 

AE 

LD 

HL,(AE29) 


Platz auf Basic-Stack reserv. 
als Zeiger auf akt. Eintrag 

Zeiger auf vorher bearbei¬ 
teten Eintrag eintragen 


Zeiger auf VL der Funktions¬ 
variablen dieses FN-Listen- 
eintrags löschen 


Kettungsadresse für 
FN-Liste eintragen 


Eintrag in FN-Liste einhängen 

akt. berarbeiteten Eintrag 
als 1. Eintrag der FN-Liste 


Eintrag aus FN-Liste aushängen 

Zeiger auf akt. Eintrag 
Eintrag v. Basic-Stack löschen 

vorher bearbeiteten 
Listeneintrag 


als akt. Eintrag setzen 

Zeiger auf Funktionsvaria¬ 
blenliste übergehen 

nächsten Eintrag d. FN-Liste 
(Kettungsadresse) 

als 1. Listeneintrag setzen 


Funktionsvar. holen, in VL eintr. 
OUT: DE: Adr. der Funktionsvar. 

B: Typflag 

Funktionsdef.-PC retten 
2 Bytes für Kettungsadresse 
auf Basic-Stack reservieren 
Zg. Stackeintr. retten, PC z. 
Typ entspr. FN-Var.-Token 
FN-Var.-Namen auf Basic-Stack 
PC retten, Zeiger auf Stack¬ 
eintrag nach DE 
Zg. auf akt. FN-Listeneintrag 
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DA5D 

23 



INC 

HL 

DA5E 

23 



INC 

HL 

DA5F 

01 

00 

00 

LD 

BC,0000 

DA62 

CD 

A5 

D7 

CALL 

D7A5 

DA65 

3A 

CI 

B0 

LD 

A, (B0C1> 

DA68 

47 



LD 

B, A 

DA69 

3C 



INC 

A 

DA6A 

CD 

BO 

F5 

CALL 

F5B0 

DA6D 

78 



LD 

A,B 

DA6E 

3D 



DEC 

A 

DA6F 

77 



LD 

(HL),A 

DA70 

23 



INC 

HL 

DA71 

EB 



EX 

DE,HL 

DA72 

El 



POP 

HL 

DA73 

C9 



RET 



********************************** 


DA74 

2A 

29 

AE 

LD 

HL,(AE29) 

DA77 

7C 



LD 

A, H 

DA78 

B5 



OR 

L 

DA79 

28 

0E 


JR 

Z,DA89 

DA7B 

4E 



LD 

C, (HL) 

DA7C 

23 



INC 

HL 

DA7D 

46 



LD 

B, (HL) 

DA7E 

23 



INC 

HL 

DA7F 

C5 



PUSH 

BC 

DA80 

01 

00 

00 

LD 

BC,0000 

DA83 

CD 

CE 

DA 

CALL 

DACE 

DA86 

El 



POP 

HL 

DA87 

18 

EE 


JR 

DA77 

DA89 

01 

41 

1A 

LD 

BC,1A41 

DA8C 

C5 



PUSH 

BC 

DA8D 

79 



LD 

A,C 

DA8E 

CD 

DB 

D5 

CALL 

D5DB 

DA91 

CD 

CE 

DA 

CALL 

DACE 

DA94 

CI 



POP 

BC 

DA95 

OC 



INC 

C 

DA96 

05 



DEC 

B 

DA97 

20 

F3 


JR 

NZ,DA8C 

DA99 

3E 

03 


LD 

A,03 

DA9B 

CD 

EA 

D5 

CALL 

D5EA 

DA9E 

4E 



LD 

C, (HL) 

DA9F 

23 



INC 

HL 

DAA0 

46 



LD 

B,(HL) 

DAA1 

78 



LD 

A,B 

DAA2 

Bl 



OR 

C 

DAA3 

C8 



RET 

Z 

DAA4 

2A 

87 

AE 

LD 

HL,(AE87) 

DAA7 

2B 



DEC 

HL 

DAA8 

09 



ADD 

HL,BC 

DAA9 

E5 



PUSH 

HL 

DAAA 

D5 



PUSH 

DE 

DAAB 

CD 

31 

D7 

CALL 

D731 

DME 

Dl 



POP 

DE 

DMF 

23 



INC 

HL 

DABO 

4E 



LD 

C, (HL) 

DAB1 

23 



INC 

HL 


+2=Zeiger auf 1. Zeiger der 
Funktionsvariablen-VL 
Basisadr.=0, da absolute Adr. 
FN-Var. in VL einhängen 
Typ der Funktionsvariablen 

+1=benötigter Platz 

Platz auf Basic-Stack reserv. 

Typflag 

nach Variablenformat 
in Stackeintrag speichern 
Zeiger auf FN-Variablenwert 
nach DE 

Funkionsdef.-PC zurück 


sämtl. Stringvariablen durchgehen 
IN : DE: Bearbeitungsroutinenadr. 
Zeiger a. akt. FN-Listeneintr. 


FN-Liste zu Ende ? 

sonst Adresse des nächsten 
Listeneintrags 

retten 

Basisadr.=0, da absolute Adr. 
FN-Var.-VL dies. Eint, durchg. 
Adr. des nächsten Eintrags 
nächsten Listeneintrag bearb. 
26 Buchstaben, 1. Buchst.="A" 
Zähler/Buchstaben retten 
akt. Buchstabe 

1. Offset der entspr. VL holen 
diese VL durchgehen 
Zähler/akt. Buchstabe 
nächster Buchstabe 
Zähler 

weitere Buchstaben ? 

Typflag für String 

1. Offset d. VL d. Str.-Felder 

Offset für nächstes String¬ 
feld laden 


VL zu Ende ? dann fertig 
Zeiger auf Start der Felder 
-1, Korrektur für Offset 
zu Basisadresse addieren 
Adresse des Feldes retten 

Feldnamen übergehen 

Typflag übergehen 

Länge der Feldelemente laden 
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DAB2 

46 



LD 

B,(HL) 

DAB3 

23 



INC 

HL 

DAB4 

E5 



PUSH 

HL 

DAB5 

09 



ADD 

HL,BC 

DAB6 

E3 



EX 

(SP),HL 

DAB7 

4E 



LD 

C, (HL) 

DAB8 

23 



INC 

HL 

DAB9 

06 

00 


LD 

B,00 

DABB 

09 



ADD 

HL,BC 

DABC 

09 



ADD 

HL,BC 

DABD 

CI 



POP 

BC 

DABE 

CD 

BE 

FF 

CALL 

FFBE 

DAC1 

28 

08 


JR 

Z,DACB 

DAC3 

CD 

E7 

DA 

CALL 

DAE7 

DAC6 

23. 



INC 

HL 

DAC7 

23 



INC 

HL 

DAC8 

23 



INC 

HL 

DAC9 

18 

F3 


JR 

DABE 

DACB 

El 



POP 

HL 

DACC 

18 

DO 


JR 

DA9E 


Zeiger auf Dimensionsbyte 
Länge addieren, gibt Feldende 
retten, Zg. Dimensionsbyte zu 
Zahl der Dimensionen 
Zeiger auf Indextabelle 
Zahl der Dimensionen hi=0 
2 mal addieren, da 
2 Bytes pro Index 
Zeiger auf Ende des Feldes 
Ende erreicht ? 
dann nächstes Feld 
Bearbeitungsroutine ausf. 
Länge eines Descriptors 
addieren, gibt Zeiger auf 
nächstes Feldelement 
nächstes Element behandeln 
Adresse des Feldes 
nächstes Feld behandeln 


********************************** v|_ durchgehen Routine ausführen 

IN : BC: Basisadresse; DE: Routinenadresse 
HL: Zeiger auf 1. Offset 


DACE 

7E 



LD 

A, (HL) 


DACF 

23 



INC 

HL 

nächsten Offset laden 

DAD0 

66 



LD 

H, (HL) 


DAD1 

6F 



LD 

L.A 


DAD2 

B4 



OR 

H 

VL zu Ende ? 

DAD3 

C8 



RET 

Z 

dann fertig 

DAD4 

09 



ADD 

HL,BC 

Basisadresse addieren 

DAD5 

E5 



PUSH 

HL 

Zeiger auf Variable 

DAD6 

D5 



PUSH 

DE 


DAD7 

CD 

31 

D7 

CALL 

D731 

Namen über lesen 

DADA 

Dl 



POP 

DE 


DADB 

7E 



LD 

A, (HL) 

Typflag der Variablen 

DADC 

23 



INC 

HL 

Zeiger auf Variablenwert 

DADD 

E6 

07 


AND 

07 

FN-Kennz. löschen 

DADF 

FE 

02 


CP 

02 

Stringvariable ? 

DAEI 

CC 

E7 DA 

CALL 

Z, DAE7 

dann Routine ausführen 

DAE4 

El 



POP 

HL 

Adresse des Variableneintrags 

DAE5 

18 

E7 


JR 

DACE 

nächste Variable in VL 

********************************** 

Stringbearbeitungsroutine ausf. 







IN : HL: Zeiger auf Descriptor 







DE: Routinenadresse 

DAE7 

C5 



PUSH 

BC 


DAE8 

D5 



PUSH 

DE 


DAE9 

E5 



PUSH 

HL 


DAEA 

7E 



LD 

A,(HL) 

Länge 

DAEB 

23 



INC 

HL 


DAEC 

4E 



LD 

C, (HL) 

und Stringadresse 

DAED 

23 



INC 

HL 

aus Descriptor laden 

DAEE 

46 



LD 

B, (HL) 


DAEF 

EB 



EX 

DE,HL 

Rout.-Adr. HL, Descr.-Ende DE 

DAF0 

B7 



OR 

A 

Länge <>0 ? 

DAF1 

C4 

F8 

FF 

CALL 

NZ,FFF8 

dann Routine ausführen 

DAF4 

El 



POP 

HL 
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DAF5 

Dl 

POP 

DE 

DAF6 

CI 

POP 

BC 

DAF7 

C9 

RET 



********************************** 


DAF8 

CD 

37 

DD 

CALL 

DD37 

DAFB 

A3 





DAFC 

CD 

CB 

CI 

CALL 

CI CB 

DAFF 

F5 



PUSH 

AF 

DBOO 

CD 

89 

DB 

CALL 

DB89 

DB03 

CD 

86 

D6 

CALL 

D686 

DB06 

CD 

3C 

FF 

CALL 

FF3C 

DB09 

E5 



PUSH 

HL 

DBOA 

D5 



PUSH 

DE 

DBOB 

CD 

1A 

DB 

CALL 

DB1A 

DBOE 

CD 

DC 

F7 

CALL 

F7DC 

D B11 

El 



POP 

HL 

DB12 

CD 

6F 

D6 

CALL 

D66F 

DB15 

El 



POP 

HL 

DB16 

Fl 



POP 

AF 

DB17 

C3 

AF 

CI 

JP 

ClAF 

********************************** 

DBlA 

CD 

CO 

CI 

CALL 

C1C0 

DB1D 

D2 

66 

DC 

JP 

NC,DC66 

DB20 

CD 

A2 

CI 

CALL 

C1A2 

DB23 

F5 



PUSH 

AF 

DB24 

CD 

AD 

DB 

CALL 

DBAD 

DB27 

Fl 



POP 

AF 

DB28 

C3 

A2 

Ci 

JP 

C1A2 


********************************** 


DB2B 

CD 

CB 

CI 

CALL 

CI CB 

DB2E 

F5 



PUSH 

AF 

DB2F 

CD 

47 

DB 

CALL 

DB47 

DB32 

D5 



PUSH 

DE 

DB33 

CD 

86 

D6 

CALL 

D686 

DB36 

E3 



EX 

(SP),HL 

DB37 

3E 

00 


LD 

A,00 

DB39 

CD 

BC 

DB 

CALL 

DBBC 

DB3C 

E3 



EX 

(SP),HL 

DB3D 

CD 

55 

DD 

CALL 

DD55 

DB40 

38 

Fl 


JR 

C,DB33 

DB42 

Dl 



POP 

DE 

DB43 

Fl 



POP 

AF 

DB44 

C3 

AF 

CI 

JP 

ClAF 


********************************** 


DB47 

CD 

CO 

CI 

CALL 

C1C0 

DB4A 

30 

3D 


JR 

NC,DB89 

DB4C 

CD 

A2 

CI 

CALL 

C1A2 

DB4F 

F5 



PUSH 

AF 

DB50 

E5 



PUSH 

HL 

DB51 

CD 

89 

DB 

CALL 

DB89 

DB54 

3E 

3F 


LD 

A,3F 

DB56 

D4 

56 

C3 

CALL 

NC,C356 


Basic-Befehl LINE INPUT 
Test auf INPUT 
Token für INPUT 
opt. Filenr. als Eingabekanal 
alte Kanalnr. retten 
ggf. Text ausgeben 
Variable holen 
Test auf Stringvariable 
Basic-PC 

und Zeiger auf Variable retten 

Eingabezeile holen 

als String auf Stringstack 

Adresse der Variablen 

String an Variable zuweisen 

Basic-PC 

alte kanalnr. 

wieder als Eingabekanal 

Zeile für LINE INPUT holen 
OUT: HL: Zeiger auf Zeile 
akt. Eingabekanalnr. holen 
Kassette ? 

sonst Nr. als Streamnr. setzen 
alte Streamnr. retten 
Eingabezeile v. Tastatur holen 
alte Streamnr. 
wieder setzen 

Basic-Befehl INPUT 

opt. Filenr. als Eingabekanal 
alte Kanalnr. retten 
Eingabezeile holen und prüfen 
Zeiger auf Zeile retten 
Variable holen 

PC retten, Eingabezeiger zur. 
Zeilenende als Trennzeichen 
Eingabe an Variable zuweisen 
Eingabezeiger retten, PC zur. 
folgt Korrma ? 
dann nächste Variable 
Eingabezeiger 
alte Kanalnr. 

wieder als Eingabekanal setzen 

Eingabezeile holen und prüfen 
OUT: DE: Zeiger auf Zeile 
Eingabekanalnr. holen 
Kassette ? dann nur Text ausg. 
Nr. als Streamnr. setzen 
alte Streamnr. retten 
PC für "Redo" retten 
ggf. Text ausgeben, Flags hol. 
1*911 

Flag für "?" ? dann ausgeben 
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DB59 

3E 

20 



LD 

A,20 

Space 

DB5B 

D4 

56 

C3 


CALL 

NC.C356 

Flag für M ?" ? dann ausgeben 

DB5E 

E5 




PUSH 

HL 

PC retten 

DB5F 

CD 

AD 

DB 


CALL 

DBAD 

Eingabezeile von Tastatur hol 

DB62 

EB 




EX 

DE,HL 

Zeiger auf Zeile nach DE 

DB63 

El 




POP 

HL 

Basic-PC 

DB64 

CD 

D3 

DB 


CALL 

DBD3 

Eingabezeile überprüfen 

DB67 

38 

09 



JR 

C.DB72 

kein Fehler ? 

DB69 

21 

77 

DB 


LD 

HL,DB77 

Zeiger auf "?Redo from Start" 

DB 6 C 

CD 

41 

C3 


CALL 

C341 

String ausgeben 

DB 6 F 

El 




POP 

HL 

PC nach INPUT-Token 

DB70 

18 

DE 



JR 

DB50 

neue ZeiLe holen 

DB72 

Fl 




POP 

AF 

Zeiger für "Redo" löschen 

DB73 

Fl 




POP 

AF 

alte Streamnr. 

DB74 

C3 

A2 

CI 


JP 

C1A2 

wieder setzen 

********************************** 


DB77 

3F 

52 

65 

64 

6 F 20 

66 72 

?Redo fr 

DB7F 

6 F 

6 D 

20 

73 

74 61 

72 74 

om Start 

DB87 

OA 

00 





. - 


********************************** ggf_ Text ausgeben Flags holen 

OUT: CY=0 für "?" ausgeben 

(SAE2D): Flag für Linefeed 


DB89 

7E 



LD 

A, (HL) 

Zeichen aus Basic-Text 

DB 8 A 

FE 

3B 


CP 

3B 

li-li 7 
f 

DB 8 C 

32 

2D 

AE 

LD 

(AE2D),A 

als Flag für Linefeed setzen 

DB 8 F 

CC 

3F 

DD 

CALL 

Z,DD3F 

? dann "; M übergehen 

DB92 

EE 

22 


XOR 

22 

"" ? (CY=0 für "?" ausgeben) 

DB94 

C0 



RET 

NZ 

nein ? dann kein Text 

DB95 

CD 

CB 

F7 

CALL 

F7CB 

String holen, auf Stringstack 

DB98 

CD 

CO 

CI 

CALL 

C1C0 

Eingabekanalnr. holen 

DB9B 

F5 



PUSH 

AF 

und retten 

DB9C 

DC 

28 

F 8 

CALL 

C,F828 

nicht Kassette ? dann ausgeben 

DB9F 

Fl 



POP 

AF 


DBA0 

D4 

DA 

FB 

CALL 

NC,FBDA 

Kassette ? dann Str. vom Stack 

DBA3 

CD 

55 

DD 

CALL 

DD55 

folgt Kontra ? 

DBA 6 

D 8 



RET 

C 

dann zurück 

DBA7 

CD 

37 DD 

CALL 

DD37 

sonst Test auf 

DBAA 

3B 





ll . ü 
# 

DBAB 

B7 



OR 

A 

CY=0 für "?" ausgeben 

DBAC 

C9 



RET 



********************************** 

Eingabezeile von Tastatur holen 







OUT: HL: Zeiger auf Zeile 

DBAD 

CD 

3B 

CA 

CALL 

CA3B 

Eingabezeile holen 

DBB0 

D2 

6 B 

CB 

JP 

NC,CB 6 B 

Abbruch ? dann "Break" 

DBB3 

3A 

2D 

AE 

LD 

A, (AE2D) 

Flag für Linefeed 

DBB 6 

FE 

3B 


CP 

3B 

gesetzt ? 

DBB 8 

C4 

4E 

C3 

CALL 

NZ,C34E 

dann Linefeed ausgeben 

DBBB 

C9 



RET 




********************************** Eingabe an Variable zuweisen 

IN : DE: Variablenadresse 

HL: Eingabezeiger; A: Trennzeichen 
OUT: HL: Eingabezeiger 

nur beim CPC 464: Z=1 bei Korrma/Zei lenende 
Variablenadresse retten 


DBBC D5 


PUSH DE 
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DBBD 

CD 

02 

DC 

CALL 

DC02 

DBCO 

30 

OC 


JR 

NC,DBCE 

DBC2 

E3 



EX 

(SP),HL 

DBC3 

CD 

66 

D6 

CALL 

D666 

DBC6 

El 



POP 

HL 

DBC7 

7E 



LD 

A, (HL) 

DBC8 

23 



INC 

HL 

DBC9 

B7 



OR 

A 

DBCA 

C8 



RET 

Z 

DBCB 

EE 

2C 


XOR 

2C 

DBCD 

C9 



RET 


DBCE 

IE 

0D 


LD 

E,0D 

DBDO 

C3 

94 

CA 

JP 

CA94 


Eingabe auswerten/wandeln 
Fehler ? dann "Type mismatch" 
Eingabezg. retten, Var.-Adr. 
Wert an Variable zuweisen 
Eingabezeiger 
Zeichen nach Eingabewert 
Zeiger nach zugewiesener Eing. 

Zeilenende ? 

Komma ? 


Nr. für "Type mismatch" 
Fehler ausgeben 


'k ■& -k iriricrk ■£* * it it * ********* ie *☆**■*■** •/cfrk 


DBD3 

D5 



PUSH 

DE 

DBD4 

E5 



PUSH 

HL 

DBD5 

D5 



PUSH 

DE 

DBD6 

CD 

D6 

D6 

CALL 

D6D6 

DBD9 

E3 



EX 

(SP),HL 

DBDA 

AF 



XOR 

A 

DBDB 

CD 

02 

DC 

CALL 

DC02 

DBDE 

30 

IE 


JR 

NC,DBFE 

DBEO 

FE 

03 


CP 

03 

DBE2 

CC 

DA 

FB 

CALL 

Z, FBDA 

DBE5 

E3 



EX 

(SP),HL 

DBE6 

CD 

55 

DD 

CALL 

DD55 

DBE9 

E3 



EX 

(SP),HL 

DBEA 

30 

OB 


JR 

NC.DBF7 

DBEC 

CD 

61 

DD 

CALL 

DD61 

DBEF 

EE 

2C 


XOR 

2C 

DB F1 

20 

OB 


JR 

NZ.DBFE 

DBF3 

23 



INC 

HL 

DBF4 

E3 



EX 

(SP),HL 

DBF5 

18 

DF 


JR 

DBD6 

DBF7 

CD 

61 

DD 

CALL 

DD61 

DBFA 

B7 



OR 

A 

DBFB 

20 

01 


JR 

NZ.DBFE 

DBFD 

37 



SCF 


DBFE 

El 



POP 

HL 

DBFF 

El 



POP 

HL 

DC00 

Dl 



POP 

DE 

DC01 

C9 



RET 



Eingabezeile überprüfen 
IN/OUT: DE: Zeiger auf Zeile 
HL: Basic-PC 
OUT: CY=0 bei Fehler 


Zeiger auf Eingabe 

Variable überlesen, Typ holen 

PC retten, Eing.-Zg. zurück 

Zeilenende als Trennzeichen 

Eingabe auswerten 

Fehler ? dann zurück 

Stringeingabe ? 

dann vom Stringstack löschen 

folgt Komma im Programm ? 

nein ? dann fertig 

Spaces, TABs, LFs überlesen 

Korrma an akt, Eingabepos. ? 

nein ? dann Fehler 

Konsna übergehen 

Eingabe-Zg. retten, PC zurück 

nächste Variable behandeln 

Spaces, TABs und LFs überlesen 

Zeilenende ? 

nein ? dann Fehler 

sonst CY=1 für fehlerfrei 


☆ &#*■**& ☆****•*&☆&******** ****** 


DC02 

5F 

LD 

E,A 

DC03 

CD 45 FF 

CALL 

FF45 

DC06 

57 

LD 

D,A 


Eingabe auswerten 
IN : HL: Eingabezeiger 
A: Trennzeichen 
OUT: A: Typflag 

HL: Eingabezeiger 
Eingabewert im FAC 
CY=0 bei Fehler 
Trennzeichen 

Typflag der Variablen holen 
nach D 
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DC07 

D5 



PUSH 

DE 

DC08 

20 

06 


JR 

NZ,DC10 

DCOA 

CD 

21 

DC 

CALL 

DC21 

DCOD 

37 



SCF 


DCOE 

18 

09 


JR 

DC19 

DC10 

CD 

CO 

CI 

CALL 

C1C0 

DC13 

D4 

38 

DC 

CALL 

NC,DC38 

DC16 

CD 

A3 

EC 

CALL 

EC A3 

DC19 

F5 



PUSH 

AF 

DClA 

DC 

61 

DD 

CALL 

C,DD61 

DC1D 

Fl 



POP 

AF 

D C1E 

Dl 



POP 

DE 

DC1F 

7A 



LD 

A,D 

DC20 

C9 



RET 


********************************** 


DC21 

CD 

CO 

CI 

CALL 

C1C0 

DC24 

38 

06 


JR 

C,DC2C 

DC26 

CD 

47 

DC 

CALL 

DC47 

DC29 

C3 

DC 

F7 

JP 

F7DC 

DC2C 

CD 

61 

DD 

CALL 

DD61 

DC2F 

FE 

22 


CP 

22 

DC31 

CA 

CB 

F7 

JP 

Z,F7CB 

DC34 

7B 



LD 

A,E 

DC35 

C3 

E6 

F7 

JP 

F7E6 


********************************** 


DC38 

CD 

9D DC 

CALL 

DC9D 

DC3B 

30 

05 

JR 

NC,DC42 

DC3D 

11 

C6 DC 

LD 

DE,DCC6 

DC40 

18 

2C 

JR 

DC6E 

DC42 

1 E 

18 

LD 

E, 18 

DC44 

C3 

94 CA 

JP 

CA94 


********************************** 


DC47 

CD 

9D 

DC 

CALL 

DC9D 

DC4A 

30 

F6 


JR 

NC,DC42 

DC4C 

FE 

22 


CP 

22 

DC4E 

28 

05 


JR 

Z,DC55 

DC50 

11 

CA 

DC 

LD 

DE,DCCA 

DC53 

18 

19 


JR 

DC6E 

DC55 

CD 

A8 

DC 

CALL 

DCA8 

DC58 

11 

63 

DC 

LD 

DE,DC63 

DC5B 

38 

11 


JR 

C,DC6E 

DC5D 

21 

A4 

AC 

LD 

HL,ACA4 

DC60 

36 

00 


LD 

(HL),00 

DC62 

C9 



RET 


DC63 

FE 

22 


CP 

22 

DC65 

C9 



RET 



TypfLag/Trennzeichen retten 
kein String ? dann numerisch 
Eingabestring holen 
CY=1 für fehlerfrei 
weiter auswerten 
Eingabekanalnr. holen 
Kassette ? 

Eingabe nach binär wandeln 
Fehlerflag, kein Fehler ? 
dann Spaces, TABs, LFs überl. 
Fehlerflag zurück 
Typflag der Variable 
nach A 


Eingabestring holen 
IN : E: Trennzeichen 
OUT: HL: Zeiger auf Stringende 
Eingabekanalnr. holen 
nicht Kassette ? 
sonst Eingabestr. von Kassette 
String auf Stringstack 
Spaces, TABs und LFs überlesen 

l it I 9 

dann String holen, auf Stack 
Trennzeichen 

String bis Trennzeichen holen 

numerische Eingabe (von Kassette) 
OUT: HL: Zeiger auf Eingabe 
Zeichen holen 
Fehler ? dann "EOF met" 

Adr. f." ", TAB, LF, CR, 
Eingabe bis Trennzeichen holen 

Nr. für "EOF met" 

Fehler ausgeben 

Eingabestring (von Kassette) 

OUT: HL: Zeiger auf Eingabestring 
Zeichen holen 
Fehler ? dann "EOF met" 

I III 9 

dann String bis "" holen 
Adr. f. Test auf Komma/CR 
Eingabe bis Trennzeichen holen 
Zeichen holen 
Adresse für Test auf 1,11 
kein EOF ? dann Eingabe holen 
sonst Zeiger auf Buffer 
Null ans Bufferende 


Test auf "" 
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********************************** 

DC66 CD A8 DC CALL DCA8 

DC69 30 D7 JR NC,DC42 

DC6B 11 CD DC LD DE,DCCD 

********************************** 


DC6E 

21 

A4 

AC 

LD 

HL,ACA4 

DC71 

E5 



PUSH 

HL 

DC72 

06 

FF 


LD 

B, FF 

DC74 

CD 

FB 

FF 

CALL 

FFFB 

DC77 

28 

0C 


JR 

Z,DC85 

DC79 

77 



LD 

(HL),A 

DC7A 

23 



INC 

HL 

DC7B 

05 



DEC 

B 

DC7C 

28 

05 


JR 

Z,DC83 

DC7E 

CD 

A8 

DC 

CALL 

DCA8 

DC81 

38 

Fl 


JR 

C,DC74 

DC83 

F6 

FF 


OR 

FF 

DC85 

36 

00 


LD 

(HL),00 

DC87 

El 



POP 

HL 

DC88 

CO 



RET 

NZ 

DC89 

FE 

0D 


CP 

0D 

DC8B 

C8 



RET 

Z 

DC8C 

FE 

22 


CP 

22 

DC8E 

C4 

DO 

DC 

CALL 

NZ,DCD0 

DC91 

CO 



RET 

NZ 

DC92 

CD 

9D 

DC 

CALL 

DC9D 

DC95 

DO 



RET 

NC 

DC96 

CD 

CA 

DC 

CALL 

DCCA 

DC99 

C4 

14 

C4 

CALL 

NZ,C414 

DC9C 

C9 



RET 



********************************** 


DC9D 

CD 

A8 

DC 

CALL 

DCA8 

DCA0 

DO 



RET 

NC 

DCA1 

CD 

DO 

DC 

CALL 

DCD0 

DCA4 

28 

F7 


JR 

Z,DC9D 

DCA6 

37 



SCF 


DCA7 

C9 



RET 



********************************** 


DCA8 

CD 24 C4 

CALL 

C424 

DCAB 

DO 

RET 

NC 

DCAC 

C5 

PUSH 

BC 

DCAD 

FE OD 

CP 

OD 

DCAF 

06 OA 

LD 

B,0A 

DCB1 

28 05 

JR 

Z,DCB8 

DCB3 

B8 

CP 

B 

DCB4 

20 OD 

JR 

NZ,DCC3 


Eingabezeile (von Kassette) holen 
OUT: HL: Zeiger auf Eingabezeile 
Zeichen holen 
Fehler ? dann "EOF met" 

Adr. für Test auf CR 

Eingabe bis Trennzeichen holen 
IN : A: 1. Eingabezeichen 

DE: Adresse der Testroutine 
für Trennzeichen 
OUT: HL: Zeiger auf Eingabe 
Zeiger auf Eingabebuffer 
retten 

max. Bufferlä'nge 
Trennzeichen ? 
dann Eingabe-Ende 
sonst Zeichen in Buffer 
Bufferzeiger 
restliche Bufferlänge 
Buffer voll ? dann Fehler 
sonst Zeichen holen 
kein EOF ? dann weiter 
Flag für Fehler, Z=0 
Null ans Bufferende 
Zeiger auf Eingabe 
Fehler ? dann zurück 
CR ? 

dann zurück 

I IM 9 

ggf. Test auf Space, TAB, LF 

nein ? dann zurück 

sonst nächstes Zeichen 

EOF ? dann zurück 

Test auf Komma/CR 

nein ? dann Zeichen zurück 


Zeichen hol., " ", TAB, LF überl. 
OUT: A: Zeichen 
CY=0 bei EOF 
Zeichen holen 
EOF ? 

auf Space, TAB, LF prüfen 
ja ? dann nächstes Zeichen 
CY=1 für fehlerfrei 


Zeichen holen, CR/LF auswerten 
OUT: A: Zeichen 
CY=0 bei EOF 
Zeichen holen 
EOF ? dann zurück 

CR ? 

Code für Linefeed 
CR ? dann auf LF testen 
Linefeed ? 
nein ? 
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DCB6 

06 

0D 


LD 

B,0D 

DCB8 

4F 



LD 

C,A 

DCB9 

CD 

24 

C4 

CALL 

C424 

DCBC 

30 

04 


JR 

NC,DCC2 

DCBE 

B8 



CP 

B 

DCBF 

C4 

14 

C4 

CALL 

NZ,C414 

DCC2 

79 



LD 

A.C 

DCC3 

CI 



POP 

BC 

DCC4 

37 



SCF 


DCC5 

C9 



RET 



********************************** 


DCC6 

CD 

DO DC 

CALL 

DCDO 

DCC9 

C8 


RET 

Z 

DCCA 

FE 

2C 

CP 

2C 

DCCC 

C8 


RET 

Z 

DCCD 

FE 

0D 

CP 

0D 

DCCF 

C9 


RET 



********************************** 


DCDO 

FE 

20 

CP 

20 

DCD2 

C8 


RET 

Z 

DCD3 

FE 

09 

CP 

09 

DCD5 

C8 


RET 

Z 

DCD6 

FE 

0A 

CP 

OA 

DCD8 

C9 


RET 


********************************** 

DCD9 

28 

OA 

JR 

Z,DCE5 

DCDB 

CD 

El CE 

CALL 

CEE1 

DCDE 

E5 


PUSH 

HL 

DCDF 

CD 

9A E7 

CALL 

E79A 

DCE2 

2B 


DEC 

HL 

DCE3 

18 

2D 

JR 

DD12 

DCE5 

E5 


PUSH 

HL 

DCE6 

2A 

81 AE 

LD 

HL, (AE81) 

DCE9 

18 

27 

JR 

DD12 


********************************** 


DCEB 

E5 



PUSH 

HL 

DCEC 

2A 

30 

AE 

LD 

HL,(AE30) 

DCEF 

CD 

17 

DD 

CALL 

DD17 

DCF2 

E3 



EX 

(SP),HL 

DCF3 

CD 

86 

D6 

CALL 

D686 

DCF6 

E3 



EX 

(SP),HL 

DCF7 

23 



INC 

HL 

DCF8 

3E 

3A 


LD 

A,3A 

DCFA 

CD 

BC 

DB 

CALL 

DBBC 

DCFD 

2B 



DEC 

HL 

DCFE 

28 

OB 


JR 

Z,DD0B 

DDOO 

2A 

2E 

AE 

LD 

HL,(AE2E) 

DD03 

CD 

CE 

DD 

CALL 

DDCE 

DD06 

iE 

02 


LD 

E,02 

DD08 

C3 

94 

CA 

JP 

CA94 


auf folgendes CR prüfen 
Zeichen 

nächstes Zeichen 
EOF ? 

sonst auf LF/CR prüfen 
nein ? dann Zeichen zurück 
Zeichen 

CY=1 für fehlerfrei 


Space, TAB, LF, Komma, CR prüfen 
IN : A: Zeichen 
OUT: Z=1, wenn Test positiv 
Test auf Space, TAB, LF 
Test positiv ? 

II II 7 
i 

CR ? 


auf Space, TAB, LF prüfen 
IN : A: Zeichen 
OUT: Z=1, wenn Test positiv 
Space ? 

TAB ? 

LF ? 


Basic-Befehl RESTORE 
Statementende ? 

Zeilennr. holen, nach DE 
Basic-PC retten 
Zeile im Programm suchen 
Zeiger auf Zeilenende 
als DATA-Zeiger setzen 
Basic-PC retten 
Zeiger auf Programmstart 
als DATA-Zeiger setzen 

Basic-Befehl READ 
Basic-PC retten 
DATA-Zeiger 

nächstes DATA-Element suchen 

Variable holen, Adr. n. DE 

Zeiger auf DATA-Element 
als Trennzeichen 
DATA-Element an Var. zuweisen 
Zeiger vor nächstes Element 
Komma/Zeilenende ? 
sonst DATA-Zeilenadresse 
als akt. Zeilenadr. f. Fehler 
Nr. für "Syntax error" 

Fehler ausgeben 
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DDOB 

E3 


EX 

(SP) f HL 


DDOC 

CD 

55 DD 

CALL 

DD55 

folgt Komma im Programm ? 

DDOF 

E3 


EX 

(SP),HL 


DDlO 

38 

DD 

JR 

C,DCEF 

dann nächste Variable 

DD 12 

22 

30 AE 

LD 

(AE30),HL 

DATA-Zeiger wieder speichern 

DD15 

El 


POP 

HL 

Basic-PC zurück 

DD16 

C9 


RET 



********************************** 

nächstes DATA-Element suchen 






IN/OUT: HL: DATA-Zeiger 

DD17 

7E 


LD 

A,(HL) 

nächstes Zeichen 

DD18 

FE 

2C 

CP 

2C 

Kotrana ? 

DD1A 

C8 


RET 

Z 

dann fertig 

DD1B 

CD 

EF E8 

CALL 

E8EF 

nächstes Statement suchen 

DD1E 

B7 


OR 

A 


DD1F 

20 

OE 

JR 

NZ,DD2F 

kein Zeilenende ? 

DD21 

23 


INC 

HL 


DD22 

7E 


LD 

A, (HL) 


DD23 

23 


INC 

HL 

nächste Zeilenlänge=0 ? 

DD24 

B6 


OR 

(HL) 

(Progranmende ?) 

DD25 

23 


INC 

HL 


DD26 

IE 

04 

LD 

E, 04 

Nr. für "DATA exhausted" 

DD28 

CA 

94 CA 

JP 

Z,CA94 

Fehler, wenn Progranmende 

DD2B 

22 

2E AE 

LD 

(AE2E),HL 

DATA-Zeilenadresse setzen 

DD2E 

23 


INC 

HL 

Zeiger auf Zeilennr. hi 

DD2F 

CD 

3F DD 

CALL 

DD3F 

Zeichen aus Zeile 

DD32 

FE 

8 C 

CP 

8 C 

Token für DATA ? 

DD34 

20 

E5 

JR 

NZ,DD1B 

nein ? dann weiter suchen 

DD36 

C9 


RET 



********************************** 

Test auf Zeichen nach Aufruf 






OUT: A: folgendes Zeichen 






CY=0 (immer); Z=1, wenn Statementende 

DD37 

E3 


EX 

(SP),HL 

PC retten, Aufrufadr. v. Stack 

DD38 

7E 


LD 

A,(HL) 

Zeichen nach Aufrufbefehl 

DD39 

23 


INC 

HL 

neue Rücksprungadresse 

DD3A 

E3 


EX 

(SP),HL 

auf Stack, PC zurück 

DD3B 

BE 


CP 

(HL) 

mit Zeichen im Programm vergl. 

DD3C 

C2 

C6 DD 

JP 

NZ,DDC6 

ungleich ? dann "Syntax error" 

********************************** 

nächstes Zeichen holen 






OUT: A: Zeichen 






CY=0 (immer); Z=1, wenn Statementende 

DD3F 

23 


INC 

HL 

Basic-PC erhöhen 

DD40 

7E 


LD 

A,(HL) 

nächstes Zeichen 

DD41 

FE 

20 

CP 

20 

Space ? 

DD43 

28 

FA 

JR 

Z,DD3F 

dann nächstes Zeichen 

DD45 

FE 

01 

CP 

01 

ii.ii 9 

DD47 

DO 


RET 

NC 

kein Zeilenende ? dann zurück 

DD48 

B7 


OR 

A 

Z=1 bei Zeilenende, CY=0 

DD49 

C9 


RET 



********************************** 

auf Statementende prüfen 

DD4A 

7E 


LD 

A, (HL) 

Zeichen 

DD4B 

FE 

02 

CP 

02 

":"/Zeilenende ? 

DD4D 

D8 


RET 

C 

dann o.k. 

DD4E 

C3 

C6 DD 

JP 

DDC6 

sonst "Syntax error" 
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********************************** 


DD51 

7E 

LD 

A, (HL) 

DD52 

FE 02 

CP 

02 

DD54 

C9 

RET 


********************************** 


DD55 

2 B 



DEC 

HL 

DD56 

CD 

3F 

DD 

CALL 

DD3F 

DD59 

EE 

2C 


XOR 

2C 

DD5B 

CO 



RET 

NZ 

DD5C 

CD 

3F 

DD 

CALL 

DD3F 

DD5F 

37 



SCF 


DD60 

C9 



RET 


********************************** 

DD61 

7E 



LD 

A,(HL) 

DD62 

23 



INC 

HL 

DD63 

FE 

20 


CP 

20 

DD65 

28 

FA 


JR 

Z,DD61 

DD67 

FE 

09 


CP 

09 

DD69 

28 

F6 


JR 

Z,DD61 

DD6B 

FE 

0A 


CP 

0A 

DD6D 

28 

F2 


JR 

Z,DD61 

DD6F 

2B 



DEC 

HL 

DD 70 

C9 



RET 


********************************** 

DD71 

2A 

34 

AE 

LD 

HL,(AE34) 

********************************** 

DD 74 

EB 



EX 

DE,HL 

DD75 

2A 

8 B 

80 

LD 

HL,(B08B) 

DD78 

22 

32 

AE 

LD 

(AE32),HL 

DD7B 

EB 



EX 

DE,HL 

DD7C 

22 

34 

AE 

LD 

(AE34),HL 

DD7F 

CD 

21 

B9 

CALL 

B921 

DD82 

DC 

07 

C8 

CALL 

C,C807 

DD85 

CD 

3F 

DD 

CALL 

DD3F 

DD88 

C4 

AB 

DD 

CALL 

NZ,DDAB 

DD8B 

7E 



LD 

A, (HL) 

DD8C 

FE 

01 


CP 

01 

DD8E 

28 

E4 


JR 

Z,DD74 

DD90 

30 

34 


JR 

NC,DDC6 

DD92 

23 



INC 

HL 

DD93 

7E 



LD 

A, (HL) 

DD94 

23 



INC 

HL 

DD95 

B6 



OR 

(HL) 

DD96 

23 



INC 

HL 

DD97 

28 

0F 


JR 

Z,DDA8 

DD99 

22 

36 

AE 

LD 

(AE36),HL 

DD9C 

23 



INC 

HL 

DD9D 

3A 

38 

AE 

LD 

A, (AE38) 


Test auf Statementende 
OUT: A: Zeichen 

CY=1 bei Statementende 
Zeichen 

":"/Zeilenende ? 


Test auf Komma 
OUT: CY=1, wenn Komma 
dann: 

A: Zeichen nach Komma 
vorheriges Zeichen 
nächstes Zeichen 
",» ? (CY=0) 
nein ? dann zurück 
sonst nächstes Zeichen 
CY=1 für Komma 


Spaces, TABs und LFs überlesen 
OUT: A: folgendes Zeichen 
Zeichen 

Space ? 

TAB ? 

LF ? 

sonst Zeiger wieder zurück 


Statement nochmals ausführen 
Zeiger auf Statement als PC 

Interpreterschleife 
PC nach DE 
Basic-Stackpointer 
als Statementanfangs-SP setzen 
PC wieder nach HL 
Statementanfangs-PC setzen 
KL POLL SYNCHRONOUS 
Event bear., wenn Prior, höher 
nächstes Zeichen 
Statementende ? sonst Befehl 
Zeichen 

II - ll 9 

dann nächster Befehl 

kein Zeilenende ? dann Fehler 

Zeilenende übergehen 

nächste Zeilenlänge =0 ? 
(Programnende ?) 

dann Programmende behandeln 
sonst neue Zeilenadr. setzen 
Zeiger vor Zeilentext 
Trace-Flag 
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DDAO 

B7 


OR 

Ä 

DDA1 

28 

Dl 

JR 

Z,DD74 

DDA3 

CD 

EB DD 

CALL 

DDEB 

DDA6 

18 

CC 

JR 

DD74 

DDA8 

C3 

76 CB 

JP 

CB76 

********************************** 

DDAB 

87 


ADD 

A 

DDAC 

D2 

4F D6 

JP 

NC.D64F 

DDAF 

FE 

B9 

CP 

B9 

DDB1 

30 

10 

JR 

NC.DDC3 

DDB3 

EB 


EX 

DE,HL 

DDB4 

C6 

01 

ADD 

01 

DDB6 

6 F 


LD 

L.A 

DDB7 

CE 

DE 

ADC 

de 

DDB9 

95 


SUB 

L 

DDBA 

67 


LD 

H,A 

DDBB 

4E 


LD 

C,(HL) 

DDBC 

23 


INC 

HL 

DDBD 

46 


LD 

B,(HL) 

DDBE 

C5 


PUSH 

BC 

DDBF 

EB 


EX 

DE,HL 

DDCO 

C3 

3F DD 

JP 

DD3F 

DDC3 

CD 

07 AC 

CALL 

AC07 

DDC6 

IE 

02 

LD 

E,02 

DDC8 

C3 

94 CA 

JP 

CA94 

********************************** 

DDCB 

21 

00 00 

LD 

HL,0000 

DDCE 

22 

36 AE 

LD 

(AE36),HL 

DDD1 

C9 


RET 


********************************** 

DDD2 

2A 36 AE 

LD 

HL,(AE36) 

DDD5 

C9 


RET 



****************** ********* ******* 


DDD6 

2A 36 AE 

LD 

HL,(AE36) 

DDD9 

7C 

LD 

A, H 

DDDA 

B5 

OR 

L 

DDDB 

C8 

RET 

Z 

DDDC 

7E 

LD 

A,(HL) 

DDDD 

23 

INC 

HL 

DDDE 

66 

LD 

H,(HL) 

DDDF 

6 F 

LD 

L.A 

DDE0 

37 

SCF 


DDE1 

C9 

RET 



**************** ******** ********** 

DDE2 3E FF LD A,FF 

DDE4 18 01 JR DDE7 


nicht gesetzt ? 
dann nächster Befehl 
Trace-Rout ine 
nächster Befehl 
Programmende behandeln 

Befehl ausführen 
IN : A: Token 

2 Bytes pro Tabelleneintrag 
Code <$80 ? dann LET/RSX-Code 
Token >$DC ? 
dann Fehler 
Basic-PC nach DE 

$DE01, Adresse der Tabelle 
der Befehlsadressen addieren 


Adresse des Befehls 
aus Tabelle laden 
Befehlsadresse auf Stack 
Basic-PC wieder nach HL 
nächstes Zeichen, Befehl ausf. 

User-Vektor 

Nr. für "Syntax error" 

Fehler ausgeben 

Direkt-Modus einschalten 
Flag für Direkt-Modus 
als akt. Zeilenadresse 


Zeilenadresse nach HL holen 
Zeilenadresse 


Zeilennr./Direkt-Modus-Flag holen 
OUT: HL: Zei lennurrmer 

Z—1, CY=0, wenn Direkt-Modus 
akt. Zeilenadresse 
Kennzeichen für 
Direkt-Modus ? (CY=0!) 
dann zurück 

Zeilennr. nach HL 


CY=1 für Programm-Modus 


Basic-Befehl TRON 

Flag für Trace eingeschaltet 
setzen 
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****** **************************** 


DDE6 

AF 




XOR 


A 

DDE7 

32 

38 

AE 


LD 


(AE38),A 

DDEA 

C9 




RET 



********************************** 

DDEB 

3E 

5B 



LD 


A,5B 

DDED 

CD 

56 

C3 


CALL 

C356 

DDFO 

E5 




PUSH 


HL 

DDF1 

2A 

36 

AE 


LD 


HL,(AE36) 

DDF4 

7E 




LD 


A, (HL) 

DDF5 

23 




INC 


HL 

DDF6 

66 




LD 


H, (HL) 

DDF7 

6 F 




LD 


L,A 

DDF8 

CD 

79 

EE 


CALL 

EE79 

DDFB 

El 




POP 


HL 

DDFC 

3E 

5D 



LD 


A,5D 

DDFE 

C3 

56 

C3 


JP 


C356 

********************************** 

DE01 

71 

C9 

DF 

CO 

21 C2 

BA 

Fl 

DE09 

46 

D2 

3C 

EA 

32 CI 

B5 

C4 

D E11 

98 

D2 

AI 

D2 

5A C2 

C0 

CB 

DE19 

EF 

E8 

17 

Dl 

18 D6 

IC 

D6 

DE21 

14 

D6 

E7 

D4 

28 E7 

7D 

D6 

DE29 

C6 

C4 

CB 

C4 

52 CO 

F3 

E8 

DE31 

65 

CB 

85 

D3 

4E D3 

CO 

D9 

DE39 

8 F 

CA 

79 

C9 

29 C5 

ED 

C6 

DE41 

E8 

C6 

C7 

C6 

2A C2 

2B 

DB 

DE49 

39 

D4 

54 

D6 

F8 DA 

F7 

EO 

DE51 

F6 

E9 

D2 

C2 

EF F4 

A6 

EA 

DE59 

93 

F9 

4F 

C2 

05 C5 

0A 

C5 

DE61 

FB 

C5 

2B 

CI 

E3 C7 

CB 

C8 

DE69 

F8 

CB 

40 

C9 

5F D2 

56 

D2 

DE71 

8 C 

C4 

77 

Fl 

0A C2 

12 

C2 

DE79 

DO 

C4 

D5 

C4 

5F Fl 

FD 

Fl 

DE81 

F3 

E8 

EB 

D4 

59 D5 

EB 

DC 

DE89 

IE 

D3 

F3 

E8 

DF E7 

D9 

DC 

DE91 

03 

CC 

0F 

C7 BD E9 

09 

EC 

DE99 

CO 

D2 

94 

D4 

5A CB 

9D 

F6 

DEA1 

19 

C3 

20 

C3 

E6 DD 

E2 

DD 

DEA9 

7D 

Fl 

76 

C7 47 C7 

E3 

C3 

DEB1 

El 

C2 

7B 

F4 

F6 Fl 

El 

C8 

DEB9 

E7 

C8 






********************************** 


DEBB 

D5 



PUSH 

DE 

DEBC 

EB 



EX 

DE,HL 

DEBD 

2A 

7F 

AE 

LD 

HL,(AE7F) 

DECO 

EB 



EX 

DE,HL 

DEC1 

D5 



PUSH 

DE 

DEC2 

AF 



XOR 

A 

DEC3 

32 

39 

AE 

LD 

(AE39),A 

DEC6 

01 

2C 

01 

LD 

BC,012C 


8 asic-Befehl TROFF 

Flag für Trace ausgeschaltet 
Trace-Flag setzen 


Trace-Rout ine 

eckige Klammer auf 
ausgeben 
Basic-PC retten 
akt. Zeilenadresse 

Zeilennunmer laden 


und ausgeben 
Basic-PC zurück 
eckige Klammer zu 
ausgeben 

Adressen der Basic-Befehle 
AFTER, AUTO, BORDER, CALL 
CAT, CHAIN, CLEAR, CLG 
CLOSEIN, CLOSEOUT, CLS, CONT 
DATA, DEF, DEFINT, DEFREAL 
DEFSTR, DEG, DELETE, DIM 
DRAU, DRAWR, EDIT, ELSE 
END, ENT, ENV, ERASE 
ERROR, EVERV, FOR, GOSUB 
GOTO, IF, INK, INPUT 
KEY, LET, LINE, LIST 
LOAD, LOCATE, MEMORY, MERGE 
MID$, MODE, HOVE, MOVER 
NEXT, NEW, ON, ON BREAK 
ON ERROR GOTO 0, ON SQ, 

OPENIN, OPENOUT 
ORIGIN, OUT, PAPER, PEN 
PLOT, PLOTR, POKE, PRINT 
1 , RAD, RANDOMIZE, READ 
RELEASE, REM, RENUM, RESTORE 
RESUME, RETURN, RUN, SAVE 
SOUND, SPEED, STOP, SYMBOL 
TAG, TAGOFF, TROFF, TRON 
UAIT, WEND, WHILE, WIDTH 
WINDOW, WRITE, ZONE, DI 
EI 

Zeile tokenisieren 
IN : HL: Zeiger auf Eingabezeile 
OUT: HL: Zeiger auf token. Zeile 
BC: Länge der tokenis. Zeile 

Start des freien RAMs 
als Buffer für tokenisierte 
Zeiger auf Zeile nach DE 
Zeiger auf Buffer retten 
Flag für Variable/Zeilennr. 
löschen 

max. Bufferlänge 
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DEC9 

CD El DE 

CALL 

DEE1 

DECC 

7E 

LD 

A, (HL) 

DECD 

B7 

OR 

A 

DECE 

20 F9 

JR 

NZ,DEC9 

DEDO 

3E 2D 

LD 

A, 2D 

DED2 

91 

SUB 

C 

DED3 

4F 

LD 

C, A 

DED4 

3E 01 

LD 

A, 01 

DED6 

98 

SBC 

8 

DED7 

47 

LD 

B,A 

DED8 

AF 

XOR 

A 

DED9 

12 

LD 

(DE),A 

DEDA 

13 

INC 

DE 

DEDB 

12 

LD 

(DE),A 

DEDC 

13 

INC 

DE 

DEDD 

12 

LD 

<DE),A 

DEDE 

El 

POP 

HL 

DEDF 

Dl 

POP 

DE 

DEEO 

C9 

RET 



****■&**#**☆**■&** 'kirtelt'k'k'k'k ********** 


DEE1 

CD 

10 

AC 

CALL 

AC10 

DEE4 

7E 



LD 

A, (HL) 

DEE5 

B7 



OR 

A 

DEE6 

C8 



RET 

Z 

DEE7 

CD 

71 

FF 

CALL 

FF71 

DEEA 

38 

ID 


JR 

C,DF09 

DEEC 

CD 

7F 

FF 

CALL 

FF7F 

DEEF 

DA 

FF 

DF 

JP 

C,DFFF 

DEF2 

FE 

26 


CP 

26 

DEF4 

CA 

5A 

E0 

JP 

Z,E05A 

DEF7 

23 



INC 

HL 

DEF8 

FE 

80 


CP 

80 

DEFA 

DO 



RET 

NC 

DEFB 

FE 

20 


CP 

20 

DEFD 

C2 

80 

E0 

JP 

NZ,E080 

DF00 

3A 

00 

AC 

LD 

A,(AC00) 

DF03 

B7 



OR 

A 

DF04 

CO 



RET 

NZ 

DF05 

3E 

20 


LD 

A,20 

DF07 

18 

IC 


JR 

DF25 




DF09 

CD 

4E 

DF 

CALL 

DF4E 

DF0C 

D8 



RET 

C 

DF0D 

FE 

C5 


CP 

C5 

DF0F 

CA 

ED 

E0 

JP 

Z,E0ED 

DF12 

E5 



PUSH 

HL 

D F13 

21 

30 

DF 

LD 

HL,DF30 

DF16 

CD 

AA 

FF 

CALL 

FFAA 

DF19 

El 



POP 

HL 

DF1A 

38 

19 


JR 

C,DF35 

DF1C 

F5 



PUSH 

AF 

DF1D 

FE 

97 


CP 

97 

DF1F 

3E 

01 


LD 

A, 01 

DF21 

CC 

25 

DF 

CALL 

Z,DF25 

DF24 

Fl 



POP 

AF 


nächstes Item tokenisieren 

Zeichen 

Zeilenende ? 

nein ? d. weiter tokenisieren 
S012D (max. Länge) 

- restliche Länge 
ergibt 
Länge der 
tokenisierten 
Zeile, nach BC 
Null 

ans Zeilenende 

zwei Nullen als Kennzeichen 
für Programmende 

Zeiger auf tokenisierte Zeile 


ein Item tokenisieren 
User-Vektor 
Zeichen aus Eingabe 
Zeilenende ? 
dann zurück 
Buchstabe ? 
dann auswerten 
Ziffer oder Dezimalpunkt ? 
dann Dezimal zahl auswerten 
"&» ? 

dann Hex- oder Binärzahl 
Zeiger auf nächstes Zeichen 
Sonderzeichen >=$80 ? 
dann zurück 
Space ? 

nein ? dann weiter prüfen 

Flag für Space-Unterdrückung 

gesetzt ? 

dann zurück 

sonst Space 

in Buffer schreiben 

Buchstaben auswerten 

Keyword/Variable tokenisieren 

kein Befehls-Token ? d. zurück 

Token für REM ? 

dann restl. Zeile übernehmen 

Eingabezeiger retten 

Zeiger auf Tabelle 

Token in Tabelle enthalten ? 

Eingabezeiger 

dann bis Statementende übern. 
Token retten 
Token für ELSE ? 

Token für 

dann mit abspeichern 
Token zurück 
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********************************** 


DF25 

12 



LD 

<DE),A 

DF26 

13 



INC 

DE 

DF27 

OB 



DEC 

BC 

DF28 

79 



LD 

A,C 

DF29 

BO 



OR 

B 

DF2A 

CO 



RET 

NZ 

DF2B 

IE 

17 


LD 

E, 17 

DF2D 

C3 

94 

CA 

JP 

CA94 

*********************************** 

DF30 

8 C 





DF31 

8 E 





DF32 

90 





DF33 

8 F 





DF34 

00 





********************************** 

DF35 

CD 

25 

DF 

CALL 

DF25 

DF38 

7E 



LD 

A, (HL) 

DF39 

B7 



OR 

A 

DF3A 

C8 



RET 

Z 

DF3B 

FE 

3A 


CP 

3A 

DF3D 

28 

0A 


JR 

Z,DF49 

DF3F 

23 



INC 

HL 

DF40 

FE 

22 


CP 

22 

DF42 

20 

Fl 


JR 

NZ.DF35 

DF44 

CD 

BF 

E0 

CALL 

E0BF 

DF47 

18 

EF 


JR 

DF38 

DF49 

AF 



XOR 

A 

DF4A 

32 

39 

AE 

LD 

(AE39),A 

DF4D 

C9 



RET 


********************************** 

DF4E 

C5 



PUSH 

BC 

DF4F 

D5 



PUSH 

DE 

DF50 

E5 



PUSH 

HL 

DF51 

CD 

16 

AC 

CALL 

AC16 

DF54 

7E 



LD 

A,(HL) 

DF55 

23 



INC 

HL 

DF56 

CD 

8 A 

FF 

CALL 

FF8A 

DF59 

CD 

DD 

E2 

CALL 

E2DD 

DF5C 

CD 

27 

E3 

CALL 

E327 

DF5F 

30 

28 


JR 

NC.DF89 

DF61 

79 



LD 

A, C 

DF62 

E6 

7F 


AND 

7F 

DF64 

CD 

7B 

FF 

CALL 

FF7B 

DF67 

30 

OB 


JR 

NC.DF74 

DF69 

1 A 



LD 

A, (DE) 

DF6A 

FE 

E4 


CP 

E4 

DF6C 

28 

06 


JR 

Z,DF74 

DF6E 

7E 



LD 

A, (HL) 

DF6F 

CD 

7B 

FF 

CALL 

FF7B 

DF72 

38 

15 


JR 

C,DF89 


Zeichen in Token-Buffer 
IN : A: Zeichen 

(DE: Bufferzeiger 
BC: restl. Bufferlänge) 
Zeichen abspeichern 
Bufferzeiger erhöhen 
restliche Bufferlänge 

noch Platz im Buffer ? 
dann o.k. 

Nr. für "Line too long" 

Fehler ausgeben 

Tabelle der Tokens mit Sonderteil 
DATA 
DE FI MT 
DEFSTR 
DEFREAL 
Tabellenende 

ZI. bis Statementende übernehmen 
Zeichen in Buffer speichern 
Zeichen aus Eingabe 
Zeilenende ? 
dann zur 

li • II 7 

dann Flags löschen, zurück 
Eingabezeiger 

I II I 7 

nein ? dann weiter übertragen 

String übertragen 

weiter übertragen 

Flag für Variable/Zeilennr. 

löschen 


Keyword/Variable tokenisieren 
OUT: CY=0 für Befehlstoken 
restliche Bufferlänge, 
Bufferzeiger 

und Eingabezeiger retten 

User-Vektor 

Zeichen 

Eingabezeiger 

auf Großschrift forcieren 

entspr. Keyword-Tabellenadr. 

Eingabe in Keyword-Tabelle s. 

nicht gefunden ? d. Var.-Name 

letztes Zeichen des Keywords 

Ziffer, Buchstabe oder ". ll ? 
nein ? dann Keyword gefunden 
Token laden 
Token für FN ? 
dann Keyword gefunden 
Zeichen nach Keyword 
Ziffer, Buchstabe oder ? 
dann nicht zu Ende, Variable 
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DF74 

Fl 



POP 

AF 

DF75 

1A 



LD 

A, (DE) 

DF76 

B7 



OR 

A 

DF77 

FA 

C8 

DF 

JP 

M,DFC8 

DF7A 

Dl 



POP 

DE 

DF 78 

CI 



POP 

BC 

DF7C 

F5 



PUSH 

AF 

DF7D 

3E 

FF 


LD 

A, FF 

DF7F 

CD 

25 

DF 

CALL 

DF25 

DF82 

Fl 



POP 

AF 

DF83 

CD 

25 

DF 

CALL 

DF25 

DF86 

AF 



XOR 

A 

DF87 

18 

3A 


JR 

DFC3 

********************************** 

DF89 

El 



POP 

HL 

DF8A 

Dl 



POP 

DE 

DF8B 

CI 



POP 

BC 

DF8C 

E5 



PUSH 

HL 

DF8D 

2B 



DEC 

HL 

DF8E 

23 



INC 

HL 

DF8F 

7E 



LD 

A, (HL) 

DF90 

CD 

7B 

FF 

CALL 

FF7B 

DF93 

38 

F9 


JR 

C,DF8E 

DF95 

CD 

EA 

DF 

CALL 

DFEA 

DF98 

38 

04 


JR 

C,DF9E 

DF9A 

3E 

0D 


LD 

A,0D 

DF9C 

18 

06 


JR 

DFA4 

DF9E 

23 



INC 

HL 

DF9F 

FE 

05 


CP 

05 

DFA1 

20 

01 


JR 

NZ,DFA4 

DFA3 

3D 



DEC 

A 

DFA4 

CD 

25 

DF 

CALL 

DF25 

DFA7 

AF 



XOR 

A 

DFA8 

CD 

25 

DF 

CALL 

DF25 

DFAB 

AF 



XOR 

A 

DFAC 

CD 

25 

DF 

CALL 

DF25 

DFAF 

E3 



EX 

(SP),HL 

DFBO 

7E 



LD 

A, (HL) 

DFBl 

CD 

7B 

FF 

CALL 

FF7B 

DFB4 

30 

07 


JR 

NC,DFBD 

DFB6 

7E 



LD 

A, (HL) 

DFB7 

CD 

25 

DF 

CALL 

DF 25 

DFBA 

23 



INC 

HL 

DFBB 

18 

F3 


JR 

DFBO 

DFBD 

CD 

DF 

E0 

CALL 

E0DF 

DFCO 

El 



POP 

HL 

DFC1 

3E 

FF 


LD 

A, FF 

DFC3 

32 

39 

AE 

LD 

(AE39),A 

DFC6 

37 



SCF 


DFC7 

C9 



RET 


********************************** 


DFC8 

E5 

PUSH 

HL 

DFC9 

4F 

LD 

C, A 

DFCA 

21 DC DF 

LD 

HL.DFDC 


Eingabezefger löschen 
Token laden 

Befehls-Token ? 

Bufferzeiger 

und restl. Länge zurück 

Token retten 

Kennz. für Funktion 

in Buffer 

Funktions-Token 

in Buffer 

Flag für Variable/Zeilennr. 
löschen 

Variablennamen auswerten 
Eingabezeiger auf Namen 
Token-Buffer-Zeiger 
restliche Bufferlänge 
Eingabezeiger 

nächstes Zeichen 
laden 

Buchstabe, Ziffer, ? 

dann nächstes Zeichen 

Variablentyp prüfen 

Kennz. ("%", "!") ? 

sonst Token f. umarkierte Var. 

abspeichern 

Eingabezeiger 

REAL-Variable ? 

sonst abspeichern 

4, Token für REAL-Variable 

in Token-Buffer 

2 Nullen für Offset 
in Token-Buffer 

Eing.-Zg. retten, alter zurück 
Zeichen aus Variablenname 
Buchstabe, Ziffer oder ? 
nein ? dann Name zu Ende 
Zeichen 

in Token-Buffer speichern 
Eingabezeiger 
nächstes Zeichen 
Endmarkierung setzen 
Zeiger nach Variable 
Kennz. für Variable 
setzen 

CY=1 für kein Befehlstoken 


Befehlstoken behandeln 
IN/OUT : A: Token 
CY=0, da Befehlstoken 
Eingabezeiger 
Token 

Tabellenadr. f. Zeilennr.-Bef. 
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DFCD 

CD 

AA 

FF 

CALL 

FFAA 

DFDO 

9F 



SBC 

A 

D FD 1 

E6 

01 


AND 

01 

DFD3 

32 

39 

AE 

LD 

(AE39),A 

DFD6 

79 



LD 

A, C 

DFD7 

El 



POP 

HL 

DFD8 

Dl 



POP 

DE 

DFD9 

CI 



POP 

BC 

DFDA 

B7 



OR 

A 

DFDB 

C9 



RET 



rt *#*#☆*#*** * * rt *** *#☆##*☆*☆* *r 


DFDC 

C7 

81 

C6 

92 

DFEO 

96 

C8 

E3 

97 

DFE4 

CA 

A7 

A0 

EB 

DFE8 

9F 

00 






DFEA 

FE 

26 


CP 

26 

DFEC 

DO 



RET 

NC 

DFED 

FE 

21 


CP 

21 

DFEF 

3F 



CCF 


DFF0 

DO 



RET 

NC 

DFF1 

FE 

22 


CP 

22 

DFF3 

C8 



RET 

Z 

DFF4 

FE 

23 


CP 

23 

DFF6 

C8 



RET 

Z 

DFF7 

EE 

27 


XOR 

27 

DFF9 

FE 

04 


CP 

04 

DFFB 

CE 

FF 


ADC 

FF 

DFFD 

37 



SCF 


DFFE 

C9 



RET 


☆ 'klrklrtoirk •k'k'kitit'k'kit'k'k ■k’kit $c ****** 

DFFF 

3A 

39 

AE 

LD 

A, (AE39) 

E002 

B7 



OR 

A 

E003 

28 

15 


JR 

Z,E01A 

E005 

7E 



LD 

A,(HL) 

E006 

23 



INC 

HL 

E007 

FA 

25 

DF 

JP 

M,DF25 

E00A 

FE 

2E 


CP 

2E 

E00C 

CA 

25 

DF 

JP 

Z,DF25 

E00F 

2B 



DEC 

HL 

E010 

D5 



PUSH 

DE 

E 011 

CD 

04 

EE 

CALL 

EE04 

E014 

30 

34 


JR 

NC,E04A 

E016 

3E 

1E 


LD 

A, 1E 

E018 

18 

4F 


JR 

E069 

E01A 

D5 



PUSH 

DE 

E01B 

C5 



PUSH 

BC 

E01C 

CD 

BE 

EC 

CALL 

ECBE 

E01F 

CI 



POP 

BC 

E020 

30 

28 


JR 

NC,E04A 

E022 

CD 

27 

FF 

CALL 

FF27 

E025 

3E 

1F 


LD 

A, 1 F 


Token in Tabelle suchen 
A=$FF, wenn gefunden, sonst 0 
A=1, wenn gefunden, sonst 0 
Flag für Zeilennr. setzen 
T oken 

Eingabezeiger 
Token-Buffer-Zeiger 
und restl. Bufferlänge 
CY=0 für Befehlstoken 


Tabelle der Tokens mit Zeilennr. 
RESTORE, AUTO, RENUM, DELETE 
EDIT, RESUME, ERL, ELSE 
RUN, LIST, GOTO, THEN 
GOSUB, Tabellenende 

Variablentyp feststellen 

IN : A: Zeichen 

OUT: CY=1 für "!" 

A: Typ 
größer "%" ? 
dann zurück 
kleiner "!" ? 

dann zurück 

l ii I 9 

dann zurück 
"# M ? 

dann zurück 
Variablentyp (2,3,5) 
generieren 

CY=1 für Variablenende 


Dezimalzahl tokenisieren 

Flag für Variable/Zeilennr. 
Flag für Zeilennr. ? 
nein ? dann Integer/REAL-Zahl 
nächstes Zeichen 
Eingabezeiger 

Zeichen >=$80 ? dann speichern 

ii ii 9 

dann so speichern 

Zeiger wieder auf 1. Ziffer 

Bufferzeiger retten 

String n. Zahl im FAC wandeln 

Fehler ? d. Zahl so speichern 

Token für Zeilenummer 

mit Zeilennr. im FAC speichern 

Bufferzeiger und 

restl. Bufferlänge retten 

String in pos. Binärzahl 

restl. Bufferlänge 

Fehler ? d. Zahl so speichern 

Typflag des FAC holen 

Token für REAL-Zahl 
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E027 

30 

40 


JR 

NC,E069 

E029 

EB 



EX 

DE,HL 

E02A 

2A 

C2 

B0 

LD 

HL, (B0C2) 

E02D 

EB 



EX 

DE,HL 

E02E 

7A 



LD 

A.D 

E02F 

B7 



OR 

A 

E030 

3E 

1A 


LD 

A,1A 

E032 

20 

35 


JR 

NZ,E069 

E034 

E3 



EX 

(SP),HL 

E035 

EB 



EX 

DE,HL 

E036 

7D 



LD 

A.L 

E037 

FE 

0A 


CP 

0A 

E039 

30 

04 


JR 

NC,E03F 

E03B 

C6 

0E 


ADD 

0E 

E03D 

18 

06 


JR 

E045 

E03F 

3E 

19 


LD 

A, 19 

E041 

CD 

25 

DF 

CALL 

DF25 

E044 

7D 



LD 

A, L 

E045 

CD 

25 

DF 

CALL 

DF25 

E048 

El 



POP 

HL 

E049 

C9 



RET 



****** **************************** 


E04A 

7E 



LD 

A, (HL) 

E04B 

23 



INC 

HL 

E04C 

E3 



EX 

(SP),HL 

E04D 

EB 



EX 

DE,HL 

E04E 

CD 

25 

DF 

CALL 

DF25 

E051 

EB 



EX 

DE,HL 

E052 

E3 



EX 

(SP),HL 

E053 

CD 

B8 

FF 

CALL 

FFB8 

E056 

20 

F2 


JR 

NZ,E04A 

E058 

Dl 



POP 

DE 

E059 

C9 



RET 



********************************** 


E05A 

D5 



PUSH 

DE 

E05B 

C5 



PUSH 

BC 

E05C 

CD 

BE 

EC 

CALL 

ECBE 

E05F 

CI 



POP 

BC 

E060 

30 

E8 


JR 

NC,E04A 

E062 

FE 

02 


CP 

02 

E064 

3E 

1B 


LD 

A,1B 

E066 

28 

01 


JR 

Z,E069 

E068 

3C 



INC 

A 

E069 

Dl 



POP 

DE 

E06A 

CD 

25 

DF 

CALL 

DF25 

E06D 

E5 



PUSH 

HL 

E06E 

21 

C2 

B0 

LD 

HL,B0C2 

E071 

CD 

23 

FF 

CALL 

FF23 

E074 

F5 



PUSH 

AF 

E075 

7E 



LD 

A, (HL) 

E076 

23 



INC 

HL 

E077 

CD 

25 

DF 

CALL 

DF25 

E07A 

Fl 



POP 

AF 


REAL-Zahl im FAC ? 

Integerwert aus FAC nach DE 
Hi-Byte 

Token für dez. Integerwert 
Hi-Byte <>0 ? dann 2-Byte-Wert 
Eing.-Zg. retten, Bufferzeiger 
nach DE, Integerwert nach HL 
Lo-Byte 
>=10 ? 

dann Ein-Byte-Wert speichern 
sonst Token generieren 
Wert im Token enthalten sp. 
Token für Ein-Byte-Wert 
in Token-Buffer 
Byte 

in Buffer 

Eingabezeiger zurück 


Eingabe bis DE übernehmen 
IN : DE: Endzeiger 

HL: Eingabezeiger 
TOS: Token-Buffer-Zeiger 
Zeichen aus Eingabe 
Eingabezeiger 

retten, Bufferzeiger zurück 
nach DE, Endzeiger nach HL 
Zeichen in Buffer 
Endzeiger n. DE, Bufferzeiger 
auf Stack, Eingabezg. n. HL 
mit Endzeiger vergleichen 
Ende noch nicht erreicht ? 
Bufferzeiger zurück 


Hex/Binärzahl tokenisieren 
Token-Buffer-Zeiger 
und restl. Bufferlänge 
String in pos. Binärzahl 
restl. Länge 

Überlauf ? dann so speichern 
Basis =2 ? 

Token für Binärzahl 
Binärzahl ? 

sonst Token für Hex-Zahl 
Token-Buffer-Zeiger 
Token in Buffer 
Eingabezeiger 
Zeiger auf FAC 

Typflag (Länge) des FAC holen 
als Zähler für Bytes 
Byte aus FAC 

in Buffer übertragen 
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E07B 

3D 



DEC 

A 

E07C 

20 

F6 


JR 

NZ,E074 

E07E 

El 



POP 

HL 

E07F 

C9 



RET 


********************************** 

E080 

FE 

22 


CP 

22 

E082 

28 

3B 


JR 

Z,E0BF 

E084 

FE 

7C 


CP 

7C 

E086 

28 

45 


JR 

Z,E0CD 

E088 

C5 



PUSH 

BC 

E089 

D5 



PUSH 

DE 

E08A 

EE 

3F 


XOR 

3F 

E08C 

06 

BF 


LD 

B,BF 

E08E 

28 

16 


JR 

Z,E0A6 

E090 

2B 



DEC 

HL 

E091 

11 

4B 

E6 

LD 

DE,E64B 

E094 

CD 

27 

E3 

CALL 

E327 

E097 

1A 



LD 

A, (DE) 

E098 

38 

08 


JR 

C,E0A2 

E09A 

7E 



LD 

A, (HL) 

E09B 

FE 

20 


CP 

20 

E09D 

30 

02 


JR 

NC,E0A1 

E09F 

3E 

20 


LD 

A,20 

E0A1 

23 



INC 

HL 

E0A2 

47 



LD 

B,A 

E0A3 

CD 

B3 

E0 

CALL 

E0B3 

E0A6 

32 

39 

AE 

LD 

(AE39),A 

E0A9 

78 



LD 

A,B 

EOAA 

Dl 



POP 

DE 

EOAB 

CI 



POP 

BC 

EOAC 

FE 

CO 


CP 

C0 

EOAE 

28 

36 


JR 

Z,E0E6 

E0B0 

C3 

25 

DF 

JP 

DF25 


********************************** 


E0B3 

3D 


DEC 

A 

E0B4 

C8 


RET 

Z 

E0B5 

EE 

22 

XOR 

22 

E0B7 

C8 


RET 

Z 

E0B8 

3A 

39 AE 

LD 

A,(AE39) 

E0BB 

3C 


INC 

A 

E0BC 

C8 


RET 

Z 

E0BD 

3D 


DEC 

A 

EOBE 

C9 


RET 



********************************** 


EOBF 

CD 

25 

DF 

CALL 

DF25 

E0C2 

7E 



LD 

A,(HL) 

E0C3 

B7 



OR 

A 

E0C4 

C8 



RET 

Z 

E0C5 

23 



INC 

HL 

E0C6 

FE 

22 


CP 

22 

E0C8 

20 

F5 


JR 

NZ,E0BF 

E0CA 

C3 

25 

DF 

JP 

DF25 


Zähler 

weitere Bytes ? 
Eingabezeiger zurück 


Sonderzeichen auswerten 

I II I 9 

dann String übertragen 
RSX-Kennzeichen ? 
dann auswerten 
restl. Bufferlänge 
und Bufferzeiger retten 

11911 9 

Token für PRINT 
ggf. "?" ersetzen 
Zeiger für Suche korrigieren 
Tab. d. Keywords ohne Buchst. 
Eingabe in Tabelle suchen 
Token laden 
in Tabelle gefunden ? 
sonst Zeichen aus Eingabe 

kein Steuerzeichen ? 
sonst durch Space ersetzen 
Eingabezeiger 
Token/Zeichen 

Flag für Var./Zeilennr. prüfen 

und neu setzen 

Token/Zeichen 

Bufferzeiger und 

restl. Bufferlänge zurück 

Token für 11,11 ? 

dann auswerten 

sonst in Buffer speichern 

Flag f. Variable/Zeilennr. prüfen 
IN : A: Zeichen/Token 
OUT: A: neues Flag 
Token für H : N ? 
dann Flags löschen 

■ 111 9 

dann Flags löschen 
alte Flags 

Flag für Variablenname ? 

dann löschen 

sonst Flag erhalten 


String in Buffer übernehmen 
IN : A: Zeichen vor String 
Zeichen in Buffer speichern 
nächstes Zeichen 
Zeilenende ? 
dann zurück 
Eingabezeiger 

I II I 9 

nein ? dann weiter übernehemen 
letztes Zeichen in Buffer 
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*** ** * *** *** * * ******* * *** * *** * * *** 


EOCD 

CD 

25 

DF 

CALL 

DF25 

E0D0 

AF 



XOR 

A 

E0D1 

32 

39 

AE 

LD 

(AE39),A 

E0D4 

CD 

25 

DF 

CALL 

DF25 

E0D7 

7E 



LD 

A, (HL) 

E0D8 

23 



INC 

HL 

E0D9 

CD 

7B 

FF 

CALL 

FF7B 

EODC 

38 

F6 


JR 

C,E0D4 

EODE 

2B 



DEC 

HL 

********************************** 

EODF 

1B 



DEC 

DE 

E0E0 

1A 



LD 

A, (DE) 

E0E1 

F6 

80 


OR 

80 

E0E3 

12 



LD 

(DE),A 

E0E4 

13 



INC 

DE 

E0E5 

C9 



RET 



** ************************** ****** 


E0E6 

3E 

01 


LD 

A,01 

E0E8 

CD 

25 

DF 

CALL 

DF25 

EOEB 

3E 

CO 


LD 

A,C0 

EOED 

CD 

25 

DF 

CALL 

DF25 

********************************** 

E0F0 

7E 



LD 

A, (HL) 

E0F1 

23 



INC 

HL 

E0F2 

B7 



OR 

A 

E0F3 

20 

F8 


JR 

NZ,EOED 

E0F5 

2B 



DEC 

HL 

E0F6 

C9 



RET 


********************************** 

E0F7 

CD 

B0 

CE 

CALL 

CEBO 

EOFA 

C5 



PUSH 

BC 

EOFB 

D5 



PUSH 

DE 

EOFC 

CD 

C6 

Ci 

CALL 

C1C6 

EOFF 

CD 

4A 

DD 

CALL 

DD4A 

El 02 

CD 

CB 

DD 

CALL 

DDCB 

E105 

Dl 



POP 

DE 

El 06 

CI 



POP 

BC 

E107 

CD 

0D 

El 

CALL 

ElOD 

E10A 

C3 

64 

CO 

JP 

C064 


********************************** 


ElOD 

D5 

PUSH 

DE 

El OE 

50 

LD 

D,B 

ElOF 

59 

LD 

E,C 

E110 

CD A3 E7 

CALL 

E7A3 

El 13 

Dl 

POP 

DE 

El 14 

4E 

LD 

C, (HL) 

El 15 

23 

INC 

HL 

El 16 

46 

LD 

B, (HL) 

El 17 

2B 

DEC 

HL 

El 18 

78 

LD 

A,B 


RSX-Code auswerten 
RSX-Token in Buffer 
Flag für Variable/Zeilennr. 
löschen 

Null in Buffer 
Zeichen aus Eingabe 
Eingabezeiger 

Buchstabe, Ziffer oder ? 
dann weiter übertragen 
Zeiger auf letztes Byte 

Kennzeichen für Namen setzen 
Token-Buffer-Zeiger 
letztes Zeichen aus Buffer 
Kennzeichen setzen 

Buffer-Zeiger wieder zurück 


11111 auswerten 
Token für 
in Buffer 

Token für . 

in Buffer 

restliche Zeile übernehmen 
Zeichen 

Zeilenende ? 

nein ? dann weiter übernehmen 
Zeiger auf Zeilenende 


Basic-Befehl LIST 

Zeilennummernbereich holen 
Start- 

und Endzeilennr. retten 
opt. Filenr. als Streamnr. 
auf Statementende prüfen 
Direkt-Modus einschalten 
End- 

urtd Startzei lennr. zurück 

Bereich listen 

zur Eingabeschleife 

Progranmbereich listen 
IN : BC: Startzeilennr. 

DE: Endzeilennr. 

Endzeilennr. retten 
Startzeilennr. 
nach DE 

Zeile im Programm suchen 
Endzeilennr. 

Zeilenlänge aus Zeile 
laden, nach BC 
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El 19 

Bl 



OR 

C 

El 1A 

C8 



RET 

Z 

E11B 

CD 

3C 

C4 

CALL 

C43C 

E11E 

E5 



PUSH 

HL 

E11F 

09 



ADD 

HL,BC 

E120 

E3 



EX 

(SP),HL 

El 21 

D5 



PUSH 

DE 

El 22 

E5 



PUSH 

HL 

El 23 

23 



INC 

HL 

E124 

23 



INC 

HL 

E125 

5E 



LD 

E, (HL) 

El 26 

23 



INC 

HL 

El 27 

56 



LD 

D, (HL) 

E128 

El 



POP 

HL 

El 29 

E3 



EX 

(SP),HL 

E12A 

CD 

B8 

FF 

CALL 

FFB8 

E12D 

E3 



EX 

(SP),HL 

E12E 

38 

12 


JR 

C,E142 

E130 

CD 

63 

El 

CALL 

El 63 

El 33 

CD 

45 

El 

CALL 

E145 

E136 

23 



INC 

HL 

E137 

7E 



LD 

A,(HL) 

El 38 

B7 



OR 

A 

E139 

20 

F8 


JR 

NZ,E133 

E13B 

CD 

4E 

C3 

CALL 

C34E 

E13E 

Dl 



POP 

DE 

E13 F 

El 



POP 

HL 

E140 

18 

D2 


JR 

El 14 

E142 

El 



POP 

HL 

El 43 

El 



POP 

HL 

El 44 

C9 



RET 



☆ ■& ☆☆ A 1 :än!r it it ** iSnür & &■& * * ■&"& 


El 45 

CD 

8A 

CI 

CALL 

C1BA 

E148 

38 

OB 


JR 

C,E155 

E14A 

7E 



LD 

A, (HL) 

E14B 

CD 

6E 

C3 

CALL 

C36E 

EUE 

FE 

0A 


CP 

0A 

E150 

C0 



RET 

NZ 

E151 

3E 

0D 


LD 

A,0D 

El 53 

18 

08 


JR 

E160 

E155 

7E 



LD 

A, (HL) 

El 56 

FE 

20 


CP 

20 

El 58 

30 

06 


JR 

NC,E160 

E15A 

3E 

01 


LD 

A,01 

E15C 

CD 

6E 

C3 

CALL 

C36E 

E15 F 

7E 



LD 

A, (HL) 

El 60 

C3 

6E 

C3 

JP 

C36E 


☆☆****☆☆#■&☆******☆***#**#*****#*** 


El 63 

D5 

PUSH 

DE 

E164 

01 A4 AC 

LD 

8C,ACA4 

El 67 

C5 

PUSH 

BC 

E168 

23 

INC 

HL 

E169 

23 

INC 

HL 

E16A 

5E 

LD 

E,(HL) 


Zeilenlänge=0 ? 
dann Programmende, fertig 
Test auf Break- (ESC - Haste 
Zeiger auf Zeile retten 
Länge add., Zg. nächste Zeile 
retten, Zeiger auf Zeile zur. 
Endzeilennr. 

und Zeiger auf Zeile retten 
Zeilen länge 
übergehen 

Zeilennurmer laden 

zweitobersten Stackeintrag 
(Endzeilennr.) nach HL 
mit akt. Zeilennr. vergleichen 
Endznr. retten, Zg. Zeile zur. 
akt. Zeilennr. größer ? 

Zeile nach ASCII wandeln 
Zeichen ausgeben 

nächstes Zeichen 
Zeilenende ? 

nein ? dann weiter ausgeben 
Linefeed ausgeben 
Endzeilennr. 

Zeiger auf Zeile 
nächste Zeile ausgeben 
Endzeilennr. und 
Zeiger auf Zeile vom Stack 


Zeichen für LIST ausgeben 
IN : HL: Zeiger auf Zeichen 
aktuelle Streamnr. holen 
BiIdschirm ? 
sonst Zeichen 
ausgeben 
Linefeed ? 
nein ? 
sonst CR 
ausgeben 
Zeichen 

Steuerzeichen ? 
nein ? dann so ausgeben 
sonst Zeichen direkt 
auf Bildschirm ausgeben 
Zeichen 
ausgeben 

Basic-Zeile nach ASCII wandeln 
IN/OUT: HL: Zeiger auf Zeile 

Zeiger auf Buffer 
retten 
Zeilenlänge 
übergehen 
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E16B 

23 



INC 

HL 

E16C 

56 



LD 

D,(HL) 

E16D 

23 



INC 

HL 

E16E 

E5 



PUSH 

HL 

E16F 

EB 



EX 

DE,HL 

El 70 

CD 

0D 

FF 

CALL 

FF0D 

E173 

CD 

82 

EE 

CALL 

EE82 

E176 

11 

00 

00 

LD 

DE,0000 

El 79 

7E 



LD 

A,(HL) 

E17A 

23 



INC 

HL 

E17B 

B7 



OR 

A 

E17C 

28 

05 


JR 

Z,E183 

E17E 

CD 

FE 

El 

CALL 

El FE 

E181 

18 

F6 


JR 

El 79 

El 83 

3E 

20 


LD 

A,20 

El 85 

CD 

FE 

El 

CALL 

El FE 

El 88 

El 



POP 

HL 

El 89 

7E 



LD 

A, (HL) 

E18A 

B7 



OR 

A 

E18B 

28 

05 


JR 

Z,E192 

E18D 

CD 

96 

El 

CALL 

El 96 

El 90 

18 

F7 


JR 

El 89 

El 92 

02 



LD 

(BC),A 

El 93 

El 



POP 

HL 

El 94 

Dl 



POP 

DE 

E195 

C9 



RET 



#**##***#****☆**☆**********##☆**☆* 


El 96 

CD 

13 

AC 

CALL 

AC13 

El 99 

FA 

20 

E2 

JP 

N,E220 

E19C 

FE 

02 


CP 

02 

E19E 

38 

ID 


JR 

C,ElBD 

El A0 

FE 

05 


CP 

05 

E1A2 

38 

43 


JR 

C,E1E7 

E1A4 

FE 

OB 


CP 

OB 

E1A6 

38 

22 


JR 

C, E1 CA 

E1A8 

FE 

0E 


CP 

0E 

E1AA 

38 

3B 


JR 

C,E1E7 

El AC 

FE 

20 


CP 

20 

El AE 

38 

2E 


JR 

C,E1DE 

E1B0 

FE 

7C 


CP 

7C 

E1B2 

28 

51 


JR 

Z,E205 

E1B4 

CD 

EA 

DF 

CALL 

DFEA 

E1B7 

DC 

1A 

E2 

CALL 

C,E21A 

ElBA 

7E 



LD 

A, (HL) 

ElBB 

18 

0D 


JR 

El CA 

E1BD 

23 



INC 

HL 

EIBE 

7E 



LD 

A, (HL) 

E1BF 

FE 

C0 


CP 

CO 

El CI 

28 

5D 


JR 

Z,E220 

E1C3 

FE 

97 


CP 

97 

E1C5 

28 

59 


JR 

Z,E220 

E1C7 

2B 



DEC 

HL 

E1C8 

3E 

3A 


LD 

A,3A 

El CA 

IE 

00 


LD 

E,00 

E1CC 

FE 

22 


CP 

22 

El CE 

20 

OB 


JR 

NZ,E1DB 

E1D0 

CD 

FE 

El 

CALL 

E1FE 


Zei lennummer 
laden, nach DE 

Zeiger retten 

Zeilennr. nach DE 

und in FAC eintragen 

nach ASCII wandeln 

max. Länge/Flag für Space 

Zeichen aus Zeilennr.-Buffer 

Zeilenende ? 

dann Nr. fertig übertragen 
Zeichen in Buffer 
nächstes Zeichen 
Space 
in Buffer 

Zeiger auf Zeilentext 

Zeichen 

Zeilenende ? 

dann fertig 

Item nach ASCII wandeln 
nächstes Item 
Null ans Bufferende 
Zeiger auf Zeile 


Item nach ASCII wandeln 
User-Vektor 
Token für Keyword ? 

Statementende ? 

Variable ohne Kennzeichen ? 

(??) 

Variable mit Kennzeichen ? 
Konstante ? 

RSX-Token ? 

Test auf "%", "!'• 

Variablenende ? d. ggf. Space 
Zeichen 
in Buffer 

Zeichen nach Statementende 

Token für . ? 

dann auswerten 
Token für ELSE ? 
dann auswerten 
Zeiger wieder zurück 

I! . II 

Flag für kein folgendes Space 

I II I ? 

nein ? dann Code speichern 
Zeichen in Buffer 
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E1D3 

23 

INC 

HL 

E1D4 

7E 

LD 

A, (HL) 

E1D5 

B7 

OR 

A 

E1D6 

C8 

RET 

Z 

E1D7 

FE 22 

CP 

22 

E1D9 

20 F5 

JR 

NZ,E1D0 

E1DB 

23 

INC 

HL 

E1DC 

18 20 

JR 

El FE 


********************************** 


EIDE 

CD 

1A 

E2 

CALL 

E21A 

EIEI 

CD 

53 

E2 

CALL 

E253 

E1E4 

IE 

01 


LD 

E,01 

E1E6 

C9 



RET 


********************************** 

E1E7 

CD 

1A 

E2 

CALL 

E21A 

E1EA 

7E 



LD 

A,(HL) 

E1EB 

F5 



PUSH 

AF 

E1EC 

23 



INC 

HL 

E1 ED 

23 



INC 

HL 

El EE 

23 



INC 

HL 

E1EF 

CD 

0F 

CM 

LU 

CALL 

E20F 

E1F2 

Fl 



POP 

AF 

E1F3 

IE 

01 


LD 

E, 01 

E1F5 

FE 

OB 


CP 

OB 

El F7 

DO 



RET 

NC 

E1F8 

1E 

00 


LD 

E,00 

EIFA 

EE 

27 


XOR 

27 

El FC 

E6 

FD 


AND 

FD 

********************************** 

El FE 

02 



LD 

(BC),A 

El FF 

03 



INC 

BC 

E200 

15 



DEC 

D 

E201 

CO 



RET 

NZ 

E202 

OB 



DEC 

BC 

E203 

14 



INC 

D 

E204 

C9 



RET 


********************************** 

E205 

IE 

01 


LD 

E, 01 

E207 

CD 

FE 

El 

CALL 

El FE 

E20A 

23 



INC 

HL 

E20B 

7E 



LD 

A, (HL) 

E20C 

23 



INC 

HL 

E20D 

B7 



OR 

A 

E20E 

CO 



RET 

NZ 


********************************** 


E20F 

7E 


LD 

A,(HL) 

E210 

E6 

7F 

AND 

7F 

E212 

CD 

FE El 

CALL 

El FE 

E215 

BE 


CP 

(HL) 

E216 

23 


INC 

HL 

E 217 

30 

F6 

JR 

NC,E20F 

E219 

C9 


RET 



nächstes Zeichen 
ZeiLenende ? 
dann zurück 

I II I *? 

nein ? dann weiter übernehmen 
Zeiger auf nächstes Zeichen 
Zeichen in Buffer 

Konstante auswerten 
ggf. Space in Buffer 
Konstante nach ASCII wandeln 
Flag für nachfolgendes Space 


Variable auswerten 

ggf. Space in Buffer 

Variablen-Token 

retten 

Offset übergehen, 

Zeiger auf Namen 
Namen übertragen 
Variablen-Token 
Flag für folgendes Space 
Variable ohne Kennzeichen ? 
dann fertig 
Flag für kein Space 
Kennzeichen "%" 

oder "!" generieren) 

Zeichen in LIST-Buffer 
IN : A: Zeichen 

Zeichen speichern 

Bufferzeiger 

restl. Bufferlänge 

dann o.k. 

sonst Zeiger 

und Länge wieder zurück 


RSX-Code auswerten 

Flag für folgendes Space 
RSX-Code in Buffer 

nächstes Zeichen 

<> 0 ? 

dann unbekannt, zurück 

Namen übertragen 
Byte aus Namen 
Endkennz. löschen 
in Buffer 

war Endkennz. gesetzt ? 
nein ? dann weiter übertragen 
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********************************** 


E21A 

ID 


DEC 

E 

E21B 

CO 


RET 

NZ 

E21C 

3E 

20 

LD 

A,20 

E21E 

18 

DE 

JR 

El FE 

********************************** 

E220 

23 


INC 

HL 

E221 

FE 

FF 

CP 

FF 

E223 

20 

02 

JR 

NZ,E227 

E225 

7E 


LD 

A, (HL) 

E226 

23 


INC 

HL 

E227 

F5 


PUSH 

AF 

E228 

E5 


PUSH 

HL 

E229 

CD 

ED E2 

CALL 

E2ED 

E22C 

B7 


OR 

A 

E22D 

28 

08 

JR 

Z.E237 

E22F 

F5 


PUSH 

AF 

E230 

CD 

1A E2 

CALL 

E21A 

E233 

Fl 


POP 

AF 

E234 

CD 

FE El 

CALL 

E1 FE 

E237 

7E 


LD 

A,(HL) 

E238 

E6 

7F 

AND 

7F 

E23A 

FE 

09 

CP 

09 

E23C 

C4 

FE El 

CALL 

NZ,E1FE 

E23F 

BE 


CP 

(HL) 

E240 

23 


INC 

HL 

E241 

28 

F4 

JR 

Z, E237 

E243 

CD 

7B FF 

CALL 

FF7B 

E246 

IE 

00 

LD 

E,00 

E248 

30 

02 

JR 

NC,E24C 

E24A 

IE 

01 

LD 

E,01 

E24C 

El 


POP 

HL 

E24D 

Fl 


POP 

AF 

E24E 

D6 

E4 

SUB 

E4 

E250 

CO 


RET 

NZ 

E251 

5F 


LD 

E,A 

E252 

C9 


RET 


********************************** 

E253 

D5 


PUSH 

DE 

E254 

7E 


LD 

A, (HL) 

E255 

23 


INC 

HL 

E256 

FE 

1B 

CP 

1B 

E258 

28 

49 

JR 

Z,E2A3 

E25A 

FE 

1c 

CP 

IC 

E25C 

28 

50 

JR 

Z,E2AE 

E25E 

FE 

IE 

CP 

IE 

E260 

28 

26 

JR 

Z.E288 

E262 

FE 

ID 

CP 

ID 

E264 

28 

22 

JR 

Z,E288 

E266 

FE 

1F 

CP 

1F 

E268 

28 

5E 

JR 

Z,E2C8 

E26A 

FE 

19 

CP 

19 

E26C 

28 

09 

JR 

Z,E277 

E26E 

FE 

1A 

CP 

1A 

E270 

28 

OB 

JR 

Z,E27D 

E272 

D6 

0E 

SUB 

0E 


ggf. Space ausgeben 
Flag für Space 
nicht gesetzt ? 
sonst Space 
in Buffer 

Keyword-Token nach ASCII wandeln 
Token übergehen 
Funktions-Token ? 
nein ? 

sonst Token laden 
Zeiger nach Token 
Token retten 
Eingabezeiger 
Token suchen 
Token für 

Keyword ohne Buchstabe ? 

1. Zeichen des Keywords 
ggf. Space in Buffer 
1. Zeichen des Keywords 
in Buffer 

Zeichen aus Keyword 
Endkennz. löschen 
TAB ? 

nein ? dann in Buffer 
war Endkennz. gesetzt ? 

dann weiter übertragen 

letztes Keyword-Zeichen testen 

Flag für kein Space 

keine Ziffer, Buchstabe, ? 

sonst Flag für folgendes Space 

Eingabezeiger 

und Token zurück 

Token für FN ? 

nein ? 

sonst Flag für kein Space 


Konstante nach ASCII wandeln 
Bufferlänge/Space-Flag retten 
Konstanten-Token 
Zeiger danach 

2-Byte-Binär-Konstante ? 

2-Byte-Hex-Konstante ? 

Zeilennummer ? 

Zeilenadresse ? 

REAL-Konstante ? 

Ein-Byte-Konstante ? 

dez. 2-Byte-Konstante ? 

Token für Konstante 0 abziehen 
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E274 

5F 



LD 

E,A 

E275 

18 

02 


JR 

E279 

E277 

5E 



LD 

E, (HL) 

E278 

23 



INC 

HL 

E279 

16 

00 


LD 

D,00 

E27B 

18 

04 


JR 

E281 

E27D 

5E 



LD 

E, (HL) 

E27E 

23 



INC 

HL 

E27F 

56 



LD 

D, (HL) 

E280 

23 



INC 

HL 

E281 

E3 



EX 

(SP),HL 

E282 

EB 



EX 

DE,HL 

E283 

CD 

0D 

FF 

CALL 

FFOD 

E286 

18 

47 


JR 

E2CF 

E288 

5E 



LD 

E, (HL) 

E289 

23 



INC 

HL 

E28A 

56 



LD 

D,(HL) 

E28B 

23 



INC 

HL 

E28C 

FE 

IE 


CP 

iE 

E28E 

28 

09 


JR 

Z,E299 

E290 

E5 



PUSH 

HL 

E291 

EB 



EX 

DE,HL 

E292 

23 



INC 

HL 

E293 

23 



INC 

HL 

E294 

23 



INC 

HL 

E295 

5E 



LD 

E, (HL) 

E296 

23 



INC 

HL 

E297 

56 



LD 

D, (HL) 

E298 

El 



POP 

HL 

E299 

E3 



EX 

(SP),HL 

E29A 

EB 



EX 

DE,HL 

E29B 

CD 

0D 

FF 

CALL 

FFOD 

E29E 

CD 

82 

EE 

CALL 

EE82 

E2A1 

18 

2F 


JR 

E2D2 

E2A3 

C5 



PUSH 

BC 

E2A4 

01 

02 

00 

LD 

BC,0002 

E2A7 

CD 

14 

Fl 

CALL 

Fl 14 

E2AA 

3E 

58 


LD 

A,58 

E2AC 

18 

09 


JR 

E2B7 

E2AE 

C5 



PUSH 

BC 

E2AF 

01 

02 

00 

LD 

BC,0002 

E2B2 

CD 

19 

Fl 

CALL 

Fl 19 

E2B5 

3E 

48 


LD 

A,48 

E2B7 

CI 



POP 

BC 

E2B8 

E3 



EX 

(SP),HL 

E2B9 

EB 



EX 

DE,HL 

E2BA 

F5 



PUSH 

AF 

E2BB 

3E 

26 


LD 

A,26 

E2BD 

CD 

FE 

El 

CALL 

E1 FE 

E2C0 

Fl 



POP 

AF 

E2C1 

FE 

48 


CP 

48 

E2C3 

C4 

FE 

El 

CALL 

NZ,E1FE 

E2C6 

18 

0A 


JR 

E2D2 

E2C8 

3E 

05 


LD 

A,05 

E2CA 

CD 

4B 

FF 

CALL 

FF4B 

E2CD 

E3 



EX 

(SP),HL 

E2CE 

EB 



EX 

DE,HL 

E2CF 

CD 

8F 

EE 

CALL 

EE8F 


gibt Konstantenwert 
Ein-Byte-Konstante laden 
Hi-Byte =0 


2-Byte-Konstante laden 


Eing.-Zg. r., Länge/Flag zur. 
nach DE, Konstante nach HL 
Konstante in FAC eintragen 
und nach ASCII 

Zeilennumner/-adresse laden 


Token für Zeilennummer ? 
dann in FAC 
Eingabezeiger retten 
Zeilenadresse nach HL 
Zeilenende 
und Zeilenlänge 
übergehen 

Zeilennurmer aus Zeile 
laden 

Eingabezeiger zurück 

Eing.-Zg. rett., Länge/Flag z 

nach DE, Zeilennr. nach HL 

in FAC eintragen 

nach ASCII wandeln 

und in Buffer übertragen 

min. Stellenz.=0, Typ=Integer 
Zahl in Binärstring wandeln 
"X" als Kennz. für Binärzahl 


min. Stellenz.=0, Typ=Integer 
Zahl in Hex-String wandeln 
"H" als Kennz. für Hex-Zahl 

Eing.-Zg. rett., Länge/Flag z 
nach DE, Stringzeiger nach HL 
"H l, /"X"-Kennzeichen retten 

in Buffer 

,, H"/"X ,, -Kennzeichen 
"H" ? 

nein ? dann in Buffer 
Typ für REAL 

REAL-Zahl in FAC kopieren 
Eing.-Zg. rett., Länge/Flag z 
nach DE 

Integer bzw. REAL nach ASCII 
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E2D2 

7E 

LD 

A, (HL) 

E2D3 

23 

INC 

HL 

E2D4 

CD FE El 

CALL 

El FE 

E2D7 

7E 

LD 

A, (HL) 

E2D8 

B7 

OR 

A 

E2D9 

20 F7 

JR 

NZ,E2D2 

E2DB 

El 

POP 

HL 

E2DC 

C9 

RET 



********************************** 


E2DD 

E5 


PUSH 

HL 

E2DE 

D6 

41 

SUB 

41 

E2E0 

87 


ADD 

A 

E2E1 

C6 

54 

ADD 

54 

E2E3 

6F 


LD 

L,A 

E2E4 

CE 

E3 

ADC 

E3 

E2E6 

95 


SUB 

L 

E2E7 

67 


LD 

H, A 

E2E8 

5E 


LD 

E, (HL) 

E2E9 

23 


INC 

HL 

E2EA 

56 


LD 

D,(HL) 

E2EB 

El 


POP 

HL 

E2EC 

C9 


RET 



********************************** 


E2ED 

C5 



PUSH 

BC 

E2EE 

4F 



LD 

C,A 

E2EF 

06 

1A 


LD 

B,1A 

E 2 F1 

21 

88 

E3 

LD 

HL,E388 

E2F4 

CD 

13 

E3 

CALL 

E313 

E2F7 

38 

0D 


JR 

C,E306 

E2F9 

23 



INC 

HL 

E2FA 

10 

F8 


DJNZ 

E2F4 

E2FC 

21 

4B 

E6 

LD 

HL,E64B 

E2FF 

CD 

13 

E3 

CALL 

E313 

E302 

30 

07 


JR 

NC,E30B 

E304 

06 

C0 


LD 

B, C0 

E306 

78 



LD 

A,B 

E307 

C6 

40 


ADD 

40 

E309 

CI 



POP 

BC 

E30A 

C9 



RET 


E30B 

CD 

19 

AC 

CALL 

AC19 

E30E 

IE 

02 


LD 

E,02 

E310 

C3 

94 

CA 

JP 

CA94 


********************************** 


A, (HL) 


Zeichen aus String 

in Buffer schreiben 
Zeichen 
Stringende ? 

nein ? dann weiter kopieren 
Eingabezeiger zurück 


Zeiger in Keyword-Tabelle holen 
IN : A: Keyword-Anfangsbuchstabe 
OUT: DE: Zeiger auf entspr. Tab. 

-"A", Nr. des Buchstaben 
mal 2, da 2 Bytes pro Eintrag 

$E354, Adresse der Tabelle, 
addieren 


Tabellenzeiger aus Tabelle 
laden, nach DE 


Token suchen, Keywordadr. holen 
IN : A: Token 

OUT: HL: Adr. des Keywords 
A: 1. Keyword-Buchstabe 
A=0, Z=0, wenn Keyword o. Buchst. 

Token 

Zahl der Buchstaben 
Zeiger auf Keyword-Tabellen 
Token suchen 
gefunden ? 

Tabellenzeiger 
weitere Buchstaben ? 

Tab. d. Keywords o. Buchstaben 
Token suchen 

nicht gefunden ? dann Fehler 
Flag für Keyword ohne Buchst. 

1. Buchstabe des Keywords 
ASCII-Code herstellen 


User-Vektor 

Nr. für "Syntax error" 

Fehler ausgeben 

Token in Tabelle suchen 
IN : HL: Tabellenzelger 
C: Token 

OUT: CY=1, wenn gefunden 

HL: Zeiger auf Keyword 
Zeichen aus Tabelle 


E313 7E 


LD 
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E314 

B7 


OR 

A 

E315 

C8 


RET 

Z 

E316 

E5 


PUSH 

HL 

E317 

7E 


LD 

A, (HL) 

E318 

23 


INC 

HL 

E319 

17 


RLA 


E31A 

30 

FB 

JR 

NC,E317 

E31C 

7E 


LD 

A,(HL) 

E31D 

23 


INC 

HL 

E31E 

B9 


CP 

C 

E31F 

28 

03 

JR 

Z,E324 

E321 

Fl 


POP 

AF 

E322 

18 

EF 

JR 

E313 

E324 

El 


POP 

HL 

E325 

37 


SCF 


E326 

C9 


RET 



itirk Tkink-k-kiciricif 'k'k'kir itirk-kick iciricTk itic ic -kick -it-k 


E327 

1A 



LD 

A, (DE) 

E328 

B7 



OR 

A 

E329 

C8 



RET 

Z 

E32A 

E5 



PUSH 

HL 

E32B 

1A 



LD 

A, (DE) 

E32C 

13 



INC 

DE 

E32D 

FE 

09 


CP 

09 

E32F 

28 

04 


JR 

Z,E335 

E331 

FE 

20 


CP 

20 

E333 

20 

05 


JR 

NZ,E33A 

E335 

CD 

61 

DD 

CALL 

DD61 

E338 

18 

Fl 


JR 

E32B 

E33A 

4F 



LD 

C, A 

E33B 

7E 



LD 

A, (HL) 

E33C 

23 



INC 

HL 

E33D 

CD 

8A 

FF 

CALL 

FF8A 

E340 

A9 



XOR 

C 

E341 

28 

E8 


JR 

Z,E32B 

E343 

E6 

7F 


AND 

7F 

E345 

28 

0A 


JR 

Z,E351 

E347 

1B 



DEC 

DE 

E348 

1A 



LD 

A, (DE) 

E349 

13 



INC 

DE 

E34A 

17 



RLA 


E34B 

30 

FB 


JR 

NC,E348 

E34D 

13 



INC 

DE 

E34E 

El 



POP 

HL 

E34F 

18 

D6 


JR 

E327 

E351 

Fl 



POP 

AF 

E352 

37 



SCF 


E353 

C9 



RET 



Eint, dieses Buchst, zu Ende ? 
dann nicht gefunden 
Zeiger auf Keyword 
nächstes Zeichen aus Keyword 

Ende des Keywords erreicht ? 
nein ? dann weiter 
zugehöriges Token 
Tabellenzeiger 
= gesuchtes Token ? 
dann fertig 

Zeiger auf Keyword Löschen 
weitersuchen 
Zeiger auf Keyword 
CY=1 für gefunden 


String in Keyword-Tabelle suchen 
IN : DE: Zeiger auf Tabelle 
HL: Eingabezeiger 
OUT: DE: Zeiger auf Token 
CY=1, wenn gefunden 
C: leztes Keyword-Zeichen 
HL: Eingabezg. nach Keyword 
CY=0, wenn nicht gefunden 
HL: Eingabezeiger wie IN 
Zeichen aus Tabelle 
Ende der TabelLe ? 
dann nicht gefunden, zurück 
Eingabezeiger retten 
Zeichen aus Tabelle 
Tabellenzeiger 
TAB ? 

dann Spaces, TABs, LFs überl. 

Space ? 
nein ? 

Spaces, TABs und LFs über lesen 
nächstes Zeichen aus Tabelle 
Zeichen aus Keyword nach C 
Zeichen aus Eingabe 

auf Großschrift forcieren 
=Zeichen aus Keyword ? 
dann weiter vergleichen 
Endkennz. löschen 
letztes Zeichen ? dann gefunden 
TabelLenzeiger auf letztes Zeichen 
Zeichen aus Keyword 

Ende des Keywords ? 
nein ? dann weiter 

Zeiger auf Eingabe 
weitersuchen 

Zeiger auf Eingabe löschen 
CY=1 für gefunden 
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********************************** Adressen der Keyword-TabelLen 


E354 

35 

E6 

2A 

E6 

EF 

E5 

B9 

E5 

Anfangsbuchstabe 

"A" 


E35C 

8A 

E5 

7E 

E5 

72 

E5 

68 

E5 




E364 

47 

E5 

43 

E5 

3F 

E5 

13 

E5 




E36C 

ED 

E4 

E2 

E4 

AA 

E4 

86 

E4 

bi s 



E374 

85 

E4 

3B 

E4 

FB 

E3 

CF 

E3 




E37C 

CO 

E3 

B8 

E3 

9A 

E3 

92 

E3 




E384 

8D 

E3 

88 

E3 





Anfangsbuchstabe 

ii2 11 


********************************** 

Basic-Keyword-T abe11en 











Keyword 

Token Adress 

E388 

4F 

4E 

C5 

DA 

00 




ZONE . 

. DA 

F1F6 

E38D 

50 

4F 

D3 

48 

00 




YPOS . 

. 48 

Dl OE 

E392 

50 

4F 

D3 

47 





XPOS . 

. 47 

D107 

E396 

4F 

D2 

FD 

00 





XOR . 

. FD 

FD6D 

E39A 

52 

49 

54 

C5 

D9 




WRITE . 

. D9 

F47B 

E39F 

49 

4E 

44 

4F 

D7 

D8 



WINDOW . 

. D8 

C2E1 

E3A5 

49 

44 

54 

C8 

D7 




WIDTH . 

. D7 

C3E3 

E3AA 

48 

49 

4C 

C5 

D6 




WHILE . 

. D6 

C747 

E3AF 

45 

4E 

C4 

D5 





WEND . 

. D5 

C776 

E3B3 

41 

49 

D4 

D4 

00 




WAIT . 

. D4 

F17D 

E3B8 

50 

4F 

D3 

7 F 





VPOS . 

. 7F 

C262 

E3BC 

41 

CC 

ID 

00 





VAL ... 

. ID 

FA77 

E3C0 

53 

49 

4E 

C7 

ED 




USING . 

. ED 


E3C5 

50 

50 

45 

52 

A4 

IC 



UPPERS . 

. IC 

F842 

E3CB 

4E 

D4 

1B 

00 





UNT ... 

. iB 

FEC2 

E3CF 

52 

4F 

CE 

D3 





TRON . 

. D3 

DDE2 

E3D3 

52 

4F 

46 

C6 

D2 




TROFF . 

. D2 

DDE6 

E3D8 

CF 

EC 







TO . 

. EC 


E3DA 

49 

4D 

C5 

46 





TIME . 

. 46 

D0E5 

E3DE 

48 

45 

CE 

EB 





THEN . 

. EB 


E3E2 

45 

53 

54 

D2 

7D 




TESTR... 

. 7D 

C4EE 

E3E7 

45 

53 

D4 

7C 





TEST . 

. 7C 

C4E9 

E3EB 

41 

CE 

1A 






TAN . 

. 1A 

D539 

E3EE 

41 

47 

4F 

46 

C6 

Dl 



TAGOFF ......... 

. Dl 

C320 

E3F4 

41 

C7 

DO 






TAG . 

. DO 

C319 

E3F7 

41 

C2 

EA 

00 





TAB . 

. EA 


E3FB 

59 

4D 

42 

4F 

CC 

CF 



SYMBOL . 

. CF 

F69D 

E401 

57 

41 

DO 

E7 





SWAP . 

. E7 


E405 

54 

52 

49 

4E 

47 

A4 

7B 


STRINGS . 

. 7B 

FA36 

E40C 

54 

52 

A4 

19 





STRS . 

. 19 

F91E 

E410 

54 

4F 

DO 

CE 





STOP . 

. CE 

CB5A 

E414 

54 

45 

DO 

E6 





STEP . 

. E6 


E418 

51 

D2 

18 






SQR . 

. 18 

D4EF 

E41B 

Dl 

17 







SQ... 

. 17 

D329 

E41D 

50 

45 

45 

C4 

CD 




SPEED . 

. CD 

D494 

E422 

50 

C3 

E5 






SPC . 

. E5 


E425 

50 

41 

43 

45 

A4 

16 



SPACES . 

. 16 

FA57 

E42B 

4F 

55 

4E 

C4 

CC 




SOUND . 

. CC 

D2C0 

E430 

49 

CE 

15 






SIN . 

. 15 

D52F 

E433 

47 

CE 

14 






SGN . 

. 14 

FF02 

E436 

41 

56 

C5 

CB 

00 




SAVE . 

. CB 

EC09 

E43B 

55 

CE 

CA 






RUN . 

. CA 

E9BD 

E43E 

4F 

55 

4E 

C4 

7A 




ROUND . 

. 7A 

D219 

E443 

4E 

C4 

45 






RND . 

. 45 

D584 

E446 

49 

47 

48 

54 

A4 

79 



RIGHTS . 

. 79 

F943 

E44C 

45 

54 

55 

52 

CE 

C9 



RETURN . 

. C9 

C70F 

E452 

45 

53 

55 

4D 

C5 

C8 



RESUME . 

. C8 

CC03 
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E458 

45 

53 

54 

4F 

52 

C5 

C 7 



E45F 

45 

4E 

55 

CD 

C6 





E464 

45 

4D 

41 

49 

CE 

13 




E46A 

45 

CD 

C5 







E46D 

45 

4C 

45 

41 

53 

C5 

C4 



E474 

45 

41 

C4 

C3 






E478 

41 

4E 

44 

4F 

4D 

49 

5A 

C5 

C2 

E481 

41 

C4 

CI 

00 






E485 

00 









E486 

52 

49 

4E 

D4 

BF 





E48B 

4F 

D3 

78 







E48E 

4F 

4B 

C5 

BE 






E492 

4C 

4F 

54 

D2 

BD 





E497 

4C 

4F 

D4 

BC 






E49B 

C9 44 








E49D 

45 

CE 

BB 







E4A0 

45 

45 

CB 

12 






E4A4 

41 

50 

45 

D2 

BA 

00 




E4AA 

55 

D4 

B9 







E4AD 

52 

49 

47 49 

CE 

B8 




E4B3 

D2 

FC 








E4B5 

50 

45 

4E 

4F 

55 

D4 

B7 



E4BC 

50 

45 

4E 

49 

CE 

B6 




E4C2 

4E 

20 

53 

Dl 

B5 





E4C7 

4E 

20 

45 

52 

52 

4F 

52 

20 

47 

E4D0 

4F 

09 

54 

4F 

20 

BO 

B4 



E4D7 

4E 

20 

42 

52 

45 

41 

CB 

B3 


E4DF 

CE 

B2 

00 







E4E2 

4F 

D4 

FE 







E4E5 

45 

D7 

Bl 







E4E8 

45 

58 

D4 

BO 

00 





E4ED 

4F 

56 

45 

D2 

AF 




’ 

E4F2 

4F 

56 

C5 

AE 






E4F6 

4F 

44 

C5 

AD 






E4FA 

4F 

C4 

FB 







E4FD 

49 

CE 

77 







E500 

49 

44 

A4 

AC 






E504 

45 

52 

47 

C5 

AB 





E509 

45 

4D 

4F 

52 

D9 

AA 




E50F 

41 

D8 

76 

00 






E513 

4F 

57 

45 

52 

A4 

11 




E519 

4F 

47 31 

BO 

10 





E51E 

4F 

C7 

OF 







E521 

4F 

43 

41 

54 

C5 

A9 




E527 

4F 

41 

C4 

A8 






E52B 

49 

53 

D4 

A7 






E52F 

49 

4E 

C5 

A6 






E533 

45 

D4 

A5 







E536 

45 

CE 

OE 







E539 

45 

46 

54 

A4 

75 

00 




E53F 

45 

D9 A4 

00 






E543 

4F 

D9 

OD 

00 






E547 

4E 

D4 

OC 







E54A 

4E 

53 

54 

D2 

74 





E54F 

4E 

50 

55 

D4 

A3 





E554 

4E 

DO 

OB 







E557 

4E 

4B 

45 

59 A4 

43 




E55D 

4E 

4B 

45 

D9 

OA 






RESTORE . 

.. C7 

DCD9 

RENUM . 

.. C6 

E7DF 

REMAIN . 

.. 13 

C99F 

REM . 

.. C5 

E8F3 

RELEASE . 

.. C4 

D31E 

READ . 

.. C3 

DCEB 

RANDOMIZE . 

.. C2 

D559 

RAD . 

CI 

D4EB 

PRINT . 

.. BF 

Fl FD 

POS . 

.. 78 

C276 

POKE . 

.. BE 

F15F 

PLOTR . 

.. BD 

C4D5 

PLOT . 

.. BC 

C4D0 

PI . 

.. 44 

D4DB 

PEN . 

.. BB 

C212 

PEEK . 

.. 12 

Fl 58 

PAPER . 

,. BA 

C20A 

OUT . 

,. B9 

Fl 77 

ORIGIN . 

B8 

C48C 

OR . 

. FC 

FD63 

OPENOUT . 

. B7 

D256 

OPEN IN . 

. B6 

D25F 

ON SQ . 

. B5 

C940 

ON ERROR GOTO 0 . 

. B4 

CBF8 

ON BREAK . 

. B3 

C8CB 

ON . 

. B2 

C7E3 

NOT . 

. FE 

FD 77 

NEU . 

. Bl 

C12B 

NEXT . 

. BO 

C5FB 

MOVER . 

. AF 

C50A 

MOVE . 

. AE 

C505 

MODE . 

. AD 

C24F 

MOD . 

. FB 

FD49 

MIN . 

. 77 

D1EA 

MIDS . 

. AC 

F993/43 

MERGE . 

. AB 

EAA6 

MEMORY . 

. AA 

F4EF 

MAX . 

. 76 

D1EE 

LOWERS . 

. 11 

F834 

LOGIO . 

. 10 

D525 

LOG . 

. OF 

D52A 

LOCATE . 

. A9 

C2D2 

LOAD . 

. A8 

E9F6 

LIST . 

. A7 

E0F7 

LINE . 

. A6 

DAF8 

LET . 

. A5 

D654 

LEN . 

. OE 

FAOA 

LEFT$ . 

. 75 

F93C 

KEY . 

. A4 

D439 

JOY . 

. OD 

D423 

INT . 

. OC 

FDED 

INSTR . 

. 74 

FAA1 

INPUT . 

. A3 

DB2B 

INP . 

. OB 

F16D 

INKEYS . 

. 43 

FA24 

INKEY . 

. OA 

D409 
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E562 4E CB A2 INK... A2 C22A 

E565 C6 AI 00 IF . Al C6C7 

E568 49 4D 45 CD 42 HIMEM . 42 D0F4 

E56D 45 58 A4 73 00 HEX$ . 73 F8C4 

E572 4F 09 54 CF A0 GOTO . A0 C6E8 

E577 4F 09 53 55 C2 9F 00 GOSUB . 9F C6ED 

E57E 52 C5 09 FRE . 09 FC2D 

E581 4F D2 9E FOR ... 9E C529 

E584 CE E4 FN . E4 D130 

E586 49 D8 08 00 FIX . 08 FDE8 

E58A 58 DO 07 EXP . 07 D520 

E58D 56 45 52 D9 9D EVERY . 9D C979 

E592 52 52 4F D2 9C ERROR .9C CA8F 

E597 52 D2 41 ERR .... - 41 DODC 

E59A 52 CC E3 ERL . E3 DOEE 

E59D 52 41 53 C5 9B ERASE . 9B D9C0 

E5A2 4F C6 40 EOF . 40 C417 

E5A5 4E D6 9A ENV .. 9A D34E 

E5A8 4E D4 99 ENT . 99 D385 

E5AB 4E C4 98 END . 98 CB65 

E5AE 4C 53 C5 97 ELSE . 97 E8F3 

E5B2 C9 DC EI .. DC C8E7 

E5B4 44 49 D4 96 00 ED IT . 96 C052 

E5B9 52 41 57 D2 95 DRAWR . 95 C4CB 

E5BE 52 41 D7 94 DRAW . 94 C4C6 

E5C2 49 CD 93 DIM . 93 D67D 

E5C5 C9 DB DI . DB C8E1 

E5C7 45 4C 45 54 C5 92 DELETE . 92 E728 

E5CD 45 C7 91 DEG . 91 D4E7 

E5D0 45 46 53 54 D2 90 DEFSTR . 90 D614 

E5D6 45 46 52 45 41 CC 8F DEFREAL . 8F D61C 

E5DD 45 46 49 4E D4 8E DEFINT . 8E D618 

E5E3 45 C6 8D DEF . 8D Dl 17 

E5E6 45 43 A4 72 DECS . 72 F8EA 

E5EA 41 54 CI 8C 00 DATA . 8C E8EF 

E5EF 52 45 41 CC 06 CREAL . 06 FEEC 

E5F4 4F D3 05 COS . 05 D534 

E5F7 4F 4E D4 8B CONT .. 8B CBCO 

E5FB 4C D3 8A CLS... 8A C25A 

E5FE 4C 4F 53 45 4F 55 D4 89 CLOSEOUT .89 D2A1 

E606 4C 4F 53 45 49 CE 88 CLOSEIN .88 D298 

E60D 4C C7 87 CLG . 87 C4B5 

E610 4C 45 41 D2 86 CLEAR . 86 C132 

E615 49 4E D4 04 CINT . 04 FE8D 

E619 48 52 A4 03 CHRS . 03 FA16 

E61D 48 41 49 CE 85 CHAIN . 85 EA3C 

E622 41 D4 84 CAT . 84 D246 

E625 41 4C CC 83 00 CALL . 83 F1BA 

E62A 4F 52 44 45 D2 82 BORDER . 82 C221 

E630 49 4E A4 71 00 BINS . 71 F8BA 

E635 55 54 CF 81 AUTO .. 81 CODF 

E639 54 CE 02 ATN . 02 D53E 

E63C 53 C3 01 ASC . 01 FA10 

E63F 4E C4 FA AND . FA FD58 

E642 46 54 45 D2 80 AFTER . 80 C971 

E647 42 D3 00 00 ABS... 00 FD85 
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********************************** Tabelle der Keywords ohne Buchst. 


Keyword Token Adresse 

E64B DE F8 * F8 D4F4 

E64D DC F9 \ F9 FD37 

E64F 3E 09 BD FO >= F0 

E653 3D 20 BE FO = > . FO 

E657 BE EE > EE 

E659 BD EF = EF 

E65B 3C 09 BE F2 <> F2 

E65F 3C 09 BD F3 <= F3 

E663 3D 20 BC F3 = < . F3 

E667 BC Fl < Fl 

E669 AF F7 / F7 FD 12 

E66B BA 01 : 01 

E66D AA F6 * F6 FCF5 

E66F AD F5 - F5 FCE1 

E671 AB F4 + F4 FCCC 

E673 A7 CO 00 1 CO E8F3 


********************************** Programm löschen 


E676 

AF 


XOR 

A 

Flag f. Zeilenadr. im Programn 

E677 

32 3A 

AE 

LD 

(AE3A),A 

löschen 

E67A 

2A 81 

AE 

LD 

HL,(AE81) 

Zeiger auf Programmstart 

E67D 

77 


LD 

(HL) ,A 

Null als 1. Zeilenende 

E67E 

23 


INC 

HL 


E67F 

77 


LD 

(HL) ,A 

2 Nullen als 

E680 

23 


INC 

HL 

Kennzeichen für Programmende 

E681 

77 


LD 

(HL), A 


E682 

23 


INC 

HL 


E683 

22 83 

AE 

LD 

(AE83) f HL 

Zeiger auf Progranmende setzen 

E686 

C9 


RET 




********************************** 


E687 

3A 

3A 

AE 

LD 

A,(AE3A) 

E68A 

B7 



OR 

A 

E68B 

C8 



RET 

Z 

E68C 

C5 



PUSH 

BC 

E68D 

D5 



PUSH 

DE 

E68E 

E5 



PUSH 

HL 

E68F 

01 

9D 

E6 

LD 

BC.E69D 

E692 

CD 

FF 

E8 

CALL 

E8FF 

E695 

AF 



XOR 

A 

E696 

32 

3A 

AE 

LD 

(AE3A),A 

E699 

El 



POP 

HL 

E69A 

Dl 



POP 

DE 

E69B 

CI 



POP 

BC 

E69C 

C9 



RET 


********************************** 

E69D 

CD 

43 

E9 

CALL 

E943 

E6A0 

FE 

02 


CP 

02 

E6A2 

D8 



RET 

C 

E6A3 

FE 

ID 


CP 

ID 

E6A5 

20 

F6 


JR 

NZ,E69D 

E6A7 

56 



LD 

D, (HL) 

E6A8 

2B 



DEC 

HL 

E6A9 

5E 



LD 

E, (HL) 

E6AA 

2B 



DEC 

HL 


Zeilenadressen eliminieren 
keine Zeilenadressen 
im Programm ? 
dann fertig 


Adr. f. Zeilenadr. wandeln 
Programm durchg., Rout. ausf. 
Flag für keine Zeilenadr. 
im Programn setzen 


Zeilenadr. durch Zeilennr. ers. 
nächstes Item 
Statementende ? 
dann zurück 

Token für Zeilenadresse 
nein ? dann weiter suchen 


Zeilenadresse laden 
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E6AB 

E5 

PUSH 

HL 

E6AC 

EB 

EX 

DE,HL 

E6AD 

23 

INC 

HL 

E6AE 

23 

INC 

HL 

E6AF 

23 

INC 

HL 

E6B0 

5E 

LD 

E, (HL) 

E6B1 

23 

INC 

HL 

E6B2 

56 

LD 

D, (HL) 

E6B3 

El 

POP 

HL 

E6B4 

36 IE 

LD 

(HL),iE 

E6B6 

23 

INC 

HL 

E6B7 

73 

LD 

(HL),E 

E6B8 

23 

INC 

HL 

E6B9 

72 

LD 

(HL),D 

E6BA 

18 El 

JR 

E69D 


********************************** 


E6BC 

CD 

61 

DD 

CALL 

DD61 

E6BF 

B7 



OR 

A 

E6C0 

37 



SCF 


E6c1 

C8 



RET 

Z 

E6C2 

CD 

04 

EE 

CALL 

EE04 

E6C5 

DO 



RET 

NC 

E6C6 

7E 



LD 

A, (HL) 

E6C7 

FE 

20 


CP 

20 

E6C9 

20 

01 


JR 

NZ,E6CC 

E6CB 

23 



INC 

HL 

E6CC 

CD 

D2 

E6 

CALL 

E6D2 

E6CF 

37 



SCF 


E6D0 

9F 



SBC 

A 

E6D1 

C9 



RET 



********************************** 


E6D2 

CD 

87 

E6 

CALL 

E687 

E6D5 

CD 

BB 

DE 

CALL 

DEBB 

E6D8 

E5 



PUSH 

HL 

E6D9 

CD 

61 

DD 

CALL 

DD61 

E6DC 

B7 



OR 

A 

E6DD 

28 

28 


JR 

Z,E707 

E6DF 

C5 



PUSH 

BC 

E6E0 

D5 



PUSH 

DE 

E6E1 

21 

04 

00 

LD 

HL,0004 

E6E4 

09 



ADD 

HL,BC 

E6E5 

E5 



PUSH 

HL 

E6E6 

E5 



PUSH 

HL 

E6E7 

CD 

A3 

E7 

CALL 

E7A3 

E6EA 

E5 



PUSH 

HL 

E6EB 

DC 

OB 

E7 

CALL 

C,E70B 

E6EE 

Dl 



POP 

DE 

E6EF 

CI 



POP 

BC 

E6F0 

CD 

F8 

F5 

CALL 

F5F8 

E6F3 

CD 

2C 

F5 

CALL 

F52C 


Zeiger auf Token 
Zeilenadresse nach HL 
Zeilenende 
und Zeilenlänge 
übergehen 

Zeilennummer 
laden 

Zeiger auf Token 

Token für Zeilennr. setzen 

Zeilennummer 

ins Programm eintragen 

weiter suchen 

Eingabezeile auswerten 
OUT: CY=0, Z=0 für Znr.-Überlauf 
CY=0, Z=1 für Direkteingabe 
CY=1, Z=0 f. Zeile eingefügt 
CY=1, Z=1 f. sofortiges Ende 
Spaces, TABs und LFs über lesen 
Zeilenende ? 

CY=1 für sofortiges Ende 
Zeilenende ? dann zurück 
Zeilennr.-String wandeln 
keine Zeilennurraner ? 
nächstes Zeichen 
Space ? 
nein ? 

sonst Space übergehen 
Zeile ins Programm einfügen 
CY=1, 

Z=0 für Zeile eingefügt 


Zeile im Programm einfügen 
IM : DE: Zeilennr. 

HL: Zeiger auf Zeilentext 
Zeilenadressen eliminieren 
Zeile tokenisieren 
Zeiger auf tokenisierte Zeile 
Spaces, TABs und LFs überlesen 
Zeilenende ? 

dann nur alte Zeile löschen 
Zeilentextlänge 
Zei lennuimer 

4 Bytes f. Zeilenlänge/-nummer 
addieren 

Gesamtzeilenlänge 

retten 

Zeile im Programm suchen 
Adresse der (nächsten) Zeile 
Zeile gef. ? dann löschen 
Einfügeadresse 
Gesamtlänge der neuen Zeile 
Platz für Zeile schaffen 
Programm/Var.-Zeiger korrig. 
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E6F6 

EB 



EX 

DE,HL 

Einfügeadresse nach HL 

E6F7 

Dl 



POP 

DE 

GesamtzeiLenlänge 

E6F8 

73 



LD 

(HL) ,E 


E6F9 

23 



INC 

HL 

in Zeile eintragen 

E6FA 

72 



LD 

(HL) ,D 


E6FB 

23 



INC 

HL 


E6FC 

Dl 



POP 

DE 

Zei lennurrmer 

E6FD 

73 



LD 

(HL),E 


E6FE 

23 



INC 

HL 

in Zeile eintragen 

E6FF 

72 



LD 

(HL),D 


E700 

23 



INC 

HL 


E701 

CI 



POP 

BC 

Zeilentextlänge 

E702 

EB 



EX 

DE,HL 

Adr. für Text in neuer Zeile 

E703 

El 



POP 

HL 

Zeiger auf Zeilentext 

E704 

C3 

F2 

FF 

JP 

FFF2 

tokenisierten Text kopieren 

E707 

El 



POP 

HL 

Zeiger auf neue Zeile löschen 

E708 

CD 

9A 

E7 

CALL 

E79A 

alte Zeile im Programm suchen 

icitiritickft *************************** 

Bereich aus Programm löschen 







IN : HL: Adresse des Bereichs 







BC: Länge des Bereichs 

E70B 

C5 



PUSH 

BC 

Länge 

E70C 

E5 



PUSH 

HL 

und Adresse d. Bereichs retten 

E70D 

09 



ADD 

HL,BC 

Länge addieren, gibt Endadr. 

E70E 

EB 



EX 

DE,HL 

Endadresse (+1) nach DE 

E70F 

2A 

89 

AE 

LD 

HL,(AE89) 

Zeiger auf Ende der Felder 

E712 

CD 

CF 

FF 

CALL 

FFCF 

minus Endadresse des Bereichs 

E715 

44 



LD 

B,H 

gibt zu verschiebende 

E716 

4D 



LD 

C.L 

Länge, nach BC 

E717 

EB 



EX 

DE,HL 

Endadresse des Bereichs n. HL 

E718 

Dl 



POP 

DE 

Startadresse nach DE 

E719 

78 



LD 

A,B 


E71A 

Bl 



OR 

C 

Länge <>0 ? 

E71B 

C4 

F2 

FF 

CALL 

NZ,FFF2 

dann Programm/Var. verschieben 

E71E 

Dl 



POP 

DE 

Länge des gelöschten Bereichs 

E71F 

21 

00 

00 

LD 

HL,0000 

Null 

E722 

CD 

DA 

FF 

CALL 

FFDA 

-Länge gibt Offset 

E725 

C3 

2C 

F5 

JP 

F52C 

Off. zu Prg./Var.-Zeigern add. 


Basic-Befehl DELETE 

E728 

CD 

37 

E7 

CALL 

E737 

zu löschenden Bereich holen 

E72B 

CD 

4A 

DD 

CALL 

DD4A 

auf Statementende prüfen 

E72E 

CD 

5A 

E7 

CALL 

E75A 

Prograrrmbereich löschen 

E731 

CD 

7A 

CI 

CALL 

C17A 

Basic-Zeiger initialisieren 

E734 

C3 

64 

CO 

JP 

C064 

zur Eingabeschleife 

☆ it irit ***** * * * * *** * *** * * * * 

Löschbereich für DELETE holen 

E737 

CD 

BO 

CE 

CALL 

CEBO 

Zeilennummernbereich holen 

E73A 

E5 



PUSH 

HL 

Basic-PC 

E73B 

C5 



PUSH 

BC 

und Startzeilennr. retten 

E73C 

CD 

CI 

E7 

CALL 

E7C1 

Zeile nach Endzeilennr. suchen 

E73F 

Dl 



POP 

DE 

Startzeilennr. 

E740 

E5 



PUSH 

HL 

Zeiger nach Endzeile 

E741 

CD 

A3 

E7 

CALL 

E7A3 

Startzeile im Programm suchen 

E744 

22 

3B 

AE 

LD 

(AE3B),HL 

Zeiger a. Startzeile=Startadr. 

E747 

EB 



EX 

DE,HL 

Startadresse nach DE 

E748 

El 



POP 

HL 

Zeiger nach Endzeile 




Die Listings der CPC-ROMs 519 


E749 

CD 

CF 

FF 

CALL 

FFCF 

E74C 

22 

3D 

AE 

LD 

(AE3D),HL 

E74F 

38 

04 


JR 

C.E755 

E751 

7C 



LD 

A, H 

E752 

B5 



OR 

L 

E753 

El 



POP 

HL 

E754 

CO 



RET 

NZ 

E755 

IE 

05 


LD 

E,05 

E757 

C3 

94 

CA 

JP 

CA94 


it'k'k ***** itirk ick ****** lär idt'it'k ä tcirü itirit'iftc 


E75A 

CD 

87 

E6 

CALL 

E687 

E75D 

ED 

4B 

3D AE 

LD 

BC,(AE3D) 

E761 

2A 

3B 

AE 

LD 

HL,(AE3B) 

E764 

C3 

OB 

E7 

JP 

E70B 




E767 

23 



INC 

HL 

E768 

5E 



LD 

E, (HL) 

E769 

23 



INC 

HL 

E76A 

56 



LD 

D,(HL) 

E76B 

23 



INC 

HL 

E76C 

FE 

ID 


CP 

ID 

E76E 

C8 



RET 

Z 

E76F 

FE 

IE 


CP 

IE 

E771 

C2 

EA 

E8 

JP 

NZ,E8EA 

E774 

E5 



PUSH 

HL 

E775 

CD 

D6 

DD 

CALL 

DDD6 

E778 

DC 

B8 

FF 

CALL 

C,FFB8 

E77B 

30 

09 


JR 

NC.E786 

E77D 

El 



POP 

HL 

E77E 

E5 



PUSH 

HL 

E77F 

CD 

F3 

E8 

CALL 

E8F3 

E782 

23 



INC 

HL 

E783 

CD 

A7 

E 7 

CALL 

E7A7 

E786 

D4 

9A 

E7 

CALL 

NC,E79A 

E789 

2B 



DEC 

HL 

E78A 

EB 



EX 

DE,HL 

E78B 

El 



POP 

HL 

E78C 

E5 



PUSH 

HL 

E78D 

3E 

ID 


LD 

A,1D 

E78F 

32 

3A 

AE 

LD 

(AE3A),A 

E792 

2B 



DEC 

HL 

E793 

72 



LD 

(HL),D 

E794 

2B 



DEC 

HL 

E795 

73 



LD 

(HL),E 

E796 

2B 



DEC 

HL 

E797 

77 



LD 

(HL),A 

E798 

El 



POP 

HL 

E799 

C9 



RET 



Startadresse abziehen 
gibt zu löschende Länge 
Startadr.> Endadr. ? d. Fehler 
zu löschende Länge 
ungleich Null ? 

Basic-PC zurück 
Länge <>0 ? dann o.k. 

Nr. für "Improper argument" 
Fehler ausgeben 

Programmbereich f. DELETE löschen 
Zeilenadressen eliminieren 
zu löschende Länge 
Start - Löschadresse 
Programmbereich löschen 

Zeilenadresse holen 
IN : HL: PC auf Token 
A: Token 

OUT: DE: Zeilenadresse 
beim CPC 664/6128: 

A: folgendes Zeichen 
Z=1, wenn Statementende 
Zeiger nach Token 

Zeilennummer bzw. 
Zeilenadresse laden 

Token für Zeilenadresse ? 
dann fertig 

Token für Zei lennurrmer ? 
nein ? dann "Syntax error" 
Basic-PC retten 
akt. Zeilennumner holen 
mit gesuchter vergleichen 
akt. Nr. größer ? d. ab Start 
Basic-PC 

Rest der akt. Zeile überlesen 
Null am Zeilenende übergehen 
ab dort Zeile suchen 
ggf. Zeile ab Pg.-Start suchen 
Zeiger auf Null vor Zeile 
nach DE 
Basic-PC 

Token für Zeilenadresse 
Flag für Zeilenadressen setzen 


Zeilenadresse 


und Token ins Programm eintr. 
PC nach Zeilenadresse 
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********************************** 


E79A 

CD 

A3 

E7 

CALL 

E7A3 

E79D 

D8 



RET 

C 

E79E 

iE 

08 


LD 

E, 08 

E7A0 

C3 

94 

CA 

JP 

CA94 


********************************** 


E7A3 

2A 

81 

AE 

LD 

HL, (AE81) 

E7A6 

23 



INC 

HL 

E7A7 

4E 



LD 

C, (HL) 

E7A8 

23 



INC 

HL 

E7A9 

46 



LD 

B,(HL) 

E7AA 

2B 



DEC 

HL 

E7AB 

78 



LD 

A,B 

E7AC 

Bl 



OR 

C 

E7AD 

C8 



RET 

Z 

E7AE 

E5 



PUSH 

HL 

E7AF 

23 



INC 

HL 

E7B0 

23 



INC 

HL 

E7B1 

7E 



LD 

A,(HL) 

E7B2 

23 



INC 

HL 

E7B3 

66 



LD 

H, (HL) 

E7B4 

6F 



LD 

L,A 

E7B5 

EB 



EX 

DE,HL 

E7B6 

CD 

B8 

FF 

CALL 

FFB8 

E7B9 

EB 



EX 

DE,HL 

E7BA 

El 



POP 

HL 

E7BB 

3F 



CCF 


E7BC 

DO 



RET 

NC 

E7BD 

C8 



RET 

Z 

E7BE 

09 



ADD 

HL,BC 

E7BF 

18 

E6 


JR 

E7A7 


********************************** 


E7C1 

2A 81 AE 

LD 

HL,(AE81) 

E7C4 

23 

INC 

HL 

E7C5 

E5 

PUSH 

HL 

E7C6 

4E 

LD 

C,(HL) 

E7C7 

23 

INC 

HL 

E7C8 

46 

LD 

B, (HL) 

E7C9 

23 

INC 

HL 

E7CA 

78 

LD 

A,B 

E7CB 

Bl 

OR 

C 

E7CC 

28 0F 

JR 

Z,E7DD 

E7CE 

7E 

LD 

A, (HL) 

E7CF 

23 

INC 

HL 

E7D0 

66 

LD 

H,(HL) 


Zeile suchen, ggf. Fehler ausgeb. 
IN : DE: Zeilenadresse 
OUT: HL: Zeiger auf Zeile 
BC: Zeilenlänge 
Zeile im Programn suchen 
gefunden ? 

Nr. für "Line does not exist" 
Fehler ausgeben 

Zeile im Programm suchen 
IN : DE: Zeilenadresse 
OUT: HL: Zeiger auf Zeile 

oder nächste Zeile 
BC: Zeilenlänge 
CY=1, wenn gefunden 
Zeiger auf Programnstart 
Null am Programmstart überl. 

nächste Zeilenlänge 
laden 

Zeilenlänge =0 ? 
(Programmende ?) 
dann nicht gefunden (CY=0) 
Zeiger auf Zeile retten 

Zeiger auf Zei lennuimer 

Zeilennummer laden 


m. gesuchter Nr. vergleichen 

Zeiger auf Zeile 

akt. Nr. > gesuchte Nr. ? 
gleich ? dann gefunden (CY=1) 
sonst Zeilenlänge addieren 
weiter suchen 

nächsthöhere Zeile suchen 
IN : DE: Zeilennummer 

HL: Zeiger auf nächste Zeile 
BC: Zeilenlänge 
Zeiger auf Programmstart 
Null am Programnstart überles. 
Zeiger auf Zeile retten 

Zeilen länge laden 


Zeilen länge =0 
(Prograninende ?) 
dann fertig 

sonst Zeilennr. laden 





Die Listings der CPC-ROMs 521 


E7D1 

6F 



LD 

L,A 

E7D2 

EB 



EX 

DE,HL 

E7D3 

CD 

B8 

FF 

CALL 

FFB8 

E7D6 

EB 



EX 

DE,HL 

E7D7 

38 

04 


JR 

C, E7DD 

E7D9 

El 



POP 

HL 

E7DA 

09 



ADD 

HL ,BC 

E7DB 

18 

E8 


JR 

E7C5 

E7DD 

El 



POP 

HL 

E7DE 

C9 



RET 


********************************** 

E7DF 

11 

0A 

00 

LD 

DE,000A 

E7E2 

28 

05 


JR 

Z,E7E9 

E7E4 

FE 

2C 


CP 

2C 

E7E6 

C4 

El 

CE 

CALL 

NZ,CEE1 

E7E9 

D5 



PUSH 

DE 

E7EA 

11 

00 

00 

LD 

DE,0000 

E7ED 

CD 

55 

DD 

CALL 

DD55 

E7F0 

30 

05 


JR 

NC,E7F7 

E7F2 

FE 

2C 


CP 

2C 

E7F4 

C4 

El 

CE 

CALL 

NZ,CEE1 

E7F7 

D5 



PUSH 

DE 

E7F8 

11 

0A 

00 

LD 

DE ,000A 

E7FB 

CD 

55 

DD 

CALL 

DD55 

E7FE 

DC 

El 

CE 

CALL 

C,CEE1 

E801 

CD 

4A 

DD 

CALL 

DD4A 

E804 

El 



POP 

HL 

E805 

EB 



EX 

DE,HL 

E806 

E3 



EX 

(SP),HL 

E807 

EB 



EX 

DE,HL 

E808 

D5 



PUSH 

DE 

E809 

E5 



PUSH 

HL 

E80A 

CD 

A3 

E7 

CALL 

E7A3 

E80D 

Dl 



POP 

DE 

E80E 

E5 



PUSH 

HL 

E80F 

CD 

A3 

E7 

CALL 

E7A3 

E812 

EB 



EX 

DE,HL 

E813 

El 



POP 

HL 

E814 

CD 

B8 

FF 

CALL 

FFB8 

E817 

DA 

55 

E7 

JP 

C,E755 

E81A 

EB 



EX 

DE,HL 

E81B 

Dl 



POP 

DE 

E81C 

Ci 



POP 

BC 

E81D 

D5 



PUSH 

DE 

E81E 

E5 



PUSH 

HL 

E81F 

C5 



PUSH 

BC 

E820 

4E 



LD 

C,(HL ) 

E821 

23 



INC 

HL 

E822 

46 



LD 

B, (HL) 

E823 

78 



LD 

A,B 

E824 

Bl 



OR 

C 

E825 

28 

13 


JR 

Z,E83A 

E827 

2B 



DEC 

HL 

E828 

09 



ADD 

HL,BC 

E829 

7E 



LD 

A, (HL) 

E82A 

23 



INC 

HL 

E82B 

B6 



OR 

(HL) 


mit gesuchter Nr. vergleichen 

Nr. > gesuchte Nr. ? d. fertig 
sonst Zeiger auf Zeile zurück 
Zeilenlänge addieren 
weiter suchen 
Zeiger auf Zeile 


Basic-Befehl RENUM 

Default f. neue Startzeilennr. 
Statementende ? dann Default 

II li 7 

t 

nein ? dann Zeilennr. holen 
neue Startzeilennunmer retten 
Default f. alte Startzeilennr. 
folgt Komma ? 
nein ? dann Default 
zweites Komma ? 
nein ? dann Zeilennr. holen 
alte Startzeilennummer retten 
Default für Schrittweite 
folgt Komma ? 
dann Schrittweite holen 
auf Statementende prüfen 
alte Startzeilennr. 
Schrittweite retten, 
neue Startzeilennurmer 
vom Stack 

neue Startzeilennr. 
alte Startzeilennr. 
neue Startzeilennr. suchen 
alte Startzeilennr. 
neue Startzeilenadresse 
alte Startzeilennr. suchen 
alte Startzeilenadr. nach DE 
neue Startzeilenadresse 
alte Startzeilenadr. größer ? 
dann "Improper argument" 
alte Startzeilenadr, nach HL 
neue Startzeilennr. 

Schrittweite 
neue Startzeilennr., 
alte Startzeilenadr., 
Schrittweite retten 

Zeilenlänge laden 

Zeilenlänge =0 ? 
(Programmende ?) 
dann mit RENUM beginnen 
Zeiger auf Zeile 
Länge addieren 
nächste 

Zeilenlänge =0 ? 
(Prograrrenende ?) 
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E82C 

28 

0C 


JR 

Z,E83A 

E82E 

2B 



DEC 

HL 

E82F 

Ci 



POP 

BC 

E830 

E5 



PUSH 

HL 

E831 

EB 



EX 

DE,HL 

E832 

09 



ADD 

HL,BC 

E833 

EB 



EX 

DE,HL 

E834 

DA 

55 

E7 

JP 

C,E755 

E837 

El 



POP 

HL 

E838 

18 

E5 


JR 

E81F 

E83A 

01 

64 

E8 

LD 

BC,E864 

E83D 

CD 

FF 

E8 

CALL 

E8FF 

E840 

CI 



POP 

BC 

E841 

El 



POP 

HL 

E842 

Dl 



POP 

DE 

E843 

C5 



PUSH 

BC 

E844 

E5 



PUSH 

HL 

E845 

4E 



LD 

0, (HL) 

E846 

23 



INC 

HL 

E847 

46 



LD 

B, (HL) 

E848 

23 



INC 

HL 

E849 

78 



LD 

A,B 

E84A 

Bl 



OR 

C 

E84B 

28 

OC 


JR 

Z, E859 

E84D 

73 



LD 

(HL),E 

E84E 

23 



INC 

HL 

E84F 

72 



LD 

(HL),D 

E850 

23 



INC 

HL 

E851 

El 



POP 

HL 

E852 

09 



ADD 

HL,BC 

E853 

CI 



POP 

BC 

E854 

EB 



EX 

DE,HL 

E855 

09 



ADD 

HL,BC 

E856 

EB 



EX 

DE,HL 

E857 

18 

EA 


JR 

E843 

E859 

El 



POP 

HL 

E85A 

El 



POP 

HL 

E85B 

01 

88 

E8 

LD 

BC,E888 

E85E 

CD 

FF 

E8 

CALL 

E8FF 

E861 

C3 

64 

C0 

JP 

C064 


**☆****■& £****☆ TÄr •k'kit'ifirk'k •kidrk £ ****** * 


E864 

CD 

43 

E9 

CALL 

E943 

E867 

FE 

02 


CP 

02 

E869 

D8 



RET 

C 

E86A 

FE 

IE 


CP 

IE 

E86C 

20 

F6 


JR 

NZ,E864 

E86E 

E5 



PUSH 

HL 

E86F 

56 



LD 

D, (HL) 

E870 

2B 



DEC 

HL 

E871 

5E 



LD 

E, (HL) 

E872 

CD 

A3 

E7 

CALL 

E7A3 

E875 

30 

0E 


JR 

NC,E885 

E877 

2B 



DEC 

HL 

E878 

EB 



EX 

DE,HL 

E879 

El 



POP 

HL 

E87A 

E5 



PUSH 

HL 

E87B 

72 



LD 

(HL),D 


dann mit RENUM beginnen 
Zeiger auf Zeile 
Schrittweite 
Zeiger auf Zeile 
Differenz zu 
neuer Zei lennutmrer 
addieren 

Überlauf ? dann Fehler 
Zeiger auf Zeile 
weiter prüfen 

Adr. für Zeilennr. ersetzen 

Programm durchgehen, ersetzen 

Schrittweite 

alte Startzeilenadresse 

neue Startzeilennummer 

Schrittweite 

Zeiger auf Zeile 

Zeilen länge laden 


Zeilen länge =0 ? 
(Prograranende ?) 
dann fertig numeriert 

neue Zeilennumer in 
Zeile speichern 

Zeiger auf Zeile 
Länge addieren 
Schrittweite 

zu Zeilennr. addieren 

nächste Zeile 

Zeiger auf Zeile 

und Schrittweite vom Stack 

Adr. für Fehler bei Zeilennr. 

Programm durchgehen 

zur Eingabeschleife 

Zeilennr. im Statement ersetzen 
nächstes Item holen 
Statementende ? 
dann zurück 

Token für Zeilennummer ? 
nein ? dann weiter suchen 
Zeiger auf Zeilennr. hi 

Zeilennumer laden 

Zeile im Prograrrsn suchen 
nicht gefunden ? dann weiter 
Zeiger auf Null vor Zeile 
nach DE 

Zeiger auf Zeilennr. hi 
Zeilennunmer durch 
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E87C 

2B 

DEC 

HL 

E87D 

73 

LD 

(HL) ,E 

E87E 

2B 

DEC 

HL 

E87F 

3E ID 

LD 

A, ID 

E881 

77 

LD 

(HL),A 

E882 

32 3A AE 

LD 

(AE3A),A 

E885 

El 

POP 

HL 

E886 

18 DC 

JR 

E864 


*************************** irtt ** * 


E888 

CD 

43 

E9 

CALL 

E943 

E88B 

FE 

02 


CP 

02 

E88D 

D8 



RET 

C 

E88E 

FE 

IE 


CP 

IE 

E890 

20 

F6 


JR 

NZ.E888 

E892 

E5 



PUSH 

HL 

E893 

56 



LD 

D, (HL) 

E894 

2B 



DEC 

HL 

E895 

5E 



LD 

E,(HL) 

E896 

CD 

D6 

DD 

CALL 

DDD6 

E899 

CD 

18 

CB 

CALL 

CB18 

E89C 

El 



POP 

HL 

E89D 

18 

E9 


JR 

E888 


i*r * £ ***# # ***** *■ *■ ☆★ft************* * 


E89F 

06 

01 


LD 

B,01 

E8A1 

2B 



DEC 

HL 

E8A2 

CD 

43 

E9 

CALL 

E943 

E8A5 

B7 



OR 

A 

E8A6 

C8 



RET 

Z 

E8A7 

FE 

01 


CP 

01 

E8A9 

28 

07 


JR 

Z,E8B2 

E8AB 

FE 

AI 


CP 

AI 

E8AD 

20 

F3 


JR 

NZ,E8A2 

E8AF 

04 



INC 

B 

E8B0 

18 

F0 


JR 

E8A2 

E8B2 

CD 

43 

E9 

CALL 

E943 

E8B5 

FE 

97 


CP 

97 

E8B7 

20 

EC 


JR 

NZ,E8A5 

E8B9 

05 



DEC 

B 

E8BA 

20 

E6 


JR 

NZ,E8A2 

E8BC 

CD 

3F 

DD 

CALL 

DD3F 

E8BF 

04 



INC 

B 

E8C0 

C9 



RET 


* *** * * * ****** * * * * * ** * ** ft 1t Ir 1t ***** * * 

E8C1 

7E 



LD 

A, (HL) 

E8C2 

FE 

5B 


CP 

5B 

E8C4 

28 

03 


JR 

Z,E8C9 

E8C6 

FE 

28 


CP 

28 

E8C8 

C0 



RET 

NZ 

E8C9 

06 

00 


LD 

8,00 

E8CB 

04 



INC 

B 


Zeilenadresse 

(Zeiger auf Null vor Zeile) 
ersetzen 

Token für Zeilenadresse 
setzen 

Flag für Zeilenadressen setzen 
SuchZeiger 

Statement weiter durchgehen 

bei Znr. im Statem. Fehler ausg. 
nächstes Item holen 
Statementende ? 
dann zurück 

Token für Zeilennummer ? 
nein ? dann weiter suchen 
Zeiger auf Zeilennr. hi 

Zeilennumner laden 

akt. Zeilennr. holen (??) 
"undefined line xxxx in yyyy" 
Suchzeiger 

Statement weiter durchgehen 

zugehöriges ELSE suchen 
IN : HL: PC 

OUT: Z=0 für ELSE gefunden 

HL: Zeiger nach ELSE-Token 
Z=1 für kein ELSE gefunden 
HL: Zeiger auf nächste Zeile 
Verschachtelungstiefe 
PC eins zurück 
nächstes Item holen 
Zeilenende ? 

dann nicht gefunden, Z=1 

Statementende (":") ? 

dann auf ELSE prüfen 

Token für IF ? 

nein ? dann weiter suchen 

Verschachtelungstiefe erhöhen 

weiter suchen 

nächstes Item holen 

Token für ELSE ? 

nein ? dann weiter suchen 

Verschachtelungstiefe 

weitere Verschachtelungen ? 

Zeiger nach ELSE-Token 

Z=0 für ELSE gefunden 


Arrayindizes ggf. überlesen 
akt. Zeichen 
eckige Klammer auf ? 
dann Indizes über lesen 
runde Klammer auf ? 
nein ? dann kein Array 
Klammer-Verschachtelungstiefe 
erhöhen 
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E8CC 

CD 

43 

E9 

CALL 

E943 

nächstes Item holen 

E8CF 

FE 

5B 


CP 

5B 

eckige Klammer auf ? 

E8D1 

28 

F8 


JR 

Z,E8CB 

dann Tiefe erhöhen 

E8D3 

FE 

28 


CP 

28 

runde Klammer auf ? 

E8D5 

28 

F4 


JR 

Z,E8CB 

dann Tiefe erhöhen 

E8D7 

FE 

5D 


CP 

5D 

eckige Klammer zu ? 

E8D9 

28 

0A 


JR 

Z,E8E5 

dann Tiefe herunterzäh len 

E8DB 

FE 

29 


CP 

29 

runde Kl armer zu ? 

E8DD 

28 

06 


JR 

Z,E8E5 

dann Tiefe herunterzählen 

E8DF 

FE 

02 


CP 

02 

Statementende ? 

E8E1 

38 

07 


JR 

C,E8EA 

dann "Syntax error" 

E8E3 

18 

E7 


JR 

E8CC 

sonst weiter suchen 

E8E5 

05 



DEC 

B 

Verschachtelungstiefe 

E8E6 

20 

E4 


JR 

NZ,E8CC 

weitere Verschachtelungen ? 

E8E8 

23 



INC 

HL 

Zeiger nach Indizes 

E8E9 

C9 



RET 



E8EA 

IE 

02 


LD 

E, 02 

Nr. für "Syntax error" 

E8EC 

C3 

94 

CA 

JP 

CA94 

Fehler ausgeben 

********************************** 

Basic-Befehl DATA 

E8EF 

06 

01 


LD 

B,01 

Trennzeichen, 

E8F1 

18 

02 


JR 

E8F5 

nächstes Statement suchen 

************* * tät 1t ** ********* ** * **** 

Basic-Befehle REM, ELSE, 1 

E8F3 

06 

00 


LD 

B,00 

Trennzeichen = Zeilenende 

E8F5 

2B 



DEC 

HL 


E8F6 

CD 

43 

E9 

CALL 

E943 

nächstes Item holen 

E8F9 

B7 



OR 

A 

Zei lenerrde ? 

E8FA 

C8 



RET 

Z 

dann zurück 

E8FB 

B8 



CP 

B 

Trennzeichen ? 

E8FC 

20 

F8 


JR 

NZ,E8F6 

nein ? dann weiter suchen 

E8FE 

C9 



RET 




* ** * ********** ** ** * * * *** ** ** * ** * * * 


E8FF 

CD 

D2 

DD 

CALL 

DDD2 

E902 

E5 



PUSH 

HL 

E903 

2A 

81 

AE 

LD 

HL,(AE81) 

E906 

23 



INC 

HL 

E907 

7E 



LD 

A, (HL) 

E908 

23 



INC 

HL 

E909 

B6 



OR 

(HL) 

E90A 

28 

13 


JR 

Z,E91F 

E90C 

23 



INC 

HL 

E90D 

CD 

CE 

DD 

CALL 

DDCE 

E910 

23 



INC 

HL 

E911 

C5 



PUSH 

BC 

E912 

CD 

F9 

FF 

CALL 

FFF9 

E915 

Ci 



POP 

BC 

E916 

2B 



DEC 

HL 

E917 

CD 

35 

E9 

CALL 

E935 

E91A 

B7 



OR 

A 

E91B 

20 

F4 


JR 

NZ,E911 

E91D 

18 

E7 


JR 

E906 

E91 F 

El 



POP 

HL 

E920 

C3 

CE 

DD 

JP 

DDCE 


Programm durchgehen, Routine aus. 
IN : BC: Adresse der Routine 

(Routine für ein Statement) 
aktuelle Zeilenadresse holen 
und retten 

Zeiger auf Programmstart 
Null am Zeilenende übergehen 

nächste Zeilenlänge =0 ? 
(Programmende ?) 
dann fertig 

Zeiger auf Zeilennummer 
als akt. Zeilenadresse setzen 
Zeiger auf Zei lennurrmer hi 
Adresse der Routine retten 
Routine ausführen 
Adresse der Routine zurück 
Zg. auf letztes bearb. Zeichen 
bis Statementende/THEN/ELSE 
Zeilenende ? 

nein ? dann nächstes Statement 
sonst nächste Zeile 
alte Zeilenadresse 
wieder als akt. Zeilenadresse 
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********************************** 


E923 

CD 

35 

E9 

CALL 

E935 

E926 

B7 



OR 

A 

E927 

CO 



RET 

NZ 

E928 

23 



INC 

HL 

E929 

7E 



LD 

A, (HL) 

E92A 

23 



INC 

HL 

E92B 

B6 



OR 

(HL) 

E92C 

59 



LD 

E,C 

E92D 

CA 

94 

CA 

JP 

Z.CA94 

E930 

23 



INC 

HL 

E931 

54 



LD 

D, H 

E932 

5D 



LD 

E,L 

E933 

23 



INC 

HL 

E934 

C9 



RET 


*********************** ****■**■**■*■*■*■ 

E935 

CD 

43 

E9 

CALL 

E943 

E938 

FE 

02 


CP 

02 

E93A 

D8 



RET 

C 

E93B 

FE 

97 


CP 

97 

E93D 

C8 



RET 

Z 

E93E 

FE 

EB 


CP 

EB 

E940 

20 

F3 


JR 

NZ,E935 

E942 

C9 



RET 



***************************** *r*r*f *r*r 


E943 

CD 

3F DD 

CALL 

DD3F 

E946 

C8 


RET 

Z 

E947 

FE 

0E 

CP 

0E 

E949 

38 

ID 

JR 

C,E968 

E94B 

FE 

20 

CP 

20 

E94D 

38 

29 

JR 

C,E978 

E94F 

FE 

22 

CP 

22 

E951 

28 

09 

JR 

Z,E95C 

E953 

FE 

7C 

CP 

7C 

E955 

28 

19 

JR 

Z,E970 

E957 

FE 

FF 

CP 

FF 

E959 

CO 


RET 

NZ 

E95A 

23 


INC 

HL 

E95B 

C9 


RET 


********************************** 

E95C 

23 


INC 

HL 

E95D 

7E 


LD 

A, (HL) 

E95E 

FE 

22 

CP 

22 

E960 

C8 


RET 

Z 

E961 

B7 


OR 

A 

E962 

20 

F8 

JR 

NZ.E95C 

E964 

2B 


DEC 

HL 

E965 

3E 

22 

LD 

A,22 

E967 

C9 


RET 



nächstes Statement, ggf. Fehler 
IN : C: Nr. des Fehlers 
IN/OUT: DE: akt. Zeilenadresse 
Statementende/THEN/ELSE suchen 
Zeilenende ? 
nein ? dann o.k. 


nächste Zeilenlänge =0 ? 
(Programmende ?) 

Nr. des Fehlers 
Programmende ? dann Fehler 
Zeiger auf Zei lennujmier 
nach DE 

Zeiger vor Zeilentext 


Statementende/THEN/ELSE suchen 
nächstes Item holen 
Statementende ? 
dann zurück 
Token für ELSE ? 
dann zurück 
Token für THEN ? 
nein ? dann weiter suchen 


nächstes Item suchen 
IN : HL: PC vor Item 
OUT: HL: PC vor nächstem Item 
A: Token dieses Items 
1. Zeichen des Items holen 
Statementende ? dann zurück 
Token für Variable ? 
dann Namen über lesen 
Token für Konstante ? 
dann Wert überiesen 

! II I 7 

dann String über lesen 
RSX-Token ? 

dann RSX-Wort über lesen 
Funktions-Token ? 
nein ? dann zurück 
sonst Zeiger auf Token 


String über lesen 
OUT: A: $22 

nächstes Zeichen 
laden 

I III 7 

dann zurück 
Zeilenende ? 

nein ? dann weitersuchen 
Zeiger vor Zeilenende 

1 I» I 
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********************************** 


E968 

FE 

08 

CP 

08 

E96A 

C8 


RET 

Z 

E96B 

FE 

07 

CP 

07 

E96D 

C8 


RET 

Z 

E96E 

23 


INC 

HL 

E96F 

23 


INC 

HL 

E970 

F5 


PUSH 

AF 

E971 

23 


INC 

HL 

E972 

7E 


LD 

A,(HL) 

E973 

17 


RLA 


E974 

30 

FB 

JR 

NC.E971 

E976 

Fl 


POP 

AF 

E977 

C9 


RET 


********************************** 

E978 

FE 

18 

CP 

18 

E97A 

D8 


RET 

C 

E97B 

FE 

19 

CP 

19 

E97D 

28 

08 

JR 

Z,E987 

E97F 

FE 

1 F 

CP 

1F 

E981 

38 

03 

JR 

C,E986 

E983 

23 


INC 

HL 

E984 

23 


INC 

HL 

E985 

23 


INC 

HL 

E986 

23 


INC 

HL 

E987 

23 


INC 

HL 

E988 

C9 


RET 



********************************** 


E989 

C5 



PUSH 

BC 

E98A 

D5 



PUSH 

DE 

E98B 

E5 



PUSH 

HL 

E98C 

01 

96 

E9 

LD 

BC,E996 

E98F 

CD 

FF 

E8 

CALL 

E8FF 

E992 

El 



POP 

HL 

E993 

Dl 



POP 

DE 

E994 

CI 



POP 

BC 

E995 

C9 



RET 



********************************** 


E996 

E5 



PUSH 

HL 

E997 

CD 

43 

E9 

CALL 

E943 

E99A 

Dl 



POP 

DE 

E99B 

FE 

02 


CP 

02 

E99D 

D8 



RET 

C 

E99E 

FE 

0E 


CP 

0E 

E9A0 

30 

F4 


JR 

NC.E996 

E9A2 

FE 

07 


CP 

07 

E9A4 

28 

F0 


JR 

Z.E996 

E9A6 

FE 

08 


CP 

08 

E9A8 

28 

EC 


JR 

Z,E996 

E9AA 

EB 



EX 

DE, HL 

E9AB 

CD 

3F 

DD 

CALL 

DD3F 

E9AE 

FE 

0D 


CP 

0D 

E9B0 

38 

02 


JR 

C,E9B4 

E9B2 

36 

0D 


LD 

(HL),0D 

E9B4 

23 



INC 

HL 


Variable überlesen 
(??) 


Token/Offset 
übergehen 
Token retten 
Zeiger auf Namen 
Byte aus Namen 
Name zu Ende ? 
nein ? dann weiter 
Variablen-Token 


Konstante über lesen 
Kurz-Konstante ? 
dann zurück 

Ein-Byte-Konstante ? 

REAL-Konstante ? 

nein ? dann Integer-Konstante 


Variablenoffsets löschen 


Adr. f. Offsets löschen 
Programm durchgehen 


Offsets im Statement löschen 
Zeiger vor Item 
nächstes Item holen 
Zeiger vor Item davor 
Statementende ? 
dann zurück 
keine Variable ? 
dann weiter suchen 

(??) 


Zeiger vor Variable nach HL 
Variablen-Token holen 

markierte Variable ? 

sonst Token f. Var. o. Kennz. 
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E9B5 

36 

00 


LD 

<HL),00 

E9B7 

23 



INC 

HL 

E9B8 

36 

00 


LD 

(HL),00 

E9BA 

EB 



EX 

DE, HL 

E9BB 

18 D9 


JR 

E996 

********************************** 

E9BD 

CD 

51 

DD 

CALL 

DD51 

E9C0 

EB 



EX 

DE,HL 

E9C1 

2A 

81 

AE 

LD 

HL,(AE81) 

E9C4 

EB 



EX 

DE,HL 

E9C5 

38 

IC 


JR 

C,E9E3 

E9C7 

FE 

IE 


CP 

IE 

E9C9 

28 

15 


JR 

Z,E9E0 

E9CB 

FE 

ID 


CP 

ID 

E9CD 

28 

11 


JR 

Z,E9E0 

E9CF 

CD 

0D 

EA 

CALL 

EA0D 

E9D2 

21 

30 

EA 

LD 

HL,EA30 

E9D5 

D2 

13 

BD 

JP 

NC,BD13 

E9D8 

CD 

A8 

EB 

CALL 

EBA8 

E9DB 

2A 

81 

AE 

LD 

HL,(AE81) 

E9DE 

18 

11 


JR 

E9F1 

E9E0 

CD 

67 

E7 

CALL 

E767 

E9E3 

D5 



PUSH 

DE 

E9E4 

CD 

AD 

D2 

CALL 

D2AD 

E9E7 

CD 

8C 

CI 

CALL 

C18C 

E9EA 

CD 

7A 

CI 

CALL 

C17A 

E9ED 

CD 

5E 

CI 

CALL 

C15E 

E9F0 

El 



POP 

HL 

E9F1 

23 



INC 

HL 

E9F2 

Fl 



POP 

AF 

E9F3 

C3 

93 

DD 

JP 

DD93 

** * ********* ************* ** *** * ** * 

E9F6 

CD 

0D 

EA 

CALL 

EA0D 

E9F9 

30 

06 


JR 

NC.EA01 

E9FB 

CD 

A8 

EB 

CALL 

EBA8 

E9FE 

C3 

64 

CO 

JP 

C064 

EA01 

E5 



PUSH 

HL 

EA02 

CD 

01 

F5 

CALL 

F501 

EA05 

CD 

30 

EA 

CALL 

EA30 

EA08 

CA 

6B 

CB 

JP 

Z,CB6B 

EAOB 

El 



POP 

HL 

EAOC 

C9 



RET 



* -k ********** ************ *** * * 


EA0D 

CD 

8F 

EB 

CALL 

EB8F 

EA10 

E6 

0E 


AND 

0E 

EA12 

EE 

02 


XOR 

02 

EA14 

28 

OB 


JR 

Z,EA21 

EA16 

CD 

4A 

DD 

CALL 

DD4A 

EA19 

CD 

8C 

CI 

CALL 

CISC 


Variablenoffset löschen 

Suchzeiger wieder nach HL 
weiter durchgehen 

Basic-Befehl RUN 
Statementende ? 

Progranmstart nach DE 

dann von Programmstart ab 
Token für Zeilennummer ? 
dann ab Prograrrmzei le 
Token für Zeilenadresse ? 
dann ab Programmzeile 
1. Block lesen und auswerten 
Adr. f. Binärdatei laden 
Binärdat. ? d. HC BOOT PROGRAH 
sonst Programm laden 
Zeiger auf Programmstart 
Programm starten 

Zeilenadresse holen 

Zeiger auf Einsprung retten 

Kassette initialisieren 

Variablen löschen 

Basic-Zeiger initialisieren 

Ausdruckausw. und I/O init. 

neuer Prograrrmzeiger 

Null am Zeilenende übergehen 

Aufrufadresse löschen 

zur Interpreterschleife 

Basic-Befehl LOAD 

1. Block lesen und auswerten 
Binärdatei ? 

sonst Basic-Programm laden 
zur Eingabeschleife 

Basic-PC retten 

Platz für Binärdatei prüfen 

Binärdatei laden 

Abbruch ? dann "Break" 

Basic-PC zurück 


1. Block des Prg. lesen/auswerten 
OUT: CY=1 für Basic-Prograiren 
CY=0 für Binärdatei 
DE: Startadresse 
BC: Länge 
1. Block lesen 
Bit für gesch. File löschen 
Code für Binärdatei ? 
dann behandeln 
auf Statementende prüfen 
Variablen löschen 
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EA1C 

CD 

6B 

CI 

CALL 

C16B 

Prograimi löschen, div. Init. 

EA1F 

37 



SCF 


CY=1 für Basic-Programm 

EA20 

C9 



RET 



EA21 

CD 

55 

DD 

CALL 

DD55 

folgt Kemna ? 

EA24 

DC 

91 

CE 

CALL 

C,CE91 

dann Startadresse holen 

EA27 

ED 

53 

3F AE 

LD 

(AE3F),DE 

Startadresse speichern 

EA28 

CD 

4A 

DD 

CALL 

DD4A 

auf Statementende prüfen 

EA2E 

B7 



OR 

A 

CY=0 für Binärdatei 

EA2F 

C9 



RET 



********************************** 

Binärdatei laden 







OUT: Z=1 für Abbruch 







CY=0 für Fehler 







HL: Aufrufadresse 

EA30 

2A 

3F 

AE 

LD 

HL,(AE3F) 

Startadresse für Binärdatei 

EA33 

CD 

83 

BC 

CALL 

BC83 

CAS IN DIRECT 

EA36 

E5 



PUSH 

HL 


EA37 

DC 

7A 

BC 

CALL 

C, BC7A 

kein Fehler ? d. CAS IN CLOSE 

EA3A 

El 



POP 

HL 


EA3B 

C9 



RET 



********************************** 

Basic-Befehl CHAIN 

EA3C 

EE 

AB 


XOR 

AB 

folgt Token für MERGE ? 

EA3E 

20 

04 


JR 

NZ.EA44 

nein ? dann CHAIN 

EA40 

CD 

3F 

DD 

CALL 

DD3F 

MERGE-Token übergehen 

EA43 

37 



SCF 


CY=1 für CHAIN MERGE 

EA44 

9F 



SBC 

A 

0 f. CHAIN, $FF f. CHAIN MERGE 

EA45 

32 

41 

AE 

LD 

(AE41) ,A 

Flag speichern 

EA48 

CD 

8F 

EB 

CALL 

EB8F 

1. Block lesen 

EA4B 

11 

00 

00 

LD 

DE,0000 

Default-Startzeilennr. 

EA4E 

CD 

55 

DD 

CALL 

DD55 

folgt Komma ? 

EA51 

30 

06 


JR 

NC,EA59 

nein ? d. Default (Prg.-Start) 

EA53 

7E 



LD 

A, (HL) 

nächstes Zeichen 

EA54 

FE 

2C 


CP 

2C 

zweites Komma ? 

EA56 

C4 

91 

CE 

CALL 

NZ,CE91 

nein ? d. Startzeilennr. holen 

EA59 

D5 



PUSH 

DE 

Startzeilennr. retten 

EA5A 

CD 

55 

DD 

CALL 

DD55 

folgt Komma ? 

EA5D 

3E 

00 


LD 

A,00 

Flag für kein DELETE 

EA5F 

30 

09 


JR 

NC,EA6A 

kein Komma ? 

EA61 

CD 

37 

DD 

CALL 

DD37 

sonst Test auf DELETE 

EA64 

92 





Token für DELETE 

EA65 

CD 

37 

E7 

CALL 

E737 

zu löschenden Bereich holen 

EA68 

3E 

FF 


LD 

A, FF 

Flag für DELETE 

EA6A 

F5 



PUSH 

AF 

DELETE-Flag retten 

EA6B 

CD 

4A 

DD 

CALL 

DD4A 

auf Statementende prüfen 

EA6E 

CD 

1B 

FB 

CALL 

FBI B 

Strings in Stringb. forcieren 

EA71 

CD 

3E 

FC 

CALL 

FC3E 

Garbage Collection 

EA74 

CD 

89 

E9 

CALL 

E989 

Variablenoffsets löschen 

EA77 

CD 

D2 

D5 

CALL 

D5D2 

definierte Funktionen löschen 

EA7A 

CD 

49 

F5 

CALL 

F549 

Variablen in Stringber. retten 

EA7D 

Fl 



POP 

AF 

DELETE-Flag 

EA7E 

C5 



PUSH 

BC 

Länge der Variablen 

EA7F 

D5 



PUSH 

DE 

Länge der einfachen Variablen 

EA80 

B7 



OR 

A 

DELETE-Flag gesetzt ? 

EA81 

C4 

5A 

E7 

CALL 

NZ,E75A 

dann Bereich löschen 

EA84 

3A 

41 

AE 

LD 

A,(AE41) 

Flag für CHAIN/CHAIN MERGE 

EA87 

B7 



OR 

A 

CHAIN MERGE ? 
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EA88 

20 

08 


JR 

NZ,EA92 

EA8A 

CD 

6B 

CI 

CALL 

C16B 

EA8D 

CD 

A8 

EB 

CALL 

EBA8 

EA90 

18 

03 


JR 

EA95 

EA92 

CD 

9D 

EB 

CALL 

EB9D 

EA95 

Dl 



POP 

DE 

EA96 

CI 



POP 

BC 

EA97 

CD 

71 

F5 

CALL 

F571 

EA9A 

Dl 



POP 

DE 

EA9B 

2A 

81 

AE 

LD 

HL,(AE81) 

EA9E 

7A 



LD 

A,D 

EA9F 

B3 



OR 

E 

EAAO 

C8 



RET 

Z 

EAA1 

CD 

9A 

E7 

CALL 

E79A 

EAA4 

2B 



DEC 

HL 

EAA5 

C9 



RET 



********************************** 


EAA6 

CD 

8F 

EB 

CALL 

EB8F 

EAA9 

CD 

4A 

DD 

CALL 

DD4A 

EAAC 

CD 

8C 

CI 

CALL 

C18C 

EAAF 

CD 

9D 

EB 

CALL 

EB9D 

EAB2 

C3 

64 

CO 

JP 

C064 

********************************** 

EAB5 

CD 

7A 

CI 

CALL 

C17A 

EAB8 

CD 

87 

E6 

CALL 

E687 

EABB 

2A 

83 

AE 

LD 

HL,(AE83) 

EABE 

EB 



EX 

DE,HL 

EABF 

2A 

81 

AE 

LD 

HL,(AE81) 

EAC2 

23 



INC 

HL 

EAC3 

22 

83 

AE 

LD 

(AE83),HL 

EAC6 

EB 



EX 

DE, HL 

EAC7 

CD 

DA 

FF 

CALL 

FFDA 

EACA 

EB 



EX 

DE,HL 

EACB 

2A 

8D 

B0 

LD 

HL,(B08D) 

EACE 

EB 



EX 

DE,HL 

EACF 

2B 



DEC 

HL 

EAD0 

CD 

F5 

FF 

CALL 

FFF5 

EAD3 

13 



INC 

DE 

EAD4 

EB 



EX 

DE,HL 

EAD5 

E5 



PUSH 

HL 

EAD6 

2A 

83 

AE 

LD 

HL,(AE83) 

EAD9 

11 

20 

00 

LD 

DE,0020 

EADC 

19 



ADD 

HL,DE 

EADD 

EB 



EX 

DE,HL 

EADE 

El 



POP 

HL 

EADF 

CD 

B8 

FF 

CALL 

FFB8 

EAE2 

38 

50 


JR 

C,EB34 

EAE4 

CD 

84 

EB 

CALL 

EB84 

EAE7 

B3 



OR 

E 

EAE8 

28 

30 


JR 

Z,EB1A 

EAEA 

D5 



PUSH 

DE 

EAEB 

CD 

84 

EB 

CALL 

EB84 

EAEE 

E5 



PUSH 

HL 

EAEF 

7E 



LD 

A, (HL) 

EAF0 

23 



INC 

HL 

EAF1 

B6 



OR 

(HL) 


dann Prograrrm mergen 
Programm löschen 
Programm laden 

Programm mergen 
Länge der einfachen Variablen 
Länge der Variablen 
Var. aus Stringbereich zurück 
Startzeilennummer 
Zeiger auf Programmstart 
Flag für Programmstart ? 

dann fertig 

sonst Zeilenadresse holen 
Zeiger auf Zeilenende davor 


Basic-Befehl MERGE 
1. Block lesen 
auf Statementende prüfen 
Variablen löschen 
Programm mergen 
zur Eingabeschleife 

Programm mergen 

Basic-Zeiger initialisieren 
Zeilenadresse eliminieren 
Zeiger auf Programmende 
nach DE 

Zeiger auf Programmstart 
Zeiger auf erste Zeile 
als neues Progranmende setzen 
altes Progranmende 
-Programmstart 
=Programmlänge, nach BC 
Zeiger auf Start der Strings 
als Zieladresse nach DE 
Zeiger a. letztes Programmbyte 
Programm nach oben verschieben 
Zeiger auf erste Zeile 
nach HL 

Zeiger auf Zeile d. alten Prg. 
Zeiger auf neues Programmende 
min. Platz 
addieren 

Endzeiger nach DE 
Zeiger auf Zeile d. alten Prg. 
mit Endzeiger vergleichen 
kein Platz ? dann Fehler 
näch. Zeilenlänge von Kassette 
Zeilenlänge =0 ? 
dann Programmende 
Zeilen länge 

Zeilennr. von Kassette holen 
Zeiger auf Zeile d. alten Prg. 

nächste Zeilenlänge =0 ? 
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EAF2 

28 

12 


JR 

Z.EB06 

EAF4 

23 



INC 

HL 

EAF5 

7E 



LD 

A, (HL) 

EAF6 

23 



INC 

HL 

EAF7 

66 



LD 

H, (HL) 

EAF8 

6F 



LD 

L,A 

EAF9 

CD 

B8 

FF 

CALL 

FFB8 

EAFC 

El 



POP 

HL 

EAFD 

28 

0F 


JR 

Z.EB0E 

EAFF 

30 

06 


JR 

NC.EB07 

EB01 

CD 

48 

EB 

CALL 

EB48 

EB04 

18 

E8 


JR 

EAEE 

EB06 

El 



POP 

HL 

EB07 

E3 



EX 

(SP),HL 

EB08 

CD 

5E 

EB 

CALL 

EB5E 

EBOB 

El 



POP 

HL 

EBOC 

18 

C7 


JR 

EAD5 

EBOE 

E3 



EX 

(SP),HL 

EBOF 

CD 

5E 

EB 

CALL 

EB5E 

EB12 

El 



POP 

HL 

EB13 

5E 



LD 

E,(HL) 

E B14 

23 



INC 

HL 

EB15 

56 



LD 

D,(HL) 

EB16 

2B 



DEC 

HL 

EB17 

19 



ADD 

HL,DE 

EB18 

18 

BB 


JR 

EAD5 

EB1A 

7E 



LD 

A, (HL) 

EB1B 

23 



INC 

HL 

EB1C 

B6 



OR 

(HL) 

EB1D 

2B 



DEC 

HL 

EB1E 

28 

05 


JR 

Z,EB25 

EB20 

CD 

48 

EB 

CALL 

EB48 

EB23 

18 

F5 


JR 

EB1A 

EB25 

2A 

83 

AE 

LD 

HL,(AE83) 

EB28 

36 

00 


LD 

(HL),00 

EB2A 

23 



INC 

HL 

EB2B 

36 

00 


LD 

(HL),00 

EB2D 

23 



INC 

HL 

EB2E 

22 

83 

AE 

LD 

(AE83),HL 

EB31 

C3 

Bl 

D5 

JP 

D5B1 

EB34 

IE 

07 


LD 

E,07 

EB36 

18 

02 


JR 

EB3A 

EB38 

IE 

18 


LD 

E, 18 

EB3A 

D5 



PUSH 

DE 

EB3B 

CD 

AD 

D2 

CALL 

D2AD 

EB3E 

CD 

8C 

Ci 

CALL 

C18C 

EB41 

CD 

6B 

CI 

CALL 

C16B 

EB44 

Dl 



POP 

DE 

EB45 

C3 

94 

CA 

JP 

CA94 


☆**#***☆**☆*#£#****#***#*#******** 


EB48 

C5 

PUSH 

BC 

EB49 

D5 

PUSH 

DE 

EB4A 

E5 

PUSH 

HL 

EB4B 

4E 

LD 

C,(HL) 


dann altes Programm zu Ende 

nächste Zeilennr. 
aus altem Programm 


m. zu ladender Nr. vergleichen 
Zeiger auf Zeile d. alten Prg. 
gleich ? d. alte Zeile überg. 
Nr. aus altem Prg. größer ? 
Zeile aus altem Programm kop. 
nächste Zeile des alten Prg. 
zweitoberstes Stackelement 
(Länge der neuen Zeile) 

Zeile von Kassette laden 
Zeiger auf Zeile d. alten Prg. 
weiter laden 

Zg. alte Zeile r., Länge zur. 
Zeile von Kassette laden 
Zeiger auf Zeile d. alten Prg. 

Zeilen länge laden 

Zeiger auf Zeile 
Länge addieren 
weiter laden 

nächste Zeilenlänge 


altes Programm zu Ende ? 

Zeile aus altem Prg. kopieren 
altes Prg. weiter kopieren 
Zeiger auf Programmende 

Zeilenlänge Null 
als Endkennzeichen 

Zeiger auf Programmende setzen 
Variablenbereich freigeben 

Nr. für "Memory full" 

Nr. für "EOF met" 

Fehlernr. retten 
Kassette init./abbrechen 
Variablen löschen 
Programm löschen 
Fehlernr. zurück 
Fehler ausgeben 

Zeile aus altem Programm kopieren 
IN : HL: Zeiger auf zu kop. Zeile 
OUT: HL: Zeiger nach Zeile 


Zeiger auf Zeile d. alten Prg. 
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EB4C 

23 



INC 

HL 

EB4D 

46 



LD 

B, (HL) 

EB4E 

2A 

83 

AE 

LD 

HL,(AE83) 

EB51 

EB 



EX 

DE,HL 

EB52 

El 



POP 

HL 

EB53 

CD 

F2 

FF 

CALL 

FFF2 

EB56 

EB 



EX 

DE,HL 

EB57 

22 

83 

AE 

LD 

(AE83),HL 

EB5A 

EB 



EX 

DE,HL 

EB5B 

Dl 



POP 

DE 

EB5C 

CI 



POP 

BC 

EB5D 

C9 



RET 



irk'kic^'lckirkirkit'kiftrickit'k'k'k'irk-k'kirk’ttitit'kirk'it 


EB5E 

D5 



PUSH 

DE 

EB5F 

EB 



EX 

DE,HL 

EB60 

2A 

83 

AE 

LD 

HL,(AE83) 

EB63 

73 



LD 

(HL),E 

EB64 

23 



INC 

HL 

EB65 

72 



LD 

(HL),D 

EB66 

23 



INC 

HL 

EB67 

EB 



EX 

DE,HL 

EB68 

E3 



EX 

(SP),HL 

EB69 

EB 



EX 

DE,HL 

EB6A 

73 



LD 

(HL),E 

EB6B 

23 



INC 

HL 

EB6C 

72 



LD 

(HL),D 

EB6D 

23 



INC 

HL 

EB6E 

Dl 



POP 

DE 

EB6F 

1B 



DEC 

DE 

EB70 

1B 



DEC 

DE 

EB71 

1B 



DEC 

DE 

EB72 

1B 



DEC 

DE 

EB73 

7A 



LD 

A,D 

EB74 

B3 



OR 

E 

EB75 

28 

09 


JR 

Z,EB80 

EB77 

CD 

80 

BC 

CALL 

BC80 

EB7A 

30 

BC 


JR 

NC,EB38 

EB7C 

77 



LD 

(HL),A 

EB7D 

23 



INC 

HL 

EB7E 

18 

F2 


JR 

EB72 

EB80 

22 

83 

AE 

LD 

(AE83),HL 

EB83 

C9 



RET 





EB84 

CD 

80 

BC 

CALL 

BC80 

EB87 

5F 



LD 

E,A 

EB88 

DC 

80 

BC 

CALL 

C,BC80 

EB8B 

30 

AB 


JR 

NC,EB38 

EB8D 

57 



LD 

D,A 

EB8E 

C9 



RET 



Zeilenlänge laden 

bisheriges Programmende des 
neuen Prograirms nach DE 
Zeiger auf Zeile d. alten Prg. 
Zeile in neues Prg. kopieren 
Endadresse der Zeile 
als neues Programnende 
setzen 


Programmzeile von Kassette laden 
IN : HL: Zeilenlänge 
DE: Zei lennuirmer 
beim CPC 664/6128: 

OUT: CY=0 für Fehler (EOF) 
Zeilennr. retten 
Zeilenlänge nach DE 
bisheriges Programmende 

Zeilenlänge in folgende 
Zeile eintragen 

Zeilenlänge retten, 

Zei lennuraner zurück 


Zei lennurrener in Zeile 
eintragen 

Zeilenlänge 

4 Bytes für Zeilenlänge 
und Zeilennr. übergehen 

restliche Zeilenlänge 
=0 ? 

dann Zeile fertig geladen 
Zeichen von Kassette 
EOF ? dann "EOF met" 
sonst Zeichen in Zeile speich. 

Zeile weiter laden 
neues Programmende setzen 


Zwei-Byte-Wert von Kassette laden 
OUT: DE: Wert; A: Hi-Byte 
beim CPC 664/6128: 

OUT: CY=0 für Fehler (EOF) 

Zeichen von Kassette holen 
als Lo-Byte 

kein EOF ? dann 2. Zeichen 
EOF ? dann "EOF met" 

2. Zeichen als Hi-Byte 
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** * ****** * ******* **■**★*■* * ***** * 


EB8F 

CD 

AD 

D2 

CALL 

D2AD 

EB92 

CD 

6A 

D2 

CALL 

D26A 

EB95 

32 

42 

AE 

LD 

(AE42),A 

EB98 

ED 

43 

43 AE 

LD 

(AE43),BC 

EB9C 

C9 



RET 


********************************** 

EB9D 

3A 

42 

AE 

LD 

A, (AE42) 

EBAO 

B7 



OR 

A 

EBA1 

CA 

B5 

EA 

JP 

Z, EAB5 

EBA4 

FE 

16 


CP 

16 

EBA6 

20 

OB 


JR 

NZ,EBB3 


********************************** 


EBA8 

3A 

42 

AE 

LD 

A,(AE42) 

EBAB 

FE 

16 


CP 

16 

EBAD 

28 

40 


JR 

Z,EBEF 

EBAF 

E6 

FE 


AND 

FE 

EBB1 

28 

05 


JR 

Z, EBB8 

EBB3 

IE 

19 


LD 

E, 19 

EBB5 

C3 

94 

CA 

JP 

CA94 

EBB8 

CD 

7A 

CI 

CALL 

C17A 

EBBB 

2A 

81 

AE 

LD 

HL,(AE81) 

EBBE 

23 



INC 

HL 

EBBF 

EB 



EX 

DE,HL 

EBCO 

2A 

8D 

B0 

LD 

HL, (B08D) 

EBC3 

01 

80 

FF 

LD 

BC,FF80 

EBC6 

09 



ADD 

HL,BC 

EBC7 

ED 

4B 

43 AE 

LD 

BC,(AE43) 

EBCB 

CD 

CF 

FF 

CALL 

FFCF 

EBCE 

D4 

BE 

FF 

CALL 

NC,FFBE 

EBD1 

DA 

34 

EB 

JP 

C,EB34 

EBD4 

60 



LD 

H,B 

EBD5 

69 



LD 

L,C 

EBD6 

19 



ADD 

HL,DE 

EBD7 

22 

83 

AE 

LD 

(AE83),HL 

EBDA 

3A 

42 

AE 

LD 

A,(AE42) 

EBDD 

1F 



RRA 


EBDE 

9F 



SBC 

A 

EBDF 

32 

45 

AE 

LD 

(AE45),A 

EBE2 

EB 



EX 

DE,HL 

EBE3 

CD 

83 

BC 

CALL 

BC83 

EBE6 

CA 

38 

EB 

JP 

Z,EB38 

EBE9 

CD 

Bl 

D5 

CALL 

D5B1 

EBEC 

C3 

98 

D2 

JP 

D298 

********************************** 

EBEF 

CD 

7A 

CI 

CALL 

C17A 

EBF2 

CD 

CB 

DD 

CALL 

DDCB 

EBF5 

CD 

4C 

CA 

CALL 

CA4C 

EBF8 

D2 

98 

D2 

JP 

NC.D298 

EBFB 

CD 

BC 

E6 

CALL 

E6BC 

EBFE 

38 

F5 


JR 

C,EBF5 

EC00 

IE 

15 


LD 

E,15 


1. Block des Programms lesen 
OUT: A: Filetyp 
BC: Länge 
DE: Startadresse 
Kassette initialisieren 
Eingabefile öffnen 
Filetyp 

und Länge speichern 


norm. bzw. ASCII-Programn mergen 
Filetyp 

ungeschütztes Programm ? 
dann mergen 
ASCII-Datei ? 
nein ? dann Fehler 

norm. bzw. ASCII-Programm laden 
Filetyp 
ASCII-Datei ? 
dann laden 

Flag für geschützt löschen 
Basic-Programm ? dann laden 
Nr. für "File type error" 
Fehler ausgeben 
Basic-Zeiger initialisieren 
Zeiger auf Programmstart 
Zeiger auf erste Zeile 
nach DE 

Zeiger auf Start der Strings 
-S80 (min. Platz) 
addieren 
Progammlänge 

-Prg.-Start, gibt freien Platz 
ggf. mit Prg.-Länge vergleich, 
zu lang ? dann Fehler 
Programmlänge 
nach HL 

zu Zeiger auf 1. Zeile add. 
als neues Programmende setzen 
Filetyp 

SFF, wenn geschützt, 

0, wenn ungeschützt 
Flag f. geschützt. Prg. setzen 
Zeiger auf 1. Zeile 
CAS IN DIRECT, Programm laden 
EOF ? dann "EOF met" 
Variablenbereich freigeben 
Eingabefile schließen 

ASCII-Programm laden 

Basic-Zeiger initialisieren 
Direkt-Modus einschalten 
Zeile von Kassette laden 
EOF ? dann CLOSEIN 
Zeile auswerten, ggf. einfügen 
Programmzeile ? dann weiter 
Nr. für "Direct command found" 
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EC02 

28 

02 


JR 

Z,EC06 

EC04 

IE 

06 


LD 

E,06 

EC06 

C3 

94 

CA 

JP 

CA94 

********************************** 

EC09 

CD 

AD 

D2 

CALL 

D2AD 

ECOC 

CD 

56 

D2 

CALL 

D256 

ECOF 

06 

00 


LD 

B,00 

EC11 

CD 

55 

DD 

CALL 

DD55 

ECU 

30 

29 


JR 

NC,EC3F 

EC16 

CD 

37 

DD 

CALL 

DD37 

EC19 

0D 





EClA 

23 



INC 

HL 

EC1B 

23 



INC 

HL 

EClC 

7E 



LD 

A,(HL) 

EC1D 

23 



INC 

HL 

EC1E 

E6 

DF 


AND 

DF 

EC20 

F2 

38 

EC 

JP 

P,EC38 

EC23 

E5 



PUSH 

HL 

EC24 

21 

2C 

EC 

LD 

HL,EC2C 

EC27 

CD 

93 

FF 

CALL 

FF93 

EC2A 

E3 



EX 

(SP),HL 

EC2B 

C9 



RET 



********************************** 


EC2C 

03 





EC2D 

38 

EC 




EC2F 

CI 





EC30 

87 

EC 




EC32 

C2 





EC33 

5C 

EC 




EC35 

DO 





EC36 

3D 

EC 




EC38 

IE 

02 


LD 

E,02 

EC3A 

C3 

94 

CA 

JP 

CA94 

********************************** 

EC3D 

06 

01 


LD 

B,01 

EC3F 

CD 

4A 

DD 

CALL 

DD4A 

EC42 

E5 



PUSH 

HL 

EC43 

C5 



PUSH 

BC 

EC44 

CD 

87 

E6 

CALL 

E687 

EC47 

CD 

89 

E9 

CALL 

E989 

EC4A 

2A 

81 

AE 

LD 

HL,(AE81) 

EC4D 

23 



INC 

HL 

EC4E 

EB 



EX 

DE,HL 

EC4F 

2A 

83 

AE 

LD 

HL,(AE83) 

EC52 

CD 

CF 

FF 

CALL 

FFCF 

EC55 

EB 



EX 

DE,HL 

EC56 

Fl 



POP 

AF 

EC57 

01 

00 

00 

LD 

BC,0000 

EC5A 

18 

23 


JR 

EC7F 


********************************** 
EC5C 06 02 LD B,02 

EC5E CD 37 DD CALL DD37 

EC61 2C 


Direkteingabe ? 

sonst Nr. für "Overflow" 

Fehler ausgeben 

Basic-Befehl SAVE 

Kassette initialisieren 
Ausgabefile öffnen 
Typ für ungeschütztes Programm 
folgt Komma ? 
nein ? dann speichern 
Test auf unmarkierte Variable 
Token für unmarkierte Variable 
Variablenoffset 
übergehen 
1. Byte des Namens 
Zeiger nach Namen 
auf Großschrift forcieren 
Name zu Ende ? sonst Fehler 
Basic-PC retten 
Zeiger auf Tabelle 
Adresse entspr. Token holen 
Adresse auf Stack, PC zurück 
entspr. Routine anspringen 

Tabelle für SAVE 

3 Tabelleneinträge 

EC38, "Syntax error" als Def. 

"A"+$80 

SAVE ,A 

"B"+$80 

SAVE ,B 

"P"+$80 

SAVE ,P 

Nr. für "Syntax error" 

Fehler ausgeben 

SAVE ,P 

Typ für ungeschütztes Programm 
auf Statementende prüfen 
Basic-PC 

und Programmtyp retten 
Zeilenadressen eliminieren 
Variablenoffsets löschen 
Zeiger auf Programmstart 
Zeiger auf 1. Zeile 
nach DE 

Zeiger auf Programmende 

Start subtrahieren, gibt Länge 

Länge nach DE, Startadr. n. HL 

Programmtyp 

Aufrufadresse 

Programm speichern 

SAVE ,B 

Typ für Binärdatei 
Test auf Komma 

II II 
i 
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EC62 

CD 

91 

CE 

CALL 

CE91 

EC65 

D5 



PUSH 

DE 

EC66 

CD 

37 

DD 

CALL 

DD37 

EC69 

2C 





EC6A 

CD 

91 

CE 

CALL 

CE91 

EC6D 

D5 



PUSH 

DE 

EC6E 

CD 

55 

DD 

CALL 

DD55 

EC71 

11 

00 

00 

LD 

DE,0000 

EC74 

DC 

91 

CE 

CALL 

C,CE91 

EC77 

D5 



PUSH 

DE 

EC78 

CD 

4A 

DD 

CALL 

DD4A 

EC7B 

78 



LD 

A, B 

EC7C 

Ci 



POP 

BC 

EC7D 

Dl 



POP 

DE 

EC7E 

E3 



EX 

(SP),HL 

EC7F 

CD 

98 

BC 

CALL 

BC98 

EC82 

D2 

6B 

CB 

JP 

NC,CB6B 

EC85 

18 

17 


JR 

EC9E 


'irk'kit&'k #☆**#***☆**#**#**#* ***■***☆☆☆ 


EC87 

CD 

4A 

DD 

CALL 

DD4A 

EC8A 

E5 



PUSH 

HL 

EC8B 

3E 

09 


LD 

A,09 

EC8D 

CD 

A2 

CI 

CALL 

C1A2 

EC90 

F5 



PUSH 

AF 

EC91 

01 

01 

00 

LD 

BC,0001 

EC94 

11 

FF 

FF 

LD 

DE,FFFF 

EC97 

CD 

0D 

El 

CALL 

El 0D 

EC9A 

Fl 



POP 

AF 

EC9B 

CD 

A2 

CI 

CALL 

C1A2 

EC9E 

CD 

AI 

D2 

CALL 

D2A1 

ECA1 

El 



POP 

HL 

ECA2 

C9 



RET 



& •% ■& ■& -A -fc-fr-kic-fr ~k idcirkieirk -k ic * irkir k & ■& 


ECA3 

CD 

44 

ED 

CALL 

ED44 

ECA6 

20 

05 


JR 

NZ,ECAD 

ECA8 

CD 

61 

DD 

CALL 

DD61 

ECAB 

18 

2F 


JR 

ECDC 

ECAD 

FE 

26 


CP 

26 

ECAF 

28 

IC 


JR 

Z,ECCD 

ECB1 

CD 

7 F 

FF 

CALL 

FF7F 

ECB4 

38 

26 


JR 

C, ECDC 

ECB6 

CD 

10 

FF 

CALL 

F F10 

ECB9 

CD 

F3 

FE 

CALL 

FEF3 

ECBC 

37 



SCF 


ECBD 

C9 



RET 



Startadresse holen 
und retten 
Test auf Komma 

II II 
/ 

Länge holen 
und retten 
folgt Komma ? 

Default-Aufrufadresse 

kein Komma ? d, Adresse holen 

Aufrufadresse retten 

auf Statementende prüfen 

Prograrmityp 

Aufrufadresse 

und Länge vom Stack 

PC retten, Startadr. zurück 

CAS OUT DIRECT, Prg. speichern 

Abbruch ? dann "Break" 

Ausgabefile schließen, zurück 

SAVE ,A 

auf Statementende prüfen 
Basic-PC retten 
Nr. für Kassette 
als akt. Streamnr. setzen 
alte Streamnr. retten 
Startzeilennr. 

Endzeilennr. 

Programm auf Kassette listen 
alte Streamnr. 
wieder setzen 
Ausgabefile schließen 
Basic-PC zurück 


ASCII nach binär wandeln 
IN : HL: Zeiger auf String 
OUT: Zahl im FAC 

A: Zahlenbasis 
HL: Zeiger nach String 
CY=0, wenn Überlauf 
Vorzeichen d. Zahl -feststellen 
kein Vorzeichen ? 

Spaces, TABs und LFs überlesen 
und Dezimalstring wandeln 
>'&" ? 

dann Hex-/Binär-String wandeln 

Ziffer oder ? 

dann Dezimal string wandeln 

Integer als FAC-Typ 

FAC löschen 

CY=1 für o.k. 


irttkkicifkkkirk***********kkitkkirirkirkkk StriflQ 1H pOSltlVG BinärZähl 

IN : HL: Zeiger auf String 
OUT: A: Zahlenbasis 
CY=1, wenn o.k. 

HL: Zeiger nach String 
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DE: Zeiger auf String 
Zahl im FAC 
CY=0, wenn Überlauf 
HL: Zeiger auf String 
DE: Zeiger nach String 


ECBE 

E5 

PUSH 

HL 

Eingabe-Zeiger retten 

ECBF 

CD C6 EC 

CALL 

ECC6 

String wandeln 

ECC2 

Dl 

POP 

DE 

Zeiger auf Ziffernstring 

ECC3 

D8 

RET 

C 

kein Fehler ? 

ECC4 

EB 

EX 

DE,HL 

sonst Zeiger vertauschen 

ECC5 

C9 

RET 




********************************** 


ECC6 

16 

00 

LD 

D,00 

ECC8 

7E 


LD 

A, (HL) 

ECC9 

FE 

26 

CP 

26 

ECCB 

20 

0F 

JR 

NZ,ECDC 


********************************** 


ECCD 

CD 

IC 

EE 

CALL 

EE1C 

ECDO 

EB 



EX 

DE, HL 

ECDl 

F5 



PUSH 

AF 

ECD2 

CD 

OD 

FF 

CALL 

F FOD 

ECD5 

Fl 



POP 

AF 

ECD6 

EB 



EX 

DE,HL 

ECD7 

D8 



RET 

C 

ECD8 

C8 



RET 

z 

ECD9 

C3 

F3 

CA 

JP 

CAF3 


********************************** 


ECDC 

E5 



PUSH 

HL 

ECDD 

7E 



LD 

A, (HL) 

ECDE 

23 



INC 

HL 

ECDF 

FE 

2E 


CP 

2E 

ECE1 

CC 

61 

DD 

CALL 

Z,DD61 

ECE4 

CD 

83 

FF 

CALL 

FF83 

ECE7 

El 



POP 

HL 

ECE8 

38 

06 


JR 

C,ECFO 

ECEA 

7E 



LD 

A, (HL) 

ECEB 

EE 

2E 


XOR 

2E 

ECED 

CO 



RET 

NZ 


String in positive Binärzahl 
IN : HL: Zeiger auf String 
OUT: A: Zahlenbasis 

CY=0, wenn Überlauf 
HL: Zeiger nach String 
DE: Zeiger auf String 
Zahl im FAC 
Vorzeichen positiv 
1. Zeichen 
? 

nein ? dann Dezimalstring 

Hex-/Binär-String nach Integer 
IN : HL: Zeiger auf String 
OUT: Zahl im FAC 

A: Zahlenbasis 
HL: Zeiger nach String 
CY=0, wenn Überlauf 
String nach Integer wandeln 
Zahl n. HL, Zeiger nach DE 
Zahlenbasis retten 
Zahl in FAC eintragen 
Zahlenbasis 

Zeiger nach Zahl nach HL 
kein Fehler ? 
keine Ziffern ? 
sonst "Overflow", CY=0 

Dezimalstring nach Integer/REAL 
IN : HL: Zeiger auf String 
D: Vorzeichen 

OUT: HL: Zeiger nach String 
A: Zahlenbasis 10 
Zahl im FAC 
CY=0, wenn Überlauf 
Zeiger auf Ziffernstring 
1. Zeichen 

Eingabezeiger erhöhen 

II II 7 

dann Spaces, TABs, LFs überl. 
Test auf Ziffer 
Zeiger wieder auf Anfang 
Ziffer ? dann auswerten 
1. Zeichen 

ii m U 7 

nein ? 
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ECEE 

23 



INC 

HL 

ECEF 

C9 



RET 


ECFO 

CD 

10 

FF 

CALL 

FF10 

ECF3 

D5 



PUSH 

DE 

ECF4 

01 

00 

00 

LD 

BC,0000 

ECF7 

11 

46 

AE 

LD 

DE,AE46 

ECFA 

CD 

53 

ED 

CALL 

ED53 

ECFD 

FE 

2E 


CP 

2E 

ECFF 

20 

OB 


JR 

NZ,ED0C 

ED01 

CD 

C9 

ED 

CALL 

EDC9 

ED04 

CD 

19 

FF 

CALL 

F F19 

ED07 

OC 



INC 

C 

ED08 

CD 

53 

ED 

CALL 

ED53 

EDOB 

0D 



DEC 

C 

EDOC 

F5 



PUSH 

AF 

EDOD 

3E 

FF 


LD 

A, FF 

EDOF 

12 



LD 

(DE),A 

EDI 0 

Fl 



POP 

AF 

ED11 

CD 

77 

ED 

CALL 

ED 77 

ED14 

Dl 



POP 

DE 

ED 15 

5F 



LD 

E,A 

ED16 

E5 



PUSH 

HL 

ED17 

D5 



PUSH 

DE 

ED18 

21 

46 

AE 

LD 

HL ,AE46 

ED1B 

CD 

CE 

ED 

CALL 

EDCE 

EDlE 

Dl 



POP 

DE 

EDI F 

CD 

27 

FF 

CALL 

FF27 

ED22 

30 

08 


JR 

NC,ED2C 

ED24 

E5 



PUSH 

HL 

ED25 

42 



LD 

B,D 

ED26 

CD 

06 

FE 

CALL 

FE06 

ED29 

El 



POP 

HL 

ED2A 

38 

11 


JR 

C,ED3D 

ED2C 

7A 



LD 

A,D 

ED2D 

4E 



LD 

C, (HL) 

ED2E 

23 



INC 

HL 

ED2F 

CD 

94 

BD 

CALL 

BD94 

ED32 

7B 



LD 

A,E 

ED33 

CD 

55 

BD 

CALL 

BD55 

ED36 

EB 



EX 

DE,HL 

ED37 

CD 

16 

FF 

CALL 

FF16 

ED3A 

DC 

3D 

BD 

CALL 

C, BD3D 

ED3D 

3E 

0A 


LD 

A,0A 

ED3F 

El 



POP 

HL 

ED40 

D8 



RET 

C 

ED41 

C3 

F3 

CA 

JP 

CAF3 


********************************** 


ED44 

CD 

61 DD 

CALL 

DD61 

ED47 

23 


INC 

HL 

ED48 

16 

FF 

LD 

D, FF 

ED4A 

FE 

2D 

CP 

2D 

ED4C 

C8 


RET 

Z 

ED4D 

14 


INC 

D 


Zeiger auf Zeichen danach 

FAC-Typ auf Integer 
Vorzeichen retten 
Zähler f. Stellen/Nachkommast. 
Zeiger auf Buffer f. Wandlung 
Vorkomma-Ziff. n. unpacked BCD 

II ll 9 

keine Nachkommastellen ? 
nächstes Zeichen 
FAC-Typ auf REAL setzen 
Flag f. Nachkommastellen setz. 
Nachkomma-Ziffern n. unp. BCD 
Zahl d. Nachkommast. korrig. 
Zeichen nach Ziffernstring 
$FF als Kennzeichen 
für BCD-Buffer-Ende 
Zeichen nach Ziffernstring 
dez. Exp. d. letzten Stelle h. 
Vorzeichen 
Exponent nach E 
Eingabezeiger 

Vorzeichen/Exponenten retten 
Zeiger auf BCD-Buffer 
unpacked BCD nach Binärzahl 
Vorzeichen/Exponenten zurück 
Typflag des FAC holen 
REAL-Zahl ? 

Zeiger auf Binärzahl 
Vorzeichen 

setzen, Integer nach FAC 
Zeiger auf Binärzahl 
Zahl nicht zu groß f. Int. ? 
sonst Vorzeichen der Zahl 
1. Byte aus Binärzahl 
Zeiger auf 2. Byte 
5-Byte-Integer nach REAL 
dez. Exponent 

Zahl mit 10 A A multiplizieren 
Zeiger auf REAL-Zahl nach DE 
FAC-Typ auf REAL, Zg. n. HL 
kein Fehler ? d. REAL n. FAC 
Zahlenbasis =10 
Eingabezeiger zurück 
kein Übertrag ? 

"Overflow" ausgeben, CY=0 

Vorzeichen im String bestimmen 
IN : HL: Zeiger auf String 
OUT: Z=0, wenn kein Vorzeichen 
D: Vorzeichen der Zahl 
HL: Zeiger auf Ziffern 
Spaces, TABs und LFs überlesen 
Zeiger auf 1. Ziffer 
Flag für negatives Vorzeichen 

ii- H 9 

dann negativ 

Flag für positives Vorzeichen 
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ED4E 

FE 2B 

CP 

2B 

ED50 

C 8 

RET 

Z 

ED51 

2B 

DEC 

HL 

ED52 

C9 

RET 



********************************** 


ED53 

E5 



PUSH 

HL 

ED54 

CD 

61 

DD 

CALL 

DD61 

ED57 

23 



INC 

HL 

ED58 

CD 

83 

FF 

CALL 

FF83 

ED5B 

38 

04 


JR 

C,ED61 

ED5D 

El 



POP 

HL 

ED5E 

C3 

8 A 

FF 

JP 

FF 8 A 

ED61 

E3 



EX 

(SP),HL 

ED62 

El 



POP 

HL 

ED63 

D 6 

30 


SUB 

30 

ED65 

12 



LD 

(DE),A 

ED 66 

BO 



OR 

B 

ED67 

28 

07 


JR 

Z,ED70 

ED 69 

78 



LD 

A,B 

ED 6 A 

04 



INC 

B 

ED 6 B 

FE 

OC 


CP 

OC 

ED 6 D 

30 

01 


JR 

NC,ED70 

ED 6 F 

13 



INC 

DE 

ED 70 

79 



LD 

A,C 

ED71 

B7 



OR 

A 

ED 72 

28 

DF 


JR 

Z,ED53 

ED74 

OC 



INC 

C 

ED 75 

18 

DC 


JR 

ED53 


********************************** 


ED 77 

FE 

45 


CP 

45 

ED79 

20 

10 


JR 

NZ,ED 8 B 

ED7B 

E5 



PUSH 

HL 

ED7C 

CD 

C9 

ED 

CALL 

EDC9 

ED7F 

CD 

44 

ED 

CALL 

ED44 

ED82 

CC 

61 

DD 

CALL 

Z,DD61 

ED85 

CD 

83 

FF 

CALL 

FF83 

ED 88 

38 

04 


JR 

C,ED 8 E 

ED 8 A 

El 



POP 

HL 

ED 8 B 

AF 



XOR 

A 

ED 8 C 

18 

IE 


JR 

EDAC 

ED 8 E 

E3 



EX 

(SP),HL 

ED 8 F 

El 



POP 

HL 

ED90 

CD 

19 

FF 

CALL 

FF19 

ED93 

D5 



PUSH 

DE 

ED94 

C5 



PUSH 

BC 


H + li ? 

dann positiv 

Zeiger auf 1. Ziffer, positiv 

Ziffernstring nach unpacked BCD 
IN/OUT: HL: Eingabezeiger 

DE: BCD-Bufferzeiger 
B: Gesamtstellenzahl 
C: Nachkommastellen +1 
C=0, wenn k. Nachk.-St. 
Eingabezeiger retten 
Spaces, TABs und LFs überlesen 
Zeiger auf nächstes Zeichen 
Test auf Ziffer 
Ziffer ? 

sonst Eingabezeiger zurück 
auf Großschrift forcieren 
Eintrag vom 
Stack löschen 
Ziffernwert berechnen 
in Buffer speichern 
führende Null ? 
dann unterdrücken 
Gesamtstellenzahl 
erhöhen 

schon max. Ziffernzahl ? 
dann nicht weiter speichern 
Bufferzeiger erhöhen 
Zahl der Nachkomnastellen 
keine Nachkommastellen ? 
dann nächste Ziffer 
sonst Nachkommastellenz, erh. 
nächste Ziffer 

dez. Exponenten holen/berechnen 
IN : A: 1. Zeichen 

HL: Eingabezeiger 
B: Gesamtstellenzahl 
C: Nachkorrmastel lenzahl 
OUT: A: Exponent der letzten 
Bufferstelle 

"E" 7 

dann Exponent zunächst =0 
Eingabezeiger retten 
nächstes Zeichen holen 
Vorzeichen des Exp. nach D 
kein Vorz. ? d. " “/TAB/LF üb. 
Test auf Ziffer 
Ziffer ? dann Exp. holen 
sonst Zeiger wieder auf Anfang 
Exponent =0 

endgültigen Exp. berechnen 
obersten Stackeintrag 
löschen 

FAC-Typ auf REAL 
Vorzeichen 

Gesamt/Nachk.-Stellenzahl 
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ED95 

CD 

35 EE 

CALL 

EE35 

ED98 

30 

09 

JR 

NC,EDA3 

ED9A 

7B 


LD 

A,E 

ED9B 

D6 

64 

SUB 

64 

ED9D 

7A 


LD 

A,D 

ED9E 

DE 

00 

SBC 

00 

EDAO 

7B 


LD 

A,E 

EDAl 

38 

02 

JR 

C, EDA5 

EDA3 

3E 

7F 

LD 

A,7F 

EDA5 

CI 


POP 

BC 

EDA6 

Dl 


POP 

DE 

EDA7 

14 


INC 

D 

EDA8 

20 

02 

JR 

NZ,EDAC 

EDAA 

2F 


CPL 


EDAB 

3C 


INC 

A 

EDAC 

C6 

80 

ADD 

80 

EDAE 

5F 


LD 

E,A 

EDAF 

78 


LD 

A,B 

EDBO 

D6 

OC 

SUB 

OC 

EDB2 

30 

01 

JR 

NC.EDB5 

EDB4 

AF 


XOR 

A 

EDB5 

91 


SUB 

C 

EDB6 

30 

09 

JR 

NC.EDCl 

EDB8 

83 


ADD 

E 

EDB9 

38 

01 

JR 

C,EDBC 

EDBB 

AF 


XOR 

A 

EDBC 

FE 

01 

CP 

01 

EDBE 

CE 

80 

ADC 

80 

EDCO 

C9 


RET 


EDC1 

83 


ADD 

E 

EDC2 

30 

02 

JR 

NC, EDC6 

EDC4 

3E 

FF 

LD 

A, FF 

EDC6 

D6 

80 

SUB 

80 

EDC8 

C9 


RET 



Ziffern nach binär, nach DE 
Fehler ? 

Lo-Byte des Exponenten 
minus 100 

Übertrag auf Hi-Byte 
berücksichtigen 
Lo-Byte 

Exponent <100 ? 
sonst max. Wert 
Gesamt/Nachk.-Stellenzahl 
und Vorzeichen zurück 
Vorzeichen des Exponenten 
positiv ? 

sonst Zweierkomplement 
bi Iden 

nach FAC-Speicherweise 

Gesamtstellenzahl 
-12 =Z. d. St. außerh. Buffer 
nicht alle Stellen im Buffer ? 
keine Stelle nicht in Buffer 
- Nachkotrenastellenzahl 
auch Vork.-St. n. im Buffer ? 
Exponent addieren 
Exp. groß genug ? 
sonst min. Exp. setzen 
Exponenten wieder auf 
Zweierkomplement- Format 

Exponent addieren 
Exp. nicht zu groß ? 
sonst max. Exp. setzen 
wieder nach Zweierkomp.-Format 


☆ *** -k ******** •irkirk'k-k *☆*☆**&*#☆*** * 


EDC9 CD 61 DD 
EDCC 23 
EDCD C9 


CALL DD61 
INC HL 
RET 


nächstes Zeichen aus Zahl holen 
IN/OUT: HL: Eingabezeiger 
A: Zeichen 

Spaces, TABs und LFs überlesen 
Zeiger auf nächstes Zeichen 


#****■*☆*☆*#☆*****☆ ft ************** * 


EDCE 

EB 



EX 

DE,HL 

EDCF 

21 

58 

AE 

LD 

HL,AE58 

EDD2 

01 

01 

05 

LD 

BC,0501 

EDD5 

2B 



DEC 

HL 

EDD6 

36 

00 


LD 

(HL),00 

EDD8 

10 

FB 


DJNZ 

EDD5 

EDDA 

1A 



LD 

A,(DE) 

EDDB 

FE 

FF 


CP 

FF 

EDDD 

C8 



RET 

Z 

EDDE 

77 



LD 

(HL),A 

EDDF 

21 

53 

AE 

LD 

HL,AE53 

EDE2 

13 



INC 

DE 


unpacked BCD nach Binär wandeln 
IN : HL: Zeiger auf BCD-Buffer 
OUT: HL: Zeiger auf Binärzahl 
C: Länge der Binärzahl 
BCD-Bufferzeiger nach DE 
Zeiger nach Binärzahl-Buffer 
Bufferlänge/Länge der Zahl 
Zahl auf 
Null setzen 

weitere Bytes zu löschen ? 

1. Zeichen aus Ziffernbuffer 
Endekennzeichen ? 
dann Zahl=0, zurück 
Ziffernwert in Buffer 
Zeiger auf Binärzahl-Buffer 
Zeiger auf nächste Ziffer 
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EDE3 

1A 

LD 

A, (DE) 

EDE4 

FE FF 

CP 

FF 

EDE6 

C8 

RET 

Z 

EDE7 

D5 

PUSH 

DE 

EDE8 

41 

LD 

B,C 

EDE9 

16 00 

LD 

D,00 

EDEB 

E5 

PUSH 

HL 

EDEC 

5E 

LD 

E, (HL) 

EDED 

62 

LD 

H,D 

EDEE 

6 B 

LD 

L,E 

EDEF 

29 

ADD 

HL,HL 

EDFO 

29 

ADD 

HL,HL 

ED Fl 

19 

ADD 

HL,DE 

EDF2 

29 

ADD 

HL,HL 

EDF3 

5F 

LD 

E,A 

EDF4 

19 

ADD 

HL,DE 

EDF5 

5D 

LD 

E,L 

EDF6 

7C 

LD 

A,H 

EDF7 

El 

POP 

HL 

EDF8 

73 

LD 

(HL),E 

EDF9 

23 

INC 

HL 

ED FA 

10 EF 

DJNZ 

EDEB 

ED FC 

Dl 

POP 

DE 

EDFD 

B7 

OR 

A 

ED FE 

28 DF 

JR 

Z,EDDF 

EE00 

77 

LD 

(HL),A 

EE01 

OC 

INC 

C 

EE02 

18 DB 

JR 

EDDF 


nächster Ziffernwert 
Kennz. f. Bufferende ? 
dann fertig 

Zeiger auf BCD-Buffer retten 
Länge des Binärzahl-Buffers 
Ziffer/Übertrag hi =0 
Zeiger in Binärzahl-Buffer 
Byte aus Buffer 


mit 10 multiplizieren 


Ziffer/Übertrag 
addieren 
Summe lo 

Summe hi als neuen Übertrag 
Zeiger in Binärzahl-Buffer 
Byte in Buffer speichern 
Zeiger auf nächstes Byte 
weitere Bytes im Buffer ? 
Zeiger in BCD-Buffer 
kein Übertr. zu nächst. Byte ? 
dann nächste Ziffer 
sonst Übertrag speichern 
Länge der Binärzahl erhöhen 
nächste Ziffer 


********************************** Zeilennuenern-String wandeln 

IN : HL: Eingabezeiger 
OUT: CY=1, wenn o.k. 

HL: Zeiger nach Zeilennr. 
Zeilennr. in FAC und DE 
CY=0, wenn Fehler 
dann: 

Z=0, wenn Überlauf 
Z=1, wenn keine Ziffer 
oder Zahl=0 


EE04 

C5 



PUSH 

BC 

EE05 

E5 



PUSH 

HL 

EE06 

CD 

35 

EE 

CALL 

EE35 

EE09 

EB 



EX 

DE,HL 

EE0A 

CD 

OD 

FF 

CALL 

FFOD 

EE0D 

EB 



EX 

DE,HL 

EEOE 

Ci 



POP 

BC 

EEOF 

30 

06 


JR 

NC.EE17 

EE11 

7A 



LD 

A,D 

EE12 

B3 



OR 

E 

EE13 

C6 

FF 


ADD 

FF 

EE15 

38 

03 


JR 

C,EE1A 

EE17 

50 



LD 

D> B 

EE18 

59 



LD 

E,C 

EE19 

EB 



EX 

DE,HL 

EE1A 

Ci 



POP 

BC 

EE1B 

C9 



RET 



HL: Zeiger auf Zeilennr. 

DE: Zeiger nach Zeilennr. 

Zeiger auf Ziffern retten 
Dezimalziffern wandeln 
gewandelte Zahl (in DE) 
in FAC eintragen 

Zeiger auf Ziffern 
Fehler ? 

Zahl <>0 ? 

dann o.k. 

sonst Zeiger auf Ziffern 
nach DE 

nach HL, Zeiger n. Zahl n. DE 
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********************************** 


EE1C 

23 



INC 

HL 

EE1D 

CD 

61 

DD 

CALL 

DD61 

EE20 

CD 

8 A 

FF 

CALL 

FF8A 

EE23 

06 

02 


LD 

B, 02 

EE25 

FE 

58 


CP 

58 

EE27 

28 

06 


JR 

Z,EE2F 

EE29 

06 

10 


LD 

B, 10 

EE2B 

FE 

48 


CP 

48 

EE2D 

20 

04 


JR 

NZ,EE33 

EE2F 

23 



INC 

HL 

EE30 

CD 

61 

DD 

CALL 

DD61 

EE33 

18 

02 


JR 

EE37 


********************************** 


EE35 

06 

0A 


LD 

B,0A 

EE37 

EB 



EX 

DE,HL 

EE38 

CD 

61 

EE 

CALL 

EE61 

EE3B 

26 

00 


LD 

H,00 

EE3D 

6 F 



LD 

L,A 

EE3E 

30 

IE 


JR 

NC,EE5E 

EE40 

0E 

00 


LD 

C,00 

EE42 

CD 

61 

EE 

CALL 

EE61 

EE45 

30 

14 


JR 

NC,EE5B 

EE47 

D5 



PUSH 

DE 

EE48 

16 

00 


LD 

D,00 

EE4A 

5F 



LD 

E,A 

EE4B 

D5 



PUSH 

DE 

EE4C 

58 



LD 

E,B 

EE4D 

CD 

BE 

BD 

CALL 

BDBE 

EE50 

Dl 



POP 

DE 

EE51 

38 

03 


JR 

C,EE56 

EE53 

19 



ADD 

HL,DE 

EE54 

30 

02 


JR 

NC,EE58 

EE56 

0E 

FF 


LD 

Cf FF 

EE58 

Dl 



POP 

DE 

EE59 

18 

E7 


JR 

EE42 

EE5B 

79 



LD 

A,C 

EE5C 

FE 

01 


CP 

01 

EE5E 

EB 



EX 

DE,HL 

EE5F 

78 



LD 

A,B 

EE60 

C9 



RET 



Hex-/Binärstring nach Integer 
IN : HL: Eingabezeiger auf "S" 
OUT: HL: Eingabezeiger 
DE: Zahl 
A: Zahlenbasis 
CY=1, wenn o.k. 

CY=0, Z=0, wenn Zahl zu groß 
CY=0, Z=1, wenn keine Ziffer 
Zeiger nach 

Spaces, TABs und LFs über lesen 
auf Großschrift forcieren 
Zahlenbasis für Binärzahl 
"X" ? 

dann Binärzahl 
Zahlenbasis für Hex-Zahl 

"H" 9 

nein ? dann sofort wandeln 
"H" bzw. "X" übergehen 
Spaces, TABs und LFs überlesen 
Ziffern wandeln 

Dezimalstring nach Integer 
IN : HL: Eingabezeiger 
OUT: HL: Eingabezeiger 
DE: Zahl 

A: Zahlenbasis (10) 

CY=1, wenn o.k. 

CY=0, Z=0, wenn Zahl zu groß 
CY=0, Z=1, wenn keine Ziffer 
Zahlenbasis für Dezimal zahl 
Eingabezeiger nach DE 
ersten Ziffernwert holen 
Ziffernwert hi=0 
Ziffernwert lo 
keine Ziffer ? dann Ende 
Flag für keinen Überlauf 
nächsten Ziffernwert holen 
keine Ziffer ? dann Ende 
Eingabezeiger retten 
Ziffer/Basis hi =0 
Ziffernwert lo 
Ziffernwert retten 
Zahlenbasis 

mit alter Zahl multiplizieren 
neuer Ziffernwert 
Übertrag bei Multiplikation ? 
sonst Ziffernwert addieren 
kein Übertrag ? 

Flag für Überlauf setzen 

Eingabezeiger 

nächste Ziffer auswerten 

Flag für Überlauf 

CY=1 f. o.k., CY=0 f. Überlauf 

Eingabezg. nach HL, Zahl n. DE 

Zahlenbasis 
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********************************** 


EE61 

1 A 



LD 

A, (DE) 

EE62 

13 



INC 

DE 

EE63 

CD 

83 

FF 

CALL 

FF83 

EE66 

38 

0A 


JR 

C,EE72 

EE68 

CD 

8 A 

FF 

CALL 

FF8A 

EE6B 

FE 

41 


CP 

41 

EE6D 

3F 



CCF 


EE6E 

30 

05 


JR 

NC,EE75 

EE70 

D6 

07 


SUB 

07 

EE72 

D6 

30 


SUB 

30 

EE74 

B8 



CP 

B 

EE75 

D8 



RET 

C 

EE76 

1 B 



DEC 

DE 

EE77 

AF 



XOR 

A 

EE78 

C9 



RET 


********************************** 

EE79 

CD 

0D 

FF 

CALL 

FF0D 

EE7C 

CD 

82 

EE 

CALL 

EE82 

EE7F 

C3 

41 

C3 

JP 

C341 


********************************** 


EE82 

D5 



PUSH 

DE 

EE83 

C5 



PUSH 

BC 

EE84 

CD 

C3 

FC 

CALL 

FCC3 

EE87 

AF 



XOR 

A 

EE88 

CD 

A7 

EE 

CALL 

EEA7 

EE8B 

23 



INC 

HL 

EE8C 

CI 



POP 

BC 

EE8D 

Dl 



POP 

DE 

EE8E 

C9 



RET 



********************************** 


EE8F 

D5 


PUSH 

DE 

EE90 

C5 


PUSH 

BC 

EE91 

AF 


XOR 

A 

EE92 

CD 

9F EE 

CALL 

EE9F 

EE95 

Ci 


POP 

BC 

EE96 

Dl 


POP 

DE 

EE97 

7E 


LD 

A, (HL) 

EE98 

FE 

20 

CP 

20 

EE9A 

CO 


RET 

NZ 

EE9B 

23 


INC 

HL 

EE9C 

C9 


RET 



Ziffernwert berechnen 
IN : DE: Eingabezeiger auf Ziffer 
B: Zahlenbasis 
OUT: DE: Eingabezeiger 

CY=1, wenn Ziffer gültig 
A: Ziffernwert 

CY=0, Z=1, wenn keine Ziffer 
Ziffer 

Zeiger auf nächstes Zeichen 
Test auf Ziffer von “O". . I, 9" 
Ziffer von "0".."9" ? 
auf Großschrift forcieren 
"A" ? 

weder Buchst, noch Ziffer ? 
Differenz n 9"+1 zu "A" 
von ASCII nach Ziffernwert 
kleiner als Zahlenbasis ? 
dann o.k. 

Zeiger wieder auf Zeichen 
CY=0, Z=1 für Ziffer ungültig 


positive Integerzahl ausgeben 
IN : HL: Zahl 

Zahl in FAC speichern 
nach ASCII wandeln 
und ausgeben 

positive Integerzahl nach ASCII 
IN : Zahl im FAC (CPC 464) 

HL: Zahl (CPC 664/6128) 
OUT: HL: Zeiger auf String 


Wandlungs-Parameter holen 
Flag f. keine Formatierung 
Zahl nach ASCII wandeln 
Vorzeichen übergehen 


Zahl nach ASCII, kein pos. Vorz. 

IN : Zahl im FAC 

OUT: HL: Zeiger auf String 


Flag f. keine Formatierung 
Zahl nach ASCII 


1. Zeichen 
Space ? 

nein ? dann kein pos. Vorz. 
sonst Space übergehen 
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************************** ******** 


EE9D 3E 40 LD A,40 

********************************** 


EE9F 

22 

6 E 

AE 

LD 

(AE6E),HL 

EEA2 

F5 



PUSH 

AF 

EEA3 

CD 

B3 

FC 

CALL 

FCB3 

EEA6 

Fl 



POP 

AF 

EEA7 

C5 



PUSH 

BC 

EEA8 

57 



LD 

D, A 

EEA9 

D5 



PUSH 

DE 

EEAA 

EB 



EX 

DE,HL 

EEAB 

21 

68 

AE 

LD 

HL,AE68 

EEAE 

36 

00 


LD 

(HL),00 

EEB0 

22 

70 

AE 

LD 

(AE70),HL 

EEB3 

CD 

B7 

F0 

CALL 

F0B7 

EEB6 

Dl 



POP 

DE 

EEB7 

CD 

D4 

EE 

CALL 

EED4 

EEBA 

CD 

3D 

F0 

CALL 

F03D 

EEBD 

58 



LD 

E,B 

EEBE 

Ci 



POP 

BC 

EEBF 

7B 



LD 

A,E 

EEC0 

B7 



OR 

A 

EECl 

CC 

50 

F0 

CALL 

Z,F050 

EEC4 

CD 

5F 

F0 

CALL 

F05F 

EEC7 

CD 

69 

F0 

CALL 

F069 

EECA 

CD 

7C 

FO 

CALL 

F07C 

EECD 

7A 



LD 

A,D 

EECE 

1 F 



RRA 


EECF 

DO 



RET 

NC 

EED0 

2B 



DEC 

HL 

EED1 

36 

25 


LD 

(HL),25 

EED3 

C9 



RET 



Zahl nach ASCII, max. 9 Ziffern 

IN : Zahl im FAC 

OUT: HL: Zeiger auf String 

max. 7 Stellen b. Exp.-Darst. 

Zahl formatiert nach ASCII 
IN : Zahl im FAC 

A: Formatierungsflags 
b7/b6: 

00: normale Darstellung 
01: max. 7 Mantissenstellen 
bei Exponentialdarst. 
10: formatierte Darstellung 
11: form. Exponentialdarst. 
b5: Flag f. vor Zahl 
b4: Flag f. Vorz. nach Zahl 
b3: Flag f. pos. Vorz. ="+" 
b2: Flag f. "$" vor d. Zahl 
beim 664/6128: 

b2: Flag f. Währungszeich. 
($AE54): Währungszeichen 
bl: Flag f. Komma-Einteilung 
bO: Flag f. Formatüberlauf 
(muß anfangs Null sein) 
nur bei form. Darst. (b7=1): 
H: Vorkommastellenzahl 
- L: Nachkofmiastellenzahl 
OUT: HL: Zeiger auf String 
Vor-/Nachkomnast. speichern 
Formatierungs-Flags 
Mant. norm., Parameter holen 
Formatierungs- Flags 
Vorzeichen retten 
Formatierungs-Flags 
und Korrmaposi tion retten 
Adr. d. höchstwert. Byte n. DE 
Zeiger in Buffer f. Wandlung 
Null als Endkennzeichen 
Buffer-Endzeiger setzen 
Mantisse nach ASCII wandeln 
Flags/Kotmiaposition zurück 
Dezimalpunkt und Exp. setzen 
Komma-Einteilungen setzen 
Zahl der Vorkommastellen 
Vorzeichen 

Zahl der Vorkommastellen 
keine Vorkomnastellen ? 
dann führende Null setzen 
ggf. führendes setzen 
Vorzeichen setzen 
ggf. führende setzen 
Formatierungs-Flags 
Formatüberlauf ? 
nein ? dann zurück 
sonst "%“ vor Zahl 
setzen 
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********************************** 


EED4 

7A 



LD 

A,D 

EED5 

87 



ADD 

A 

EED6 

30 

29 


JR 

NC,EF01 

EED8 

FA 

27 

EF 

JP 

M,EF27 

EEDB 

7B 



LD 

A,E 

EEDC 

81 



ADD 

C 

EEDD 

D6 

0A 


SUB 

0A 

EEDF 

FA 

88 

EF 

JP 

M,EF88 

EEE2 

16 

01 


LD 

D ,01 


********************************** 


EEE4 

41 



LD 

B,C 

EEE5 

79 



LD 

A, C 

EEE6 

B7 



OR 

A 

EEE7 

28 

15 


JR 

Z,EEFE 

EEE9 

83 



ADD 

E 

EEEA 

3D 



DEC 

A 

EEEB 

5F 



LD 

E»A 

EEEC 

CD 

0E 

F0 

CALL 

F00E 

EEEF 

06 

01 


LD 

B, 01 

EEF1 

79 



LD 

A,C 

EEF2 

FE 

07 


CP 

07 

EEF4 

38 

04 


JR 

C,EEFA 

EEF6 

CB 

72 


BIT 

6 ,D 

EEF8 

20 

26 


JR 

NZ,EF20 

EEFA 

B8 



CP 

B 

EEFB 

C4 

A0 

EF 

CALL 

NZ,EFA0 

EEFE 

C3 

62 

EF 

JP 

EF62 


********************************** 


EF01 

7B 



LD 

A/E 

EF02 

B7 



OR 

A 

EF03 

FA 

0A 

EF 

JP 

M,EF0A 

EF06 

20 

DC 


JR 

NZ,EEE4 

EF08 

41 



LD 

B/C 

EF09 

C9 



RET 


********************************** 

EF0A 

43 



LD 

B/E 

EF0B 

CD 

0E 

F0 

CALL 

F00E 

EF0E 

78 



LD 

A,B 

EF0F 

B7 



OR 

A 

EF10 

28 

F6 


JR 

Z,EF08 

EF12 

93 



SUB 

E 

E F13 

58 



LD 

E,B 

EF14 

47 



LD 

B,A 

EF15 

81 



ADD 

C 

EF16 

83 



ADD 

E 

E F17 

FA 

E4 

EE 

JP 

M/EEE4 

EF1A 

CD 

B4 

EF 

CALL 

EFB4 

EF1D 

C3 

A0 

EF 

JP 

EFA0 


Dezimalpunkt u. Exponenten setzen 
IN : C: Gesamtstellenzahl 
D: Formatierungsflags 
E: Kommaposition 

OUT: B: Zahl der Vorkommastellen 
Formatierungsflags 
keine spezielle 
Zahlenformatierung ? 
form. Exponentialdarstellung ? 
Kommaposition 

+ Stellenzahl = dez. Exp.+I 
Dezimalexponent <9 ? 
dann o.k. 

sonst Flag für Formatüberlauf 

normale ExponentiaIdarstellung 
Gesamt.-Z. als Vorkomriast.-Z. 
Gesamtsteilenzahl 
=0 ? 

dann Zahl=0 

Stellenzahl +Kommaposition 
-1 (eine Vorkommastelle) 
gibt Dezimalexponenten 
Nachkormianul len unterdrücken 
Zahl der Vorkommastellen=1 
neue Gesamtstellenzahl 
weniger als 7 Stellen ? 
dann o.k. 

Flag f. max. 7 Mant.-Stellen 
gesetzt ? dann nur 7 Mant.-St. 
Stel lenz.=Vorkorranastellenz. ? 
nein ? d. Dezimalpunkt setzen 
Dezimal-Exponenten setzen 

normale Darstellung 

Kommaposition (dez. Exp-8) 

Nachkommastellen vorhanden ? 
Zahl>lE9 ? dann Exp.-Darst. 
Ges.-St.-Zahl=Vork.-St.-Zahl 


Zahl mit Nachkommastellen 
Kommaposition 

Nachkonma-Nullen unterdrücken 
neue Kommastellung 

keine Nachkommastellen mehr ? 
minus alten Wert 
neue Korrenastellung setzen 
Zahl der abgeschn. Stellen 
+ Ziffernzahl=max. Ziffernzahl 
+ Koimnastel lung 
Zahl zu klein ? d. Exp.-Darst. 
führende Nullen in Buffer 
Dezimalpunkt setzen 
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************ * *********** ********** 


EF20 

3E 

06 


LD 

A,06 

EF22 

32 

6 E 

AE 

LD 

(AE6E),A 

EF25 

18 

24 


JR 

EF4B 

********************************** 

EF27 

06 

80 


LD 

B,80 

EF29 

CD 

25 

F0 

CALL 

F025 

EF2C 

30 

04 


JR 

NC,EF32 

EF2E 

CD 

96 

F0 

CALL 

F096 

EF31 

AF 



XOR 

A 

EF32 

47 



LD 

B,A 

EF33 

CC 

36 

F0 

CALL 

Z, F036 

EF36 

20 

OC 


JR 

NZ.EF44 

EF38 

04 



INC 

B 

EF39 

3A 

6 E 

AE 

LD 

A,(AE6E) 

EF3C 

B7 



OR 

A 

EF3D 

28 

05 


JR 

Z.EF44 

EF3F 

05 



DEC 

B 

EF40 

3C 



INC 

A 

EF41 

32 

6 E 

AE 

LD 

(AE6E),A 

EF44 

79 



LD 

A, C 

EF45 

B7 



OR 

A 

EF46 

28 

04 


JR 

Z, EF4C 

EF48 

83 



ADD 

E 

EF49 

90 



SUB 

B 

EF4A 

5F 



LD 

E,A 

EF4B 

78 



LD 

A,B 

EF4C 

F5 



PUSH 

AF 

EF4D 

47 



LD 

B,A 

EF4E 

CD 

8 B 

EF 

CALL 

EF8B 

EF51 

Fl 



POP 

AF 

EF52 

B8 



CP 

B 

EF53 

28 

0D 


JR 

Z,EF62 

EF55 

IC 



INC 

E 

EF56 

23 



INC 

HL 

EF57 

05 



DEC 

B 

EF58 

E5 



PUSH 

HL 

EF59 

7E 



LD 

A, (HL) 

EF5A 

FE 

2E 


CP 

2E 

EF5C 

20 

01 


JR 

NZ,EF5F 

EF5E 

23 



INC 

HL 

EF5F 

36 

31 


LD 

(HL),31 

EF61 

El 



POP 

HL 

EF62 

3E 

45 


LD 

A,45 

EF64 

CD 

6 F 

F0 

CALL 

F06F 

EF67 

7B 



LD 

A,E 

EF68 

87 



ADD 

A 

EF69 

3E 

2B 


LD 

A,2B 

EF6B 

30 

05 


JR 

NC,EF72 

EF6D 

AF 



XOR 

A 

EF6E 

93 



SUB 

E 

EF6F 

5F 



LD 

E,A 

EF70 

3E 

2D 


LD 

A,2D 

EF72 

CD 

6 F 

F0 

CALL 

F06F 

EF75 

7B 



LD 

A,E 

EF76 

0E 

2F 


LD 

C,2F 

EF78 

OC 



INC 

C 


Exp.-Darst. mit max. 7 Mant.-St. 

6 Nachkommastellen 
(1 VorkommasteLle) 

Zahl formatieren 

formatierte Exponentialdarst. 
negatives Vorzeichen 
Zahl der Vorkommaziffern holen 
nicht zu viele SonderZeichen ? 
sonst Formatüberlauf 
keine Vorkonmastel le 
VorkommasteLlenzahl 
=0 ? dann Nachkommast. holen 
Nach- o. Vork.-St. gewünscht ? 
VorkommasteLlenzahl erhöhen 
gewünschte Nachk.-Stellenzahl 

keine Nachkonrmastel len ? 

Zahl d. VorkonmastelLen zurück 
Nachkommastellenzahl erhöhen 
und wieder speichern 
Gesamtstellenzahl 
=0 ? 

dann dez. Exp.=Kommastellung 
Stellenzahl+Konmastellung 
-Nachkorranastellenzahl 
gibt Dezimalexponenten 
Vorkommastellenzahl 
retten 

Vorkommastellenzahl 
Mantisse formatieren 
alte Vorkonmastellenzahl 
= neue ? 

d. keine zusätzl. Rundungsst. 
Dezimalexponenten erhöhen 
erste Ziffer übergehen 
Vorkonmastellenzahl erniedr. 
Zeiger auf Start der Zahl 
Zeichen aus Zahl 
". || ? 
nein ? 

sonst übergehen 

"1" als 1. Ziffer (Mant./IO) 

Zeiger auf Start der Zahl 
ii^ii 

ans Bufferende 
Dezimalexponent 
Vorzeichen ins Carry 

ll+ll 

positiver Dezimalexponent ? 
sonst Betrag 
des Dezimalexponenten 
bi Iden 

If . II 

Vorzeichen ans Bufferende 
Dezimalexponent 
" 0"-1 

Zehnerstelle erhöhen 
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EF79 

D6 

0A 


SUB 

0A 

EF7B 

30 

FB 


JR 

NC.EF78 

EF7D 

5F 



LD 

E,A 

EF7E 

79 



LD 

A, C 

EF7F 

CD 

6 F 

F0 

CALL 

F06F 

EF82 

7B 



LD 

A,E 

EF83 

C6 

3A 


ADD 

3A 

EF85 

C3 

6 F 

F0 

JP 

F06F 


********************************** 


EF88 

CD 

B4 

EF 

CALL 

EFB4 

EF8B 

CD 

36 

F0 

CALL 

F036 

EF8E 

80 



ADD 

B 

EF8F 

B9 



CP 

C 

EF90 

30 

05 


JR 

NC,EF97 

EF92 

CD 

C8 

EF 

CALL 

EFC8 

EF95 

18 

04 


JR 

EF9B 

EF97 

91 



SUB 

C 

EF98 

C4 

EF 

EF 

CALL 

NZ.EFEF 

EF9B 

3A 

6 E 

AE 

LD 

A,(AE6E) 

EF9E 

B7 



OR 

A 

EF9F 

C8 



RET 

Z 


********************************** 


EFA0 

0E 2E 

LD 

C,2E 

EFA2 

78 

LD 

A,B 

EFA3 

C5 

PUSH 

BC 

EFA4 

47 

LD 

B,A 

EFA5 

04 

INC 

B 

EFA6 

85 

ADD 

L 

EFA7 

6 F 

LD 

L,A 

EFA8 

8 C 

ADC 

H 

EFA9 

95 

SUB 

L 

EFAA 

67 

LD 

H,A 

EFAB 

2B 

DEC 

HL 

EFAC 

79 

LD 

A, C 

EFAD 

4E 

LD 

C,(HL) 

EFAE 

77 

LD 

(HL) ,A 

EFAF 

05 

DEC 

B 

EFB0 

20 F9 

JR 

NZ,EFAB 

EFB2 

CI 

POP 

BC 

EFB3 

C9 

RET 



********************************** 


EFB4 

7B 


LD 

A,E 

EFB5 

81 


ADD 

C 

EFB6 

47 


LD 

B,A 

EFB7 

F0 


RET 

P 

EFB8 

2F 


CPL 


EFB9 

3C 


INC 

A 

EFBA 

06 

14 

LD 

B, 14 

EFBC 

B8 


CP 

B 

EFBD 

30 

01 

JR 

NC,EFC0 

EFBF 

47 


LD 

B.A 


als Ausgleich 10 subtrahieren 

weitere Zehnerstellen ? 

Einerstelle-10 

Zehnerstelle 

ans Bufferende 

Einerstelle-10 

+10+"0" gibt ASCII-Code 

ans Bufferende 

formatierte Darstellung 

führende Nullen in Buffer 
gewünschte Nachkonimast,-Zahl 
+Zahl der Vorkommastellen 

>=Gesamtstellenzahl ? 
sonst entsprechend runden 

Zahl d. gew.-Z. d. exist. St. 
<>0 ? dann Nullen anhängen 
gewünschte Nachkommast.-Zahl 
=0 ? 

dann fertig 

Dezimalpunkt einfügen 
IN : B: Vorkommastellenzahl 
". 11 

Vorkommastellenzahl 
retten 

Vorkorrmastel lenzahl 

+1=zu verschiebende St.-Zahl 


Bufferzeiger 
addieren 

Bufferzeiger 
voriges Zeichen 
aktuelles Zeichen 
durch voriges ersetzen 

weitere Stellen verschieben ? 
Vorkommastellenzahl 


führende Nullen in Buffer 
IN/OUT: C: Zahl der Stellen 
E: Kommastellung 
OUT: B: Vorkommastellenzahl 
Kommastellung 
+Gesamtstellenzahl 
=Vorkommastellenzahl 
Vorkotrmastel len vorhanden ? 
Zweierkomplement, gibt Zahl 
der ben. führenden Nullen 
max. Wert 

benötigte Zahl zu groß ? 
dann Maxi mal zahl 
sonst berechnete Zahl 
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EFCO 

2B 


DEC 

HL 

EFC1 

36 

30 

LD 

(HL),30 

EFC3 

OC 


INC 

C 

EFC4 

05 


DEC 

B 

EFC5 

20 

F9 

JR 

NZ,EFC0 

EFC7 

C9 


RET 



********************************** 


EFC8 

E5 



PUSH 

HL 

EFC9 

4F 



LD 

C,A 

EFCA 

85 



ADD 

L 

EFCB 

6 F 



LD 

L,A 

EFCC 

8 C 



ADC 

H 

EFCD 

95 



SUB 

L 

EFCE 

67 



LD 

H,A 

EFCF 

7E 



LD 

A, (HL) 

EFD0 

36 

00 


LD 

(HL),00 

EFD2 

22 

70 

AE 

LD 

(AE70),HL 

EFD5 

FE 

35 


CP 

35 

EFD7 

D4 

El 

EF 

CALL 

NC,EFE1 

EFDA 

El 



POP 

HL 

EFDB 

D8 



RET 

C 

EFDC 

2B 



DEC 

HL 

EFDD 

36 

31 


LD 

(HL),31 

EFDF 

04 



INC 

B 

EFE0 

C9 



RET 



"0" in Buffer 
Gesamtstellenzahl erhöhen 

weitere führende Nullen ? 


Zahl runden 

IN : A: gewünschte Stellenzahl 
B: Zahl der Vorkonmastellen 
HL: Bufferzeiger 
OUT: B: Vorkormtastel lenzahl 
C: Gesamtstellenzahl 
HL: Bufferzeiger 
Bufferzeiger retten 
gewünschte Stellenzahl 

Stellenzahl zu Bufferzeiger 
addieren, gibt Zeiger auf 
1. nicht benötigte Stelle 

1. nicht benötigte Stelle 
durch Bufferende ersetzen 
Zeiger auf Bufferende setzen 
Ziffer >= ,l 5" ? 
dann aufrunden 

Bufferzeiger auf Start d. Zahl 
kein Rundungsüberlauf ? 
sonst Stelle vor Zahl 
auf "1" setzen 
Vorkonmastellenzahl erhöhen 


********************************** 


EFE1 

79 

LD 

A, C 

EFE2 

B7 

OR 

A 

EFE3 

C8 

RET 

Z 

EFE4 

2B 

DEC 

HL 

EFE5 

0D 

DEC 

C 

EFE6 

7E 

LD 

A, (HL) 

EFE7 

34 

INC 

(HL) 

EFE8 

FE 39 

CP 

39 

EFEA 

D8 

RET 

C 

EFEB 

36 30 

LD 

(HL),30 

EFED 

18 F2 

JR 

EFE1 


Zahl bei letzter Stelle um 1 erh. 
IN : HL: Zeiger nach letzter St. 

C: Stellenzahl 
OUT: CY=1, wenn o.k. 

CY=0, wenn Überlauf 
C: Stellenzahl 
Stellenzahl 

CY=0, keine Stelle mehr ? 
dann Überlauf 

Zeiger a. nächsthöherw. Ziffer 
Stellenzahl herunterzäh len 
Ziffer 

Ziffer erhöhen 
war Ziffer <"9 11 ? 
dann fertig 
sonst Ziffer "0" 
nächsthöhere Ziffer erhöhen 


********************************** Nullen an Zehl snhänsen 

IN : A: Zahl der Nullen 
HL: Bufferzeiger 
C: Stellenzahl 
OUT: HL: Bufferzeiger 

EFEF D5 PUSH DE 

EFFO C5 PUSH BC Stellenzahlen retten 
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EFF1 

EB 


EX 

DE,HL 

EFF2 

47 


LD 

B,A 

EFF3 

7B 


LD 

A,E 

EFF4 

90 


SUB 

B 

EFF5 

6 F 


LD 

L,A 

EFF6 

9F 


SBC 

A 

EFF7 

82 


ADD 

D 

EFF8 

67 


LD 

H,A 

EFF9 

E5 


PUSH 

HL 

EFFA 

OC 


INC 

C 

EFFB 

18 

04 

JR 

F001 

EFFD 

1A 


LD 

A,(DE) 

EFFE 

13 


INC 

DE 

EFFF 

77 


LD 

<HL>,A 

F000 

23 


INC 

HL 

F001 

0D 


DEC 

C 

F002 

20 

F9 

JR 

NZ,EFFD 

F004 

36 

30 

LD 

(HL),30 

F006 

23 


INC 

HL 

F007 

05 


DEC 

B 

F008 

20 

FA 

JR 

NZ,F004 

F00A 

El 


POP 

HL 

F00B 

CI 


POP 

BC 

F00C 

Dl 


POP 

DE 

FOOD 

C9 


RET 



********************************** 


F00E 

E5 



PUSH 

HL 

F00F 

2A 

70 

AE 

LD 

HL,(AE70) 

F012 

2B 



DEC 

HL 

F 013 

7E 



LD 

A, (HL) 

F014 

23 



INC 

HL 

F015 

FE 

30 


CP 

30 

F 017 

20 

05 


JR 

NZ.F01E 

F019 

2B 



DEC 

HL 

F01A 

0D 



DEC 

C 

F01B 

04 



INC 

B 

F01C 

20 

F4 


JR 

NZ,F012 

F01E 

36 

00 


LD 

(HL),00 

F020 

22 

70 

AE 

LD 

(AE70),HL 

F023 

El 



POP 

HL 

F024 

C9 



RET 



********************************** 


F025 

CD 

9B 

F0 

CALL 

F09B 

F028 

9F 



SBC 

A 

F029 

3C 



INC 

A 

F02A 

47 



LD 

B,A 

F02B 

7A 



LD 

A,D 

F02C 

E6 

04 


AND 

04 

F02E 

28 

01 


JR 

Z,F031 

F030 

04 



INC 

B 

F 031 

3A 

6 F 

AE 

LD 

A,(AE6F) 


Bufferzeiger nach DE 
Zahl der Nullen 

Zeiger auf Zahl 

- Zahl der zusätzlichen Nullen 
gibt neuen Zeiger auf Zahl 


neuer Zeiger auf Zahl 
Predecrement ausgleichen 

Zeichen aus Buffer 

nach unten kopieren 


weitere Stellen ? 
"0" hinter Zahl 


weitere Nullen ? 

Zeiger auf Zahl 

und Stellenzahlen zurück 


Nachkormia-Nul len unterdrücken 
IN/OUT: HL: Bufferzeiger 
C: Stellenzahl 
B: Koumastellung 
Bufferzeiger retten 
Zeiger auf Ende der Zahl 

letzte Ziffer 

" 0 " ? 

nein ? dann fertig 
sonst Endzeiger, 

Stellenzahl 

und Kommastellung korrigieren 
weitere Nachkommastellen ? 
Bufferende neu markieren 
Zeiger auf Bufferende setzen 
Bufferzeiger auf Zahl 


Vorkorrmastellenzahl ohne Sonderz. 

OUT: A: gewünschter Wert 

CY=0, wenn zu viele Sonderz. 
Vorzeichenflags holen 
Vorzeichen vor der Zahl ? 
dann A=1, sonst A=0 
Platz für Vorzeichen 
Formatierungs-Flags 
Bit für "S" 
nicht gesetzt ? 
sonst Platz erhöhen 
gewünschte Vorkommastellenzahl 
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F034 90 SUB B 

F035 C9 RET 

********************************** 


F036 

3A 6E AE 

LD 

A,(AE6E) 

F039 

B7 

OR 

A 

F03A 

C8 

RET 

Z 

F03B 

3D 

DEC 

A 

F03C 

C9 

RET 


********************************** 


F03D 

7A 


LD 

A,D 

F03E 

E6 

02 

AND 

02 

F040 

C8 


RET 

Z 

F 041 

78 


LD 

A,B 

F042 

D6 

03 

SUB 

03 

F044 

D8 


RET 

C 

F045 

C8 


RET 

Z 

F046 

F5 


PUSH 

AF 

F047 

OE 

2C 

LD 

C,2C 

F049 

CD 

A3 EF 

CALL 

EFA3 

F04C 

04 


INC 

B 

F04D 

Fl 


POP 

AF 

F04E 

18 

F2 

JR 

F042 


********************************** 


F050 

7A 


LD 

A,D 

F051 

87 


ADD 

A 

F052 

30 

07 

JR 

NC.F05B 

F054 

C5 


PUSH 

BC 

F055 

CD 

25 F0 

CALL 

F025 

F058 

CI 


POP 

BC 

F059 

D8 


RET 

C 

F05A 

C8 


RET 

Z 

F05B 

3E 

30 

LD 

A,30 

F05D 

18 

06 

JR 

F065 


********************************** 


F05F 

7A 

LD 

A/D 

F060 

E6 04 

AND 

04 

F062 

C8 

RET 

Z 

F063 

3E 24 

LD 

A,24 

F065 

IC 

INC 

E 

F066 

2B 

DEC 

HL 

F067 

77 

LD 

(HL),A 

F068 

C9 

RET 



- Platz für Sonderzeichen 


Nachkonmastellen (ohne **. 11 ) 

OUT: A: gewünschte Zahl 

gew. Nachkommastellenzahl 

keine Nachkommastellen gew. ? 
sonst Stelle für abziehen 


Komma-Einteilungen setzen 
IN/OUT: B: Vorkommastellenzahl 
D: Formatierungs-Flags 
HL: Bufferzeiger 
Formatierungs-Flags 
Bit für Komma-Einteilung 
nicht gesetzt ? 

Zahl der VorkommastelLen 
Position des nächsten Kommas 
noch weniger als 4 Stellen ? 
dann zurück 
Position retten 

II II 
9 

in Buffer einfügen 
Vorkoirsnastel lenzah l erhöhen 
Position 

ggf. nächstes Komma setzen 

ggf. führende Null in Buffer 
IN/OUT: E: Vorkonmastellenzahl 
D: Formatierungs-Flags 
HL: Bufferzeiger 
Formatierungs-Flags 
Flag für formatierte Darst. 
nicht gesetzt ? 

gew. Vork.-St.-Z. o. Sonderz. 

gew. Zahl <=0 ? 

sonst "0" 

vor die Zahl in Buffer 

ggf. führendes "$" in Buffer 
IN/OUT: E: Vorkommastellenzahl 
D: Formatierungs-Flags 
HL: Bufferzeiger 
Formatierungs-Flags 
Bit für "$$" 
nicht gesetzt ? 
sonst "S“ 

Vorkommastellenzahl erhöhen 
Zeichen vor Zahl 
in Buffer schreiben 
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********************************** 


F069 

CD 

9B 

F0 

CALL 

F09B 

F06C 

C8 



RET 

Z 

F06D 

30 

F6 


JR 

NC,F065 

********************************** 

F06F 

E5 



PUSH 

HL 

F070 

2A 

70 

AE 

LD 

HL,(AE70) 

F073 

77 



LD 

<HL),A 

F074 

23 



INC 

HL 

F075 

36 

00 


LD 

(HL),00 

F077 

22 

70 

AE 

LD 

(AE70),HL 

F07A 

El 



POP 

HL 

F07B 

C9 



RET 



********************************** 


F07C 

7A 


LD 

A,D 

F07D 

B7 


OR 

A 

F07E 

F0 


RET 

P 

F07F 

3A 

6 F AE 

LD 

A,(AE6F) 

F082 

93 


SUB 

E 

F083 

C8 


RET 

Z 

F084 

38 

10 

JR 

C,F096 

F086 

47 


LD 

B,A 

F087 

7A 


LD 

A,D 

F088 

E6 

20 

AND 

20 

F08A 

3E 

2A 

LD 

A,2A 

F08C 

20 

02 

JR 

NZ,F090 

F08E 

3E 

20 

LD 

A,20 

F090 

2B 


DEC 

HL 

F091 

77 


LD 

(HL),A 

F092 

05 


DEC 

B 

F093 

20 

FB 

JR 

NZ,F090 

F095 

C9 


RET 


********************************** 

F096 

7A 


LD 

A,D 

F097 

F6 

01 

OR 

01 

F099 

57 


LD 

D,A 

F09A 

C9 


RET 



********************************** 


F09B 

78 

LD 

A, B 

F09C 

06 2D 

LD 

B,2D 

F09E 

87 

ADD 

A 


Vorzeichen setzen 
IN/OUT: D: Formatierungs-Flags 
HL: Bufferzeiger 
Vorzeichenflags holen 
kein Vorzeichen gewünscht ? 
Vorzeichen vor der Zahl ? 

Zeichen ans Bufferende schreiben 
IN : A: Zeichen 

Zeiger auf Bufferende 
Zeichen nach Zahl speichern 

Null ans Bufferende 
Zeiger auf Bufferende setzen 


führende Zeichen vor die Zahl 
IN/OUT: E: Vorkommastellenzahl 
beim CPC 664/6128: 

B: Vorkofmiastel lenzahl 
D: Formatierungs-Flags 
HL: Bufferzeiger 
Formatierungs-Flags 
keine formatierte Darst. ? 
dann zurück 

gew. Vorkonmastellenzahl 
- tatsächliche Zahl 
gleich ? dann fertig 
zuviele St. ? d. Formatüberl. 
Zahl der zusätzlichen Stellen 
Formatierungs-Flags 
Bit für "**" 

ii*m 

Flag für "**" gesetzt ? 
sonst Space 

Zeichen vor die Zahl 
in Buffer schreiben 

weitere führende Zeichen ? 


Flag für Formatüberlauf setzen 


Vorzeichenflags holen 
IN : D: Formatierungsflags 
B: Vorzeichen 

OUT: A: ASCII-Code d. Vorzeichens 
Z=1, wenn kein Vorzeichen 
CY=1, w. Vorz. nach der Zahl 
Vorzeichen 

ii. ii 

Vorzeichen ins Carry 
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F09F 

38 

0F 

JR 

C.F0B0 

F0A1 

7A 


LD 

A.D 

F0A2 

E6 

98 

AND 

98 

F0A4 

EE 

80 

XOR 

80 

F0A6 

37 


SCF 


F0A7 

C8 


RET 

Z 

F0A8 

06 

2B 

LD 

B,2B 

FOAA 

E6 

08 

AND 

08 

FOAC 

20 

02 

JR 

NZ,F0B0 

FOAE 

06 

20 

LD 

B, 20 

F0B0 

7A 


LD 

A.D 

F0B1 

F6 

EF 

OR 

EF 

F0B3 

C6 

10 

ADD 

10 

F0B5 

78 


LD 

A, B 

F0B6 

C9 


RET 





F0B7 

E5 


PUSH 

HL 

F0B8 

EB 


EX 

DE,HL 

F0B9 

CD 

DD F0 

CALL 

FODD 

F0BC 

El 


POP 

HL 

F0BD 

78 


LD 

A,B 

F0BE 

87 


ADD 

A 

F0BF 

4F 


LD 

C,A 

F0C0 

C8 


RET 

Z 

F0C1 

1 A 


LD 

A, (DE) 

F0C2 

E6 

0F 

AND 

OF 

F0C4 

C6 

30 

ADD 

30 

F0C6 

2B 


DEC 

HL 

F0C7 

77 


LD 

(HL).A 

F0C8 

1A 


LD 

A, (DE) 

F0C9 

E6 

F0 

AND 

FO 

F0CB 

1 F 


RRA 


F0CC 

1 F 


RRA 


F0CD 

1 F 


RRA 


F0CE 

1 F 


RRA 


F0CF 

C6 

30 

ADD 

30 

F0D1 

2B 


DEC 

HL 

F0D2 

77 


LD 

(HL),A 

F0D3 

13 


INC 

DE 

F0D4 

05 


DEC 

B 

F0D5 

20 

EA 

JR 

NZ.F0C1 

F0D7 

FE 

30 

CP 

30 

F0D9 

C0 


RET 

NZ 

F0DA 

0D 


DEC 

C 

F0DB 

23 


INC 

HL 

F0DC 

C9 


RET 



*** -k -k * ****** * *Vr ******* & * -k ******* 


negativ ? 

Formatierungsflags 
Vorz. vor d. Zahl, nicht "+ n 
und formatierte Darst. ? 

dann kein Vorzeichen 

11 + It 

Flag für "+" bei pos. Vorz. 

gesetzt ? 

sonst Space 

Formatierungsflags 

Flag für Vorz. nach der Zahl 
ins Carry 

ASCII-Code des Vorzeichens 


Binärzahl nach ASCII-Mantisse 
IM : DE: Zeiger auf höchstw. Byte 
der Binärzahl 
C: Länge der Binärzahl 
HL: Zeiger auf ASCII-Buffer 
OUT: HL: Bufferzeiger 

C: Zahl der Ziffern 
Bufferzeiger retten 
Zeiger auf h. Zahlbyte nach HL 
Zahl nach BCD wandeln 
Bufferzeiger zurück 
Länge der BCD-Zahl 
mal 2, da 2 Ziffern pro Byte 
gibt Zahl der Ziffern 
keine Ziffern ? dann fertig 
Byte aus BCD-Zahl 
unteres Nibble 
nach ASCII 

in Buffer schreiben 
Byte aus BCD-Zahl 
oberes Nibble 

oberes Nibble 
in unteres Nibble 
schieben 

ASCII-Code herstellen 

in Buffer schreiben 
BCD-Bufferzeiger 

weitere BCD-Bytes ? 
führende Ziffer ="0" ? 
nein ? dann zurück 
sonst Null unterdrücken 
Zeiger auf nächste Zahl 


Binärzahl nach BCD wandeln 
IN : HL: Zeiger auf höchstw. Byte 
der Binärzahl 
C: Länge der Binärzahl 
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F0DD 

11 

46 AE 

LD 

DE.AE46 

F0E0 

AF 


XOR 

A 

FOE1 

47 


LD 

B,A 

F0E2 

B6 


OR 

(HL) 

F0E3 

2B 


DEC 

HL 

F0E4 

20 

04 

JR 

NZ,FOEA 

F0E6 

OD 


DEC 

C 

F0E7 

20 

F9 

JR 

NZ,F0E2 

F0E9 

C9 


RET 


FOEA 

37 


SCF 


FOEB 

8F 


ADC 

A 

FOEC 

30 

FD 

JR 

NC,FOEB 

FOEE 

EB 


EX 

DE,HL 

FOEF 

D5 


PUSH 

DE 

FOFO 

57 


LD 

D,A 

F0F1 

18 

11 

JR 

Fl 04 

F0F3 

1A 


LD 

A, (DE) 

F0F4 

1B 


DEC 

DE 

F0F5 

D5 


PUSH 

DE 

F0F6 

37 


SCF 


F0F7 

8F 


ADC 

A 

F0F8 

57 


LD 

D.A 

F0F9 

58 


LD 

E,B 

FOFA 

7E 


LD 

A, (HL) 

FOFB 

8F 


ADC 

A 

FOFC 

27 


DAA 


FOFD 

77 


LD 

(HL),A 

FOFE 

23 


INC 

HL 

FOFF 

ID 


DEC 

E 

F100 

20 

F8 

JR 

NZ.FOFA 

F102 

30 

03 

JR 

NC,F107 

Fl 04 

04 


INC 

B 

F105 

36 

01 

LD 

(HL),01 

F107 

21 

46 AE 

LD 

HL,AE46 

F10A 

7A 


LD 

A.D 

Fl OB 

87 


ADD 

A 

F10C 

20 

EA 

JR 

NZ,F0F8 

F10E 

Dl 


POP 

DE 

Fl OF 

OD 


DEC 

C 

Fl 10 

20 

El 

JR 

NZ,F0F3 

F112 

EB 


EX 

DE,HL 

Fl 13 

C9 


RET 



OUT: DE: Zeiger auf BCD-Zahl 
B: Länge der BCD-Zahl 
Zeiger auf BCD-Buffer 
Null 

als Zahl der BCD-Stellen 
Byte aus Binärzahl 
Zg. nächstniederwertiges Byte 
Byte signifikant ? 

Zähler f. signifikante Bytes 
weitere Bytes ? 

Byteende-Kennzeichen 
nächstes gesetztes 
Bit suchen 

BCD-Zg. n. HL, Bin.-Zg. n. DE 
Binärzahl-Zeiger retten 
Byte aus Binärzahl 
auswerten 

nächstes Binärzahl-Byte 

Zg. a. nächstniederwertiges 
Byte retten 
Byteende-Kennzeichen 
nächstes Bit aus Binärzahl 
Binärzahl-Byte 
Zahl der BCD-Bytes 
BCD-Byte 

Bit a. Zahl/Übertr. hineinrot. 
wieder nach BCD 
BCD-Byte wieder speichern 
Zeiger auf nächstes BCD-Byte 

weitere BCD-Bytes ? 

Übertrag zu nächst. BCD-Byte ? 
Länge der BCD-Zahl erhöhen 
Übertrag setzen 
Zeiger auf BCD-Zahl 
Byte aus Binär-Zahl 
nächstes Bit holen 
kein Byteende ? dann auswerten 
Zeiger in Binärzahl 
Zähler für Binärzahl-Bytes 
Binärzahl noch nicht zu Ende ? 
Zeiger auf BCD-Zahl nach DE 


********************************** Zahl nach Binärstring wandeln 

IN : HL: Zeiger auf Zahl 
C: Typ der Zahl 
B: min. Stellenzahl 
OUT: DE: Zeiger auf String 
HL: Zeiger nach Zahl 

Fl 14 11 01 01 LD DE,0101 Bits/Stelle, Bitmaske f. 1 St. 

Fl 17 18 03 JR F11C 


********************************** Zahl nach Hex-String wandeln 

IN : HL: Zeiger auf Zahl 
C: Typ der Zahl 
B:: min. Stellenzahl 
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Fl 19 

11 

0F 

04 

LD 

DE,040F 

F11C 

D5 



PUSH 

DE 

Fl ID 

79 



LD 

A,C 

Fl IE 

CD 

4B 

FF 

CALL 

FF4B 

F121 

E3 



EX 

(SP),HL 

Fl 22 

E5 



PUSH 

HL 

Fl 23 

C5 



PUSH 

BC 

Fl 24 

CD 

C2 

FE 

CALL 

FEC2 

Fl 27 

11 

57 AE 

LD 

DE,AE57 

F12A 

AF 



XOR 

A 

F12B 

12 



LD 

<DE),A 

F12C 

Fl 



POP 

AF 

F12D 

Ci 



POP 

BC 

F12E 

D6 

01 


SUB 

01 

F130 

CE 

00 


ADC 

00 

F132 

F5 



PUSH 

AF 

Fl 33 

7D 



LD 

A,L 

Fl 34 

Al 



AND 

C 

Fl 35 

F6 

F0 


OR 

F0 

F137 

27 



DAA 


Fl 38 

C6 

A0 


ADD 

A0 

F13A 

CE 

40 


ADC 

40 

F13 C 

1B 



DEC 

DE 

F13D 

12 



LD 

(DE),A 

F13E 

7D 



LD 

A,L 

F13 F 

Bl 



OR 

C 

F140 

A9 



XOR 

C 

F141 

6F 



LD 

L#A 

F142 

B4 



OR 

H 

Fl 43 

28 

0E 


JR 

Z, F153 

F145 

C5 



PUSH 

BC 

Fl 46 

7C 



LD 

A, H 

F147 

1F 



RRA 


Fl 48 

67 



LD 

H,A 

Fl 49 

7D 



LD 

A,L 

F14A 

1F 



RRA 


F14B 

6F 



LD 

L,A 

F14C 

05 



DEC 

B 

F14D 

20 

F7 


JR 

NZ,F146 

F14F 

CI 



POP 

BC 

F150 

Fl 



POP 

AF 

F151 

18 

DB 


JR 

F12E 

F153 

Fl 



POP 

AF 

F154 

20 

D8 


JR 

NZ,F12E 

F156 

El 



POP 

HL 

F157 

C9 



RET 



********************************** 


F158 

CD 

C2 

FE 

CALL 

FEC2 

F15B 

E7 



RST 

20 

F15C 

C3 

0A 

FF 

JP 

FF0A 

********************************** 

F15F 

CD 

91 

CE 

CALL 

CE91 

F162 

D5 



PUSH 

DE 

Fl 63 

CD 

37 DD 

CALL 

DD37 


OUT: DE: Zeiger auf String 
HL: Zeiger nach Zahl 
Bits/Stelle, Bitmaske f. 1 St. 
retten 

Typ der Zahl 

Zahl nach FAC kopieren 

Zg. nach Zahl r., Param. zur. 

Bits/Stelle, Bitmaske f. 1 St. 

min. Stellenzahl 

UNT, FAC nach Integer nach HL 

Zeiger auf Buffer für String 

Null 

als Endekennzeichen in Buffer 
min. Stellenzahl 
Bits/Stelle, Bitmaske f. 1 St. 
Stellenzähler 

unter 0 ? dann wieder auf 0 
Stellenzähler retten 
Lo-Byte der Zahl 
Bit(s) für diese Stelle isol. 
$30 addieren, 
wenn Ziffer <=9, 
sonst $37 addieren, 
gibt ASCII-Code 
Bufferzeiger für String 
Ziffer an Bufferanfang setzen 
Lo-Byte der Zahl 

Bit(s) für diese Stelle 
löschen 

Lo-Byte wieder zurück 
Zah1=0 ? 

dann Test auf Ende 
Bits/Stelle, Maske f. 1 Stelle 


Zahl nach rechts 
rotieren 


weitere Bits in dies. Stelle ? 

Bits/Stelle, Maske f. 1 Stelle 

Stellenzähler 

nächste Stelle wandeln 

Stellenzähler 

weitere Stellen gewünscht ? 
Zeiger nach eingegebener Zahl 


Basic-Funktion PEEK 

UNT, FAC nach Integer nach HL 
Byte aus RAM laden 
und in FAC speichern 

Basic-Befehl POKE 

Adresse nach DE holen 
und retten 
Test auf Kotmta 
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Fl 66 

2C 



Fl 67 

CD 67 CE 

CALL 

CE67 

F16A 

Dl 

POP 

DE 

F16B 

12 

LD 

(DE),A 

F16C 

C9 

RET 



********************************** 


F16D 

CD 

8D 

FE 

CALL 

FE8D 

Fl 70 

44 



LD 

B, H 

F171 

4D 



LD 

C,L 

F172 

ED 

78 


IN 

A, (C) 

Fl 74 

C3 

0A 

FF 

JP 

FF0A 

********************************** 

Fl 77 

CD 

94 

Fl 

CALL 

Fl 94 

F17A 

ED 

79 


OUT 

<C),A 

F17C 

C9 



RET 


********************************** 

F17D 

CD 

94 

Fl 

CALL 

Fl 94 

F180 

57 



LD 

D,A 

F181 

IE 

00 


LD 

E,00 

Fl 83 

28 

08 


JR 

Z, F18D 

Fl 85 

CD 

37 

DD 

CALL 

DD37 

Fl 88 

2C 





Fl 89 

CD 

67 

CE 

CALL 

CE67 

F18C 

5F 



LD 

E,A 

F18D 

ED 

78 


IN 

A, (C) 

F18F 

AB 



XOR 

E 

Fl 90 

A2 



AND 

D 

F191 

28 

FA 


JR 

Z,F18D 

Fl 93 

C9 



RET 


********************************** 

Fl 94 

CD 

91 

CE 

CALL 

CE91 

F197 

42 



LD 

B,D 

Fl 98 

4B 



LD 

C,E 

F199 

CD 

37 

DD 

CALL 

DD37 

F19C 

2C 





F19D 

C3 

67 

CE 

JP 

CE67 

********************************** 

Fl A0 

23 



INC 

HL 

Fl AI 

7E 



LD 

A, (HL) 

F1A2 

B7 



OR 

A 

Fl A3 

20 

10 


JR 

NZ,F1B5 

F1A5 

23 



INC 

HL 

F1A6 

E5 



PUSH 

HL 

F1A7 

CD 

D4 

BC 

CALL 

BCD4 

F IAA 

EB 



EX 

DE,HL 

FlAB 

El 



POP 

HL 

F1AC 

30 

07 


JR 

NC.F1B5 

F1AE 

7E 



LD 

A,(HL) 

Fl AF 

23 



INC 

HL 

F1B0 

17 



RLA 


F1B1 

30 

FB 


JR 

NC,FlAE 

F1B3 

18 

0A 


JR 

FlBF 


II II 
i 

Byte nach A holen 

Adresse 

Byte speichern 


Basic-Funktion INP 

CINT, FAC nach Integer nach HL 
nach BC 

Byte laden 

und in FAC speichern 

Basic-Befehl OUT 
Parameter holen 
und Byte ausgeben 


Basic-Befehl WAIT 
Parameter holen 
Byte nach D 

Default für 3. Parameter 
Statementende ? dann Default 
Test auf Komma 

II II 
I 

Byte nach A holen 

Byte laden 
mit Werten 
verknüpfen 
ggf. weiter warten 


Adresse und Byte holen 
OUT: BC: Adresse; A: Byte 
Adresse nach DE 
nach BC 

Test auf Komma 

II II 
t 

Byte nach A holen 

RSX-Wort auswerten 
RSX-Code übergehen 
folgendes Zeichen 
unbekannter Code ? 
dann Fehler 
Code übergehen 

Zeiger auf Befehlsnamen retten 
KL FIND COMMAND 
Routinenadresse nach DE 
Zeiger auf Befehlsnamen 
Befehl nicht gefunden ? 

Byte aus Namen 

Ende ? 

sonst weiter 

Parameter holen, ausführen 
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F1B5 

IE 

IC 



LD 

E, IC 

Nr. für "Unknown corrniand" 

F1B7 

C3 

94 

CA 


JP 

CA94 

Fehler ausgeben 

’ti'irk-kicik'ick'k-k-k'irkis'k-k'irk'kitiKltirit’kiK'irklrirk'it'klt 

Basic-Befehl CALL 

F1BA 

CD 

91 

CE 


CALL 

CE91 

Adresse holen 

FlBD 

OE 

FF 



LD 

Cj ff 

ROM-Konfig., ROMs aus 

* it itititir it -Alt ick *********************** 

Parameter holen, Routine ausf. 








IN : DE: Routinenadresse; C: ROM-Konfiguration 

F1BF 

ED 

53 

72 

AE 

LD 

(AE72),DE 

Adresse speichern 

F1C3 

79 




LD 

A,C 

ROM - Konf i gurat i on 

F1C4 

32 

74 

AE 


LD 

(AE74),A 

speichern 

F1C7 

ED 

73 

77 AE 

LD 

(AE77),SP 

Stackpointer retten 

F1CB 

06 

20 



LD 

B,20 

max. Parameteranzahl 

F1 CD 

CD 

55 

DD 


CALL 

DD55 

folgt Komma ? 

FIDO 

30 

06 



JR 

NC.F1D8 

nein ? dann Ende der Parameter 

F1D2 

CD 

91 

CE 


CALL 

CE91 

Integerwert holen 

F1D5 

D5 




PUSH 

DE 

auf Stack 

F1D6 

10 

F5 



D JNZ 

Fl CD 

weitere Parameter möglich ? 

F1D8 

CD 

4A 

DD 


CALL 

DD4A 

Test auf Statementende 

F1DB 

22 

75 

AE 


LD 

(AE75),HL 

Basic-PC retten 

FIDE 

3E 

20 



LD 

A,20 

max. Parameteranzahl 

F1E0 

90 




SUB 

B 

-Rest = Zahl der Parameter 

F1 El 

DD 

21 

00 

00 

LD 

IX,0000 

Zeiger auf Parameter 

F1E5 

DD 

39 



ADD 

IX,SP 

nach IX 

F1E7 

DF 




RST 

18 

Routine ausführen 

F1E8 

72 

AE 





AE72, Zeiger auf Adr./Konfig. 

FlEA 

ED 

7B 

77 AE 

LD 

SP,(AE77) 

Stackpointer wieder zurück 

F1EE 

2A 

75 

AE 


LD 

HL,(AE75) 

Basic-PC wieder zurück 

Fl Fl 

C9 




RET 



itititititicitir'kitieitit'kiritititicitit'htititirititiriticirititit 

ZONE-Default setzen 

F1F2 

3E 

OD 



LD 

A, OD 

13 

F1F4 

18 

03 



JR 

Fl F9 

ZONE 13 

itititititititititititititititititititititiliticirititiritititititit 

Basic-Befehl ZONE 

F1F6 

CD 

6D 

CE 


CALL 

CE6D 

Byte holen 

F1F9 

32 

79 

AE 


LD 

(AE79),A 

als Tabulatorweite setzen 

Fl FC 

C9 




RET 



it ititit it it ******** itit it itit it it it it it *** it it it it it it 

Basic-Befehl PRINT 

Fl FD 

CD 

C6 

CI 


CALL 

C1C6 

opt. Streamnr. holen/setzen 

F200 

F5 




PUSH 

AF 

alte Nr. retten 

F201 

CD 

08 

F2 


CALL 

F208 

PRINT-Befehl 

F204 

Fl 




POP 

AF 

alte Streamnr. 

F205 

C3 

A2 

CI 


JP 

ClA2 

wieder setzen 

ititit it itit itit itit itit it * it ******* ititit it it iSr itit it 

PRINT Fortsetzung 

F208 

CD 

51 

DD 


CALL 

DD51 

Statementende ? 

F20B 

DA 

4E 

C3 


JP 

C,C34E 

dann Linefeed ausgeben 

F20E 

FE 

ED 



CP 

ED 

Token für USING ? 

F210 

CA 

C4 

F2 


JP 

Z,F2C4 

dann PRINT USING 

F213 

EB 




EX 

DE,HL 

Baisc-PC nach DE 

F214 

21 

24 

F2 


LD 

HL,F224 

Zeiger auf Tabelle 

F217 

CD 

93 

FF 


CALL 

FF93 

Adresse entspr. Token holen 

F21A 

EB 




EX 

DE,HL 

Adr. nach DE, PC nach HL 

F21B 

CD 

FB 

FF 


CALL 

FFFB 

Routine ausführen 

F21E 

CD 

51 

DD 


CALL 

DD51 

Statementende ? 
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F221 30 EB JR NC,F20E 

F223 C9 RET 

************ ************ ****#***•&# 


F224 

05 


F225 

33 

F2 

F227 

2C 


F228 

5C 

F2 

F22A 

E5 


F22B 

77 

F2 

F22D 

EA 


F22E 

80 

F2 

F230 

3B 


F231 

3F 

DD 


** ************ ****** ************** 


F233 

CD 

FB 

CE 

CALL 

CEFB 

F236 

F5 



PUSH 

AF 

F237 

E5 



PUSH 

HL 

F238 

CD 

45 

FF 

CALL 

FF45 

F23B 

28 

OC 


JR 

Z, F249 

F23D 

CD 

9D 

EE 

CALL 

EE9D 

F240 

CD 

DC 

F7 

CALL 

F7DC 

F243 

36 

20 


LD 

(HL),20 

F245 

2A 

C2 

B0 

LD 

HL,(B0C2) 

F248 

34 



INC 

(HL) 

F249 

2A 

C2 

B0 

LD 

HL,(B0C2) 

F24C 

7E 



LD 

A,(HL) 

F24D 

CD 

B9 

C2 

CALL 

C2B9 

F250 

D4 

4E 

C3 

CALL 

NC,C34E 

F253 

CD 

28 

F8 

CALL 

F828 

F256 

El 



POP 

HL 

F257 

Fl 



POP 

AF 

F258 

CC 

4E 

C3 

CALL 

Z,C34E 

F25B 

C9 



RET 


********************************** 

F25C 

CD 

3F 

DD 

CALL 

DD3F 

F25F 

3A 

79 

AE 

LD 

A, (AE79) 

F262 

4F 



LD 

C# A 

F263 

CD 

90 

C2 

CALL 

C290 

F266 

3D 



DEC 

A 

F267 

91 



SUB 

C 

F268 

30 

FD 


JR 

NC,F267 

F26A 

2F 



CPL 


F26B 

3C 



INC 

A 

F26C 

47 



LD 

B,A 

F26D 

81 



ADD 

C 

F26E 

CD 

B9 

C2 

CALL 

C2B9 

F 271 

D2 

4E 

C3 

JP 

NC,C34E 

F274 

78 



LD 

A,B 

F275 

18 

IE 


JR 

F295 

* ilrrt * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

F277 

CD 

A0 

F2 

CALL 

F2A0 

F27A 

CD 

AF 

F2 

CALL 

F2AF 

F27D 

7B 



LD 

A,E 

F27E 

18 

15 


JR 

F295 


nein ? dann weiter 


Tabelle für PRINT 
Länge der Tabelle 
Default-Adresse 

II II 
t 

Komma-Tabulator 
Token für SPC 
Routine für SPC 
Token für TAB 
Routine für TAB 

II .11 
/ 

nächstes Zeichen holen 

PRINT, Ausdruck ausgeben 
Ausdruck holen 
Flag für Statementende 
und Basic-PC retten 
String ? 
dann ausgeben 
FAC nach ASCII wandeln 
String auf Stringstack 
String mit Space abschließen 
Zeiger auf Descriptor 
Länge erhöhen 
Zeiger auf Descriptor 
St ringlänge 

paßt String noch in Zeile ? 
sonst Linefeed ausgeben 
String vom Stack, ausgeben 
Basic-PC 

Flag für Statementende 
Statementende ? d. LF ausgeben 


PRINT, Komma-Tabulator 
Komma übergehen 
Tabulatorweite 
nach C 

akt, Ausgabeposition holen 
Zahl der Zeichen bis zur 
nächsten Tabulatorposition 
berechnen 
Zweier- 
komplement 
Zahl der Zeichen 
Tabulatorweite addieren 
paßt dies noch in Zeile ? 
nein ? dann Linefeed ausgeben 
sonst entsprechend viele 
Spaces ausgeben 

PRINT SPC 

Integer in Klammern nach DE 
Wert MOD Ausgabebreite 
Lo-Byte 

entsprechend viele Spaces 
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********************************** 


F280 

CD 

A0 

F2 

CALL 

F2A0 

F283 

1B 



DEC 

DE 

F284 

CD 

AF 

F2 

CALL 

F2AF 

F287 

CD 

90 

C2 

CALL 

C290 

F28A 

2F 



CPL 


F28B 

3C 



INC 

S 

F28D 

83 



ADD 

E 

F28E 

38 

05 


JR 

C, F295 

F290 

CD 

4E 

C3 

CALL 

C34E 

F293 

ID 



DEC 

E 

F294 

7B 



LD 

A, E 

********************************** 

F295 

47 



LD 

B,A 

F296 

04 



INC 

B 

F297 

05 



DEC 

B 

F298 

C8 



RET 

Z 

F299 

3E 

20 


LD 

A,20 

F29B 

CD 

56 

C3 

CALL 

C356 

F29E 

18 

F7 


JR 

F297 

********************************** 

F2A0 

CD 

3F 

DD 

CALL 

DD3F 

F2A3 

CD 

37 

DD 

CALL 

DD37 

F2A6 

28 





F2A7 

CD 

86 

CE 

CALL 

CE86 

F2AA 

CD 

37 DD 

CALL 

DD37 

F2AD 

29 





F2AE 

C9 



RET 



********************************** 


F2AF 

7A 



LD 

A.D 

F2B0 

17 



RLA 


F2B1 

30 

03 


JR 

NC.F2B6 

F2B3 

11 

00 

00 

LD 

DE,0000 

F2B6 

CD 

9F 

C2 

CALL 

C29F 

F2B9 

DO 



RET 

NC 

F2BA 

E5 



PUSH 

HL 

F2BB 

EB 



EX 

DE,HL 

F2BC 

5F 



LD 

E,A 

F2BD 

16 

00 


LD 

D,00 

F2BF 

CD 

CI 

BD 

CALL 

BDC1 

F2C2 

El 



POP 

HL 

F2C3 

C9 



RET 


********************************** 

F2C4 

CD 

3F 

DD 

CALL 

DD3F 

F2C7 

CD 

A5 

CE 

CALL 

CEA5 

F2CA 

CD 

37 

DD 

CALL 

DD37 

F2CD 

3B 





F2CE 

E5 



PUSH 

HL 

F2CF 

2A 

C2 

B0 

LD 

HL, (B0C2) 

F2D2 

7E 



LD 

A,(HL) 


PRINT TAB 

Integer in Klanmern nach DE 
-1 (in absolute Koordinaten) 
Wert MOD Ausgabebreite 
akt. Ausgabeposition holen 
Zweierkomplement 
wibdtdeS. relative Koordinaten 
Wert - akt. Position 
positiv ? dann Spaces ausgeben 
sonst Linefeed ausgeben 
Wert in absoluten Koordinaten 
entspr. viele Spaces ausgeben 

Spaces ausgeben 
IN : A: Zahl der Spaces 
Zahl der Spaces 
zum Ausgleich erhöhen 
Zähler 

keine weiteren Spaces ? 

Spaces 
ausgeben 
weiter ausgeben 

Integer in Klanmern holen 
nächstes Zeichen 
Test auf Klarrmer auf 

U( II 

Integerwert holen 
Test auf Klairmer zu 
11^11 


Zahl der Spaces MOD Ausgabebreite 
IN : DE: Anzahl der Spaces 
OUT: DE: neuer Wert 

Wert positiv ? 
dann o.k. 

sonst durch Null ersetzen 
akt. Ausgabebreite holen 
keine gültige Breite ? 

Basic-PC 

Zahl der Spaces nach HL 

Breite lo 

Breite hi=0 

teilen, Rest nach DE 

Basic-PC 


PRINT USING 

US ING übergehen 
Formatstring holen 
Test auf 

II . II 
t 

Basic-PC retten 
Zeiger auf Descriptor 
St ring länge 
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F2D3 

B7 



OR 

A 

F2D4 

28 

75 


JR 

Z, F34B 

F2D6 

E3 



EX 

(SP),HL 

F2D7 

CD 

FB 

CE 

CALL 

CEFB 

F2DA 

AF 



XOR 

A 

F2DB 

32 

7A AE 

LD 

(AE7A),A 

F2DE 

Dl 



POP 

DE 

F2DF 

D5 



PUSH 

DE 

F2E0 

EB 



EX 

DE,HL 

F2E1 

46 



LD 

B,(HL) 

F2E2 

23 



INC 

HL 

F2E3 

7E 



LD 

A,(HL) 

F2E4 

23 



INC 

HL 

F2E5 

66 



LD 

H,(HL) 

F2E6 

6F 



LD 

L,A 

F2E7 

EB 



EX 

DE,HL 

F2E8 

CD 

24 

F3 

CALL 

F324 

F2EB 

30 

5E 


JR 

NC,F34B 

F2ED 

CD 

51 

DD 

CALL 

DD51 

F2F0 

38 

ID 


JR 

C,F30F 

F2F2 

FE 

3B 


CP 

3B 

F2F4 

28 

04 


JR 

Z, F2FA 

F2F6 

FE 

2C 


CP 

2C 

F2F8 

20 

4C 


JR 

NZ,F346 

F2FA 

CD 

3F 

DD 

CALL 

DD3F 

F2FD 

28 

10 


JR 

Z.F30F 

F2FF 

D5 



PUSH 

DE 

F300 

CD 

FB 

CE 

CALL 

CEFB 

F303 

Dl 



POP 

DE 

F304 

78 



LD 

A.B 

F305 

B7 



OR 

A 

F306 

28 

D6 


JR 

Z,F2DE 

F308 

CD 

24 

F3 

CALL 

F324 

F30B 

30 

Dl 


JR 

NC,F2DE 

F30D 

18 

DE 


JR 

F2ED 

F30F 

F5 



PUSH 

AF 

F310 

3E 

FF 


LD 

A, FF 

F312 

32 

7A 

AE 

LD 

(AE7A),A 

F315 

78 



LD 

A,B 

F316 

B7 



OR 

A 

F317 

C4 

24 

F3 

CALL 

NZ,F324 

F31A 

Fl 



POP 

AF 

F31B 

DC 

4E 

C3 

CALL 

C,C34E 

F31E 

E3 



EX 

(SP),HL 

F31F 

CD 

E8 

FB 

CALL 

FBE8 

F322 

El 



POP 

HL 

F323 

C9 



RET 



************************************ 


F324 

E5 


PUSH 

HL 

F325 

1A 


LD 

A, (DE) 

F326 

FE 

5F 

CP 

5F 

F328 

20 

09 

JR 

NZ.F333 

F32A 

78 


LD 

A.B 

F32B 

FE 

02 

CP 

02 


Länge =0 ? 

dann "Improper argument" 
Descr.-Zg. retten, PC zurück 
Ausdruck holen 
Flag für Ausgabe 
setzen 

Descriptorzeiger 

nach HL, PC nach DE 
Stringlänge nach B 

Adresse 
nach HL 


Adr. nach DE, PC nach HL 
Ausdruck formatiert ausgeben 
Fehler? d. "Improper argument" 
Statementende ? 
dann Ausdruck und LF ausgeben 

il-il 9 
/ 

ii ll 9 
t 

nein ? dann "Syntax error" 
nächstes Zeichen 
Statementende ? 

Ausdruck holen 

restliche Stringlänge 
Formatstring zu Ende ? 
dann neu durchgehen 
Ausdurck formatiert ausgeben 
kein Ausdruck ausgegeben ? 
sonst nächsten Ausdruck ausg. 
Flag für "," bzw. retten 
Flag für keine Ausgabe 
setzen 

restliche String länge 
Formatstring nicht zu Ende ? 
dann Ausdruck ausgeben 
Flag für "," bzw. 
nicht "," oder ";" ? dann LF 
Descriptor-Zeiger zur., PC r. 
Formatstring vom Stringstack 
Basic-PC zurück 


Ausdruck formatiert ausgeben 
IN : DE: Formatstringadresse 

B: restl. Formatstring länge 
OUT: CY=0 bei Formatstringende 
Basic-PC retten 
Zeichen aus Formatstring 
Underscore ? 
nein ? 

restl. Stringlänge 
<2 ? 
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F32D 

38 

OC 


JR 

C.F33B 

F32F 

13 



INC 

DE 

F330 

05 



DEC 

B 

F331 

18 

08 


JR 

F33B 

F333 

CD 

50 

F3 

CALL 

F350 

F336 

D4 

A3 

F3 

CALL 

NC.F3A3 

F339 

38 

09 


JR 

C, F344 

F33B 

1A 



LD 

A,(DE) 

F33C 

CD 

56 

C3 

CALL 

C356 

F33F 

13 



INC 

DE 

F340 

05 



DEC 

B 

F341 

20 

E2 


JR 

NZ.F325 

F343 

B7 



OR 

A 

F344 

El 



POP 

HL 

F345 

C9 



RET 


F346 

IE 

02 


LD 

E,02 

F348 

C3 

94 

CA 

JP 

CA94 

F34B 

1E 

05 


LD 

E,05 

F34D 

C3 

94 

CA 

JP 

CA94 


********************************** 


F350 

1A 


LD 

A, (DE) 

F351 

FE 

21 

CP 

21 

F353 

0E 

01 

LD 

C,01 

F355 

28 

21 

JR 

Z, F378 

F357 

FE 

26 

CP 

26 

F359 

0E 

00 

LD 

C,00 

F35B 

28 

1B 

JR 

Z, F378 

F35D 

EE 

5C 

XOR 

5C 

F35F 

CO 


RET 

NZ 

F360 

C5 


PUSH 

BC 

F361 

D5 


PUSH 

DE 

F362 

0E 

02 

LD 

C, 02 

F364 

13 


INC 

DE 

F365 

05 


DEC 

B 

F366 

28 

0A 

JR 

Z,F372 

F368 

1A 


LD 

A, (DE) 

F369 

FE 

5C 

CP 

5C 

F36B 

28 

09 

JR 

Z.F376 

F36D 

OC 


INC 

C 

F36E 

FE 

20 

CP 

20 

F370 

28 

F2 

JR 

Z,F364 

F372 

Dl 


POP 

DE 

F373 

CI 


POP 

BC 

F374 

B7 


OR 

A 

F375 

C9 


RET 


F376 

Fl 


POP 

AF 

F377 

Fl 


POP 

AF 


dann Underscore ausgeben 
nächstes 
Zeichen 
ausgeben 

ggf. String auswerten/ausgeben 
kein String ? dann num. Ausdr. 
Ausdruck ausgegeben ? 
sonst Zeichen aus Formatstring 
so ausgeben 
nächstes 
Zeichen 

weitere Zeichen ? 

CY=0 für Formatstringende 
Basic-PC zurück 


Nr. für "Syntax error" 

Fehler ausgeben 

Nr. für "Improper argument" 
Fehler ausgeben 

ggf. String ausgeben 

IN : DE: Formatstringadresse 

B: restl. Formatstringlänge 
OUT: CY=0 für kein String 
Zeichen aus Formatstring 
n; •• ? 

Zähler für 1 Zeichen 
"!" ? dann 1. Zeichen ausgeben 
? 

Flag für Gesamtstring 

? dann String ausgeben 
M \" ? (CY=0!) 

nein ? dann kein Stringformat 


2 Zeichen (Zweimal "V 1 ) 
nächstes 
Zeichen 

Formatstring zu Ende ? 
Zeichen aus Formatstring 
"\" ? 

dann String ausgeben 
Zähler erhöhen 
Space ? 

dann weiter prüfen 
sonst Zeiger wieder 
auf 1. M \" 

CY=1 für kein Stringformat 

Stringparameter 

löschen 


********************************** 


F378 

13 

INC 

DE 

F379 

05 

DEC 

B 


String für USING ausgeben 
IN : C: auszugebende Länge 
nächstes 
Zeichen 
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F37A 

C5 



PUSH 

BC 

F37B 

D5 



PUSH 

DE 

F37C 

3A 

7A 

AE 

LD 

A, (AE7A) 

F37F 

B7 



OR 

A 

F380 

20 

ID 


JR 

NZ.F39F 

F382 

CD 

3C 

FF 

CALL 

FF3C 

F385 

79 



LD 

A,C 

F386 

B7 



OR 

A 

F387 

F5 



PUSH 

AF 

F388 

41 



LD 

Bf C 

F389 

OE 

00 


LD 

C,00 

F38B 

2A 

C2 

B0 

LD 

HL,(B0C2) 

F38E 

EB 



EX 

DE,HL 

F38F 

C4 

71 

F9 

CALL 

NZ,F971 

F392 

CD 

28 

F8 

CALL 

F828 

F395 

Fl 



POP 

AF 

F396 

28 

07 


JR 

Z,F39F 

F398 

2A 

C2 

B0 

LD 

HL,(B0C2) 

F39B 

96 



SUB 

(HL) 

F39C 

CD 

95 

F2 

CALL 

F295 

F39F 

Dl 



POP 

DE 

F3A0 

CI 



POP 

BC 

F3A1 

37 



SCF 


F3A2 

C9 



RET 



********************************** 


F3A3 

CD 

BA 

F3 

CALL 

F3BA 

F3A6 

DO 



RET 

NC 

F3A7 

3A 

7A 

AE 

LD 

A, (AE7A) 

F3AA 

B7 



OR 

A 

F3AB 

20 

OB 


JR 

NZ,F3B8 

F3AD 

C5 



PUSH 

BC 

F3AE 

D5 



PUSH 

DE 

F3AF 

79 



LD 

A,C 

F3B0 

CD 

9F 

EE 

CALL 

EE9F 

F3B3 

CD 

41 

C3 

CALL 

C341 

F3B6 

Dl 



POP 

DE 

F3B7 

CI 



POP 

BC 

F3B8 

37 



SCF 


F3B9 

C9 



RET 



Formatstringparameter 

retten 

Flag für Ausgabe 

nicht ausgeben ? 

Test auf Stringausdruck 
Zahl der auszugebenden Zeichen 
=0, wenn Gesamtstring 
Flag für Gesamtstring retten 
Zahl der Zeichen nach B 
Startposition f. Teilstring =0 
Zeiger auf Descriptor 
nach DE 

ggf. Teilstring holen 
String ausgeben, vom Stack 
Flag für Gesamtstring 
Gesamtst ring ausgegeben ? 
Zeiger auf Descriptor 
gew. - tatsächliche Länge 
entspr. viele Spaces ausgeben 
Formatstring-Parameter 
zurück 

CY=1 für String ausgegeben 


numerischen Ausdruck ausgeben 
IN : DE: Formatstringadresse 

B: restl. Formatstringlänge 
OUT: CY=0 für Fehler 

Formatstring auswerten 
Fehler ? 

Flag für Ausgabe 
keine Ausgabe ? 
dann fertig 


Formatierungsflags 

Zahl formatiert nach ASCII 

und ausgeben 


CY=1 für kein Fehler 


********************************** 


F3BA 

C5 

PUSH 

BC 

F3BB 

D5 

PUSH 

DE 

F3BC 

0E 80 

LD 

C,80 

F3BE 

26 00 

LD 

H,00 

F3C0 

1A 

LD 

A,(DE) 

F3C1 

FE 2B 

CP 

2B 

F3C3 

20 07 

JR 

NZ,F3CC 


Formatstr. f. numer. Ausdr. ausw. 
IN/OUT: DE: Formatstringadresse 
B: restliche Länge 
OUT: C: Formatierungsflags 

H: gew. Vorkomnastellenzahl 
L: gew. Nachkommastellenzahl 
CY=0 für Fehler 
Formatst ring-Parameter 
retten 

Flag für formatierte Ausgabe 
Vorkonmastellenzah1=0 
Zeichen aus Formatstring 
»+n ? 
nein ? 
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F3C5 

13 


INC 

DE 

F3C6 

05 


DEC 

B 

F3C7 

28 

23 

JR 

Z.F3EC 

F3C9 

24 


INC 

H 

F3CA 

OE 

88 

LD 

C,88 

F3CC 

1A 


LD 

A, (DE) 

F3CD 

FE 

2E 

CP 

2E 

F3CF 

28 

1F 

JR 

Z.F3F0 

F3D1 

FE 

23 

CP 

23 

F3D3 

28 

39 

JR 

Z,F40E 

F3D5 

13 


INC 

DE 

F3D6 

05 


DEC 

B 

F3D7 

28 

13 

JR 

Z, F3EC 

F3D9 

EB 


EX 

DE,HL 

F3DA 

BE 


CP 

(HL) 

F3DB 

EB 


EX 

DE,HL 

F3DC 

20 

0E 

JR 

NZ,F3EC 

F3DE 

24 


INC 

H 

F3DF 

24 


INC 

H 

F3E0 

2E 

04 

LD 

L ,04 

F3E2 

FE 

24 

CP 

24 

F3E4 

28 

23 

JR 

Z, F409 

F3E6 

2E 

20 

LD 

L ,20 

F3E8 

FE 

2A 

CP 

2A 

F3EA 

28 

11 

JR 

Z,F3FD 

F3EC 

Dl 


POP 

DE 

F3ED 

CI 


POP 

BC 

F3EE 

B7 


OR 

A 

F3EF 

C9 


RET 


F3F0 

13 


INC 

DE 

F3F1 

05 


DEC 

B 

F3F2 

28 

F8 

JR 

Z, F3EC 

F3F4 

1A 


LD 

A, (DE) 

F3F5 

FE 

23 

CP 

23 

F3F7 

20 

F3 

JR 

NZ,F3EC 

F3F9 

1B 


DEC 

DE 

F3FA 

04 


INC 

B 

F3FB 

18 

11 

JR 

F40E 

F3FD 

13 


INC 

DE 

F3FE 

05 


DEC 

B 

F3FF 

28 

0A 

JR 

Z,F40B 

F401 

1A 


LD 

A, (DE) 

F402 

FE 

24 

CP 

24 

F404 

20 

05 

JR 

NZ,F40B 

F406 

24 


INC 

H 

F407 

2E 

24 

LD 

L,24 

F409 

13 


INC 

DE 

F40A 

05 


DEC 

B 

F40B 

79 


LD 

A,C 

F40C 

B5 


OR 

L 

F40D 

4F 


LD 

C.A 

F40E 

Fl 


POP 

AF 

F40F 

Fl 


POP 

AF 

F410 

CD 

1B F4 

CALL 

F41B 

F413 

7C 


LD 

A, H 

F414 

85 


ADD 

L 

F415 

FE 

15 

CP 

15 


nächstes 

Zeichen 

Formatstringende ? dann Fehler 
Vorkommastellenz. für "+" erh. 
Flag für "+" bei pos. Vorz. 
Zeichen aus Formatstring 

i< ii 9 

? 

nächstes 

Zeichen 

Formatstringende ? dann Fehler 

Zeichen mit nächstem vergl. 

ungleich ? dann Fehler 
Vorkommastellenzahl 
cm zwei erhöhen 
Flag für “SS" 

"$■■ ? 

dann auswerten 
Flag für "**" 

11*11 -j 

dann auswerten 

Formatstringparameter 
wieder zurück 
CY=0 für Fehler 


nächstes 

Zeichen 

Formatstringende ? dann Fehler 
Zeichen aus Formatstring 
"U" ? 

nein ? dann Fehler 
Zeichen 
davor 

weiter auswerten 
nächstes 
Zeichen 

Formatstringende ? 
nächstes Zeichen 
? 

nicht "**$" ? 

Vorkonmastellenzahl erhöhen 
Flags für "**" und "$$" 
nächstes 
Zeichen 

Formatierungsf lags 
entspr. Bit(s) setzen 
Flags wieder zurück 
Formatstringparameter 
(für Anfang) löschen 
Formatstring weiter auswerten 
Vorkomma- 

und Nachkommastellen addieren 
Gesamtsteilenzahl>=21 ? 
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F417 D2 4B F3 JP NC,F34B 

F41A C9 RET 

********************************** 


F41B 

2E 

00 

LD 

L, 00 

F41D 

04 


INC 

B 

F41E 

05 


DEC 

B 

F41F 

C8 


RET 

Z 

F420 

1A 


LD 

A,(DE) 

F421 

FE 

2E 

CP 

2E 

F423 

28 

14 

JR 

Z, F439 

F425 

FE 

2C 

CP 

2C 

F427 

28 

0A 

JR 

Z.F433 

F429 

FE 

23 

CP 

23 

F42B 

20 

15 

JR 

NZ,F442 

F42D 

24 


INC 

H 

F42E 

13 


INC 

DE 

F42F 

05 


DEC 

B 

F430 

20 

EE 

JR 

NZ,F420 

F432 

C9 


RET 


F433 

79 


LD 

A,C 

F434 

F6 

02 

OR 

02 

F436 

4F 


LD 

C, A 

F437 

18 

F4 

JR 

F42D 

F439 

2C 


INC 

L 

F43A 

13 


INC 

DE 

F43B 

05 


DEC 

B 

F43C 

C8 


RET 

Z 

F43D 

1A 


LD 

A, (DE) 

F43E 

FE 

23 

CP 

23 

F440 

28 

F7 

JR 

Z,F439 

F442 

EB 


EX 

DE,HL 

F443 

E5 


PUSH 

HL 

F444 

FE 

5E 

CP 

5E 

F446 

20 

18 

JR 

NZ,F460 

F448 

23 


INC 

HL 

F449 

BE 


CP 

(HL) 

F44A 

20 

14 

JR 

NZ,F460 

F44C 

23 


INC 

HL 

F44D 

BE 


CP 

(HL) 

F44E 

20 

10 

JR 

NZ,F460 

F450 

23 


INC 

HL 

F451 

BE 


CP 

(HL) 

F452 

20 

OC 

JR 

NZ,F460 

F454 

23 


INC 

HL 

F455 

78 


LD 

A,B 

F456 

D6 

04 

SUB 

04 

F458 

38 

06 

JR 

C,F460 

F45A 

47 


LD 

B,A 

F45B 

E3 


EX 

(SP),HL 

F45C 

79 


LD 

A, C 

F45D 

F6 

40 

OR 

40 

F45F 

4F 


LD 

C, A 


dann "Improper argument" 


Formatstring weiter auswerten 
IN/OUT: DE: Formatstringzeiger 
B: restl. Stringlänge 
H: Vorkommastellenzahl 
C: Formatierungsflags 
OUT: L: Nachkommastellenzahl 
Nachkommastellenzahl=0 

Formatstringlänge=0 ? 
dann fertig 

Zeichen aus Formatstring 

II ii 9 

dann Nachkomnastellen 

ll ii 9 
/ 

dann Korma-Einteilungen 

nein ? dann " AAAA " prüfen 
Vorkommastellenzahl erhöhen 
nächstes 
Zeichen 

noch kein Ende ? dann weiter 

Formatierungsflags 

Bit f. Komma-Einteilung setzen 

Vorkommastellenzahl erhöhen 
Nachkommastellenzahl erhöhen 
nächstes 
Zeichen 

Ende ? dann fertig 
Zeichen aus Formatstring 
,l #" ? 

dann weitere Nachkommastellen 
Stellenzahlen nach DE 
Formatstringzeiger retten 


nicht " AAAA " ? 
dann keine 

Exponentialdarstellung 


String länge 
minus 4 für " AAAA " 

Länge zu klein ? d. k. " AAAA " 
restliche Länge 
Stringzeiger retten 
Flag für 

Exponentialdarstellung 
setzen 




562 Die Listings des CPC-464-ROMs 


F460 

El 


POP 

HL 

F461 

EB 


EX 

DE,HL 

F462 

78 


LD 

A,B 

F463 

B7 


OR 

A 

F464 

C8 


RET 

Z 

F465 

79 


LD 

A,C 

F466 

E6 

08 

AND 

08 

F468 

CO 


RET 

NZ 

F469 

1A 


LD 

A, (DE) 

F46A 

FE 

2D 

CP 

2D 

F46C 

3E 

10 

LD 

A, 10 

F46E 

28 

06 

JR 

Z,F476 

F470 

1A 


LD 

A, (DE) 

F471 

FE 

2B 

CP 

2B 

F473 

CO 


RET 

NZ 

F474 

3E 

18 

LD 

A, 18 

F476 

Bl 


OR 

C 

F477 

4F 


LD 

C,A 

F478 

13 


INC 

DE 

F479 

05 


DEC 

B 

F47A 

C9 


RET 



F47B 

CD 

C6 CI 

CALL 

C1C6 

F47E 

F5 


PUSH 

AF 

F47F 

CD 

51 DD 

CALL 

DD51 

F482 

38 

39 

JR 

C,F4BD 

F484 

CD 

FB CE 

CALL 

CEFB 

F487 

F5 


PUSH 

AF 

F488 

E5 


PUSH 

HL 

F489 

CD 

45 FF 

CALL 

FF45 

F48C 

28 

OB 

JR 

Z,F499 

F48E 

CD 

8F EE 

CALL 

EE8F 

F491 

CD 

DC F7 

CALL 

F7DC 

F494 

CD 

28 F8 

CALL 

F828 

F497 

18 

0D 

JR 

F4A6 

F499 

3E 

22 

LD 

A,22 

F49B 

CD 

56 C3 

CALL 

C356 

F49E 

CD 

28 F8 

CALL 

F828 

F4A1 

3E 

22 

LD 

A,22 

F4A3 

CD 

56 C3 

CALL 

C356 

F4A6 

El 


POP 

HL 

F4A7 

Fl 


POP 

AF 

F4A8 

28 

13 

JR 

Z,F4BD 

F4AA 

FE 

3B 

CP 

3B 

F4AC 

28 

05 

JR 

Z, F4B3 

F4AE 

FE 

2C 

CP 

2C 

F4B0 

C2 

46 F3 

JP 

NZ,F346 

F4B3 

CD 

3F DD 

CALL 

DD3F 

F4B6 

3E 

2C 

LD 

A,2C 

F4B8 

CD 

56 C3 

CALL 

C356 

F4BB 

18 

C7 

JR 

F484 

F4BD 

CD 

4E C3 

CALL 

C34E 

F4C0 

Fl 


POP 

AF 

F4C1 

C3 

A2 CI 

JP 

C1A2 


Stringzeiger nach l,AAAA11 
wieder nach DE 
restliche Stringlänge 
=0 ? 

dann fertig 

Flag für Vorzeichen 
vor der Zahl ? 
dann zurück 

Zeichen aus Formatstring 

II. II ? 

Flag für Vorz. nach der Zahl 
ggf. setzen 

Zeichen aus Formatstring 

" + 1 I 9 

nein ? dann zurück 
Vorz. n. d. Z./pos. Vorz.="+" 
bisherige Flags setzen 
Formatierungsflags 
nächstes 
Zeichen 


Basic-Befehl WRITE 

opt. Streamnr. holen/setzen 
alte Streaimummer retten 
Statementende ? 
dann Linefeed ausgeben 
Ausdruck holen 
nächstes Zeichen 
und Basic-PC retten 
Typflag des FAC holen 
String ? 

sonst FAC nach ASCII wandeln 
String auf Stringstack 
String ausgeben, vom Stack 

I II I 

ausgeben 

String ausgeben, vom Stack 

I II I 

ausgeben 

Basic-PC 

Zeichen 

Statementende ? dann Linefeed 

ii .11 9 

dann ausgeben 

II II 9 
i 

nein ? dann "Syntax error" 
nächstes Zeichen 

II II 

ausgeben 

nächsten Ausdruck holen 
Linefeed ausgeben 
alte Streamnr. 
wieder setzen 
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********************************** 


F4C4 

01 

00 

AC 

LD 

BC,AC00 

F4C7 

CD 

BE 

FF 

CALL 

FF BE 

F4CA 

DO 



RET 

NC 

F4CB 

22 

7B 

AE 

LD 

(AE7B),HL 

F4CE 

22 

8F 

BO 

LD 

(B08F),HL 

F4D1 

22 

TD 

AE 

LD 

(AETD),HL 

F4D4 

EB 



EX 

DE,HL 

F4D5 

22 

7F 

AE 

LD 

(AE7F),HL 

F4D8 

01 

2F 

01 

LD 

BC,012F 

F4DB 

09 



ADD 

HL,BC 

F4DC 

D8 



RET 

C 

F4DD 

22 

81 

AE 

LD 

(AE81),HL 

F4E0 

EB 



EX 

DE,HL 

F4E1 

23 



INC 

HL 

F4E2 

B7 



OR 

A 

F4E3 

ED 

52 


SBC 

HL,DE 

F4E5 

08 



RET 

C 

F4E6 

7C 



LD 

A, H 

F4E7 

FE 

04 


CP 

04 

F4E9 

D8 



RET 

C 

F4EA 

AF 



XOR 

A 

F4EB 

32 

91 

B0 

LD 

(B091),A 

F4EE 

C9 



RET 



********************************** 


F4EF 

CD 

3E 

FC 

CALL 

FC3E 

F4F2 

CD 

91 

CE 

CALL 

CE91 

F4F5 

E5 



PUSH 

HL 

F4F6 

CD 

50 

F7 

CALL 

F750 

F4F9 

CD 

75 

F6 

CALL 

F675 

F4FC 

22 

7B 

AE 

LD 

(AE7B),HL 

F4FF 

El 



POP 

HL 

F500 

C9 



RET 



********************************** 


F501 

D5 



PUSH 

DE 

F502 

2A 

7F 

AE 

LD 

HL,(AE7F) 

F505 

EB 



EX 

DE,HL 

F506 

2A 

7B 

AE 

LD 

HL,(AE7B) 

F509 

CD 

CF 

FF 

CALL 

FFCF 

F50C 

E3 



EX 

(SP),HL 

F50D 

CD 

CF 

FF 

CALL 

FFCF 

F510 

Dl 



POP 

DE 

F511 

13 



INC 

DE 

F512 

CD 

B8 

FF 

CALL 

FFB8 

F515 

38 

03 


JR 

C,F51A 

F517 

2B 



DEC 

HL 

F518 

09 



ADD 

HL,BC 

F519 

DO 



RET 

NC 

F51A 

C3 

3E 

F7 

JP 

F73E 


RAM-Zeiger initialisieren 
IN : DE; LoRAM-Zeiger 
HL: HiRAM-Zeiger 
OUT: CY=1 für kein Platz 

Zeiger auf Basic-Systembereich 

mit HiRAH vergleichen 

HiRAM nicht kleiner ? d. Fehl. 

Hi RAM als Himem 

als Ende der Strings 

als Ende des freien RAMs 

LoRAH als Start d. freien RAMs 
Platz für Token-Buffer 
addieren 

kein Platz für Buffer ? 
Basic-Programmstart setzen 

HiRAM+1 

CY=0 

minus Prograrmstart 
kein Platz ? 

Größe des freien Bereichs 
<=$0400 ? 
dann Fehler 
Null, CY=0 

Kassettenbuffer nicht reserv. 


Basic-Befehl MEMORY 
Garbage collection 
Adresse holen, nach DE 
Basic-PC retten 
HIMEM-Zeiger setzen 
Kassettenbuffer ggf. frei geben 
HIMEM-Zeiger setzen 
Basic-PC zurück 


Test auf Platz für Binärdatei 
IN : DE: Startadresse 
BC: Länge 
Startadresse 
LoRAM-Zeiger 
nach DE 
HIMEM 

-LoRAM=Größe d. Basic-Bereichs 
retten, Startadresse zurück 
-LoRAM 

Größe des Basic-Bereichs 
Größe f. Byte danach 
mit anderer Differenz vergl. 
Startadr. innerhalb Basic-B. ? 
Korr., da Start+Länge=Ende+1 
Länge addieren 

Ende nicht im Basic-Bereich ? 
sonst "Memory full" 
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********************************** 


F 51D 

D5 



PUSH 

DE 

F 51E 

E5 



PUSH 

HL 

F51F 

2A 

8D 

BO 

LD 

HL,(B08D) 

F522 

EB 



EX 

DE,HL 

F523 

2A 

8F 

BO 

LD 

HL,CB08F) 

F526 

CD 

DA 

FF 

CALL 

FFDA 

F529 

El 



POP 

HL 

F52A 

Dl 



POP 

DE 

F52B 

C9 



RET 



********************************** 


F52C 

2A 

83 

AE 

LD 

HL,(AE83) 

F52F 

09 



ADD 

HL,BC 

F530 

22 

83 

AE 

LD 

(AE83),HL 

F533 

2A 

85 

AE 

LD 

HL,(AE85) 

F536 

09 



ADD 

HL,BC 

F537 

22 

85 

AE 

LD 

(AE85),HL 


********************************** 


F53A 

2A 87 AE 

LD 

HL,(AE87) 

F53D 

09 

ADD 

HL,BC 

F53E 

22 87 AE 

LD 

(AE87),HL 

F541 

2A 89 AE 

LD 

HL,(AE89) 

F544 

09 

ADD 

HL,BC 

F545 

22 89 AE 

LD 

(AE89),HL 

F548 

C9 

RET 



********************************** 


F549 

2A 

85 

AE 

LD 

HL,(AE85) 

F54C 

EB 



EX 

DE,HL 

F54D 

2A 

87 

AE 

LD 

HL,(AE87) 

F550 

CD 

CF 

FF 

CALL 

FFCF 

F553 

E5 



PUSH 

HL 

F554 

2A 

89 

AE 

LD 

HL,(AE89) 

F557 

CD 

DA 

FF 

CALL 

FFDA 

F55A 

C5 



PUSH 

BC 

F55B 

2A 

8D 

BO 

LD 

HL,(B08D) 

F55E 

EB 



EX 

DE,HL 

F55F 

2A 

89 

AE 

LD 

HL,(AE89) 

F562 

2B 



DEC 

HL 

F563 

78 



LD 

A,B 

F564 

Bl 



OR 

C 

F565 

C4 

F5 

FF 

CALL 

NZ,FFF5 

F568 

EB 



EX 

DE,HL 

F569 

22 

8D 

BO 

LD 

(B08D),HL 

F56C 

CI 



POP 

BC 

F56D 

Dl 



POP 

DE 

F56E 

C3 

Bl 

D5 

JP 

D5B1 


Größe des Stringbereichs holen 
OUT: BC: Größe 


Zeiger auf Start der Strings 
nach DE 

Zeiger auf Ende der Strings 
Differenz nach BC 


Progranren/Var.-Zeiger korrigieren 
IN : BC: Offset 

Offset zu Programmende 


und Variablenstart addieren 


Arrayzeiger korrigieren 
IN : BC: Offset 

Offset zu Start 


und Ende der Felder addieren 


Variablen in Stringbereich retten 
OUT: BC: Länge des Variablenber. 
DE: Länge der einfachen Var. 
Zeiger auf Variablenstart 
nach DE 

Zeiger auf Start der Felder 
-Variablenstart 
gibt Länge der einfachen Var. 
Zeiger auf Ende der Arrays 
-Variablenstart 
gibt Länge des Variablenber. 
Zeiger auf Start der Strings 
nach DE, als neue Var.-Adresse 
Zeiger auf Ende der Arrays 
Zeiger auf letztes Array-Byte 
LängeoO ? 

d. Var. unter Strings versch. 
Zeiger auf verschobene Var. 
als neuen Start der Strings 
Längen 
zurück 

Variablenbereich frei geben 
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************ ************ ********** 


F571 

2A 

83 

AE 

LD 

HL,(AE83) 

F574 

22 

85 

AE 

LD 

(AE85),HL 

F577 

EB 



EX 

DE, HL 

F578 

19 



ADD 

HL,DE 

F579 

22 

87 

AE 

LD 

(AE87),HL 

F57C 

2A 

8D 

BO 

LD 

HL,(B08D) 

F57F 

23 



INC 

HL 

F580 

78 



LD 

A,B 

F581 

Bl 



OR 

C 

F582 

C4 

F2 

FF 

CALL 

NZ.FFF2 

F585 

2B 



DEC 

HL 

F586 

22 

8D 

BO 

LD 

(B08D),HL 

F589 

EB 



EX 

DE,HL 

F58A 

22 

89 

AE 

LD 

(AE89),HL 

F58D 

C9 



RET 



********************************** 


F58E 

F5 



PUSH 

AF 

F58F 

E5 



PUSH 

HL 

F590 

21 

8B 

AE 

LD 

HL,AE8B 

F593 

22 

8B 

BO 

LD 

(B08B),HL 

F596 

3E 

01 


LD 

A,01 

F598 

CD 

BO 

F5 

CALL 

F5B0 

F59B 

36 

00 


LD 

(HL),00 

F59D 

El 



POP 

HL 

F59E 

Fl 



POP 

AF 

F59F 

C9 



RET 



********************************** 


F5A0 

2A 8B B0 

LD 

HL,(B08B) 

F5A3 

2F 

CPL 


F5A4 

3C 

INC 

A 

F5A5 

C8 

RET 

Z 

F5A6 

85 

ADD 

L 

F5A7 

6F 

LD 

L,A 

F5A8 

3E FF 

LD 

A, FF 

F5AA 

8C 

ADC 

H 

F5AB 

67 

LD 

H,A 


********************************** 


F5AC 22 8B BO LD (B08B),HL 

F5AF C9 RET 

********************************** 


F5B0 

2A 8B B0 

LD 

HL,(B08B) 

F5B3 

E5 

PUSH 

HL 

F5B4 

85 

ADD 

L 

F5B5 

6F 

LD 

L,A 

F5B6 

8C 

ADC 

H 

F5B7 

95 

SUB 

L 


Variablen a. Stringbereich zurück 
IN : BC: Länge d. Var.-Bereichs 
DE: Länge der einfachen Var. 
Zeiger auf Programmende 
als Zeiger auf Variablenstart 
nach DE 

Länge d. einf. Var. addieren 
gibt Zeiger auf Arraystart 
Zeiger auf Start der Strings 
1. benutztes Stringbyte 
LängeoO ? 

dann Variablen zurückholen 
Zeiger vor 1. ben. Stringbyte 
als neuen Start der Strings 
Zeiger auf Ende aller Var. 
als Ende der Arrays setzen 


B a sic-S t a c kpoint e r initialisieren 


Basic-Stackpointer 
neu setzen 
1 Byte 

auf Basic-Stack reservieren 
Null als Stackende auf Stack 


Eintrag vom Basic-Stack holen 
IN : A: Größe des Eintrags 
OUT: HL: Zeiger auf Eintrag 
Basic-Stackpointer 
Zweierkomplement bilden 
(für Offset nach unten) 
Größe=0 ? dann fertig 

zu Basic-Stackpointer 
addieren 

(entspricht Subtraktion 
der Eintragsgröße) 

Basic-Stackpointer neu setzen 
IN : HL: neuer Basic-Stackpointer 


Platz auf Basic-Stack reservieren 
IN : A: benötigter Platz 
OUT: HL: Zeiger auf Platz 
Basic-Stackpointer 
retten 

benötigte Platzgröße 
zu Basic-Stackpointer 
addieren 
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F5B8 

67 



LD 

H,A 

F5B9 

22 

8B 

BO 

LD 

(B08B),HL 

F5BC 

3E 

78 


LD 

A,78 

F5BE 

85 



ADD 

L 

F5BF 

3E 

4F 


LD 

A,4F 

F5C1 

8C 



ADC 

H 

F5C2 

El 



POP 

HL 

F5C3 

DO 



RET 

NC 

F5C4 

CD 

8E 

F5 

CALL 

F58E 

F5C7 

C3 

3E 

F7 

JP 

F73E 

'k'k'k'k **■*'&■ * iir **************** * *** * 

F5CA 

2A 

8F 

BO 

LD 

HL,(B08F) 

F5CD 

22 

8D 

BO 

LD 

(B08D),HL 

F5D0 

C9 



RET 



*************^******************** 


F5D1 

2F 



CPL 


F5D2 

4F 



LD 

C, A 

F5D3 

06 

FF 


LD 

B,FF 

F5D5 

03 



INC 

BC 

F5D6 

CD 

E6 

F5 

CALL 

F5E6 

F5D9 

DO 



RET 

NC 

F5DA 

CD 

3E 

FC 

CALL 

FC3E 

F5DD 

CD 

E6 

F5 

CALL 

F5E6 

F5E0 

DO 



RET 

NC 

F5E1 

IE 

OE 


LD 

E , OE 

F5E3 

C3 

94 

CA 

JP 

CA94 

•kit ifr * & iSr ☆☆ * & * ick ft ftftftftftft ft & * ft ft ft ft ft * * ft 


F5E6 

2A 

89 

AE 

LD 

HL,(AE89) 

F5E9 

EB 



EX 

DE,HL 

F5EA 

2A 

8D 

BO 

LD 

HL,(B08D) 

F5ED 

09 



ADD 

HL,BC 

F5EE 

CD 

B8 

FF 

CALL 

FFB8 

F5 F1 

D8 



RET 

C 

F5F2 

22 

8D 

BO 

LD 

(B08D),HL 

F5F5 

23 



INC 

HL 

F5F6 

EB 



EX 

DE,HL 

F5F7 

C9 



RET 


ft ft ft ft ftftftftftft ft ft ftftftft * ft ft ft ft ft ftft ft ftft ftftftft ftftft 


F5F8 

2A 

89 

AE 

LD 

HL,(AE89) 

F5FB 

C5 



PUSH 

BC 

F5FC 

D5 



PUSH 

DE 

F5FD 

D5 



PUSH 

DE 

F5FE 

E5 



PUSH 

HL 

F5FF 

CD 

18 

F6 

CALL 

F618 

F602 

DA 

3E 

F7 

JP 

C,F73E 

F605 

El 



POP 

HL 


Basic-Stackpointer neu setzen 
S4F78 addieren 
entspr. SB088 subtrahieren 
($B088=Ende des Basic-Stack- 
bereichs) 

alter SP=Zeiger a. neuen Platz 
keine Bereichsüberschreitung ? 
sonst SP neu initialisieren 
"Memory full" 

Stringbereich löschen 

Zeiger auf Ende der Strings 
als Start der Strings setzen 


Stringbereich-Platz reservieren 
IN : A: ben. Größe des Platzes 
OUT: DE: Zeiger auf neuen Platz 
Zwei erkomplement 
der Platzgröße 
als Offset 
nach BC 

Stringbereich erweitern 
genügend Platz ? 
sonst Garbage collection 
Stringbereich erweitern 
genügend Platz ? 

Nr. für "String space full" 
Fehler ausgeben 

Stringbereich erweitern 
IN : BC: negativer Offset 
OUT: DE: Zeiger a. 1. freies Byte 
CY=1 für kein Platz 
Zeiger auf Ende der Felder 
nach DE 

Zeiger auf Start der Strings 
+Offset=neuer Stringstart 
mit Ende d. Felder vergleichen 
kein Platz ? 

sonst Start der Strings setzen 
Zeiger auf 1. freies Byte 
nach DE 


Platz für Programm/Var. schaffen 
IN/OUT: DE: Einfügeadresse 

BC: benötigter Platz 
OUT: HL: neues Ende der Arrays 

Zeiger auf Ende der Arrays 


auf Platz prüfen 

kein Platz ? dann Fehler 

Zeiger auf Ende der Arrays 
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F606 

CI 

POP 

BC 

F607 

D5 

PUSH 

DE 

F608 

TD 

LD 

A,L 

F609 

91 

SUB 

C 

F60A 

4F 

LD 

C,A 

F60B 

7C 

LD 

A, H 

F60C 

98 

SBC 

B 

F60D 

47 

LD 

B,A 

F60E 

2B 

DEC 

HL 

F60F 

1B 

DEC 

DE 

F610 

Bl 

OR 

C 

F611 

C4 F5 FF 

CALL 

NZ.FFF5 

F614 

El 

POP 

HL 

F615 

Dl 

POP 

DE 

F616 

CI 

POP 

BC 

F617 

C9 

RET 



********************************** 


F618 

09 



ADD 

HL,BC 

F619 

D8 



RET 

C 

F61A 

EB 



EX 

DE,HL 

F61B 

CD 

22 

F6 

CALL 

F622 

F61E 

DO 



RET 

NC 

F61F 

CD 

3E 

FC 

CALL 

FC3E 

F622 

2A 

8D 

BO 

LD 

HL,(B08D) 

F625 

C3 

B8 

FF 

JP 

FFB8 


********************************** 


F628 

2A 

89 

AE 

LD 

HL,(AE89) 

F62B 

EB 



EX 

DE,HL 

F62C 

2A 

8D 

B0 

LD 

HL,(B08D) 

F62F 

C3 

CF 

FF 

JP 

FFCF 

*************** ******************* 

F632 

11 

01 

00 

LD 

DE,0001 

F635 

18 

03 


JR 

F63A 

********************************** 

F637 

11 

02 

08 

LD 

DE,0802 

F63A 

C5 



PUSH 

BC 

F63B 

E5 



PUSH 

HL 

F63C 

21 

91 

B0 

LD 

HL,B091 

F63F 

7E 



LD 

A, (HL) 

F640 

B7 



OR 

A 

F641 

20 

ID 


JR 

NZ,F660 

F643 

D5 



PUSH 

DE 

F644 

E5 



PUSH 

HL 

F645 

21 

00 

10 

LD 

HL,1000 

F648 

01 

00 

00 

LD 

BC.0000 

F64B 

CD 

43 

F 7 

CALL 

F743 

F64E 

22 

92 

B0 

LD 

(B092),HL 


Einfügeadresse 
neues Ende der Arrays 
Ende der Arrays 
-Einfügeadresse 
gibt Länge des zu 
verschiebenden Bereichs, 
nach BC 

letztes Array-Byte 
letztes Byte des Platzes 
Länge <>0 ? 
dann verschieben 
neues Ende der Arrays 
Zeiger auf Platz 
Länge des Platzes 


auf Platz prüfen 

IN : HL: Ende des belegten Ber. 

BC: benötigter Platz 
OUT: DE: neues Ende des bei. Ber. 

CY=1, wenn kein Platz 
Platz addieren 
Übertrag ? dann kein Platz 
neues Ende des bei. Ber. n. DE 
Überschn. m. Stringbereich ? 
nein ? dann o.k. 
sonst Garbage Collection 
Zeiger auf Start der Strings 
CY=1, wenn DE im Stringbereich 

Größe des freien Speicherplatzes 
OUT: HL: Größe in Bytes 

Zeiger auf Ende der Arrays 
nach DE 

Zeiger auf Start der Strings 
-Ende der Arrays=freier Platz 

Eingabebuffer belegen 
OUT: DE: Zeiger auf Buffer 

Offset und Flag f. Eingabebuf. 


Ausgabebuffer belegen 
OUT: DE: Zeiger auf Buffer 

Offset und Flag f. Ausgabebuf. 


Zeiger auf Buffer-Flags 
Buffer-Flags 

Buffer schon reserviert ? 
Offset und Flag für Buffer 
Zeiger auf Flags 
benötigter Platz für 2 Buffer 
min. Bufferadresse 
Platz reservieren 
Zeiger vor Platz 
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F651 

EB 



EX 

DE,HL 

F652 

2A 

7D 

AE 

LD 

HL,(AE7D) 

F655 

22 

94 

BO 

LD 

(B094),HL 

F658 

EB 



EX 

DE,HL 

F659 

22 

7D 

AE 

LD 

(AE7D),HL 

F65C 

El 



POP 

HL 

F65D 

Dl 



POP 

DE 

F65E 

3E 

04 


LD 

A,04 

F660 

B3 



OR 

E 

F661 

77 



LD 

(HL),A 

F662 

2A 

92 

BO 

LD 

HL,(B092) 

F665 

23 



INC 

HL 

F666 

IE 

00 


LD 

E,00 

F668 

19 



ADD 

HL,DE 

F669 

EB 



EX 

DE,HL 

F66A 

El 



POP 

HL 

F66B 

Ci 



POP 

BC 

F66C 

C9 



RET 



********************************** 


F66D 

3E 

FE 


LD 

A, FE 

F66F 

18 

06 


JR 

F677 

********************************** 

F671 

3E 

FD 


LD 

A, FD 

F673 

18 

02 


JR 

F677 

********************************** 

F675 

3E 

FF 


LD 

A, FF 

F677 

C5 



PUSH 

BC 

F678 

D5 



PUSH 

DE 

F679 

E5 



PUSH 

HL 

F67A 

21 

91 

B0 

LD 

HL,B091 

F67D 

A6 



AND 

(HL) 

F67E 

77 



LD 

(HL),A 

F67F 

FE 

04 


CP 

04 

F681 

20 

16 


JR 

NZ,F699 

F683 

2A 

92 

B0 

LD 

HL, (B092) 

F686 

EB 



EX 

DE,HL 

F687 

21 

00 

10 

LD 

HL, 1000 

F68A 

CD 

2E 

F 7 

CALL 

F72E 

F68D 

20 

0A 


JR 

NZ,F699 

F68F 

AF 



XOR 

A 

F690 

32 

91 

B0 

LD 

(B091),A 

F693 

2A 

94 

B0 

LD 

HL,(B094) 

F696 

22 

7D 

AE 

LD 

(AE7D),HL 

F699 

El 



POP 

HL 

F69A 

Dl 



POP 

DE 

F69B 

CI 



POP 

BC 

F69C 

C9 



RET 


********************************** 

F69D 

FE 

80 


CP 

80 

F69F 

28 

2C 


JR 

Z,F6CD 

F6A1 

CD 

67 

CE 

CALL 

CE67 

F6A4 

4F 



LD 

C,A 

F6A5 

CD 

37 

DD 

CALL 

DD37 

F6A8 

2C 






altes Ende des freien RAHs 
retten 

Zeiger vor reserviertem Platz 
als neues Ende des freien RAMs 
Zeiger auf Flags 
Offset und Flag für Buffer 
Flag für I/O-Buffer reserviert 
Flag f. Ein- bzw. Ausgabebuf. 
Flags wieder speichern 
Zeiger vor Buffer 
Zeiger auf Buffer 
Offset lo=0 

Buffer-Offset addieren 
Bufferadresse nach DE 


Eingabebuffer frei geben 
Maske für Eingabebuffer 


Ausgabebuffer freigeben 
Maske für Ausgabebuffer 


Ein-/Ausgabebuffer ggf. freigeben 
Flag f. Bufferstatus n. verän. 


Zeiger auf Buffer-Flags 

entsprechende Flags löschen 

und wieder speichern 

Flag f. reserv., aber unben. ? 

nein ? dann zurück 

Zeiger vor Bufferbereich 

nach DE 

Länge der Buffer 
Bereich ggf. freigeben 
nicht frei gegeben ? 

sonst Flag für kein Buffer¬ 
bereich reserviert setzen 
altes Ende des freien RAMs 
wieder setzen 


Basic-Befeht SYMBOL 

folgt Token für AFTER ? 
dann SYMBOL AFTER 
Byte-Ausdruck holen 
als Nr. des Zeichens nach C 
Test auf Konma 

II II 
/ 
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F6A9 

06 

08 


LD 

B,08 

F6AB 

CD 

67 

CE 

CALL 

CE67 

F6AE 

F5 



PUSH 

AF 

F6AF 

05 



DEC 

B 

F6B0 

28 

08 


JR 

Z.F6BA 

F6B2 

CD 

55 

DD 

CALL 

DD55 

F6B5 

38 

F4 


JR 

C,F6AB 

F6B7 

AF 



XOR 

A 

F6B8 

18 

F4 


JR 

F6AE 

F6BA 

EB 



EX 

DE,HL 

F6BB 

79 



LD 

A,C 

F6BC 

CD 

A5 

BB 

CALL 

BBA5 

F6BF 

30 

68 


JR 

NC.F729 

F6C1 

01 

08 

00 

LD 

BC,0008 

F6C4 

09 



ADD 

HL,BC 

F6C5 

Fl 



POP 

AF 

F6C6 

2B 



DEC 

HL 

F6C7 

77 



LD 

(HL),A 

F6C8 

0D 



DEC 

C 

F6C9 

20 

FA 


JR 

NZ,F6C5 

F6CB 

EB 



EX 

DE,HL 

F6CC 

C9 



RET 


********************************** 

F6CD 

CD 

3F 

DD 

CALL 

DD3F 

F6D0 

CD 

86 

CE 

CALL 

CE86 

F6D3 

E5 



PUSH 

HL 

F6D4 

21 

00 

01 

LD 

HL,0100 

F6D7 

CD 

B8 

FF 

CALL 

FFB8 

F6DA 

38 

4D 


JR 

C,F729 

F6DC 

D5 



PUSH 

DE 

F6DD 

CD 

AE 

BB 

CALL 

BBAE 

F6E0 

EB 



EX 

DE,HL 

F6E1 

30 

ID 


JR 

NC,F700 

F6E3 

2F 



CPL 


F6E4 

6F 



LD 

L,A 

F6E5 

26 

00 


LD 

H,00 

F6E7 

23 



INC 

HL 

F6E8 

29 



ADD 

HL,HL 

F6E9 

29 



ADD 

HL,HL 

F6EA 

29 



ADD 

HL,HL 

F6EB 

1B 



DEC 

DE 

F6EC 

CD 

2E 

F7 

CALL 

F72E 

F6EF 

20 

38 


JR 

NZ,F729 

F6F1 

2A 

96 

B0 

LD 

HL,(B096) 

F6F4 

22 

7D 

AE 

LD 

(AE7D),HL 

F6F7 

CD 

75 

F6 

CALL 

F675 

F6FA 

11 

00 

01 

LD 

DE,0100 

F6FD 

CD 

AB 

BB 

CALL 

BBAB 

F700 

Dl 



POP 

DE 

F701 

CD 

06 

F7 

CALL 

F706 

F704 

El 



POP 

HL 

F705 

C9 



RET 



Zähler für 8 Matrixbytes 
Byte holen 
auf Stack 

keine weiteren Matrixbytes ? 
folgt Komma ? 
dann nächstes Matrixbyte 
sonst Defaultwert 0 

Basic-PC nach DE 

Nr. des Zeichens 

Adresse d. zugeh. Matrix holen 

außerhalb User-Matrix ? 

Zähler für Matrixbytes 
zu Startadresse addieren 
Matrixbyte 

speichern 

weitere Matrixbytes ? 

Basic-PC wieder nach HL 


Basic-Befehl SYMBOL AFTER 
AFTER-Token übergehen 
Integerwert holen 
Basic-PC retten 
Maximalwert 

mit Integerwert vergleichen 
Wert zu groß ? 

Wert retten 

Param. d. exist. Usermatrix h. 
Adresse der User-Matrix n. DE 
keine User-Matrix definiert ? 
Zweierkomplement 
des 1. Zeichens 
der User-Matrix 
nach HL 

mal 8, da 8 Bytes/Zeichen, 
gibt Größe der Matrix 
Adresse der User-Matrix -1 
User-Matrix-Bereich freigeben 
nicht freigegeben ? d. Fehler 
altes Ende des freien RAMs 
wieder setzen 

Ein/Ausgabebuffer ggf. freig. 
Kennzeichen für keine Matrix 
User-Matrix zurücksetzen 
Integerw. (Nr. d. 1. Zeichens) 
User-Matrix neu setzen 
Basic-PC zurück 


********************************** User-Matrix neu setzen 

IN : DE: Nr. des 1. Zeichens 

F706 AF XOR A 

F707 93 SUB E $100-Nr. des 1. Zeichens 
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F708 

6F 



LD 

L,A 

F709 

3E 

01 


LD 

A,01 

F70B 

9A 



SBC 

D 

F70C 

67 



LD 

H,A 

F70D 

B5 



OR 

L 

F70E 

C8 



RET 

Z 

F70F 

D5 



PUSH 

DE 

F710 

29 



ADD 

HL,HL 

F711 

29 



ADD 

HL,HL 

F712 

29 



ADD 

HL,HL 

F713 

01 

00 

40 

LD 

BC,4000 

F716 

CD 

43 

F7 

CALL 

F743 

F719 

EB 



EX 

DE,HL 

F71A 

2A 

7D 

AE 

LD 

HL,(AE7D) 

F71D 

22 

96 

B0 

LD 

(B096),HL 

F720 

EB 



EX 

DE,HL 

F721 

22 

TD 

AE 

LD 

(AE7D),HL 

F724 

Dl 



POP 

DE 

F725 

23 



INC 

HL 

F726 

C3 

AB 

BB 

JP 

BBAB 

F729 

IE 

05 


LD 

E,05 

F72B 

C3 

94 

CA 

JP 

CA94 


ft ft ft ft ft ft ft ft ft ft ft ft ft ftftft ft ft ft ft ft ft ft ft ft ft ft ftft ft ft ft ft ft 


F72E 

E5 



PUSH 

HL 

F72F 

2A 

7B 

AE 

LD 

HL,(AE7B) 

F732 

CD 

B8 

FF 

CALL 

FFB8 

F735 

El 



POP 

HL 

F736 

CO 



RET 

NZ 

F737 

19 



ADD 

HL,DE 

F738 

22 

TD 

AE 

LD 

(AE7D),HL 

F73B 

EB 



EX 

DE,HL 

F73C 

18 

12 


JR 

F750 

F73E 

IE 

07 


LD 

E,07 

F740 

C3 

94 

CA 

JP 

CA94 


ft ft ft ftft ft ft ft ft ft ft ft ft ft ftftft ft ft ft ft ft ft ftft ft ft ft ft ft ft ftft ft 


F743 

EB 



EX 

DE,HL 

F744 

2A 

7B 

AE 

LD 

HL,(AE7B) 

F747 

CD 

CF 

FF 

CALL 

FFCF 

F74A 

CD 

BE 

FF 

CALL 

FFBE 

F74D 

38 

EF 


JR 

C,F73E 

F74F 

EB 



EX 

DE,HL 


ft ftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftftft ft 


gibt Zahl der Zeichen 
in User-Matrix, 
nach HL 

=0 ? 

dann keine User-Matrix 
Nr. des 1. Zeichens retten 
Zahl der Zeichen mal 8 
gibt Größe der User-Matrix 

min. Adresse für User-Matrix 
Platz reservieren 
Zeiger vor Platz nach DE 
altes Ende des freien RAMs 
retten 

Zeiger vor freien Platz 
als neues Ende des freien RAMs 
Nr. des 1. Zeichens d. Matrix 
Zeiger auf neue User-Matrix 
setzen 

Nr. für "Improper argurjent" 
Fehler ausgeben 

Speicherbereich freigeben 
IN : DE: Adresse d. Bereichs -1 
HL: Größe des Bereichs 
OUT: Z=1 für Bereich freigegeben 
Größe retten 
HIMEM-Zeiger 

=Startadresse des Bereichs ? 

nein ? dann zurück 
Länge addieren 

als neues Ende des freien RAMs 
nach DE 

als HIMEM setzen 

Nr. für "Memory full" 

Fehler ausgeben 


HIMEM neu setzen 

IN : DE: neuer HIMEM-Zeiger (464) 

DE: neuer HIMEM-Zeiger+1 (664/6128) 
OUT: HL: wie DE, IN 


Platz im Speicher reservieren 
IN : HL: Größe des Platzes 

BC: min. Adresse für Platz 
OUT: HL: neuer HIMEM-Zeiger 

(=Zeiger auf Platz-1) 
Z=1, CY=0 

ben. Größe des Bereichs n. DE 
HIMEM-Zeiger 

Größe abz., gibt neues HIMEM 
mit min. Adresse vergleichen 
zu klein ? dann Fehler 
neuen HIMEM-Zeiger nach DE 
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F750 

CD 

3E 

FC 

CALL 

FC3E 

F753 

D5 



PUSH 

DE 

F754 

2A 

7D 

AE 

LD 

HL,(AE7D) 

F757 

CD 

B8 

FF 

CALL 

FFB8 

F75A 

38 

E2 


JR 

C,F73E 

F75C 

CD 

ID 

F5 

CALL 

F51D 

F75F 

2A 

89 

AE 

LD 

HL,(AE89) 

F762 

09 



ADD 

HL,BC 

F763 

38 

D9 


JR 

C,F73E 

F765 

2B 



DEC 

HL 

F766 

CD 

B8 

FF 

CALL 

FFB8 

F769 

30 

D3 


JR 

NC,F73E 

F76B 

2A 

7B 

AE 

LD 

HL,(AE7B) 

F76E 

EB 



EX 

DE,HL 

F76F 

CD 

CF 

FF 

CALL 

FFCF 

F772 

22 

98 

B0 

LD 

(B098),HL 

F775 

11 

BB 

F7 

LD 

DE,F7BB 

F778 

CD 

74 

DA 

CALL 

DA74 

F77B 

ED 

4B 

98 B0 

LD. 

BC,(B098) 

F77F 

78 



LD 

A,B 

F780 

07 



RLCA 


F781 

38 

16 


JR 

C,F799 

F783 

Bl 



OR 

C 

F784 

28 

2F 


JR 

Z, F7B5 

F786 

2A 

8F 

B0 

LD 

HL,(B08F) 

F789 

54 



LD 

D,H 

F78A 

5D 



LD 

E,L 

F78B 

09 



ADD 

HL, BC 

F78C 

E5 



PUSH 

HL 

F78D 

CD 

ID 

F5 

CALL 

F51D 

F790 

EB 



EX 

DE,HL 

F791 

78 



LD 

A/B 

F792 

Bl 



OR 

C 

F793 

C4 

F5 

FF 

CALL 

NZ,FFF5 

F796 

El 



POP 

HL 

F797 

18 

15 


JR 

F7AE 

F799 

2A 

8D 

B0 

LD 

HL,(B08D) 

F79C 

54 



LD 

D, H 

F79D 

5D 



LD 

E,L 

F79E 

09 



ADD 

HL,BC 

F79F 

E5 



PUSH 

HL 

F7A0 

CD 

ID 

F5 

CALL 

F51D 

F7A3 

EB 



EX 

DE,HL 

F7A4 

23 



INC 

HL 

F7A5 

13 



INC 

DE 

F7A6 

78 



LD 

A,B 

F7A7 

Bl 



OR 

C 

F7A8 

C4 

F2 

FF 

CALL 

NZ,FFF2 

F7AB 

EB 



EX 

DE,HL 

F7AC 

2B 



DEC 

HL 

F7AD 

Dl 



POP 

DE 

F7AE 

22 

8F 

B0 

LD 

(B08F),HL 

F7B1 

EB 



EX 

DE,HL 

F7B2 

22 

8D 

B0 

LD 

(B08D),HL 

F7B5 

El 



POP 

HL 

F7B6 

22 

7B 

AE 

LD 

(AE7B),HL 

F7B9 

AF 



XOR 

A 

F7BA 

C9 



RET 



Garbage collection 
neuen HIMEH-Zeiger retten 
Zeiger auf Ende des freien RAM 
kleiner als neuer HIMEM-Zg. ? 
dann "Memory full" 

Größe des Stringbereichs n. BC 
Zeiger auf Ende der Felder 
Größe des Stringber. addieren 
Übertrag ? dann "Memory full" 
letztes nach Versch. ben. Byte 
kleiner als neues HIMEM ? 
sonst "Memory full" 
alter HIMEM-Zeiger 
nach DE, neuer nach HL 
Differenz als Offset nach HL 
Offset für Verschiebung setzen 
Routine für Offset addieren 
sämtl. Stringvar. durchgehen 
Offset 

Offset negativ ? 

dann nach unten verschieben 

Offset=0 ? 

dann fertig 

Zeiger auf Ende der Strings 
als Quellendadresse 
nach DE 

Offset addieren, gibt Zieladr. 
als neues Stringende retten 
Größe des Stringber. als Länge 
altes Ende n. HL, neues n. DE 

Länge <>0 ? 

dann Stringbereich verschieben 
neues Ende der Strings 
Zeiger setzen 

Zeiger auf Start der Strings 
als Quellstartadresse 
nach DE 

Offset addieren, gibt Zieladr. 
als neuen Stringstart retten 
Größe des Stringber. als Länge 
alten Start n. HL, neuen n. DE 
Zeiger auf 1. belegtes Byte 
des Stringbereichs 

Länge <>0 ? 

dann Stringbereich verschieben 
Zieladresse nach HL 
-1 gibt neues Stringende 
neuen Start der Strings 
Ende 
und 

Start der Strings setzen 
neuen HIMEM-Zeiger 
setzen 
CY=1, Z=0 
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********************************** 


F7BB 

2A 

83 

AE 

LD 

HL,(AE83) 

F7BE 

CD 

BE 

FF 

CALL 

FFBE 

F7C1 

DO 



RET 

NC 

F7C2 

2A 

98 

BO 

LD 

HL,(B098) 

F7C5 

09 



ADD 

HL,BC 

F7C6 

EB 



EX 

DE,HL 

F7C7 

72 



LD 

(HL),D 

F7C8 

2B 



DEC 

HL 

F7C9 

73 



LD 

(HL),E 

F7CA 

C9 



RET 


********************************** 


F7CB 

23 



INC 

HL 

F7CC 

CD 

F9 

F7 

CALL 

F7F9 

F7CF 

7E 



LD 

A,(HL) 

F7D0 

FE 

22 


CP 

22 

F7D2 

CA 

3F 

DD 

JP 

Z,DD3F 

F7D5 

B7 



OR 

A 

F7D6 

28 

37 


JR 

Z,F80F 

F7D8 

04 



INC 

ß 

F7D9 

23 



INC 

HL 

F7DA 

18 

F3 


JR 

F7CF 

********************************** 


F7DC 

CD F9 F7 

CALL 

F7F9 

F7DF 

7E 

LD 

A, (HL) 

F7E0 

B7 

OR 

A 

F7E1 

C8 

RET 

Z 

F7E2 

23 

INC 

HL 

F7E3 

04 

INC 

B 

F7E4 

18 F9 

JR 

F7DF 

********************************** 


F7E6 

CD 

F9 F7 

CALL 

F7F9 

F7E9 

4F 


LD 

C,A 

F7EA 

7E 


LD 

A, (HL) 

F7EB 

B7 


OR 

A 

F7EC 

28 

21 

JR 

Z,F80F 

F7EE 

B9 


CP 

C 

F7EF 

28 

IE 

JR 

Z, F80F 

F7F1 

FE 

2C 

CP 

2C 

F7F3 

28 

1A 

JR 

Z, F80F 

F7F5 

23 


INC 

HL 

F7F6 

04 


INC 

B 

F7F7 

18 

Fl 

JR 

F7EA 


Offset zu Stringadresse addieren 
IN : DE: Zeiger Descriptor-Ende 
BC: Stringadresse 
($B098): Offset 
Zeiger auf Programmende 
mit Stringadresse vergleichen 
String im Programm ? d. fertig 
Offset 

zu Stringadresse addieren 
neue Adresse nach DE 
Adresse in 
Stringdescriptor 
eintragen 


String überlesen, auf Stringstack 
IN : HL: Zeiger vor String 
OUT: HL: Zeiger nach String 
B: Stringlänge 
Zeiger auf String 
String nach Routine auf Stack 
Zeichen aus String 

I ll l 9 

d. fertig, nächst. Zeichen h. 
Zeilenende ? 

dann Sonderzeichen eliminieren 

Stringlänge 

und -zeiger erhöhen 

weiter prüfen 

String bis ZI.-Ende übl., auf St. 
IN : HL: Zeiger auf String 
OUT: HL: Zeiger auf Zeilenende 
B: Stringlänge 

String nach Routine auf Stack 

Zeichen aus String 

Zeilenende ? 

dann fertig 

Stringzeiger 

und -länge erhöhen 

weiter prüfen 

String bis Trennzeich. übernehmen 
IN : HL: Zeiger auf String 
A: Trennzeichen 
OUT: HL: Zeiger auf Stringende 
String nach Routine auf stack 
T rennzeichen 
Zeichen aus String 
Zeilenende ? 

Trennzeichen ? 

II ll 9 
i 

sonst Stringzeiger 
und -länge erhöhen 
weiter prüfen 
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******************** ******** ****** 


F7F9 

Dl 



POP 

DE 

F7FA 

E5 



PUSH 

HL 

F7FB 

06 

00 


LD 

B,00 

F7FD 

CD 

FB 

FF 

CALL 

FFFB 

F800 

Dl 



POP 

DE 

F801 

E5 



PUSH 

HL 

F802 

21 

BA 

B0 

LD 

HL,B0BA 

F805 

70 



LD 

(HL),B 

F806 

23 



INC 

HL 

F807 

73 



LD 

(HL),E 

F808 

23 



INC 

HL 

F809 

72 



LD 

(HL),D 

F80A 

CD 

BA 

FB 

CALL 

FBBA 

F80D 

El 



POP 

HL 

F80E 

C9 



RET 



************* ******************** * 


F80F 

E5 


PUSH 

HL 

F810 

04 


INC 

B 

F811 

05 


DEC 

B 

F812 

28 

12 

JR 

Z,F826 

F814 

2B 


DEC 

HL 

F815 

7E 


LD 

A, (HL) 

F816 

FE 

20 

CP 

20 

F818 

28 

F7 

JR 

z, Fan 

F81A 

FE 

09 

CP 

09 

F81C 

28 

F3 

JR 

Z,F811 

F81E 

FE 

0D 

CP 

0D 

F820 

28 

EF 

JR 

Z,F811 

F822 

FE 

0A 

CP 

0A 

F824 

28 

EB 

JR 

Z,F811 

F826 

El 


POP 

HL 

F827 

C9 


RET 


********************************** 

F828 

CD 

DA FB 

CALL 

FBDA 

F82B 

C8 


RET 

Z 

F82C 

1A 


LD 

A, (DE) 

F82D 

13 


INC 

DE 

F82E 

CD 

6E C3 

CALL 

C36E 

F831 

10 

F9 

DJNZ 

F82C 

F833 

C9 


RET 



********************************** 
F834 01 39 F8 LD BC,F839 

F837 18 0C JR F845 


********************************** 

F839 FE 41 CP 41 

F83B D8 RET C 


Routine weiterf., String a. Stack 
IN : HL: Zeiger auf String 
OUT: HL: Zeiger auf Stringende 
B: Länge 
Aufrufadresse 
Zeiger auf String 
Zähler für Länge 
aufrufende Rout, weiterführen 
Zeiger auf String 
Zeiger auf Stringende retten 
Zeiger für Stringdescriptor 
Länge 

und Adresse des Strings 
in Descriptor eintragen 

Descr. auf Stack, Zg. n. FAC 
Zeiger auf Stringende 


Sonderzeichen am Stringende elim. 
IN : HL: Zeiger auf Stringende 
B: Stringlänge 
OUT: B: neue Länge 

Zeiger auf Stringende 

Länge 

=0 ? dann fertig 

Zeichen aus String 
Space ? 

dann eliminieren 
TAB ? 

dann eliminieren 
CR ? 

dann eliminieren 
LF ? 

dann eliminieren 

Zeiger auf Stringende zurück 


String vom Stringstack, ausgeben 
String im FAC v. Stack löschen 
Länge=0 ? dann zurück 
Zeichen aus String 

ausgeben 

weitere Zeichen ? 


Basic-Funktion LOUER$ 

Routine Kleinschrift forcieren 


auf Kleinschrift forcieren 
IN/OUT: A: Zeichen 
<"A" ? 
dann zurück 
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F83C 

FE 

5B 


CP 

5B 

F83E 

DO 



RET 

NC 

F83F 

C6 

20 


ADD 

20 

F841 

C9 



RET 


********************************** 

F842 

01 

8A 

FF 

LD 

BC.FF8A 

F845 

C5 



PUSH 

BC 

F846 

2A 

C2 

BO 

LD 

HL,(B0C2) 

F849 

7E 



LD 

A,(HL) 

F84A 

CD 

19 

FC 

CALL 

F C19 

F84D 

D5 



PUSH 

DE 

F84E 

CD 

DA 

FB 

CALL 

FBDA 

F851 

El 



POP 

HL 

F852 

CI 



POP 

BC 

F853 

3C 



INC 

A 

F854 

3D 



DEC 

A 

F855 

CA 

BA 

FB 

JP 

Z,FBBA 

F858 

F5 



PUSH 

AF 

F859 

1A 



LD 

A, (DE) 

F85A 

13 



INC 

DE 

F85B 

CD 

F9 

FF 

CALL 

FFF9 

F85E 

77 



LD 

(HL),A 

F85F 

23 



INC 

HL 

F860 

Fl 



POP 

AF 

F861 

18 

Fl 


JR 

F854 


***** * * * * * ****** * * *************** * 


F863 

E5 



PUSH 

HL 

F864 

7E 



LD 

A, (HL) 

F865 

2A 

C2 

BO 

LD 

HL,(B0C2) 

F868 

86 



ADD 

(HL) 

F869 

IE 

0F 


LD 

E, 0F 

F86B 

DA 

94 

CA 

JP 

C.CA94 

F86E 

CD 

19 

FC 

CALL 

FC 19 

F871 

El 



POP 

HL 

F872 

D5 



PUSH 

DE 

F873 

E5 



PUSH 

HL 

F874 

CD 

DA 

FB 

CALL 

FBDA 

F877 

48 



LD 

C,B 

F878 

EB 



EX 

DE,HL 

F879 

E3 



EX 

(SP),HL 

F87A 

CD 

E8 

FB 

CALL 

FBE8 

F87D 

El 



POP 

KL 

F87E 

E3 



EX 

(SP),HL 

F87F 

78 



LD 

A,B 

F880 

CD 

8B 

F8 

CALL 

F88B 

F883 

Dl 



POP 

DE 

F884 

79 



LD 

A, C 

F885 

CD 

8B 

F8 

CALL 

F88B 

F888 

C3 

BA 

FB 

JP 

FBBA 


>="Z"+1 ? 
dann zurück 

sonst nach Kleinschrift 

Basic-Funktion UPPERS 

Routine Großschrift forcieren 
Routinenadresse retten 
Zeiger auf Descriptor 
String länge 

Platz für neuen String reserv. 

Zeiger auf Platz f. neuen Str. 

alten String vom Stringstack 

Zeiger für neuen String 

Routinenadresse 

Länge ausgleichen 

Länge 

schon alle Zeichen ? 
restl. Länge retten 
Zeichen aus String 

Wand Lungsrout ine ausführen 
und in neuen String speichern 

restl. Länge zurück 
weiter wandeln 

Stringverknüpfung "+" 

IN : HL: Zeiger auf 1. Descriptor 
2. Descriptor im FAC 

Länge des 1. Strings 
Zeiger auf 2. Descriptor 
Länge des 2. Strings addieren 
Nr. für "String too long" 
Gesamtlänge >$FF ? dann Fehler 
Platz für String reservieren 
Zeiger auf 1. Descriptor 
Zeiger auf Platz f. neuen Str. 
Zeiger auf 1. Descriptor 
2. String vom Stringstack lö. 
Länge des 2. Strings 
Zeiger auf 2. String nach HL 
retten, Zg. 1. Descriptor zur. 
1. String vom Stringstack lö. 
zweitobersten Stackeintrag 
(Zeiger auf neuen String) 
Länge des 1. Strings 

1. String kopieren 
Zeiger auf 2. String 
Länge des 2. Strings 

2. String kopieren 
Gesamtstring auf Stringstack 






Die Listings der CPC-ROMs 575 


* ********************************* 


F88B 

C5 

PUSH 

BC 

F88C 

EB 

EX 

DE,HL 

F88D 

4F 

LD 

C, A 

F88E 

06 00 

LD 

B, 00 

F890 

B7 

OR 

A 

F891 

C4 F2 FF 

CALL 

NZ.FFF2 

F894 

EB 

EX 

DE,HL 

F895 

CI 

POP 

BC 

F896 

C9 

RET 



********************************** 


F897 

E5 



PUSH 

HL 

F898 

CD 

DA 

FB 

CALL 

FBDA 

F89B 

48 



LD 

C,B 

F89C 

El 



POP 

HL 

F89D 

D5 



PUSH 

DE 

F89E 

CD 

E8 

FB 

CALL 

FBE8 

F8A1 

El 



POP 

HL 

F8A2 

78 



LD 

A,B 

F8A3 

Bl 



OR 

C 

F8A4 

C8 



RET 

z 

F8A5 

79 



LD 

A,C 

F8A6 

B7 



OR 

A 

F8A7 

28 

0C 


JR 

Z,F8B5 

F8A9 

78 



LD 

A,B 

F8AA 

B7 



OR 

A 

F8AB 

28 

09 


JR 

Z,F8B6 

F8AD 

05 



DEC 

B 

F8AE 

0D 



DEC 

C 

F8AF 

1A 



LD 

A,(DE) 

F8B0 

13 



INC 

DE 

F8B1 

BE 



CP 

(HL) 

F8B2 

23 



INC 

HL 

F8B3 

28 

ED 


JR 

Z,F8A2 

F8B5 

3F 



CCF 


F8B6 

9F 



SBC 

A 

F8S7 

CO 



RET 

NZ 

F8B8 

3C 



INC 

A 

F8B9 

C9 



RET 


********************************** 

F8BA 

CD 

CE 

F8 

CALL 

F8CE 

F8BD 

D5 



PUSH 

DE 

F8BE 

CD 

14 

Fl 

CALL 

Fl 14 

F8C1 

EB 



EX 

DE,HL 

F8C2 

18 

5E 


JR 

F922 


String kopieren 
IN : A: Länge 

DE: Quelladresse; 

HL: Zieladresse 

OUT: HL: Zeiger nach kop. String 

Quelle n. DE, Ziel n. HL 

Länge lo 

Länge hi=0 

Länge <>0 ? 

dann kopieren 

Quelle und Ziel wieder zurück 


Stringvergleich 

IN : HL: Zeiger auf 1. Descriptor 
Zg. 2. Descriptor im FAC 
OUT: A: Vergleichsergebnis 
A=$00, Z=1 für gleich 
A=$01, CY=0 f. Strl < Str2 
A=$FF, CY=1 f. Strl > Str2 
Zeiger auf 1. Descriptor 
2. String vom Stringstack 
Länge des 2. Strings 
Zeiger auf 1. Descriptor 
Zeiger auf 2. String 
1. String vom Stringstack 
Zeiger auf 2. String 

1. Stringlänge 

2. Stringlänge 

beide =0 ? dann Strings gleich 
2. String länge 
=0 ? 

dann 1. String größer 
1. Stringlänge 
=0 ? 

dann 2. String größer 
Stringlängen 
herunterzäh len 
Zeichen aus 1. String 

mit Zeichen aus 2. Str. vergl. 

gleich ? dann nächstes Zeichen 
CY=1, wenn 1. String größer 
A=$FF, wenn 1. String größer 
1. String größer ? 
sonst A=1 


Basic-Funktion BINS 

Ausdruck und Stellenzahl holen 
Basic-PC retten 
Zahl nach ASCII wandeln 
Adresse des Strings nach HL 
String in Stringbereich/-stack 
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F8C4 

CD 

CE 

F8 

CALL 

F8CE 

F8C7 

D5 



PUSH 

DE 

F8C8 

CD 

19 

Fl 

CALL 

Fl 19 

F8CB 

EB 



EX 

DE,HL 

F8CC 

18 

54 


JR 

F922 


Basic-Funktion HEX$ 

Ausdruck und Stellenzahl holen 
Basic-PC retten 
Zahl nach ASCII wandeln 
Adresse des Strings nach HL 
String in Stringbereich/-stack 


********************************** Ausdruck und Stellenzahl holen 

IN : HL: Basic-PC 

OUT: B: Stellenzahl; C: Typ des Ausdrucks 
HL: Zeiger auf Ausdruck; DE: Basic-PC 


F8CE 

CD 

FB 

CE 

CALL 

CEFB 

Ausdruck holen 

F8D1 

CD 

53 

FF 

CALL 

FF53 

und auf Basic-Stack, Typ n. C 

F8D4 

CD 

55 

DD 

CALL 

DD55 

Test auf Kornna 

F8D7 

9F 



SBC 

A 

A=0, wenn kein Komma (Default) 

F8D8 

DC 

67 

CE 

CALL 

C,CE67 

ggf. Byte holen, als Stellenz. 

F8DB 

FE 

11 


CP 

11 

>=17 ? 

F8DD 

D2 

9C 

FA 

JP 

NC,FA9C 

dann "Improper argument" 

F8E0 

47 



LD 

B,A 

Stellenzahl nach B 

F8E1 

CD 

37 

DD 

CALL 

DD37 

Test auf Klarrmer zu 

F8E4 

29 





n ^ n 

F8E5 

EB 



EX 

DE, HL 

Basic-PC nach DE 

F8E6 

79 



LD 

A,C 

Typ des Ausdrucks 

F8E7 

C3 

A0 

F5 

JP 

F5A0 

Ausdruck wieder v. Basic-Stack 

********************************** 

Basic-Funktion DEC$ 

F8EA 

CD 

37 

DD 

CALL 

DD37 

Test auf Klammer auf (??) 

F8ED 

28 





Il( II 

F8EE 

CD 

FB 

CE 

CALL 

CEFB 

Ausdruck holen 

F8F1 

CD 

37 

DD 

CALL 

DD37 

Test auf Koruna 

F8F4 

2C 





II II 
/ 

F8F5 

CD 

53 

FF 

CALL 

FF53 

FAC auf Basic-Stack retten 

F8F8 

CD 

9F 

CE 

CALL 

CE9F 

Stringausdruck holen, v. Stack 

F8FB 

CD 

37 

DD 

CALL 

DD37 

Test auf Klammer zu 

F8FE 

29 





II ) II 

F8FF 

E5 



PUSH 

HL 

Basic-PC retten 

F900 

79 



LD 

A,C 

Typ des 1. Ausdrucks 

F901 

CD 

A0 

F5 

CALL 

F5A0 

Ausdruck wieder v. Basic-Stack 

F904 

D5 



PUSH 

DE 

Zeiger auf String 

F905 

79 



LD 

A, C 

Typ des 1. Ausdrucks 

F906 

CD 

4B 

FF 

CALL 

FF4B 

Ausdruck in FAC kopieren 

F909 

Dl 



POP 

DE 

Zeiger auf String 

F90A 

78 



LD 

A,B 

Stringlänge 

F90B 

B7 



OR 

A 

<>0 ? 

F90C 

C4 

BA 

F3 

CALL 

NZ,F3BA 

dann Formatstring auswerten 

F90F 

30 

OA 


JR 

NC,F91B 

Fehler in der Auswertung ? 

F911 

78 



LD 

A,B 

restliche Stringlänge 

F912 

B7 



OR 

A 

<>0 ? 

F913 

20 

06 


JR 

NZ,F91B 

dann Fehler 

F915 

79 



LD 

A,C 

Formatierungsflags 

F916 

CD 

9F 

EE 

CALL 

EE9F 

Zahl nach ASCII wandeln 

F919 

18 

07 


JR 

F922 

String in Stringbereich/-stack 

F91B 

C3 

9C 

FA 

JP 

FA9C 

"Improper argument" 

********************************** 

Basic-Funktion STR$ 

F91E 

E5 



PUSH 

HL 

Basic-PC retten 

F91F 

CD 

9D 

EE 

CALL 

EE9D 

FAC nach ASCII wandeln 
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F922 

E5 



PUSH 

HL 

F923 

01 

FF 

FF 

LD 

BC,FFFF 

F926 

03 



INC 

BC 

F927 

7E 



LD 

A, (HL) 

F928 

23 



INC 

HL 

F929 

B7 



OR 

A 

F92A 

20 

FA 


JR 

NZ.F926 

F92C 

79 



LD 

A, C 

F92D 

CD 

19 

FC 

CALL 

FC19 

F930 

El 



POP 

HL 

F931 

B7 



OR 

A 

F932 

D5 



PUSH 

DE 

F933 

C4 

F2 

FF 

CALL 

NZ.FFF2 

F936 

Dl 



POP 

DE 

F937 

CD 

BA 

FB 

CALL 

FBBA 

F93A 

El 



POP 

HL 

F93B 

C9 



RET 


********************************** 

F93C 

CD 

E9 

F9 

CALL 

F9E9 

F93F 

OE 

00 


LD 

C,00 

F941 

18 

2A 


JR 

F96D 


********************************** 


F943 

CD 

E9 

F9 

CALL 

F9E9 

F946 

1A 



LD 

A,(DE) 

F947 

90 



SUB 

B 

F948 

4F 



LD 

C, A 

F949 

18 

22 


JR 

F96D 

********************************** 

F94B 

CD 

37 

DD 

CALL 

DD37 

F94E 

28 





F94F 

CD 

E9 

F9 

CALL 

F9E9 

F952 

78 



LD 

A,B 

F953 

B7 



OR 

A 

F954 

CA 

9C 

FA 

JP 

Z,FA9C 

F957 

05 



DEC 

B 

F958 

48 



LD 

C, B 

F959 

D5 



PUSH 

DE 

F95A 

C5 



PUSH 

BC 

F95B 

CD 

FB 

F9 

CALL 

F9FB 

F95E 

CI 



POP 

BC 

F95F 

E3 



EX 

(SP),HL 

F960 

7E 



LD 

A,(HL) 

F961 

91 



SUB 

C 

F962 

06 

00 


LD 

B, 00 

F964 

38 

05 


JR 

C,F96B 

F966 

BB 



CP 

E 

F967 

47 



LD 

B, A 

F968 

38 

01 


JR 

C,F96B 

F96A 

43 



LD 

B,E 

F96B 

EB 



EX 

DE,HL 

F96C 

El 



POP 

HL 

F96D 

CD 

37 

DD 

CALL 

DD37 

F970 

29 






Zeiger auf String retten 
String länge =-1 
Länge erhöhen 
Zeichen aus String 

kein Ende ? 
dann weiter prüfen 
Länge lo 

Platz in Stringbereich reserv. 

Zeiger auf String 

Länge 

Zeiger auf Platz im Stringber. 
Länge <>0 ? dann String kop. 
Zeiger auf kopierten String 
auf Stringstack 
Basic-PC zurück 


Basic-Funktion LEFT$ 

String und Byte holen 

Startposition 

TeiIstring holen 

Basic-Funktion RIGHTS 
String und Byte holen 
Stringlänge 
minus Bytewert 
gibt Startposition 
Teilstring holen 

Basic-Funktion HIDS 
Test auf Klammer auf 

II ( II 

String und Byte holen 
Byte 
=0 ? 

dann "Irrproper argument" 

Byte -1 

als Startpos. f. Teilstring 

Descriptorzeiger 

und Startposition retten 

2. Byte als Länge holen 

Startposition zurück 

PC retten, Descr.-Zeiger zur. 

Länge des Strings 

minus Startposition 

Länge 0 

Startposition zu groß ? 
mit gewünschter Länge vergl. 
restliche St ring länge 
gew. Länge zu groß ? 
sonst gewünschte Länge setzen 
Descriptorzeiger nach DE 
Basic-PC zurück 
Test auf Klammer zu 

II )ll 
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F971 

E5 



PUSH 

HL 

F972 

EB 



EX 

DE,HL 

F973 

7E 



LD 

A, (HL) 

F974 

B8 



CP 

B 

F975 

78 



LD 

A,B 

F976 

30 

03 


JR 

NC,F97B 

F978 

7E 



LD 

A, (HL) 

F979 

OE 

00 


LD 

C,00 

F97B 

F5 



PUSH 

AF 

F97C 

CD 

19 

FC 

CALL 

FC 19 

F97F 

D5 



PUSH 

DE 

F980 

CD 

E8 

FB 

CALL 

FBE8 

F983 

EB 



EX 

DE,HL 

F984 

Dl 



POP 

DE 

F985 

06 

00 


LD 

B,00 

F987 

09 



ADD 

HL,BC 

F988 

Fl 



POP 

AF 

F989 

4F 



LD 

C, A 

F98A 

B7 



OR 

A 

F98B 

C4 

F2 

FF 

CALL 

NZ,FFF2 

F98E 

CD 

BA 

FB 

CALL 

FBBA 

F991 

El 



POP 

HL 

F992 

C9 



RET 


********************************** 

F993 

CD 

37 

DD 

CALL 

DD37 

F996 

28 





F997 

CD 

86 

D6 

CALL 

D686 

F99A 

CD 

3C 

FF 

CALL 

FF3C 

F99D 

E5 



PUSH 

HL 

F99E 

EB 



EX 

DE,KL 

F99F 

CD 

21 

FB 

CALL 

FB21 

F9A2 

E3 



EX 

(SP),HL 

F9A3 

CD 

37 

DD 

CALL 

DD37 

F9A6 

2C 





F9A7 

CD 

6D 

CE 

CALL 

CE6D 

F9AA 

47 



LD 

B, A 

F9AB 

CD 

FB 

F9 

CALL 

F9FB 

F9AE 

4B 



LD 

C, E 

F9AF 

CD 

37 

DD 

CALL 

DD37 

F9B2 

29 





F9B3 

CD 

37 

DD 

CALL 

DD37 

F9B6 

EF 





F9B7 

C5 



PUSH 

BC 

F9B8 

CD 

9F 

CE 

CALL 

CE9F 

F9BB 

78 



LD 

A, B 

F9BC 

CI 



POP 

BC 

F9BD 

E3 



EX 

(SP),HL 

F9BE 

OC 



INC 

C 

F9BF 

0D 



DEC 

C 

F9C0 

28 

25 


JR 

Z,F9E7 

F9C2 

F5 



PUSH 

AF 

F9C3 

7E 



LD 

A,(HL) 

F9C4 

90 



SUB 

B 


TeiIst ring holen 
IN : DE: Zeiger auf Descriptor 
C: Startposition 
B: gewünschte Länge 
OUT: Descriptorzeiger im FAC 

Descriptorzeiger nach HL 
Länge des Strings 
mit gewünschter Länge vergl. 
gewünschte Länge 
nicht zu groß ? 

sonst Stringlänge als Länge 
und Startposition=0 
Länge retten 

Platz im Stringbereich reserv. 
Zeiger auf reservierten Platz 
alten String vom Stringstack 
Zeiger auf String nach HL 
Zeiger für neuen String 
Startposition hi=0 
Startposition addieren 
gewünschte Länge 
nach C 
Länge <>0 ? 
dann String kopieren 
String auf St.-Stack u. in FAC 


Basic-Befehl MIDS 

Test auf Klanuter auf 

II £ II 

Variable holen, ggf. neu anl. 
Test auf Stringvariable 
Basic-PC retten 
Var.-Adr. (des Descr.) n. HL 
String in Stringber. forcieren 
Descr.-Zeiger retten, PC zur. 
Test auf Konma 

II II 
9 

Bytewert <>0 holen 
als Startposition nach B 
2. Bytewert holen 
als Länge nach C 
Test auf Klammer zu 

II ^ II 

Test auf ,, = ,, 

Token für "=" 

Parameter retten 

String holen, vom Stringstack 

Stringlänge 

Parameter zurück 

PC retten, Var.-Descr.-Z. zur. 

gewünschte Länge 

=0 ? dann fertig 
Länge des Stringausdrucks 
Länge des Strings in Variable 
- Startposition 
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F9C5 

DA 

9C 

FA 

JP 

C, FA9C 

F9C8 

3C 



INC 

A 

F9C9 

B9 



CP 

C 

F9CA 

38 

01 


JR 

C,F9CD 

F9CC 

79 



LD 

A, C 

F9CD 

4F 



LD 

C, A 

F9CE 

78 



LD 

A, B 

F9CF 

3D 



DEC 

A 

F9D0 

23 



INC 

HL 

F9D1 

86 



ADD 

(HL) 

F9D2 

23 



INC 

HL 

F9D3 

66 



LD 

H, (HL) 

F9D4 

6F 



LD 

L,A 

F9D5 

8C 



ADC 

H 

F9D6 

95 



SUB 

L 

F9D7 

67 



LD 

H,A 

F9D8 

Fl 



POP 

AF 

F9D9 

47 



LD 

B, A 

F9DA 

EB 



EX 

DE,HL 

F9DB 

79 



LD 

A,C 

F9DC 

B8 



CP 

B 

F9DD 

38 

01 


JR 

C, F9E0 

F9DF 

78 



LD 

A,B 

F9E0 

4F 



LD 

C, A 

F9E1 

06 

00 


LD 

B,00 

F9E3 

B7 



DR 

A 

F9E4 

C4 

F2 

FF 

CALL 

NZ.FFF2 

F9E7 

El 



POP 

HL 

F9E8 

C9 



RET 



*********************************** 


F9E9 

CD 

A5 

CE 

CALL 

CEA5 

F9EC 

CD 

37 

DD 

CALL 

DD37 

F9EF 

2C 





F9F0 

E5 



PUSH 

HL 

F9F1 

2A 

C2 

B0 

LD 

HL,(B0C2) 

F9F4 

E3 



EX 

(SP),HL 

F9F5 

CD 

67 

CE 

CALL 

CE67 

F9F8 

47 



LD 

B,A 

F9F9 

Dl 



POP 

DE 

F9FA 

C9 



RET 


********************************** 

F9FB 

1E 

FF 


LD 

E,FF 

F9FD 

7E 



LD 

A, (HL) 

F9FE 

FE 

29 


CP 

29 

FA00 

C8 



RET 

Z 

FA01 

CD 

37 

DD 

CALL 

DD37 

FA04 

2C 





FA05 

CD 

67 

CE 

CALL 

CE67 

FA08 

5F 



LD 

E.A 

FA09 

C9 



RET 



Startpos. außerhalb String ? 

+1 = restl. Länge nach Startp. 
m. zu ersetzender Länge vergl. 
restl. Stringlänge zu klein ? 
sonst übergebenen Längenwert 
zu ersetzende Länge 
Startposition 

-1 = Offset zu Stringanfang 
Descr.-Zeiger auf Stringadr. 
Adresse aus Descriptor 
+ Offset 

ergibt Startadresse, 
nach HL 


Länge des Stringausdrucks 
nach B 

Startadresse nach DE 
zu ersetzende Länge 
mit Stringausdruck länge vergl. 
zu ersetzende Länge kleiner ? 
sonst Länge des Stringausdr. 
als zu ersetzende Länge 
Länge hi=0 
Länge <>0 ? 

dann Teilstring ersetzen 
Basic-PC zurück 


String und Byte holen 
OUT: DE: Zeiger auf Descriptor 
A,B: Byte 
beim CPC 664/6128: 

CY=0 

Z=1, wenn Byte=0 
Stringausdruck holen 
Test auf Korrena 

ii ii 
t 

Basic-PC retten 
Zeiger auf Descriptor 
retten, PC zurück 
Byteausdruck holen 
Bytewert nach B 
Zeiger auf Descriptor 


2. Byte für MID$ holen 
OUT: E: Byte 
Defaul^-Wert 
folgendes Zeichen 
Klaumer zu ? 
dann Default-Wert 
Test auf Korrena 

II II 

9 

Bytewert holen 
nach E 
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FAOA CD DA FB CALL FBDA 

FAOD C3 OA FF JP FFOA 


********************************** 


FA10 

CD 

70 

FA 

CALL 

FA70 

FA13 

C3 

0A 

FF 

JP 

FFOA 

** ** * ******** * ********* * ******* * * * 

FA 16 

CD 

92 

FA 

CALL 

FA92 

FA19 

F5 



PUSH 

AF 

FA1A 

3E 

01 


LD 

A, 01 

FA1C 

CD 

19 

FC 

CALL 

FC19 

FA1F 

Fl 



POP 

AF 

FA20 

12 



LD 

(DE),A 

FA21 

C3 

BA 

FB 

JP 

FBBA 

********* * ** * **** * **** * * ** * ******* 

FA24 

E5 



PUSH 

HL 

FA25 

CD 

2A 

FA 

CALL 

FA2A 

FA28 

El 



POP 

HL 

FA29 

C9 



RET 


********************************** 

FA2A 

CD 

39 

C4 

CALL 

C439 

FA2D 

38 

EA 


JR 

C.FA19 

FA2F 

AF 



XOR 

A 

FA30 

32 

BA 

B0 

LD 

(B0BA),A 

FA33 

C3 

BA 

FB 

JP 

FBBA 

********************************** 

FA36 

CD 

67 

CE 

CALL 

CE67 

FA39 

4F 



LD 

C.A 

FA3A 

CD 

37 

DD 

CALL 

DD37 

FA3D 

2C 





FA3E 

CD 

FB 

CE 

CALL 

CEFB 

FA41 

CD 

37 DD 

CALL 

DD37 

FA44 

29 





FA45 

E5 



PUSH 

HL 

FA46 

CD 

45 

FF 

CALL 

FF45 

FA49 

28 

05 


JR 

Z,FA50 

FA4B 

CD 

92 

FA 

CALL 

FA92 

FA4E 

18 

03 


JR 

FA53 

FA50 

CD 

70 

FA 

CALL 

FA70 

FA53 

41 



LD 

B, C 

FA54 

4F 



LD 

C.A 

FA55 

18 

07 


JR 

FA5E 

********************************** 

FA57 

CD 

92 

FA 

CALL 

FA92 

FA5A 

47 



LD 

B.A 

FA5B 

OE 

20 


LD 

C, 20 

FA5D 

E5 



PUSH 

HL 

FA5E 

78 



LD 

A,B 

FA5F 

CD 

19 

FC 

CALL 

FC 19 

FA62 

04 



INC 

B 

FA63 

05 



DEC 

B 

FA64 

28 

05 


JR 

Z.FA6B 


Basic-Funktion LEN 

String v. Stack, Länge nach A 
Länge in FAC eintragen 

Basic-Funktion ASC 

1. Zeichen aus String nach A 
und in FAC eintragen 

Basic-Funktion CHRS 

FAC nach Byte wandeln 
Byte retten 
St ring länge =1 

Platz für String reservieren 
Bytewert 

als 1. Zeichen in String 
String auf Stringstack 

Basic-Funktion INKEYS 
Basic-PC retten 
Funktion ausführen 
Basic-PC 


String für INKEYS holen 
Taste lesen 

gedrückt ? d. in String wand, 
sonst Länge Nul l 
in Stringdescriptor setzen 
String auf Stringstack 

Basic-Funktion STRINGS 
Bytewert holen 
als Länge 
Test auf Konma 

II II 
f 

Ausdruck holen 
Test auf Klanmer zu 

ii j n 

Basic-PC retten 
Typflag holen 
String ? 

sonst FAC nach Byte wandeln 

1. Zeichen aus String holen 

Länge 

Zeichen 

String generieren 

Basic-Funktion SPACES 
FAC nach Byte wandeln 
Byte als Länge nach B 
Space 

Basic-PC retten 
Länge 

Platz für String reservieren 

Länge korrigieren 

Zähler 

=0 ? dann fertig 
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FA66 

79 



LD 

A» C 

FA67 

12 



LD 

(DE),A 

FA68 

13 



INC 

DE 

FA69 

18 

F8 


JR 

FA63 

FA6B 

CD 

BA 

FB 

CALL 

FBBA 

FA6E 

El 



POP 

HL 

FA6F 

C9 



RET 


* ************ * ** * ************ * *** * 

FA70 

CD 

DA 

FB 

CALL 

FBDA 

FA73 

28 

27 


JR 

Z,FA9C 

FA75 

1A 



LD 

A,(DE) 

FA76 

C9 



RET 


******************** * * * * * ** *** **** 

FA77 

CD 

DA 

FB 

CALL 

FBDA 

FA7A 

CA 

0A 

FF 

JP 

Z, FF0A 

FA7D 

EB 



EX 

DE,HL 

FA7E 

E5 



PUSH 

HL 

FA7F 

5F 



LD 

E, A 

FA80 

16 

00 


LD 

D,00 

FA82 

19 



ADD 

HL,DE 

FA83 

5E 



LD 

E,(HL) 

FA84 

72 



LD 

CHL),D 

FA85 

E3 



EX 

(SP),HL 

FA86 

D5 



PUSH 

DE 

FA87 

CD 

A3 

EC 

CALL 

EC A3 

FA8A 

Dl 



POP 

DE 

FA8B 

El 



POP 

HL 

FA8C 

73 



LD 

(HL),E 

FA8D 

D8 



RET 

C 

FA8E 

IE 

0D 


LD 

E, 0D 

FA90 

18 

OC 


JR 

FA9E 

********************************** 

FA92 

E5 



PUSH 

HL 

FA93 

CD 

8D 

FE 

CALL 

FE8D 

FA96 

EB 



EX 

DE,HL 

FA97 

El 



POP 

HL 

FA98 

7A 



LD 

A,D 

FA99 

B7 



OR 

A 

FA9A 

7B 



LD 

A,E 

FA9B 

C8 



RET 

Z 

FA9C 

IE 

05 


LD 

E,05 

FA9E 

C3 

94 

CA 

JP 

CA94 

********************************** 

FAA1 

CD 

FB 

CE 

CALL 

CEFB 

FAA4 

CD 

45 

FF 

CALL 

FF45 

FAA7 

OE 

01 


LD 

C,01 

FAA9 

28 

0F 


JR 

Z, FABA 

FAAB 

CD 

92 

FA 

CALL 

FA92 

FAAE 

B7 



OR 

A 

FAAF 

CA 

9C 

FA 

JP 

Z,FA9C 

FAB2 

4F 



LD 

C,A 

FAB3 

CD 

37 DD 

CALL 

DD37 


Zeichen 

in String speichern 


String auf Stringstack 
Basic-PC zurück 


1. Zeichen aus String holen 
OUT: A: Zeichen 

String vom Stringstack 
Länge =0 ? dann Fehler 
1. Zeichen aus String 


Basic-Funktion VAL 

String vom Stringstack 

Länge=0 ? dann FAC=0 

Zeiger auf String nach HL 

und retten 

Länge lo 

Länge hi=0 

Länge addieren 

Zeichen nach String 

durch Null für Ende ersetzen 

Zg. Stringende r., Str.-Zg. z. 

Zeichen nach String 

String nach binär wandeln 

Zeichen nach String 

Zeiger nach String 

Zeichen wieder setzen 

kein Fehler bei Wandlung ? 

Nr. für "Type mismatch" 

Fehler ausgeben 

FAC nach Byte wandeln 
OUT: A: Byte 

Basic-PC retten 

CI NT, FAC nach Integer nach HL 
Integerwert nach DE 
Basic-PC 
Integerwert hi 

Integerwert lo 
Hi-Byte=0 ? dann o.k. 

Nr. für "Improper argument" 
Fehler ausgeben 

Basic-Funktion INSTR 
Ausdruck holen 
Typflag holen 
Default-Startposition 
Stringausdruck ? dann Default 
sonst FAC nach Byte wandeln 
Bytewert 

=0 ? dann "Improper argument" 
sonst Byte als Startposition 
Test auf Komma 
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FAB6 

2C 





FAB7 

CD 

A5 

CE 

CALL 

CEA5 

FABA 

CD 

37 

DD 

CALL 

DD37 

FABD 

2C 





FABE 

E5 



PUSH 

HL 

FABF 

2A 

C2 

BO 

LD 

HL,(B0C2) 

FAC2 

E3 



EX 

(SP),HL 

FAC3 

CD 

9F 

CE 

CALL 

CE9F 

FAC6 

CD 

37 

DD 

CALL 

DD37 

FAC9 

29 





FACA 

E3 



EX 

(SP),HL 

FACB 

79 



LD 

A, C 

FACC 

CD 

D4 

FA 

CALL 

FAD4 

FACF 

CD 

0A 

FF 

CALL 

FFOA 

FAD2 

El 



POP 

HL 

FAD3 

C9 



RET 



*&**** *#* ☆*☆ fr *•&** ft ***###*&■&* ** 


FAD4 

F5 

PUSH 

AF 

FAD5 

48 

LD 

C, B 

FAD6 

D5 

PUSH 

DE 

FAD7 

CD E8 FB 

CALL 

FBE8 

FADA 

El 

POP 

HL 

FADB 

Fl 

POP 

AF 

FADC 

E5 

PUSH 

HL 

FADD 

6F 

LD 

L,A 

FADE 

60 

LD 

H,B 

FADF 

78 

LD 

A, B 

FAEO 

BD 

CP 

L 

FAE1 

38 2D 

JR 

C, FB10 

FAE3 

2D 

DEC 

L 

FAE4 

TD 

LD 

A, L 

FAE5 

83 

ADD 

6 

FAE6 

5F 

LD 

E,A 

FAE7 

8A 

ADC 

D 

FAE8 

93 

SUB 

E 

FAE9 

57 

LD 

D, A 

FAEA 

78 

LD 

Ä,B 

FAEB 

95 

SUB 

L 

FAEC 

47 

LD 

B,A 

FAED 

79 

LD 

A,C 

FAEE 

D6 01 

SUB 

01 

FAFO 

TD 

LD 

A,L 

FAF1 

3C 

INC 

A 

FAF2 

38 ID 

JR 

C,FB11 

FAF4 

E3 

EX 

(SP),HL 

FAF5 

C5 

PUSH 

BC 

FAF6 

D5 

PUSH 

DE 

FAF7 

E5 

PUSH 

HL 

FAF8 

1A 

LD 

A, (DE) 

FAF9 

BE 

CP 

(HL) 

FAFA 

20 0D 

JR 

NZ,FB09 


II II 
i 

Stringausdruck holen 
Test auf Kcarnia 

II II 
t 

Basic-PC retten 
Zeiger auf Descriptor 
retten, PC zurück 
Suchstring holen, vom Stack 
Test auf Klammer zu 

■i^ii 

PC retten, Descr.-Zeiger zur. 
Startposition 

Suchstring im 1. String suchen 
Ergebnis nach FAC 
Basic-PC zurück 


Suchstring in String suchen 
IN : A: Start-Suchposition 
B: Suchstringlänge 
DE: Suchstringadresse 
HL: Descriptorzg. des Str., 
in dem zu suchen ist 
OUT: Ergebnis(-position) 
Startposition retten 
Länge des Suchstrings 
Adresse des Suchstrings 
1. String vom Stack, Params h. 
Adresse des Suchstrings 
Startposition 
Adresse des Suchstrings 
Startposition 
Länge des 1, Strings 

mit Startposition vergleichen 
Startp.>Länge ? d. nicht gef. 
Startposition-1 = Offset 
Offset zu Adresse 
des 1. Strings addieren, 
gibt Startadresse 
für 

Suche, 
nach DE 

Länge des 1. Strings 
Offset abziehen 
restliche Länge 
Länge des Suchstrings 
CY=1, wenn Länge =0 
Offset 

+1=Position für Ergebnis 
Suchstringlänge=0 ? d. gefund. 
1. Stringl. r., Suchstr.-Adr. 

Suchadresse im 1. String 
Suchstringadresse 
Zeichen aus 1. String 
=Zeichen aus Suchstring ? 
nein ? dann nächste Position 
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FAFC 

23 

INC 

HL 

FAFD 

OD 

DEC 

C 

FAFE 

28 13 

JR 

Z,FB13 

FBOO 

13 

INC 

DE 

FB01 

05 

DEC 

B 

FB02 

20 F4 

JR 

NZ,FAF8 

FB04 

El 

POP 

HL 

FB05 

Dl 

POP 

DE 

FB06 

CI 

POP 

BC 

FB07 

18 07 

JR 

FB 10 

FB09 

El 

POP 

HL 

FBOA 

Dl 

POP 

DE 

FBOB 

CI 

POP 

BC 

FBOC 

13 

INC 

DE 

FBOD 

05 

DEC 

B 

FBOE 

20 E5 

JR 

NZ,FAF5 

F B10 

AF 

XOR 

A 

FB11 

Dl 

POP 

DE 

FB12 

C9 

RET 


FB13 

El 

POP 

HL 

FB14 

Dl 

POP 

DE 

FB 15 

CI 

POP 

BC 

FB16 

El 

POP 

HL 

FBI 7 

7C 

LD 

A,H 

F B18 

90 

SUB 

B 

FB19 

3C 

INC 

A 

FBI A 

C9 

RET 



*■& it 'itit ft ft ft ft ft ft ftft ft* ftftftftftftftftftft ft *☆* ft ft ft* * 

FB1B 11 2E FB LD DE,FB2E 
FB1E C3 74 DA JP DA74 

ft ft ft ftftftftft ft ft * ft ftft ft ft ft ftftft ftftftftft * ft ft ftftft ft ft ft 


FB21 

E5 

PUSH 

HL 

FB22 

7E 

LD 

A,(HL) 

FB23 

23 

INC 

HL 

FB24 

4E 

LD 

C,(HL) 

FB25 

23 

INC 

HL 

FB26 

46 

LD 

B, (HL) 

FB27 

EB 

EX 

DE,HL 

FB28 

B7 

OR 

A 

FB29 

C4 2E FB 

CALL 

NZ,FB2E 

FB2C 

El 

POP 

HL 

FB2D 

C9 

RET 



ftftftftftftftftftftftft*ftftftft*ftft ****** ftftftftftftftft 


FB2E 

2A 

8D 

B0 

LD 

HL, (B08D) 

FB31 

CD 

BE 

FF 

CALL 

FFBE 

FB34 

30 

07 


JR 

NC,FB3D 

FB36 

2A 

8F 

B0 

LD 

HL,(B08F) 

FB39 

CD 

BE 

FF 

CALL 

FFBE 

FB3C 

DO 



RET 

NC 

FB3D 

EB 



EX 

DE,HL 

FB3E 

28 



DEC 

HL 

FB3F 

2B 



DEC 

HL 


Zeiger 

und Zähler für Suchstring 
Suchstring abgearb. ? d. gef. 
Zeiger 

und Zähler für 1. String 
1. String nicht zu Ende ? 
Suchstringadresse 
Suchadresse im 1. String 
Stringlängen 

Flag für nicht gefunden setzen 
Suchstringadresse 
Suchadresse im 1. String 
String längen 
Zeiger 

und Zähler für 1. String 
ggf. ab nächster Position su. 
Flag für nicht gefunden 
Länge des 1. String löschen 

Suchstringadresse 
Suchadresse im 1. String 
Stringlängen 
Länge des 1. Strings 
nach A 

- restl. Such länge 
+1 gibt gefundene Position 


Strings in Stringber. forcieren 
Zeiger auf Routine 
sämtliche Strings durchgehen 

String in Stringber. forcieren 
IN : HL: Zeiger auf Descriptor 
Zeiger auf Descriptor 
Länge 

und Stringadresse 
aus Descriptor laden 


Länge <>0 ? 

dann in Stringber. forcieren 
Zeiger auf Descriptor 


String in Stringber. forcieren 
IN : BC: Stringadresse 

DE: Descriptoradresse +2 
Zeiger auf Start der Strings 
mit Stringadresse vergleichen 
Str. nicht im Stringbereich ? 
Zeiger auf Ende der Strings 
mit Stringadresse vergleichen 
String im Stringbereich ? 
Descriptorzeiger+2 nach HL 
-2 gibt Zeiger 
auf Stringdescriptor 
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FB40 

E5 



PUSH 

HL 

FB41 

CD 

8F 

FB 

CALL 

FB8F 

FB44 

EB 



EX 

DE,HL 

FB45 

El 



POP 

HL 

FB46 

C3 

A6 

FB 

JP 

FBA6 

****************************** **** 

FB49 

2A 

C2 

BO 

LD 

HL,(B0C2) 

FB4C 

11 

BA 

BO 

LD 

DE,B0BA 

FB4F 

CD 

B8 

FF 

CALL 

FFB8 

FB52 

D8 



RET 

C 

FB53 

CD 

8F 

FB 

CALL 

FB8F 

FB56 

C3 

BA 

FB 

JP 

FBBA 


********************************** 


FB59 

2A 

C2 

B0 

LD 

HL, (B0C2) 

FB5C 

E5 



PUSH 

HL 

FB5D 

7E 



LD 

A, (HL) 

FB5E 

B7 



OR 

A 

FB5F 

28 

26 


JR 

Z, FB87 

FB61 

23 



INC 

HL 

FB62 

5E 



LD 

E, (HL) 

FB63 

23 



INC 

HL 

FB64 

56 



LD 

D, (HL) 

FB65 

2A 

81 

AE 

LD 

HL, (AE81) 

FB68 

CD 

B8 

FF 

CALL 

FFB8 

FB6B 

30 

IE 


JR 

NC,FB8B 

FB6D 

2A 

8F 

B0 

LD 

HL,(B08F) 

FB70 

CD 

B8 

FF 

CALL 

FFB8 

FB73 

38 

16 


JR 

C,FB8B 

FB75 

2A 

83 

AE 

LD 

HL,(AE83) 

FB78 

CD 

B8 

FF 

CALL 

FFB8 

FB7B 

30 

0A 


JR 

NC,FB87 

FB7D 

El 



POP 

HL 

FB7E 

E5 



PUSH 

HL 

FB7F 

11 

9C 

B0 

LD 

DE,B09C 

FB82 

CD 

B8 

FF 

CALL 

FFB8 

FB85 

20 

04 


JR 

NZ,FB8B 

FB87 

El 



POP 

HL 

FB88 

C3 

FF 

FB 

JP 

FBFF 

FB8B 

El 



POP 

HL 

FB8C 

CD 

FF 

FB 

CALL 

FBFF 


********************************** 


FB8F 

7E 


LD 

A,(HL) 

FB90 

CD 

19 FC 

CALL 

FC19 

FB93 

D5 


PUSH 

DE 

FB94 

4E 


LD 

0, (HL) 

FB95 

06 

00 

LD 

B,00 

FB97 

23 


INC 

HL 


retten 

String in Stringber. kopieren 
Zeiger auf neuen Descr. n. DE 
Zeiger auf alten Descriptor 
neuen Descr. in alten kopieren 

Descriptor ggf. auf Stringstack 
Zeiger auf Descriptor 
Zg. auf Ende des Stringstacks 
Descriptor auf Stringstack ? 
dann o.k. 

String in Stringber. kopieren 
und Descriptor auf Stringstack 

String kopieren, vom Stringstack 
IN : String im FAC 
OUT: A: St ring länge 

DE: Zeiger auf String 
HL: Zeiger auf Descriptor 
Zeiger auf Descriptor 
retten 
Stringlänge 

=0 ? dann fertig 

Stringadresse aus Descriptor 
laden, nach DE 

Zeiger auf Programmstart 
String unterhalb Programm ? 
dann in Stringber. kopieren 
Zeiger auf Ende der Strings 
String oberhalb Stringber. ? 
dann in Stringber. kopieren 
Zeiger auf Prograrmende 
String im Programn ? 
dann nicht kopieren 
Zeiger auf Descriptor 

Zeiger auf 1. Stringstackelem. 
Descr. 1. Element im Stack ? 
nein ? dann String kopieren 
Zeiger auf Descriptor 
String vom Stringstack 

Zeiger auf Descriptor 
String vom Stringstack 

String in Stringbereich kopieren 
IN : HL: Zeiger auf Descriptor 
OUT: HL: neuer Zeiger auf Descr. 
DE: Zeiger auf String 
Länge 

Platz für neuen String reserv. 
Zeiger auf neuen Platz 
Stringlänge 
Länge hi=0 
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FB98 

7E 



LD 

A, (HL) 

FB99 

23 



INC 

HL 

FB9A 

66 



LD 

H,(HL) 

FB9B 

6F 



LD 

L,A 

FB9C 

78 



LD 

A,B 

FB9D 

Bl 



OR 

C 

FB9E 

C4 

F2 

FF 

CALL 

NZ,FFF2 

FBA1 

Dl 



POP 

DE 

FBA2 

21 

BA 

BO 

LD 

HL,BOBA 

FBA5 

C9 



RET 


********************************** 


FBA6 

1A 



LD 

A, (DE) 

FBA7 

13 



INC 

DE 

FBA8 

77 



LD 

(HL),A 

FBA9 

23 



INC 

HL 

FBAA 

1A 



LD 

A,(DE) 

FBAB 

13 



INC 

DE 

FBAC 

77 



LD 

(HL),A 

FBAD 

23 



INC 

HL 

FBAE 

1A 



LD 

A,(DE) 

FBAF 

13 



INC 

DE 

FBBO 

77 



LD 

(HL),A 

FBB1 

23 



INC 

HL 

FBB2 

C9 



RET 


********************************** 

FBB3 

21 

9C 

BO 

LD 

HL,B09C 

FBB6 

22 

9A 

BO 

LD 

(B09A),HL 

FBB9 

C9 



RET 


********************************** 

FBBA 

3E 

03 


LD 

A,03 

FBBC 

32 

CI 

BO 

LD 

(B0C1), A 

FBBF 

2A 

9A 

BO 

LD 

HL,(B09A) 

FBC2 

22 

C2 

BO 

LD 

(B0C2),HL 

FBC5 

11 

BA 

BO 

LD 

DE,BOBA 

FBC8 

CD 

B8 

FF 

CALL 

FFB8 

FBCB 

IE 

10 


LD 

E, 10 

FBCD 

CA 

94 

CA 

JP 

Z, CA94 

FBDO 

11 

BA 

BO 

LD 

DE,BOBA 

FBD3 

CD 

A6 

FB 

CALL 

FBA6 

FBD6 

22 

9A 

BO 

LD 

(B09A),HL 

FBD9 

C9 



RET 



********************************** 


FBDA 

E5 



PUSH 

HL 

FBDB 

CD 

3C 

FF 

CALL 

FF3C 

FBDE 

2A 

C2 

BO 

LD 

HL,(B0C2) 

FBE1 

CD 

E8 

FB 

CALL 

FBE8 

FBE4 

El 



POP 

HL 


Stringadresse 
aus Descriptor 
nach HL 

Länge 
<>0 ? 

dann String kopieren 

Zeiger auf String 

neuer Zeiger auf Descriptor 


Stringdescriptor kopieren 
IN : DE: Zeiger Quel (.descriptor 
HL: Zeiger Zieldescriptor 

Länge 


und Stringadresse 


kopieren 


Stringdescriptorstack init. 
Startwert 

als Stringstackpointer 


Descriptor auf Stack u. nach FAC 
IM : Descriptor bei SBOBA 
Typ für String 
FAC-Typflag setzen 
St ringstackpointer 
als Zeiger auf Descr. nach FAC 
obere Stringstackgrenze+1 • 
mit Stringstackpointer vergl. 
String expression too complex 
ggf. Fehler ausgeben 
Zeiger auf Descriptor 
Descriptor in Stack kopieren 
neuen Stackpointer setzen 


String aus Stringb./Stack löschen 
IN : String im FAC 
OUT: DE: Stringadresse 
A,B: String länge 
Z=1, wenn Leerstring 

Test auf String im FAC 

Zeiger auf Descriptor 

ggf. aus Bereich/Stack löschen 
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FBE5 

78 

LD 

A,B 

FBE6 

B7 

OR 

A 

FBE7 

C9 

RET 


■*■******■********■************&****** 


FBE8 

CD 

FF 

FB 

CALL 

FBFF 

FBEB 

CO 



RET 

NZ 

FBEC 

D5 



PUSH 

DE 

FBED 

1B 



DEC 

DE 

FBEE 

2A 

8D 

BO 

LD 

HL,(B08D) 

FBFl 

CD 

B8 

FF 

CALL 

FFB8 

FBF4 

20 

07 


JR 

NZ,FBFD 

FBF6 

58 



LD 

E,B 

FBF7 

16 

00 


LD 

D,00 

FBF9 

19 



ADD 

HL,DE 

FBFA 

22 

8D 

BO 

LD 

(B08D),HL 

FBFD 

Dl 



POP 

DE 

FBFE 

C9 



RET 



&☆&***■***☆******■*■*:** *** Ir-irk iSr ***☆ ☆ ** 


FBFF 

E5 



PUSH 

HL 

FC00 

46 



LD 

B,(HL) 

FC01 

23 



INC 

HL 

FC02 

7E 



LD 

A, (HL) 

FC03 

23 



INC 

HL 

FC04 

66 



LD 

H, (HL) 

FC05 

6F 



LD 

L,A 

FC06 

E3 



EX 

(SP),HL 

FC07 

EB 



EX 

DE,HL 

FC08 

2A 

9A 

B0 

LD 

HL,(B09A) 

FCOB 

2B 



DEC 

HL 

FCOC 

2B 



DEC 

HL 

FCOD 

2B 



DEC 

HL 

FCOE 

CD 

B8 

FF 

CALL 

FFB8 

FC 11 

20 

03 


JR 

NZ,FC16 

FC13 

22 

9A 

B0 

LD 

(B09A),HL 

FC 16 

EB 



EX 

DE,HL 

FC17 

Dl 



POP 

DE 

FC18 

C9 



RET 


*** & & * * it 'k'k'k-tr **■**&******** & **&**** -fc 


FC19 

F5 

PUSH 

AF 

FC1A 

C5 

PUSH 

BC 

FC1B 

E5 

PUSH 

HL 

FC1C 

F5 

PUSH 

AF 

FC1D 

CD Dl F5 

CALL 

F5D1 

FC20 

Fl 

POP 

AF 


StringLänge 


String aus Stringb./Stack Löschen 
IN : HL: Zeiger auf Descriptor 
OUT: DE: Stringadresse; B: Länge 
Z=1, wenn gelöscht 
Descr. ggf. vom Stringstack 
Descr. nicht gelöscht ? 

Zeiger auf String 
Zeichen davor 
Zeiger vor Stringbereich 
vergleichen 

nicht letzter String im Ber. ? 
String länge lo 
Länge hi=0 
addieren 

als neuen Start der Strings 
Stringadresse 


Desc. ggf. v. Stringstack löschen 
IN : HL: Zeiger auf Descriptor 
OUT: HL wie IN 

DE: Stringadresse 
B: St ring länge 
Z=1, wenn vom Stack gelöscht 
Zeiger auf Descriptor 
String länge 

und Stringadresse 
aus Descriptor laden 


Adr. retten, Descr.-Zg. zurück 
Descriptor-Zeiger nach DE 
Stringdescriptorstackpointer 
-3 (Größe eines Eintrags) 

= Zeiger auf obersten 
Stringstackeintrag 
mit Descr.-Zeiger vergleichen 
ungleich ? 

neuen Stackpointer setzen 
Descriptor-Zeiger nach HL 
Zeiger auf String 


Platz für String reservieren 
IN : A: benötigte Länge 
OUT: Descriptor ab SBOBA 
DE: Zeiger auf Platz 


Länge 

Platz im Stringber. reserv. 
Länge zurück 
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FC21 

21 BA BO 

LD 

HL.BOBA 

FC24 

77 

LD 

(HL),A 

FC25 

23 

INC 

HL 

FC26 

73 

LD 

(HL),E 

FC27 

23 

INC 

HL 

FC28 

72 

LD 

(HL),D 

FC29 

ei 

POP 

HL 

FC2A 

CI 

POP 

BC 

FC2B 

Fl 

POP 

AF 

FC2C 

C9 

RET 



********************************** 


FC2D 

CD 

45 

FF 

CALL 

FF45 

FC30 

20 

06 


JR 

NZ,FC38 

FC32 

CD 

DA 

FB 

CALL 

FBDA 

FC35 

CD 

3E 

FC 

CALL 

FC3E 

FC38 

CD 

28 

F6 

CALL 

F628 

FC3B 

C3 

60 

FE 

JP 

FE60 

irit ** •k k •Är * it kitic k k ä k k kkkkk k k kkkkkkk ☆ 

FC3E 

C5 



PUSH 

BC 

FC3F 

D5 



PUSH 

DE 

FC40 

E5 



PUSH 

HL 

FC41 

2A 

8F 

B0 

LD 

HL,(B08F) 

FC44 

22 

8D 

B0 

LD 

(B08D),HL 

FC47 

21 

00 

00 

LD 

HL,0000 

FC4A 

22 

BD 

B0 

LD 

(B0BD),HL 

FC4D 

2A 

89 

AE 

LD 

HL,(AE89) 

FC50 

22 

BF 

B0 

LD 

(B0BF),HL 

FC53 

CD 

7B 

FC 

CALL 

FC7B 

FC56 

2A 

BD 

B0 

LD 

HL,(B0BD) 

FC59 

7C 



LD 

A, H 

FC5A 

B5 



OR 

L 

FC5B 

28 

1A 


JR 

Z,FC77 

FC5D 

56 



LD 

D,(HL) 

FC5E 

2B 



DEC 

HL 

FC5F 

5E 



LD 

E, (HL) 

FC60 

E5 



PUSH 

HL 

FC61 

2B 



DEC 

HL 

FC62 

4E 



LD 

C,(HL) 

FC63 

06 

00 


LD 

B,00 

FC65 

2A 

8D 

B0 

LD 

HL,(B08D) 

FC68 

EB 



EX 

DE,HL 

FC69 

09 



ADD 

HL,BC 

FC6A 

2B 



DEC 

HL 

FC6B 

CD 

F5 

FF 

CALL 

FFF5 

FC6E 

13 



INC 

DE 

FC6F 

El 



POP 

HL 

FC70 

73 



LD 

(HL),E 

FC71 

23 



INC 

HL 

FC72 

72 



LD 

(HL),D 

FC73 

1B 



DEC 

DE 

FC74 

EB 



EX 

DE,HL 

FC75 

18 

CD 


JR 

FC44 

FC77 

El 



POP 

HL 

FC78 

Dl 



POP 

DE 

FC79 

CI 



POP 

BC 

FC7A 

C9 



RET 



Zeiger für Descriptor 
Länge 

und Adresse 
eintragen 


Basic-Funktion FRE 

Typflag des FAC holen 
kein String ? 

sonst String vom Stringstack 
Garbage collection 
Größe des freien Platzes holen 
in positive REAL-Zahl wandeln 

Garbage collection 


Ende des Stringbereichs 
als Anfang setzen 
Flag f. keinen Descr. gefunden 
als Zeiger auf Descriptor-Ende 
Zeiger auf Ende der Felder 
als höchste Stringadresse 
hö. Str.-A. außerh. Stringber. 
Ende des zugeh. Descriptors 
keine Stringadr. außerhalb 
Stringbereich gefunden ? 
d. alle Strings wieder im Ber. 

Stringadresse aus 
Descriptor laden 
Zeiger auf Stringadresse 
Zeiger auf Länge 
String länge 
Länge hl=0 

Zeiger vor Stringbereich 
nach DE 

Länge zu Stringadr. addieren 
Zeiger auf letztes Stringbyte 
String unter Stringber. kop. 
neuer Zeiger auf String 
Zeiger auf Stringadresse 
neue Stringadresse 
in Descriptor eintragen 

Zeiger vor String 

als neuen Start der Strings 

nächsten String in Stringber. 
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********************* ************* 


FC7B 

21 

9C 

BO 

LD 

HL,B09C 

FC7E 

ED 

5B 

9A BO 

LD 

DE,(B09A) 

FC82 

CD 

B8 

FF 

CALL 

FFB8 

FC85 

28 

OF 


JR 

Z,FC96 

FC87 

7E 



LD 

A, (HL) 

FC88 

23 



INC 

HL 

FC89 

4E 



LD 

C, (HL) 

FC8A 

23 



INC 

HL 

FC8B 

46 



LD 

B, (HL) 

FC8C 

E5 



PUSH 

HL 

FC8D 

EB 



EX 

DE,HL 

FC8E 

B7 



OR 

A 

FC8F 

C4 

9C 

FC 

CALL 

NZ,FC9C 

FC92 

El 



POP 

HL 

FC93 

23 



INC 

HL 

FC94 

18 

E8 


JR 

FC7E 

FC96 

11 

9C 

FC 

LD 

DE,FC9C 

FC99 

C3 

74 

DA 

JP 

DA74 


********************************** 


FC9C 

2A 

8D 

BO 

LD 

HL,(B08D) 

FC9F 

CD 

BE 

FF 

CALL 

FFBE 

FCA2 

D8 



RET 

C 

FCA3 

2A 

BF 

BO 

LD 

HL,(B0BF) 

FCA6 

CD 

BE 

FF 

CALL 

FFBE 

FCA9 

DO 



RET 

NC 

FCAA 

EB 



EX 

DE,HL 

FCAB 

22 

BD 

BO 

LD 

(B0BD),HL 

FCAE 

ED 

43 

BF BO 

LD 

(B0BF),BC 

FCB2 

C9 



RET 



********************************** 


FCB3 

CD 

2D 

FF 

CALL 

FF2D 

FCB6 

D2 

52 

BD 

JP 

NC,BD52 

FCB9 

CD 

A3 

BD 

CALL 

BDA3 

FCBC 

22 

C2 

BO 

LD 

(B0C2),HL 

FCBF 

21 

C3 

BO 

LD 

HL,B0C3 

FCC2 

C9 



RET 



hoch. Stringadr. außerh. Ber. su. 
Zeiger auf Stringstack 
Stringstackpointer 
Stringstackende erreicht ? 
dann Variablen durchgehen 
Länge 

und Adresse aus 
Descriptor laden 

Zeiger in Stringstack 
als Descriptorende nach DE 
Länge <>0 ? 

dann ggf. als höchste Adresse 
Zeiger in Stringstack 
Zeiger auf nächsten Descriptor 
Stringstack weiter durchgehen 

Adresse der Routine 
sämtliche Stringv. durchgehen 

ggf. höchste Stringadresse setzen 
IN : BC: Stringadresse 

DE: Zeiger auf Descr.-Ende 
Zeiger auf Start der Strings 
mit Stringadresse vergleichen 
String schon im Stringber. ? 
bisherige höchste Stringadr. 
mit neuer Adresse vergleichen 
neue Adresse kleiner ? 

Zeiger auf Descriptor-Ende 
setzen 

Adr. als höchste Stringadresse 


Parameter für Dezimalwandl. holen 
IN : Zahl im FAC 
OUT: HL: Zeiger auf höchstwert. 
Byte der Zahl 
B: Vorzeichen 

C: Zahl der signifik. Bytes 
E: Kotimapos i t i on 
Test auf numerisch, Typ nach C 
REAL-Zahl ? 

Parameter f. Integerzahl holen 
Zahl in FAC speichern 
Zeiger auf höchstwertiges Byte 


********************************** Wsnd ’PsrBm f pos Intsgcr hol 

IN : Zahl im FAC 

OUT: HL: Zeiger auf höchstwert. Byte der Zahl 
B: Vorzeichen 

C: Zahl der signifik. Bytes 
E: Koimtapos i 1 1 on 


FCC3 

CD 

C2 

FE 

CALL 

FEC2 

UNT-Funktion, FAC nach Integer 

FCC6 

21 

C3 

BO 

LD 

HL,B0C3 

Zeiger auf höchstwertiges Byte 

FCC9 

C3 

A6 

BD 

JP 

BDA6 

Parameter f. pos. Integer hol. 
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Iririrk'k-k-kirk-kiclt'k'trk-kifk'k'kirifkitick-kirifkit'ititit 

Basic-Operator + 









IN : HL: Zeiger auf 1. Operanden 









C: Typ des 1. Operanden; 2. Operand 

im 

FAC 







OUT: Ergebnis im FAC 



FCCC 

CD 

15 

FE 

CALL 

FE15 

Typen der Operanden angleichen 



FCCF 

30 

09 


JR 

NC,FCDA 

REAL-Operanden ? 



FCD1 

CD 

AC 

BD 

CALL 

BDAC 

sonst Integeraddition 



FCD4 

DA 

OD 

FF 

JP 

C.FFOD 

kein Fehler ? dann Erg. n. FAC 



FCD7 

CD 

4F 

FE 

CALL 

FE4F 

Operanden nach REAL wandeln 



FCDA 

CD 

58 

BD 

CALL 

BD58 

REAL-Addition 



FCDD 

D8 



RET 

C 

kein Fehler ? 



FCDE 

C3 

F3 

CA 

JP 

CAF3 

sonst "Overflow" ausgeben 



it'kirk'k it Vr i: Irirfck -k ******** ** * ***** ** * 

Basic-Operator - 









IN : HL: Zeiger auf 1. Operanden 









C: Typ des 1. Operanden; 2. Operand 

im 

FAC 







OUT: Ergebnis im FAC 



F CE 1 

CD 

15 

FE 

CALL 

FE 15 

Typen der Operanden angleichen 



FCE4 

30 

09 


JR 

NC,FCEF 

REAL-Operanden ? 



FCE6 

CD 

B2 

BD 

CALL 

BDB2 

sonst Integersubtraktion 



FCE9 

DA 

OD 

FF 

JP 

C, FFOD 

kein Fehler ? dann Erg. n. FAC 



FCEC 

CD 

4F 

FE 

CALL 

FE4F 

Operanden nach REAL wandeln 



FCEF 

CD 

5E 

BD 

CALL 

BD5E 

REAL-Subtraktion 



FCF2 

D8 



RET 

C 

kein Fehler ? 



FCF3 

18 

E9 


JR 

FCDE 

sonst "Overflow" ausgeben 



*** •& * *•#***& ****** ********* ********* 

Basic-Operator * 









IN : HL: Zeiger auf 1. Operanden 









C: Typ des 1. Operanden; 2. Operand 

im 

FAC 







OUT: Ergebnis im FAC 



FCF5 

CD 

15 

FE 

CALL 

FE15 

Typen der Operanden angleichen 



FCF8 

30 

09 


JR 

NC,FD03 

REAL-Operanden ? 



FCFA 

CD 

B5 

BD 

CALL 

BDB5 

sonst Integermultiplikation 



FCFD 

DA 

OD 

FF 

JP 

C, FFOD 

kein Fehler ? dann Erg. n. FAC 



FDOO 

CD 

4F 

FE 

CALL 

FE4F 

Operanden nach REAL wandeln 



FD 03 

CD 

61 

BD 

CALL 

BD61 

REAL-Multiplikation 



FD06 

D8 



RET 

C 

kein Fehler ? 



FD07 

18 

D5 


JR 

FCDE 

sonst "Overflow" ausgeben 



********* ************** *********** 

numerischer Vergleich 









IN : HL: Zeiger auf 1. Operanden 









C: Typ des 1. Operanden; 2. Operand 

im 

FAC 







OUT: Ergebnis im FAC 









A: Vergleichsergebnis 









$00 f. gleich 

$FF f. 1. Operand größer 

$01 f. 1. Operand kleiner 



FD09 

CD 

15 

FE 

CALL 

FE15 

Typen der Operanden angleichen 



FDOC 

DA 

C4 

BD 

JP 

C,BDC4 

Integer ? d. Integervergleich 



FDOF 

C3 

6A 

BD 

JP 

BD6A 

sonst REAL-Vergleich 



********************************** 

Basic-Operator / 









IN : HL: Zeiger auf 1. Operanden 









1. Oper, oberh. Basic-Stack 

C: Typ des 1. Operanden 

2. Operand im FAC 









OUT: Ergebnis im FAC 



FD 12 

3A 

Ci 

BO 

LD 

A, (BOCl) 

Typflag des FAC (2. Operanden) 
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FD 15 

Bl 



OR 

C 

FD16 

FE 

02 


CP 

02 

FD18 

20 

05 


JR 

NZ.FD1F 

FD 1A 

CD 

4F 

FE 

CALL 

FE4F 

FD ID 

18 

03 


JR 

FD22 

FD 1 F 

CD 

15 

FE 

CALL 

FE15 

FD22 

EB 



EX 

DE,HL 

FD23 

D5 



PUSH 

DE 

FD24 

CD 

64 

BD 

CALL 

BD64 

FD27 

Dl 



POP 

DE 

FD28 

F5 



PUSH 

AF 

FD29 

01 

05 

00 

LD 

BC,0005 

FD2C 

CD 

F2 

FF 

CALL 

FFF2 

FD2F 

Fl 



POP 

AF 

FD30 

D8 



RET 

C 

FD31 

CA 

EA 

CA 

JP 

Z.CAEA 

FD34 

C3 

F3 

CA 

JP 

CAF3 


******☆£*******☆*****&■***☆*☆****** 


FD37 

CD 

9A 

FE 

CALL 

FE9A 

FD3A 

EB 



EX 

DE,HL 

FD3B 

CD 

B8 

BD 

CALL 

BDB8 

FD3E 

DA 

OD 

FF 

JP 

C,FF0D 

FD41 

28 

10 


JR 

Z,FD53 

FD43 

21 

00 

80 

LD 

HL,8000 

FD46 

C3 

60 

FE 

JP 

FE60 


•k kkkkk k k k k k ■&☆☆■** ■& k ☆☆☆#☆*** ?5r ***** k 


FD49 

CD 

9A 

FE 

CALL 

FE9A 

FD4C 

EB 



EX 

DE,HL 

FD4D 

CD 

BB 

BD 

CALL 

BDBB 

FD50 

DA 

OD 

FF 

JP 

C,FF0D 

FD53 

IE 

OB 


LD 

E, OB 

FD55 

C3 

94 

CA 

JP 

CA94 


☆ *☆***☆#**#☆#**☆*#☆☆ ft ☆£■•&**** **#☆** 


FD58 

CD 

9A 

FE 

CALL 

FE9A 

FD5B 

TB 



LD 

A,E 

FD5C 

A5 



AND 

L 

FD5D 

6F 



LD 

L,A 

FD5E 

7C 



LD 

A,H 

FD5F 

A2 



AND 

D 

FD60 

C3 

OC 

FF 

JP 

FFOC 


Typflag des 1. Operanden 
nicht beide Integer ? 
dann Typen angleichen 
Operanden nach REAL wandeln 

Typen angleichen (auf REAL!) 

Operanden vertauschen 

Zeiger auf 2. Operanden im FAC 

REAL-Di Vision 

Zeiger auf FAC 

Fehlerflags retten 

Größe des FAC 

Ergebnis nach FAC kopieren 

Fehlerflags 

kein Fehler ? 

ggf. "Division by zero" 

"Overflow" ausgeben 

Basic-Operator \ 

IN : HL: Zeiger auf 1. Operanden 
C: Typ des 1. Operanden 
2. Operand im FAC 
OUT: Ergebnis im FAC 

Operanden nach Integer 
Operanden vertauschen 
Integerdivision 

kein Fehler ? d. Erg. nach FAC 
ggf. "Division by zero" 
Überlauf ? dann 32768 
in positive REAL-Zahl wandeln 

Basic-Operator MOD 
IN : HL: Zeiger auf 1. Operanden 
C: Typ des 1. Operanden 
2. Operand im FAC 
OUT: Ergebnis im FAC 

Operanden nach Integer 
Operanden vertauschen 
Integer-Divisionrest berechnen 
kein Fehler ? d. Erg. nach FAC 
Nr. für "Division by zero" 
Fehler ausgeben 

Basic-Operator AND 
IN : HL: Zeiger auf 1. Operanden 
C: Typ des 1. Operanden 
2. Operand im FAC 
OUT: Ergebnis im FAC 

Operanden nach Integer 

AND-Verknüpfung 


Ergebnis nach FAC 
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** * **** ** * **** * **** ** ** * ******** * * 


FD63 

CD 

9A FE 

CALL 

FE9A 

FD66 

7B 


LD 

A,E 

FD67 

B5 


OR 

L 

FD68 

6F 


LD 

L,A 

FD 69 

7A 


LD 

A»D 

FD6A 

B4 


OR 

H 

FD6B 

18 

F3 

JR 

FD60 


********************************** 


FD6D 

CD 

9A 

FE 

CALL 

FE9A 

FD70 

7B 



LD 

A.E 

FD71 

AD 



XOR 

L 

FD72 

6F 



LD 

L.A 

FD73 

7C 



LD 

A,H 

FD 74 

AA 



XOR 

D 

FD75 

18 

E9 


JR 

FD60 

********************************** 

FD77 

E5 



PUSH 

HL 

FD78 

CD 

8D 

FE 

CALL 

FE8D 

FD7B 

TD 



LD 

A.L 

FD7C 

2F 



CPL 


FD7D 

6F 



LD 

L.A 

FD7E 

7C 



LD 

A,H 

FD7F 

2F 



CPL 


FD80 

CD 

OC 

FF 

CALL 

FFOC 

FD83 

El 



POP 

HL 

FD84 

C9 



RET 



********************************** 


FD85 

CD 

A3 

FD 

CALL 

FDA3 

FD88 

FO 



RET 

P 

FD89 

E5 



PUSH 

KL 

FD8A 

C5 



PUSH 

BC 

FD8B 

CD 

2D 

FF 

CALL 

FF2D 

FD8E 

30 

OD 


JR 

NC,FD9D 

FD90 

CD 

C7 

BD 

CALL 

BDC7 

FD 93 

22 

C2 

BO 

LD 

(B0C2),HL 

FD 96 

D5 



PUSH 

DE 

FD 97 

D4 

60 

FE 

CALL 

NC.FE60 

FD9A 

Dl 



POP 

DE 

FD9B 

18 

03 


JR 

FDAO 

FD9D 

CD 

6D 

BD 

CALL 

BD6D 

FDAO 

CI 



POP 

BC 

FDA1 

El 



POP 

HL 

FDA2 

C9 



RET 



Basic-Operator OR 
IN : HL: Zeiger auf 1. Operanden 
C: Typ des 1. Operanden 
2. Operand im FAC 
OUT: Ergebnis im FAC 

Operanden nach Integer 

OR-Verknüpfung 


Ergebnis nach FAC 

Basic-Operator XOR 
IN : HL: Zeiger auf 1. Operanden 
C: Typ des 1. Operanden 
2. Operand im FAC 
OUT: Ergebnis im FAC 

Operanden nach Integer 

XOR-Verknüpfung 


Ergebnis nach FAC 

Basic-Operator NOT 
Basic-PC 

CINT, FAC nach Integer nach HL 
HL komplementieren 


Ergebnis nach FAC 
Basic-PC 


Basic-Funktion ABS 
IN/OUT: Zahl im FAC 
OUT: HL: Integerzahl bzw. 

Zeiger auf REAL-Zahl 
Vorzeichen von FAC holen 
positiv ? dann fertig 
Zeiger bzw. Zahl retten 

Typflag und Argument holen 
REAL-Zahl ? 

Integer-Vorzeichenwechsel 
Integerwert wieder speichern 

Überlauf ? dann nach pos. REAL 


REAL -Vorzeichenwechsel 
Zahl bzw. Zeiger auf Zahl 
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'k-kk’kk-kirkirk'k'k-kirkirk-k-k-k'k’kkirkifk'k-kk-kkirk 


FDA3 

CD 

2D 

FF 

CALL 

FF2D 

FDA6 

DA 

CA 

BD 

JP 

C,BDCA 

FDA9 

C5 



PUSH 

BC 

FDAA 

CD 

70 

BD 

CALL 

BD70 

FDAD 

CI 



POP 

BC 

FDAE 

C9 



RET 


•k'k'k'kk'k'k'k ********* ■*■**■*■ ************* 


FDAF 

E5 



PUSH 

HL 

FDB0 

79 



LD 

A, C 

FDBl 

CD 

4B 

FF 

CALL 

FF4B 

FDB4 

Dl 



POP 

DE 

FDB5 

CD 

2D 

FF 

CALL 

FF2D 

FDB8 

78 



LD 

A, B 

FDB9 

30 

OB 


JR 

NC,FDC6 

FDBB 

B7 



OR 

A 

FDBC 

F0 



RET 

P 

FDBD 

CD 

6A 

FE 

CALL 

FE6A 

FDC0 

CD 

CE 

FD 

CALL 

FDCE 

FDC3 

C3 

8D 

FE 

JP 

FE8D 

FDC6 

B7 



OR 

A 

FDC7 

20 

05 


JR 

NZ,FDCE 

FDC9 

11 

49 

BD 

LD 

DE,BD49 

FDCC 

18 

26 


JR 

FDF4 

FDCE 

D5 



PUSH 

DE 

FDCF 

C5 



PUSH 

BC 

FDD0 

78 



LD 

A,B 

FDD 1 

CD 

55 

BD 

CALL 

BD55 

FDD4 

DC 

49 

BD 

CALL 

C,BD49 

FDD7 

78 



LD 

A,B 

FDD8 

CI 



POP 

BC 

FDD9 

Dl 



POP 

DE 

FDDA 

30 

08 


JR 

NC,FDE4 

FDDC 

CD 

43 

BD 

CALL 

BD43 

FDDF 

AF 



XOR 

A 

FDE0 

90 



SUB 

B 

FDE1 

C3 

55 

BD 

JP 

BD55 

FDE4 

EB 



EX 

DE,HL 

FDE5 

C3 

LU 

FF 

JP 

FF4E 

* * * * * * * ** * * * * ** *** * ***** * ******* 4t * 

FDE8 

11 

4C 

BD 

LD 

DE,BD4C 

FDEB 

18 

03 


JR 

FDF0 


Vorzeichen von FAC holen 
IN : Zahl im FAC 
OUT: A: Vorzeichen 

$01 ( S=0 für positiv 
$00, S=0 für Zah1=0 
$FF, S=1 für negativ 
Typflag und Wert holen 
Integer ? 

REAL-Vorzeichen holen 


Zahl runden, nach FAC 
IN : HL: Zeiger auf Zahl 
C: Typ der Zahl 
B: Rundungsexponent 
Zeiger auf Zahl 
Typ der Zahl 
Zahl in FAC kopieren 
Zeiger auf Zahl 
Typ und Wert holen 
Rundungsexponent 
REAL-Zahl ? 

Rundungsexponent positiv ? 
dann fertig, da Integer-Zahl 
Zahl nach REAL 
REAL-Wert runden 
CINT, FAC wieder nach Integer 
Rundungsexponent <>0 ? 
dann entsprechend runden 
Routine REAL n. 4-Byte-Integer 
FAC a. Letzte Vork.-St. runden 

Zeiger auf ursprüngliche Zahl 

Rundungsexponent retten 

Rundungsexponent 

Zahl m. 10 A R.-Exp. multipliz. 

o.k. ? d. nach 4-Byte-Integer 

Vorzeichen 

Rundungsexponent 

Zeiger auf ursprüngliche Zahl 

Fehler b. Mult. ? d. urspr. Z. 

4-Byte-Integer wieder n. REAL 

Null 

- Rundungsexponent 

Zahl durch 10 A R.-Exp. teilen 

Zeiger auf ursprüngliche Zahl 
Zahl wieder nach FAC 

Basic-Funktion FIX 
Adresse für FLO FIX 
Funktion ausführen 
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********************************** 


FDED 

11 

4F 

BD 

LD 

DE,BD4F 

FDFO 

CD 

2D 

FF 

CALL 

FF2D 

FDF3 

D8 



RET 

C 

FDF4 

CD 

FB 

FF 

CALL 

FFFB 

FDF7 

DO 



RET 

NC 

FDF8 

3A 

CI 

BO 

LD 

A,(BOCl) 

FDFB 

CD 

06 

FE 

CALL 

FE06 

FDFE 

D8 



RET 

C 

FDFF 

CD 

ID 

FF 

CALL 

FFlD 

FE02 

78 



LD 

A,B 

FE03 

C3 

43 

BD 

JP 

BD43 


********************************** 


FE06 

79 


LD 

A, C 

FE07 

FE 

03 

CP 

03 

FE09 

DO 


RET 

NC 

FEOA 

7E 


LD 

A, <HL) 

FEOB 

23 


INC 

HL 

FEOC 

66 


LD 

H,(HL) 

FEOD 

6F 


LD 

L, A 

FEOE 

CD 

A9 BD 

CALL 

BDA9 

FE11 

DO 


RET 

NC 

FE 12 

C3 

0D FF 

JP 

FFOD 


********************************** 


FEI 5 

79 



LD 

A, C 

F E16 

FE 

03 


CP 

03 

FE18 

28 

32 


JR 

Z,FE4C 

FElA 

3A 

CI 

BO 

LD 

A, (B0C1) 

FE1D 

FE 

03 


CP 

03 

FEI F 

28 

2B 


JR 

Z,FE4C 

FE21 

B9 



CP 

C 

FE22 

28 

17 


JR 

Z,FE3B 

FE24 

30 

OC 


JR 

NC.FE32 

FE26 

E5 



PUSH 

HL 

FE27 

21 

CI 

BO 

LD 

HL,B0C1 

FE2A 

71 



LD 

(HL),C 

FE2B 

23 



INC 

HL 

FE2C 

CD 

63 

FE 

CALL 

FE63 

FE2F 

Dl 



POP 

DE 

FE30 

B7 



OR 

A 

FE31 

C9 



RET 


FE32 

CD 

63 

FE 

CALL 

FE63 

FE35 

EB 



EX 

DE,HL 


Basic-Funktion INT 
Adresse für FLO INT 
Typflag und Wert holen 
Integer ? dann fertig 
Routine ausführen 
Zahl zu groß f. Nachkommast. ? 
Typ des FAC (??) 

Zahl nach Integer 

nicht zu groß für Integer ? 

Typ und Zeiger auf FAC 
Vorzeichen 

4-Byte-Integer nach REAL 

Integer m. Vorzeichen n. Integer 
IN : HL: Zeiger auf Integerzahl 
C: Länge der Integerzahl 
B: Vorzeichen 

OUT: CY=0 bei zu groß f. Integer 
Länge der IntegerzahL 
zu viele Bytes f. Integer ? 
dann zurück 
Integerzahl 
laden 


Vorzeichen setzen ? 

Zahl zu groß ? 
sonst Integer nach FAC 

Typen angleichen, Werte holen 
IN : HL: Zeiger auf 1. Operanden 
C: Typ des Operanden 
2. Operand im FAC 
OUT: CY=0 für REAL 

DE: Zeiger auf 1. Operanden 
HL: Zeiger auf 2. Operanden 
CY=1 für Integer 
DE: 1. Operand 
HL: 2. Operand 
Typ des 1. Operanden 
String ? 
dann Fehler 
Typ des 2. Operanden 
String ? 
dann Fehler 
Typen vergleichen ? 
gleich ? dann Werte/Zeiger h. 
2. Operand REAL, 1. Integer ? 
Zeiger auf 1. Operand 
Zeiger auf Typflag des FAC 
Typflag auf REAL setzen 
Zeiger auf FAC (2. Operanden) 
nach REAL wandeln 
Zeiger auf 1. Operanden 
CY=0 für REAL 

1. Operand nach REAL wandeln 
Zeiger auf 1. Operanden n. DE 
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FE36 

21 

C2 

BO 

LD 

HL,B0C2 

FE39 

B7 



OR 

A 

FE3A 

C9 



RET 


FE3B 

EE 

02 


XOR 

02 

FE3D 

28 

05 


JR 

Z,FE44 

FE3F 

EB 



EX 

DE, KL 

FE40 

21 

C2 

BO 

LD 

HL.B0C2 

FE43 

C9 



RET 


FE44 

5E 



LD 

E,(HL) 

FE45 

23 



INC 

HL 

FE46 

56 



LD 

D,(HL) 

FE47 

2A 

C2 

BO 

LD 

KL,(B0C2) 

FE4A 

37 



SCF 


FE4B 

C9 



RET 


FE4C 

C3 

40 

FF 

JP 

FF40 


** ** * * * ** ************************ * 


FE4F 

2A 

C2 

BO 

LD 

HL, (B0C2) 

FE52 

CD 

6A 

FE 

CALL 

FE6A 

FE55 

2A 

8B 

BO 

LD 

HL,(B08B) 

FE58 

CD 

63 

FE 

CALL 

FE63 

FE5B 

EB 



EX 

DE,HL 

FE5C 

21 

C2 

BO 

LD 

HL,B0C2 

FE5F 

C9 



RET 



********************************** 


FE60 AF XOR A 

FE61 18 08 JR FE6B 

********************************** 


FE63 

5E 

LD 

E,(HL) 

FE64 

23 

INC 

HL 

FE65 

56 

LD 

D,(KL) 

FE66 

2B 

DEC 

HL 

FE67 

7A 

LD 

A,D 

FE68 

18 08 

JR 

FE72 


********************************** 


FE6A 

7C 

LD 

A, H 

FE6B 

EB 

EX 

DE,HL 

FE6C 

21 Ci BO 

LD 

HL,B0C1 

FE6F 

36 05 

LD 

(HL),05 

FE71 

23 

INC 

HL 

FE72 

EB 

EX 

DE,HL 


Zeiger auf 2. Operanden (FAC) 
CY=0 für REAL 

beide Integer ? 
dann laden 

Zeiger auf 1. Operanden n. DE 
Zeiger auf 2. Operanden (FAC) 

1. Operanden 
laden, nach DE 

2. Operanden aus FAC nach HL 
CY=1 für Integer 


"Type mismatch" 

Integeroperanden n. REAL wandeln 
IN : 1. Operand auf Basic-Stack 
2. Operand im FAC 
OUT: DE: Zeiger auf 1. Operanden 
HL: Zeiger auf 2. Operanden 
2. Operanden aus FAC laden 
nach REAL in FAC wandeln 
Zg. auf Integer in Basic-Stack 
nach REAL wandeln 
Adresse d. 1. Operanden n. DE 
Adresse des 2. Operanden (FAC) 


positive Integerzahl nach REAL 
IN : HL: Integerzahl 
OUT: REAL-Zahl im FAC 

DE: Zeiger auf REAL-Zahl 
positives Vorzeichen 


Integer nach REAL wandeln 
IN : HL: Zeiger auf Integerzahl 
und Platz für REAL-Zahl 
OUT: HL: Zeiger auf REAL-Zahl 

Integerwert laden, nach DE 

Zeiger als Platz für REAL-Zahl 
Hi-Byte als Vorzeichen 


Integer nach REAL wandeln 
IN : HL: Integerzahl 
OUT: REAL-Zahl im FAC 

HL: Zeiger auf REAL-Zahl 
Hi-Byte als Vorzeichen 
Integerwert nach DE 
Zeiger auf Typflag des FAC 
Typ für REAL setzen 
Zeiger auf FAC 

Zeiger nach DE, Wert nach HL 
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FE73 

F5 



PUSH 

AF 

Vorzeichen 

FE74 

B7 



OR 

A 

Vorzeichen negativ ? 

FE75 

FC 

C7 

BD 

CALL 

M, BDC7 

dann invertieren (Betrag ber.) 

FE78 

Fl 



POP 

AF 

Vorzeichen 

FE79 

C3 

40 

BD 

JP 

BD40 

Integer m. Vorz. nach REAL 


********************************** 4-Byte-Integer nach REAL 

IN : HL; Lo-Word 
DE: Hi-Word 


FE7C 

22 

C2 

BO 

LD 

(B0C2),HL 

Lo-Word 

FE7F 

EB 



EX 

DE,HL 


FE80 

22 

C4 

BO 

LD 

(B0C4),HL 

und Hi-Word in FAC speichern 

FE83 

21 

CI 

BO 

LD 

HL,BOC1 

Zeiger auf Typflag des FAC 

FE86 

36 

05 


LD 

(HL),05 

Typflag auf REAL 

FE88 

23 



INC 

HL 

Zeiger auf FAC 

FE89 

AF 



XOR 

A 

Vorzeichen positiv 

FE8A 

C3 

43 

BD 

JP 

BD43 

4-Byte-Integer nach REAL 

********************************** 

Basic-Funktion CINT 

FE8D 

CD 

93 

FE 

CALL 

FE93 

REAL in FAC nach Integer 

FE90 

D8 



RET 

C 

kein Fehler ? 

FE91 

18 

3F 


JR 

FED2 

sonst "Overflow" 

********************************** 

REAL im FAC nach Integer im FAC 

FE93 

CD 

A5 

FE 

CALL 

FEA5 

REAL im FAC nach Integer in 1 

FE96 

22 

C2 

BO 

LD 

(B0C2),HL 

Integer in FAC speichern 

FE99 

C9 



RET 




********************************** Operanden nach Inteser wandeln 

IN : HL: Zeiger auf 1. Operanden 

C: Typ des 1. Operanden; 2. Operand im FAC 
OUT: DE: 1. Operand 

HL/FAC: 2. Operand 


FE9A 

79 

LD 

A, C 

Typ des 1. Operanden 

FE9B 

CD AC FE 

CALL 

FEAC 

1. Operanden nach Integer 

FE9E 

EB 

EX 

DE,HL 

Operanden vertauschen 

FE9F 

DC A5 FE 

CALL 

C,FEA5 

ggf. 2. Operanden nach Integer 

FEA2 

D8 

RET 

C 

kein Fehler ? 

FEA3 

18 2D 

JR 

FED2 

sonst "Overflow" 


********************************** 


FEA5 

21 

CI 

B0 

LD 

HL.B0C1 

FEA8 

7E 



LD 

A,(HL) 

FEA9 

36 

02 


LD 

(HL),02 

FEAB 

23 



INC 

HL 

FEAC 

FE 

03 


CP 

03 

FEAE 

38 

0D 


JR 

C, FEBD 

FEBO 

CA 

40 

FF 

JP 

Z.FF40 

FEB3 

C5 



PUSH 

BC 

FEB4 

CD 

46 

BD 

CALL 

BD46 

FEB7 

47 



LD 

B, A 

FEB8 

DC 

A9 

BD 

CALL 

C,BDA9 

FEBB 

CI 



POP 

BC 

FEBC 

C9 



RET 


FEBD 

7E 



LD 

A,(HL) 


FAC nach Integer 
IN : Zahl im FAC 
OUT: HL: Integerzahl 
CY=0 für Überlauf 

Zeiger auf Typ des FAC 
Typ des FAC 
neuer Typ = Integer 
Zeiger auf FAC 

Integer im FAC ? dann laden 
String ? dann "Type mismatch" 

REAL nach Integer m. Vorz. 
Vorzeichen 

Integer m. Vorz. nach Integer 


Integerzahl 
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FEBE 

23 



INC 

HL 

FEBF 

66 



LD 

H, (HL) 

FECO 

6F 



LD 

L,A 

FEC1 

C9 



RET 


********************************** 

FEC2 

CD 

2D 

FF 

CALL 

FF2D 

FEC5 

D8 



RET 

C 

FEC6 

CD 

46 

BD 

CALL 

BD46 

FEC9 

30 

07 


JR 

NC,FED2 

FECB 

47 



LD 

B.A 

FECC 

FC 

A9 

BD 

CALL 

M,BDA9 

FECF 

DA 

0D 

FF 

JP 

C,FFOD 

FED2 

IE 

06 


LD 

E,06 

FED4 

C3 

94 

CA 

JP 

CA94 

********************************** 

FED7 

E5 



PUSH 

HL 

FED8 

D5 



PUSH 

DE 

FED9 

C5 



PUSH 

BC 

FEDA 

21 

CI 

BO 

LD 

HL,B0C1 

FEDD 

BE 



CP 

(HL) 

FEDE 

C4 

i r\ 
LU 

FE 

CALL 

NZ,FEE5 

FEE1 

CI 



POP 

BC 

FEE2 

Dl 



POP 

DE 

FEE3 

El 



POP 

HL 

FEE4 

C9 



RET 


********************************** 

FEE5 

D6 

03 


SUB 

03 

FEE7 

38 A4 


JR 

C,FE8D 

FEE9 

CA 

3C 

FF 

JP 

Z,FF3C 


********************************** 


FEEC 

CD 

2D 

FF 

CALL 

FF2D 

FEEF 

DA 

6A 

FE 

JP 

C,FE6A 

FEF2 

C9 



RET 


********************************** 

FEF3 

E5 



PUSH 

HL 

FEF4 

21 

00 

00 

LD 

HL,0000 

FEF7 

22 

C2 

B0 

LD 

(B0C2),HL 

FEFA 

22 

C4 

B0 

LD 

(B0C4),HL 

FEFD 

22 

C5 

B0 

LD 

(B0C5),HL 

FF00 

El 



POP 

HL 

F F 01 

C9 



RET 


********************************** 

F F 02 

CD 

A3 

FD 

CALL 

FDA3 

********************************** 

FF05 

6F 



LD 

L.A 

FF06 

87 



ADD 

A 

FF07 

9F 



SBC 

A 

F F OS 

18 

02 


JR 

FF0C 


aus FAC laden, 
nach HL 


Basic-Funktion UNT 

Typflag und Wert holen 
Integer ? 

REAL nach Integer m. Vorz. 
Fehler ? dann "Overflow 11 
Vorzeichen negativ ? 
d. Integer m. Vorz. n. Integer 
kein Fehler ? d. Erg. nach FAC 
Nr. für "Overflow" 

Fehler ausgeben 

FAC-Typ angleichen 
IN : A: gewünschter Typ 


Zeiger auf FAC-Typ 
Typen nicht gleich ? 
dann FAC angleichen 


FAC-Typ angleichen 
IN : A: gewünschter Typ 

Integer gew. ? dann CINT 
String gew. ? d. Test auf Str. 

Basic-Funktion CREAL 
OUT: HL: Zeiger auf REAL-Zahl 
Typ und Wert/Zeiger holen 
Integer ? dann nach REAL 


FAC löschen (FAC=0) 


Basic-Funktion SGN 

Vorzeichen von FAC holen 

Byte in A nach Integer in FAC 
Byte ins Lo-Byte 
Vorzeichen ins Carry 
Vorzeichen erweitern (0/$FF) 
und ins Hi-Byte 
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********************************** 


FFOA 

6F 



LD 

L/A 

FFOB 

AF 



XOR 

A 

FFOC 

67 



LD 

H,A 

I ********************************** 

FFOD 

22 

C2 

BO 

LD 

<B0C2),HL 

FF10 

3E 

02 


LD 

A,02 

FF12 

32 

Ci 

BO 

LD 

(B0C1),A 

FF15 

C9 



RET 


********************************** 

FF16 

21 

C2 

BO 

LD 

HL,B0C2 

FF19 

3E 

05 


LD 

A,05 

FF1B 

18 

F5 


JR 

F Fl 2 

********************************** 


FF1D 

21 

CI 

BO 

LD 

HL,B0C1 

FF20 

4E 



LD 

C,(HL) 

FF21 

23 



INC 

HL 

FF22 

C9 



RET 


********************************** 

FF23 

3A 

CI 

BO 

LD 

A,(BOC1) 

FF26 

C9 



RET 


********************************** 


FF27 

3a 

CI BO 

LD 

A,(B0C1) 

FF2A 

FE 

03 

CP 

03 

FF2C 

C9 


RET 


********************************** 


FF2D 

3A 

CI 

BO 

LD 

A, (BOCl) 

FF30 

FE 

03 


CP 

03 

FF32 

28 

oc 


JR 

Z,FF40 

FF34 

2A 

C2 

BO 

LD 

HL,(B0C2) 

FF37 

D8 



RET 

C 

FF38 

21 

C2 

BO 

LD 

HL.B0C2 

FF3B 

C9 



RET 


********************************** 

FF3C 

CD 

45 

FF 

CALL 

FF45 

FF3F 

C8 



RET 

Z 

FF40 

IE 

OD 


LD 

E,0D 

FF42 

C3 

94 

CA 

JP 

CA94 


pos. Byte in A n. Integer in FAC 
Lo-Byte 
Null 

als Hi-Byte setzen 

Integer in HL nach FAC 

Integerwert in FAC speichern 
Typ für Integer 
als FAC-Typ setzen 


FAC auf REAL, Zeiger nach HL 
Zeiger auf FAC 
Typ für REAL 
als FAC-Typ setzen 

Zeiger auf FAC und Typ holen 
OUT: HL: Zeiger auf FAC 
C: Typ des FAC 
Zeiger auf Typ 
Typ laden 
Zeiger auf FAC 


Typ des FAC nach A holen 


Typ des FAC holen, Flags setzen 
OUT: A: Typ des FAC 


CY=1, 

z=o. 

wenn 

Integer 

CY=0, 

Z=1» 

wenn 

String 

CY=0, 

z=o, 

wenn 

REAL 


numerischen Wert aus FAC holen 
OUT: CY=1, wenn Intger 

HL: Integerwert aus FAC 
CY=0, wenn REAL 
HL: Zeiger auf REAL im FAC 
Typ des FAC 
String ? 

dann "Type mismatch" 

FAC-Wert laden 
Integer ? 

sonst Zeiger auf FAC 


Test auf String, sonst Fehler 
Typ holen, Flags setzen 
String ? 

Nr. für "Type mismatch" 
Fehler ausgeben 
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********************************** Typ des FAC holen FI 39 S setzen 

OUT: A: Typ des FAC 

CY=1, 1=0, wenn Integer 
CY=0, Z=1, wenn String 
CY=0, Z=0, wenn REAL 


FF45 

3A 

Ci BO 

LD 

A,(B0C1) 

FF48 

FE 

03 

CP 

03 

FF4A 

C9 


RET 



********************************** 


Wert nach FAC kopieren 
IN : KL: Zeiger auf Wert 
A: Typ 

OUT: KL: Zeiger nach Wert 


FF4B 

32 

CI 

BO 

LD 

(B0C1),A 

FF4E 

11 

C2 

BO 

LD 

DE,B0C2 

FF51 

18 

13 


JR 

FF 66 


********************************** 


FF53 

D5 



PUSH 

DE 

FF54 

E5 



PUSH 

KL 

FF55 

3A 

CI 

BO 

LD 

A,(BOCl) 

FF58 

4F 



LD 

C,A 

FF59 

CD 

BO 

F5 

CALL 

F5B0 

FF5C 

CD 

62 

FF 

CALL 

FF 62 

FF5F 

El 



POP 

HL 

FF60 

Dl 



POP 

DE 

FF61 

C9 



RET 



********************************** 


FF62 

EB 



EX 

DE,HL 

FF63 

21 

C2 

BO 

LD 

HL,B0C2 

FF 66 

C5 



PUSH 

BC 

FF67 

3A 

Ci 

BO 

LD 

A,(BOCl) 

FF 6 A 

4F 



LD 

C,A 

FF 6 B 

06 

00 


LD 

B,00 

FF 6 D 

ED 

BO 


LD IR 


FF 6 F 

Ci 



POP 

BC 

FF70 

C9 



RET 



Typ setzen 

Zeiger auf FAC 

Wert nach FAC kopieren 

FAC auf Basic-Stack 
OUT: C: Typ des FAC 


Typ des FAC als Zahl der Bytes 
Typ nach C 

Platz auf Basic-Stack reserv. 
FAC dorthin kopieren 


FAC kopieren 
IN : HL: Zieladresse 
Zieladresse nach DE 
Zeiger auf FAC 

Zahl der Bytes im FAC 
als Länge lo 
Länge hi=0 
Wert kopieren 


********************************** Tost auf Buchst 3 h>s 


IN : A: Zeichen 

CY=1, wenn Buchstabe 


FF71 

CD 8 A FF 

CALL 

FF 8 A 

auf Großschrift forcieren 

FF74 

FE 41 

CP 

41 

kleiner "A" ? 

FF76 

3F 

CCF 



FF77 

DO 

RET 

NC 

dann kein Buchstabe 

FF78 

FE 5B 

CP 

5B 

>= "z "+1 ? 

FF7A 

C9 

RET 




********************************** 


FF7B CD 71 FF CALL FF71 

FF7E D 8 RET C 


Test auf Buchstabe, Ziffer, 

IN : A: Zeichen 
OUT: CY=1 f. Buchst., Ziffer, 
Test auf Buchstabe 
Buchstabe ? 
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********* -jär ik ***** -jSr ***** iSr ***** Ä ** ☆ 


FF7F 

FE 2E 

CP 

2E 

FF81 

37 

SCF 


FF82 

C8 

RET 

Z 


********************************** 


FF83 

FE 

30 

CP 

30 

FF85 

3F 


CCF 


FF86 

DO 


RET 

NC 

FF87 

FE 

3A 

CP 

3A 

FF89 

C9 


RET 


*********************************** 

FF8A 

FE 

61 

CP 

61 

FF8C 

D8 


RET 

C 

FF8D 

FE 

7B 

CP 

7B 

FF8F 

DO 


RET 

NC 

FF90 

D6 

20 

SUB 

20 

FF92 

C9 


RET 



Test auf Ziffer oder Dezimalpunkt 

IN : A: Zeichen 

OUT: CY=1 f. Ziffer oder 

II II 7 

dann CY=1, zurück 

Test auf Ziffer 
IN : A: Zeichen 
OUT: CY=1 f. Ziffer 
kleiner "0" ? 

dann keine Ziffer 
>= "911+1 ? 


auf Großschrift forcieren 
IN/OUT: A: Zeichen 
kleiner "a" ? 
dann zurück 
>= »z M +1 ? 
dann zurück 

nach Großschrift wandeln 


********************************** 


FF93 

F5 

PUSH 

AF 

FF94 

C5 

PUSH 

BC 

FF95 

46 

LD 

B.(HL) 

FF96 

23 

INC 

HL 

FF97 

E5 

PUSH 

HL 

FF98 

23 

INC 

HL 

FF99 

23 

INC 

HL 

FF9A 

BE 

CP 

(HL) 

FF9B 

23 

INC 

HL 

FF9C 

28 04 

JR 

Z,FFA2 

FF9E 

05 

DEC 

B 

FF9F 

20 F7 

JR 

NZ.FF98 

FFA1 

E3 

EX 

(SP),HL 

FFA2 

Fl 

POP 

AF 

FFA3 

7E 

LD 

A, (HL) 

FFA4 

23 

INC 

HL 

FFA5 

66 

LD 

H, ( HL ) 

FFA6 

6 F 

LD 

L,A 

FFA7 

Ci 

POP 

BC 

FFA8 

Fl 

POP 

AF 

FFA9 

C9 

RET 



Adr. aus Tabelle entsp. Zeichen 
IN : HL: Zeiger auf Tabelle 
A: Zeichen 
OUT: HL: Adresse 


Zahl der Tabelleneinträge 
Zeiger auf 1. Adr. (Default) 
retten 
Adresse 
übergehen 

ges. Zeichen gefunden ? 

Zeiger auf zugehörige Adresse 
gefunden ? dann Adresse laden 
Zähler für Tabelleneinträge 
weitere Einträge ? 

Zeiger auf Default-Adr. zurück 
Adresse vom Stack löschen 
Adresse entspr. Zeichen 
bzw. Default-Adresse 
aus Tabelle laden, nach HL 


******&***********'****■********■&**& Byte in Tebe 11 e suchen 

IN : HL: Zeiger auf Tabelle 
A: gesuchtes Byte 
OUT: CY=1, wenn gefunden 
dann: 

HL: Zeiger nach Byte in Tab. 


FFAA C5 


PUSH BC 
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FFAB 

4F 


LD 

C,A 

FFAC 

7E 


LD 

A,(HL) 

FFAD 

B7 


OR 

A 

FFAE 

28 

05 

JR 

Z,FFB5 

F F BO 

23 


INC 

HL 

FFB1 

B9 


CP 

C 

FFB2 

20 

F8 

JR 

NZ,FFAC 

FFB4 

37 


SCF 


FFB5 

79 


LD 

A# C 

FFB6 

CI 


POP 

BC 

FFB7 

C9 


RET 



********************************** 


FFB8 

7C 

LD 

A,H 

FFB9 

92 

SUB 

D 

FFBA 

CO 

RET 

NZ 

FFBB 

7D 

LD 

A/L 

FFBC 

93 

SUB 

E 

FFBD 

C9 

RET 



gesuchtes Byte 
Byte aus Tabelle 
Tabellenende ? 
dann nicht gefunden 

Byte=gesuchtes Byte ? 
nein ? dann weiter suchen 
CY=1 für gefunden 
Suchbyte wieder nach A 


HL und DE vergleichen 
OUT: CY=0, Z=1, wenn gleich 

CY=0, Z=0, wenn HL größer 
CY=1, Z=0, wenn DE größer 


********************************** 


HL und BC vergleichen 
OUT: CY=0, Z=1, wenn gleich 

CY=0, Z=0, wenn HL größer 

CY=1, Z=0, wenn BC größer 


FFBE 

7C 

LD 

A,H 


FFBF 

90 

SUB 

B 


FF CO 

CO 

RET 

NZ 


F FC 1 

7D 

LD 

A,L 


FFC2 

91 

SUB 

C 


FFC3 

C9 

RET 



********************************** 

DE:=HL-DE 





OUT: CY=1, wenn Übertrag 

FFC4 

C5 

PUSH 

BC 

A retten (PUSH AF würde 

FFC5 

47 

LD 

B/A 

Carry bei POP AF zerstören) 

FFC6 

7D 

LD 

A/L 


FFC7 

93 

SUB 

E 


FFC8 

5F 

LD 

E,A 


FFC9 

7C 

LD 

A,H 


FFCA 

9A 

SBC 

D 


FFCB 

57 

LD 

D,A 


FFCC 

78 

LD 

A,B 

A wieder zurück 

FFCD 

CI 

POP 

BC 


FFCE 

C9 

RET 



********************************** 

HL:=HL-DE 





OUT: CY=1, wenn Übertrag 

FFCF 

C5 

PUSH 

BC 


FFDO 

47 

LD 

B/A 


F FD 1 

7D 

LD 

A,L 


F FD 2 

93 

SUB 

E 


FFD3 

6 F 

LD 

L,A 


FFD4 

7C 

LD 

A,H 


FFD5 

9A 

SBC 

D 


FFD6 

67 

LD 

H, A 
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FFD7 

78 

LD 

A,B 

FFD8 

CI 

POP 

BC 

FFD9 

C9 

RET 


********************************** 

FFDA 

E5 

PUSH 

HL 

FFDB 

67 

LD 

H,A 

FFDC 

E3 

EX 

(SP),HL 

FFDD 

7D 

LD 

A,L 

FFDE 

93 

SUB 

E 

FFDF 

4F 

LD 

C,A 

FFEO 

7C 

LD 

A, H 

FFE1 

9A 

SBC 

D 

FFE2 

47 

LD 

B,A 

FFE3 

E3 

EX 

(SP),HL 

FFE4 

7C 

LD 

A,H 

FFE5 

El 

POP 

HL 

FFE6 

C9 

RET 


********************************** 

FFE7 

D5 

PUSH 

DE 

FFE8 

57 

LD 

D,A 

FFE9 

7D 

LD 

A,L 

FFEA 

91 

SUB 

C 

FFEB 

6F 

LD 

L.A 

FFEC 

7C 

LD 

A,H 

FFED 

98 

SBC 

B 

FFEE 

67 

LD 

H,A 

FFEF 

7A 

LD 

A,D 

FFFO 

Dl 

POP 

DE 

FFF1 

C9 

RET 



BC:=HL-DE 

CHJT: CY=1, wenn Übertrag 


HL:=HL-BC 

OUT: CY=1, wenn Übertrag 


********************************** 


FFF2 ED BO LDIR 

FFF4 C9 RET 


Block nach unten verschieben 
(bei 664/6128 nur, wenn BC<>0) 
IN : HL: Zeiger auf Quellblock 
DE: Zeiger auf Zielblock 
BC: Länge 

OUT: HL: Zeiger nach Quellblock 
DE: Zeiger nach Zielblock 
BC: immer 0 
V=0, N=0, H=0 


********************************** Block nach oben verschieben 

(bei 664/6128 nur, wenn BC<>0) 

IN : HL: Zeiger a. Quellblockende 
DE: Zeiger auf Zielblockende 
BC: Länge 

OUT: HL: Zeiger vor Quellblock 
DE: Zeiger vor Zielblock 
BC: immer 0 
V=0, N=0, H=0 

FFF5 ED B8 LDDR 

FFF7 C9 RET 
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********************************** 


FFF8 

E9 

JP 

(HL) 

********************************** 

FFF9 

C5 

PUSH 

BC 

FFFA 

C9 

RET 



********************************** 


FFFB 

D5 

PUSH 

DE 

FFFC 

C9 

RET 


FF FD 

C7 

RST 

00 

FFFE 

C7 

RST 

00 

FFFF 

54 




JP(HL) 

JP(BC) 

JP(DE) 
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8.2 Die Listings des €PC-664-ROMs 

Da das ROM des 664 zu dem des 464 über weite Strecken große Ähnlich¬ 
keiten aufweist, haben wir im Folgenden nur signifikantere Änderungen 
der Struktur oder der Parametrisierung auf gelistet. Ein komplettes Listing 
des 664-ROMs wäre nur von geringem Wert und hätte den Umfang dieses 
Buches unverhältnismäßig erhöht (tatsächlich wären beide ROMs kaum in 
einem Band unterzubringen gewesen). Wenn eine Routine nicht gelistet ist, 
so heißt das jedoch nicht, daß sie an der gleichen Stelle liegt und exakt so 
aussieht, wie die entsprechende Routine im 464. Zwischen den ROMs der 
beiden Computer treten an fast allen Stellen durch kleinere Änderungen 
oder ganz neue Routinen Verschiebungen auf. Auch sind die meisten Rou¬ 
tinen hinsichtlich der Ausnutzung des Befehlssatzes des Z80 optimiert, d.h. 
Sequenzen wie z.B. DEC B; JR NZ,xxxx wurden durch den Befehl DJNZ 
xxxx ersetzt. 

Durch derartige Veränderungen, die das Programm nicht nur hinsichtlich 
der Ausführungszeit, sondern auch bezüglich des benötigten Speicherplatzes 
verbesserten, wurde es möglich, noch einige größere Routinen (neben eini¬ 
gen kleineren) neu aufzunehmen. Das wohl hervorstechendste Beispiel da¬ 
für ist GRA FILL. Man kann auch beobachten, daß die Veränderungen des 
ROMs unter anderem nach zwei Prinzipien verlief: 

1. der Modularisierung, d.h. der Auslagerung einer Befehlsfolge, die 
des öfteren in einem Teil des Systems gebraucht wird (z.B. die 
Adressenberechnungs-Routine im Sound Manager), 

2. dem umgekehrten Prozeß, der Demodularisierung, in der Routinen 
eliminiert wurden, wenn sie nur von einer Stelle aus aufgerufen 
werden und auch keinen allgemeineren Wert besitzen. 

Man spart dadurch den Speicherplatz für das CALL, RET und gegebenen¬ 
falls noch einige PUSHes. 

Die Unterschiede zwischen den beiden ROMs legen einige Vermutungen 
über die Personen nahe, die sie programmiert haben. So kann man - wie 
bereits erwähnt - viele Stellen im ROM des 464 finden, die zeigen, daß die 
Programmierer mit den speziellen Features des Z80 noch nicht so recht 
vertraut waren. Da sie sich sonst gut mit der Z80-Maschinensprache 
auskannten, kann man vermuten, daß sie ursprünglich 8080-Programmierer 
waren, die auf den Z80 umstiegen. Als dann das 664-ROM geschrieben 
wurde, scheinen sie sich bereits in den Z80 eingelebt gehabt zu haben, da 
die alten Ungeschicklichkeiten eigentlich alle eliminiert wurden. 
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Zum Listing des 664-ROMs sei noch gesagt, daß, wann immer wir nur 
einen Teil einer Routine gelistet haben, wir den Routinenkopf trotzdem 
vorangestellt haben. Den Namen der Routine haben wir dabei jedoch in 
Klammern gesetzt. 


6.2.1 Das CPC 664 - Betriebssystem 

Das 664-Betriebssystem ist ganz genau so strukturiert wie das des 464, 
wenn man davon absieht, daß das Integer Pack aus Platzgründen in den 
ROM-Bereich von $C000 bis $FFFF verlegt wurde. Die übrigen Packs 
liegen im 664 bei folgenden Adressen: 

1. Kernel (KL) $0000 

2. Machine Pack (MC) $057B 

3. Jump Restore $08BB 

4. Screen Pack (SCR) $0ABB 

5. Text Screen Pack (TXT) $1070 

6. Graphics Screen Pack (GRA) $15A4 

7. Keyboard Manager (KM) $1B5C 

8. Sound Manager (SOUND) $1FE9 

9. Cassette Manager (CAS) $24BC 

10. Editor (EDIT) $2C02 

11. Floating Point Arithmetics (FLO) $2F7D (Zeichensatz $3800) 
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********************************** 


01E2 

23 



INC 

HL 

01E3 

23 



INC 

HL 

01E4 

F3 



DI 


01E5 

7E 



LD 

A,(HL) 

01E6 

34 



INC 

(HL) 

01E7 

FA 

01 

02 

JP 

M,0201 

01EA 

B7 



OR 

A 

01EB 

20 

15 


JR 

NZ,0202 

01 ED 

23 



INC 

HL 

01EE 

7E 



LD 

A,(HL) 

01EF 

2B 



DEC 

HL 

01 F0 

B7 



OR 

A 

01 Fl 

F2 

2E 

02 

JP 

P,022E 

01 F4 

08 



EX 

AF,AF 1 

01F5 

30 

11 


JR 

NC,0208 

01 F7 

08 



EX 

AF,AF‘ 

01F8 

87 



ADD 

A 

01 F9 

F2 

E8 

00 

JP 

P,00E8 

01 FC 

35 



DEC 

(HL) 

01 FD 

23 



INC 

HL 

01 FE 

23 



INC 

HL 

01 FF 

18 

21 


JR 

0222 

0201 

35 



DEC 

(HL) 

0202 

08 



EX 

AF,AF 1 

0203 

38 

01 


JR 

C,0206 

0205 

FB 



EI 


0206 

08 



EX 

AF,AF 1 

0207 

C9 



RET 



02E1 

CC 

Fl 

02 

CALL 

Z,02F1 

02E4 

DC 

06 

06 

CALL 

C,0606 

02E7 

Fl 



POP 

AF 

02E8 

87 



ADD 

A 

02E9 

30 

EE 


JR 

NC.02D9 

02EB 

79 



LD 

A,C 

02EC 

FE 

10 


CP 

10 

02EE 

38 

E9 


JR 

C,02D9 

02F0 

C9 



RET 



********************************** 


0326 

0E 

0F 


LD 

C,0F 

0328 

CD 

30 

03 

CALL 

0330 

032B 

0D 



DEC 

C 

032C 

F2 

28 

03 

JP 

P,0328 

032F 

C9 



RET 



KL EVENT 

IN : HL: Zeiger auf KAPQ 
Zeiger 

auf PQ-Zähler 

PQ-Zähler laden 
und erhöhen 

S7F..SFE? d. Count dekrementieren 
<> 0 ? 

d. erhöht lassen, raus 
Zeiger auf Priorität 
Priorität laden 
Zeiger auf PQ-Zähler 
synchronous Event? 
d. in SPQ einhängen 
nicht im Interrupt? 
dann async. Event ausführen 

Express async. Event? 
sonst in APQ einhängen 
PQ-Zähler wiederherstellen 
Zeiger auf 
Routinenadresse 
und Express Event ausführen 
PQ-Zähler wiederherstellen 
Interrupt 

nur wieder zulassen 
wenn nicht im Interrupt 


(KL FIND COMMAND) 

b1=b0=0? d. Str. in ROM suchen 
gefunden? d. System starten 
Kennung aus ROM 
b7=1? 

sonst nächstes ROM bearbeiten 
ROM-Nummer 
innerhalb £00..$0F? 
dann weiter durchgehen 


KL ROM WALK 
IN : DE: LoRAM 
HL: HiRAM 

OUT: DE: LoRAM, neu 
HL: Hi RAM, neu 
Anfangs-ROM-Nummer 
ROM ggf. in VL und in Tabelle 
ROM-Nurmier erniedrigen 
für ROMs 0..15 durchgehen 
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********************************** 

KL 

IN IT BACK 





IN 

: DE: LoRAM 






HL: Hi RAM 





OUT: DE: LoRAM, neu 






HL: Hi RAM, neu 

0330 

3A D8 B8 

LD 

A,(B8D8) 


lfd. ROM 

0333 

B9 

CP 

C 


= übergebenes ROM? 

0334 

C8 

RET 

Z 


dann raus 

0335 

79 

LD 

A, C 


ROM-Nummer 

0336 

FE 10 

CP 

10 


>$0F? 

0338 

DO 

RET 

NC 


dann raus 

0339 

CD 79 BA 

CALL 

BA79 


ROM anschalten 

033C 

3A 00 CO 

LD 

A,(COOO) 


ROM-Kennung 

033 F 

E6 03 

AND 

03 


b1,b0 isolieren 

0341 

3D 

DEC 

A 


b1=0, b0=1? 

0342 

20 22 

JR 

NZ ( 0366 


sonst ROM aus, raus 

0344 

C5 

PUSH 

BC 


ROM-Nurrmer retten 

0345 

37 

SCF 



CY:=1 als Kennzeichen 

0346 

CD 06 CO 

CALL 

C006 


ROM anspringen 

0349 

30 1A 

JR 

NC,0365 


Routine hat CY gelöscht? raus 


KL 

SCAN NEEDED 

B92A 

03C1 21 BF 

B8 

LD HL.B8BF 

Ticker-Frequenzteiler 

B92D 

03C4 36 01 


LD (HL), 

,01 

:=1, nächster Interrupt ist Tick. 

B92F 

03C6 C9 


RET 



****** & ************ * ** ** * * ****** ** 

Einschalt-Meldung ausgeben 

0657 

21 02 02 

LD 

HL,0202 


2. Spalte, 2. Zeile 

065A 

CD 6C 11 

CALL 

116C 


Cursor dorthin setzen 

********************************** 

(HC RESET PRINTER) 

07D0 

21 E7 07 

LD 

HL,07E7 


Adresse der Default-Tabelle 

07D3 

11 04 B8 

LD 

DE,B804 


Adresse der RAM-Tabelle 

07D6 

01 15 00 

LD 

BC,0015 


Länge 

07D9 

ED BO 

LDIR 



Tabelle kopieren 

********************************** 

Printer translation table 

07E7 

OA 




Zahl der Substitutionen 

07E8 

AO 5E 





07EA 

Al 5C 





07EC 

A2 7B 





07EE 

A3 23 





07F0 

A6 40 





07F2 

AB 7C 





07F4 

AC 7D 





07F6 

AD 7E 





07F8 

AE 5D 





07FA 

AF 5B 





********************************** 

HC 

PRINT TRANSLATION 





IN 

: HL: Adresse der Tabelle 

07FC 

E7 

RST 

20 


Zahl d. Substitutionen 

07FD 

87 

ADD 

A 


mal 2, da 2 Bytes pro Substitutionen 

07FE 

3C 

INC 

A 


+1 für Länge 

07FF 

4F 

LD 

C, A 


Tabellenlänge nach C 

0800 

06 00 

LD 

B,00 


Länge hi =0 

0802 

11 04 B8 

LD 

DE,B804 


Adresse der RAM-Tabelle 

0805 

FE 2A 

CP 

2A 


Tabelle nicht zu lang ? 
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0807 

DC 

AI 

BA 

CALL 

C,BAA1 

dann KL LDIR, Tab. kopieren 

080A 

C9 



RET 



********************************** 

MC PRINT CHAR 







IN : A: Zeichen 







OUT: CY=1, wenn o.k. 







CY=0, wenn busy 

080B 

C5 



PUSH 

BC 


080C 

E5 



PUSH 

HL 


080D 

21 

04 

B8 

LD 

HL,B804 

Zeiger auf translation fable 

0810 

46 



LD 

B, (HL) 

Zahl der Substitutionen 

0811 

04 



INC 

B 

Ausgleich für Predecrement 

0812 

05 



DEC 

B 


0813 

28 

OA 


JR 

Z,081F 

keine weiteren Substitutionen 

0815 

23 



INC 

HL 


0816 

BE 



CP 

(HL) 

Zeichen in Tabelle enthalten ? 

0817 

23 



INC 

HL 


0818 

20 

F8 


JR 

NZ,0812 

nein ? dann nächstes Tabellen-Zeichen 

081A 

7E 



LD 

A, (HL) 

zu substituierendes Zeichen 

081B 

FE 

FF 


CP 

FF 

Code für Zeichen unterdrücken ? 

081D 

28 

03 


JR 

Z,0822 

dann nicht ausgeben 

081F 

CD 

Fl 

BD 

CALL 

BDF1 

sonst MC WAIT PRINTER 

0822 

El 



POP 

HL 


0823 

CI 



POP 

BC 


0824 

C9 



RET 



********************************** 

SCR SET POSITION 







IN/OUT : A: SCR BASE 







HL: SCR OFFSET 

0B41 

E6 

CO 


AND 

CO 

SCR BASE, sign. Bits isolieren 

0B43 

32 

C6 

B7 

LD 

(B7C6),A 

SCR BASE speichern 

0B46 

F5 



PUSH 

AF 

und retten 

0B47 

7C 



LD 

A, H 

RA-Bits 

0B48 

E6 

07 


AND 

07 

von SCR OFFSET 

0B4A 

67 



LD 

H, A 

löschen 

0B4B 

CB 

85 


RES 

0, L 

Bit 0 (CCLK) löschen 

0B4D 

22 

C4 

B7 

LD 

(B7C4),HL 

SCR OFFSET setzen 

0B50 

Fl 



POP 

AF 

SCR BASE hi zurück 

0B51 

C9 



RET 



********************************** 

(SCR DOT POSITION) 

0BC1 

29 



ADD 

HL,HL 


0BC2 

19 



ADD 

HL,DE 

Y-Koordinate mal 10 

0BC3 

29 



ADD 

HL,HL 


0BC4 

Dl 



POP 

DE 

X-Koordinate 

0BC5 

C5 



PUSH 

BC 

RA-Bits 

0BC6 

CD 

F2 

OB 

CALL 

0BF2 

Masken holen 

0BC9 

78 



LD 

A,B 

Maske für Pixelstellung im Byte 

OBCA 

A3 



AND 

E 

entspricht Bits aus X-Koor. isol. 

OBCB 

28 

05 


JR 

Z, 0BD2 

Pixel 0 im Byte ? 

OBCD 

CB 

09 


RRC 

C 

Auswahlmaske f. nächstes Pixel 

OBCF 

3D 



DEC 

A 

Pixelnummer herunterzählen 

OBDO 

20 

FB 


JR 

NZ,OBCD 


0BD2 

E3 



EX 

(SP),HL 

RA-Bits vom Stack 

0BD3 

61 



LD 

H, C 

Pixelauswahlmaske retten 

0BD4 

4D 



LD 

C,L 

RA-Bits nach C 

0BD5 

E3 



EX 

(SP),HL 

Pixelauswahlmaske auf Stack 
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0BD6 78 LD A,B 

0BD7 0F RRCA 

********************************** Masken für Pixel holen 

OUT: B: Maske f. signifikante 
Bits für Pixelstellung 
im Byte 

(Bits der X-Koordinate) 


0BF2 

CD 

08 

OB 

CALL 

0B08 

Mode-Nr. holen 

0BF5 

01 

AA 

01 

LD 

BC,01AA 


0BF8 

D8 



RET 

C 

Mode 0 ? 

0BF9 

01 

88 

03 

LD 

BC,0388 


OBFC 

C8 



RET 

Z 

Mode 1 ? 

OBFD 

01 

80 

07 

LD 

BC,0780 


ocoo 

C9 



RET 




********************************** 


0F8F CD A9 0F 
0F92 CD BE 0F 
0F95 18 06 


CALL 0FA9 
CALL OFBE 
JR 0F9D 


SCR HORIZONTAL 
IN : DE: X-Startkoordinate 
BC: X-Endkoordinate 
HL: Y-Koordinate 
A: Farbmaske 

Pen-/Linienmaske retten/setzen 
horizontale Linie ziehen 
alte Pen-/Linienmaske zurück 


********************************** SCR VERTICAL 

IN : HL: Y-Startkoordinate 


0F97 

CD 

A9 

0F 

CALL 

0FA9 

0F9A 

CD 

12 

10 

CALL 

1012 

0F9D 

2A 

02 

B8 

LD 

HL,(B802) 

0FA0 

7D 



LD 

A,L 

0FA1 

32 

A3 

B6 

LD 

(B6A3),A 

0FA4 

7C 



LD 

A,H 

0FA5 

32 

B3 

B6 

LD 

(B6B3),A 

0FA8 

C9 



RET 



BC: Y-Endkoordinate 
DE: X-Koordinate 
A: Farbmaske 

Pen-/Linienmaske retten/setzen 

vertikale Linie ziehen 

gerettete Pen- und Linienmaske 

Pen-Maske 

wieder setzen 

Linienmaske 

wieder setzen 


********************************** p erv Linienmaske retten/setzen 


0FA9 

E5 



PUSH 

HL 

0FAA 

2A 

A3 

B6 

LD 

H L,(B6A3) 

0FAD 

32 

A3 

B6 

LD 

(B6A3),A 

0FB0 

3A 

B3 

B6 

LD 

A,(B6B3) 

0FB3 

67 



LD 

H, A 

0FB4 

3E 

FF 


LD 

A, FF 

0FB6 

32 

B3 

B6 

LD 

(B6B3),A 

0FB9 

22 

02 

B8 

LD 

(B802),HL 

0FBC 

El 



POP 

HL 

0FBD 

C9 



RET 



IN : A: neue Pen-Maske 

Pen-Maske nach L 
neue Pen-Maske setzen 
Linienmaske 
nach H 

Maske für durchgehende Linie 
setzen 

alte Masken Zwischenspeichern 


********************************** 


OFBE 37 SCF 

OFBF CD 37 10 CALL 1037 


horizontale Linie ziehen 
IN : DE: X-Startkoordinate 
BC: X-Endkoordinate 
HL: Y-Koordinate 
Flag für HORIZONTAL-Params 
Parameter holen 
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0FC2 

CB 

00 


RLC 

B 

0FC4 

79 



LD 

AjC 

0FC5 

30 

13 


JR 

NC,OFDA 

0FC7 

ID 



DEC 

E 

0FC8 

20 

03 


JR 

NZ,0FCD 

OFCA 

15 



DEC 

D 

OFCB 

28 

2C 


JR 

Z,0FF9 

OFCD 

CB 

09 


RRC 

C 

OFCF 

38 

28 


JR 

C,0FF9 

0 FD 1 

CB 

78 


BIT 

7,B 

0FD3 

28 

24 


JR 

Z,0FF9 

0FD5 

Bl 



OR 

C 

0FD6 

CB 

00 


RLC 

B 

0FD8 

18 

ED 


JR 

0FC7 

OFDA 

ID 



DEC 

E 

OFDB 

20 

03 


JR 

NZ,0FE0 

OFDD 

15 



DEC 

D 

OFDE 

28 

0D 


JR 

Z, OFED 

0FE0 

CB 

09 


RRC 

C 

0FE2 

38 

09 


JR 

C,0FED 

0FE4 

CB 

78 


BIT 

7,B 

0FE6 

20 

05 


JR 

NZ,0FED 

0FE8 

Bl 



OR 

C 

0FE9 

CB 

00 


RLC 

B 

OFEB 

18 

ED 


JR 

OFDA 

OFED 

C5 



PUSH 

BC 

OFEE 

4F 



LD 

C,A 

OFEF 

3A 

A4 

B6 

LD 

A,(B6A4) 

0FF2 

47 



LD 

B, A 

0FF3 

3A 

B4 

B6 

LD 

A, (B6B4) 

0FF6 

B7 



OR 

A 

0FF7 

18 

07 


JR 

1000 

0FF9 

C5 



PUSH 

BC 

OFFA 

4F 



LD 

C,A 

OFFB 

3A 

A3 

B6 

LD 

A,(B6A3) 

OFFE 

47 



LD 

B, A 

OFFF 

AF 



XOR 

A 

1000 

CC 

E8 

BD 

CALL 

Z,BDE8 

1003 

CI 



POP 

BC 

1004 

CB 

79 


BIT 

7, C 

1006 

C4 

01 

OC 

CALL 

NZ.0C01 

1009 

7A 



LD 

A,D 

100A 

B3 



OR 

E 

100B 

20 

B5 


JR 

NZ,0FC2 

100D 

78 



LD 

A,B 

100E 

32 

B3 

B6 

LD 

(B6B3),A 

1011 

C9 



RET 



irit "k ieicifk 4t Ick ***** ****** 4t itit * *** & it 


1012 

B7 



OR 

A 

1013 

CD 

37 

10 

CALL 

1037 

1016 

CB 

00 


RLC 

B 

1018 

3A 

A3 

B6 

LD 

A,(B6A3) 

101B 

38 

09 


JR 

C, 1026 

101D 

3A 

B4 

B6 

LD 

A,(B6B4) 


Linienmaske 

Pixelauswahlmaske 

Pixel nicht in Pen-Farbe ? 

Pixelzahl lo 
weitere Pixels ? 

Pixel zahl hi 

keine weiteren Pixels ? 

Auswahlmaske für nächstes Pixel 

Bytegrenze erreicht ? 

nächstes Pixel 

nicht in Pen-Farbe ? 

nächstes Pixel zusätzlich auswählen 

Linienmaske für nächstes Pixel 

nächstes Pixel bearbeiten 

Pixel zahl lo 

weitere Pixels ? 

Pixel zahl hi 
nicht in Pen-Farbe ? 

sonst analog weitere Pixels 
auswählen (wenn möglich), um 
sie zeitsparend auf einmal 
zu setzen 


Linien-/Pixelauswahlmaske 

aktuelle Pixelauswahlmaske 

Paper-Maske 

als Farbmaske nach B 

Hintergrund-Modus 

Z—0, wenn transparent 

Pixel(s) setzen 

Linien-/Pixelauswahlmaske 

akt. Pixelauswahlmaske 

Pen-Maske 

als Farbmaske nach B 
Z=1 für Pixels auf jeden Fall 
ggf. SCR WRITE, Pixel(s) setz. 
Linien-/PixelauswahImaske 
Bytegrenze überschritten ? 
dann SCR NEXT BYTE 
restliche 
Pixelzahl 
weitere Pixels ? 

Linienmaske 

für weitere Linien setzen 


vertikale Linie ziehen 
IN : HL: Y-Startkoordinate 
BC: Y-Endkoordinate 
DE: X-Koordinate 
Flag für HORIZONTAL-Params 
Parameter holen 
Linienmaske 
Pen-Maske 

Pixel in Pen-Farbe ? 

Flag für Hintergrund-Modus 
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1020 

B7 



OR 

A 

1021 

20 

09 


JR 

NZ,102C 

1023 

3A 

A4 

B6 

LD 

A,(B6A4) 

1026 

C5 



PUSH 

BC 

1027 

47 



LD 

B,A 

1028 

CD 

E8 

BD 

CALL 

BDE8 

102B 

CI 



POP 

BC 

102C 

CD 

35 

OC 

CALL 

0C35 

102 F 

ID 



DEC 

E 

1030 

20 

E4 


JR 

NZ,1016 

1032 

15 



DEC 

D 

1033 

20 

El 


JR 

NZ,1016 

1035 

18 

D6 


JR 

100D 


********************************** 


1037 

E5 



PUSH 

HL 

1038 

30 

02 


JR 

NC,103C 

103A 

62 



LD 

H,D 

103B 

6B 



LD 

L,E 

103C 

B7 



OR 

A 

103D 

ED 

42 


SBC 

HL,BC 

103F 

CD 

35 

19 

CALL 

1935 

1042 

24 



INC 

H 

1043 

2C 



INC 

L 

1044 

E3 



EX 

(SP),HL 

1045 

CD 

AB 

OB 

CALL 

0BAB 

1048 

3A 

B3 

B6 

LD 

A, (B6B3) 

104B 

47 



LD 

B,A 

104C 

01 



POP 

DE 

104D 

C9 



RET 



********************************** 


12C2 

CD 

DO 

BD 

CALL 

BDD0 

12C5 

2A 

2F 

B7 

LD 

HL,(B72F) 

12C8 

7C 



LD 

A, H 

12C9 

65 



LD 

H,L 

12CA 

6F 



LD 

L,A 

12CB 

22 

2F 

B7 

LD 

(B72F),HL 

12CE 

18 

E3 


JR 

12B3 


********************************** 


1432 

7E 


LD 

A,(HL) 

1433 

E6 

0F 

AND 

0F 

1435 

B8 


CP 

B 

1436 

DO 


RET 

NC 

1437 

3A 

2E B7 

LD 

A,(B72E) 

143A 

A6 


AND 

(HL) 

143B 

07 


RLCA 


143C 

38 

OB 

JR 

C,1449 


Transparent-Modus ? 
sonst Paper-Maske 
Linien-/Pixelauswahlmaske 
Farbmaske 

SCR WRITE, Pixel setzen 
Linien-/Pixelauswahlmaske 
SCR PREV LINE 

weitere 
Pixels ? 

Linienmaske wieder setzen 

Linien-Parameter berechnen 
IN : CY=0 für vertikale Linie 
DE: X-Koordinate 
HL: Y-Koordinate 
BC: X- bzw. Y-Endkoordinate 
OUT: HL: Bildschirmadresse 
DE: modifizierte Länge 
A,B: Linienmaske 
C: Maske für Pixelauswahl 
Y-Koordinate retten 
vertikale Linie 

sonst X-Startkoordinate 
als Startkoordinate nach HL 

Startkoordinate-Endkoordinate 
Endkoordinate-Startkoordinate 
Länge ausgleichen wegen 
Predecrement 

Länge retten, Y-Koord. zurück 
SCR DOT POSITION, Adr. berech. 
Linienmaske 
nach B 

modifizierte Länge 


TXT INVERSE 

TXT UNDRAW CURSOR 
Paper-/Pen-Maske 

vertauschen 

und wieder speichern 
Cursor wieder zeichnen 

(TXT OUT ACTION) 

Zahl der benötigten Zeichen 

Zahl isolieren 

noch nicht genug Zeichen ? 

dann zurück 

VDU-Flag 

Flag, auch bei disabled ausg. 
disabled und Flag nicht ges. ? 
dann fertig 
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***************** ***************** 


145C 

3A 

2E 

B7 

LD 

A, (B72E) 

145 F 

C9 



RET 


********************************** 

150 F 

CD 

A0 

11 

CALL 

11AO 

1512 

C3 

CD 

BD 

JP 

BDCD 

********************************** 

15D3 

CD 

EC 

15 

CALL 

15EC 

********************************** 

15E8 

AF 



XOR 

A 

15E9 

CD 

51 

0C 

CALL 

0C51 

15EC 

AF 



XOR 

A 

15 ED 

CD 

Dl 

19 

CALL 

19D1 

15F0 

2F 



CPL 


15 F1 

CD 

AC 

17 

CALL 

17AC 

15F4 

C3 

A8 

17 

JP 

17A8 

********************************** 


1626 

E5 


PUSH 

HL 

1627 

CD 

08 OB 

CALL 

0B08 

162A 

ED 

44 

NEG 


162c 

DE 

FD 

SBC 

FD 

162E 

26 

00 

LD 

H,00 


********************************** 


1666 

2A 

9B 

B6 

LD 

HL,(B69B) 

1669 

37 



SCF 


166A 

ED 

52 


SBC 

HL,DE 

166C 

F2 

7A 

16 

JP 

P,167A 

166F 

2A 

9D 

B6 

LD 

HL,(B69D) 

1672 

B7 



OR 

A 

1673 

ED 

52 


SBC 

HL,DE 

1675 

37 



SCF 


1676 

F0 



RET 

P 

1677 

F6 

FF 


OR 

FF 

1679 

C9 



RET 


167A 

AF 



XOR 

A 

167B 

C9 



RET 



TXT ASK STATE 
OUT: A: Status 

bO: Cursor enabled/di sabled 

bl: Cursor on/off 

b7: VDU enabled/di sabLed 


CHR$(0) 

Cursor invert., Pos. prüfen 
Cursor wieder zurück 

(GRA RESET) 

diverse Initialisierungen 

GRA DEFAULT 
Force-Mode 

für SCR WRITE setzen 
Hi ntergrund-Modus 
auf nicht-transparent 
$FF, durchgehende Linie 
Flag für 1. Pixel zeichnen 
Linienmaske setzen 

GRA FROM USER 

IN : DE: X-Koordinate 
HL: Y-Koordinate 

OUT: DE: reale X-Koordinate 
HL: reale Y-Koordinate 
Y-Koordinate retten 
Mode-Nummer holen 
A=3,1,0 für Mode 0,1,2 
(Maske f. nicht signif. Bits) 


Test, ob X-Koordinate im Window 
IN : DE: reale X-Koordinate 
OUT: CY=1, wenn im Window 

CY=0,Z=1,A=0, wenn zu klein 
CY=0,Z=0,A=$FF, wenn zu groß 
linke Windowgrenze 
minus 1 

minus X-Koordinate 
X-Koord. <= linke Grenze -1 ? 
rechte Windowgrenze 

minus X-Koordinate 
CY=1 für im Window 
X-Koord. <= rechte Grenze ? 
Koord. zu groß,A=$FF,Z=0,CY=0 

Koord. zu klein, A=0,Z=1,CY=0 
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***** * ****** * * * ** ** * * ********** * * * 

Test, ob Y-Koordinate l'm Window 







IN 

: DE: reale Y-Koordinate 







OUT 

CY=1, wenn im Window 

CY=0,Z=1,A=0, wenn zu klein 

CY=0,Z=0,A=$FF, wenn zu groß 

167C 

2A 

9F 

B6 

LD 

HL,(B69F) 


obere Windowgrenze 

167F 

B7 



OR 

A 



1680 

ED 

52 


SBC 

HL,DE 


minus Y-Koordinate 

1682 

FA 

77 

16 

JP 

M, 1677 


Y-Koordinate > obere Grenze ? 

1685 

2A 

AI 

B6 

LD 

HL, (B6A1) 


untere Windowgrenze 

1688 

37 



SCF 



minus 1 

1689 

ED 

52 


SBC 

HL,DE 


minus Y-Koordinate 

168B 

F2 

7A 

16 

JP 

P, 167A 


Y-Koord. <= untere Grenze-1 ? 

168E 

37 



SCF 



sonst CY=1 für im Window 

168F 

C9 



RET 




********************************** 

Test, ob Koordinate im Window, Cursor s. 







IN 

: DE: X-Koordinate 

HL: Y-Koordinate 







OUT 

': CY=1, wenn im Window 

DE: reale X-Koordinate 

HL: reale Y-Koordinate 

CY=0, wenn nicht im Window 

1690 

CD 

23 

16 

CALL 

1623 


Cursor setzen, reale Koordinate h. 

1693 

E5 



PUSH 

HL 


Y-Koordinate retten 

1694 

CD 

66 

16 

CALL 

1666 


Test, ob X-Koordinate in Grenzen 

1697 

El 



POP 

HL 


Y-Koordinate zurück 

1698 

DO 



RET 

NC 


X-Koordinate nicht in Grenzen ? 

1699 

D5 



PUSH 

DE 


X-Koordinate retten 

169A 

EB 



EX 

DE,HL 



169B 

CD 

7C 

16 

CALL 

167C 


Test, ob Y-Koordinate in Grenzen 

169E 

EB 



EX 

DE,HL 



169F 

Dl 



POP 

DE 


X-Koordinate zurück 

16A0 

C9 



RET 




********************************** 

GRA SET LINE MASK 







IN 

: A: Linienmaske 

17A8 

32 

B3 

B6 

LD 

(B6B3),A 



17AB 

C9 



RET 




********************************** 

GRA SET FIRST 







IN 

: A: Flag f. 1. Pixel d. Linie 








$00=1. Pixel nicht zeichnen 
$FF=1. Pixel zeichnen 

17AC 

32 

B2 

B6 

LD 

(B6B2),A 



17AF 

C9 



RET 




********************************** 

GRA LINE 







IN 

: DE: X-Endkoordinate 

HL: Y-Endkoordinate 

17B0 

E5 



PUSH 

HL 



17B1 

CD 

87 

18 

CALL 

1887 


reale Cursorkoordinate als Startkoordinate 

17B4 

El 



POP 

HL 



17B5 

CD 

23 

16 

CALL 

1623 


reale Endkoordinate berechnen 

17B8 

E5 



PUSH 

HL 


Y-End-Koordinate 

17B9 

2A 

A5 

B6 

LD 

HL,(B6A5) 


X-Start-Koordinate 

17BC 

B7 



OR 

A 



17BD 

ED 

52 


SBC 

HL,DE 


minus X-End-Koordinate 

17BF 

7C 



LD 

A,H 


Vorzeichen der X-Differenz 
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17C0 

32 

AD 

B6 


LD 

(B6AD),A 

17C3 

FC 

35 

19 


CALL 

M, 1935 

17C6 

Dl 




POP 

DE 

17C7 

E5 




PUSH 

HL 

17C8 

2A 

A7 

B6 


LD 

HL,(B6A7) 

17CB 

B7 




OR 

A 

17CC 

ED 

52 



SBC 

HL,DE 

17CE 

7C 




LD 

A, H 

17CF 

32 

AE 

B6 


LD 

(B6AE),A 

17D2 

FC 

35 

19 


CALL 

M,1935 

17D5 

Dl 




POP 

DE 

17D6 

B7 




OR 

A 

17D7 

ED 

52 



SBC 

HL,DE 

17D9 

19 




ADD 

HL,DE 

17DA 

9F 




SBC 

A 

17DB 

32 

AF 

B6 


LD 

(B6AF),A 

17DE 

3A 

AE 

B6 


LD 

A,(B6AE) 

17E1 

28 

04 



JR 

Z,17E7 

17E3 

EB 




EX 

DE,HL 

17E4 

3A 

AD 

B6 


LD 

A,(B6AD) 

17E7 

F5 




PUSH 

AF 

17E8 

ED 

53 

AB 

B6 

LD 

(B6AB),DE 

17EC 

44 




LD 

B, H 

17ED 

4D 




LD 

C,L 

17EE 

3A 

B2 

B6 


LD 

A,(B6B2) 

17F1 

B7 




OR 

A 

17F2 

28 

01 



JR 

Z,17F5 

17F4 

03 




INC 

BC 

17F5 

ED 

43 

B0 

B6 

LD 

(B6B0),BC 

17F 9 

CD 

35 

19 


CALL 

1935 

17FC 

E5 




PUSH 

HL 

17FD 

19 




ADD 

HL,DE 

17FE 

22 

A9 

B6 


LD 

(B6A9),HL 

1801 

El 




POP 

HL 

1802 

CB 

2C 



SRA 

H 

1804 

CB 

ID 



RR 

L 

1806 

Fl 




POP 

AF 

1807 

07 




RLCA 


1808 

38 

12 



JR 

C, 181C 

180A 

E5 




PUSH 

HL 

180B 

CD 

87 

18 


CALL 

1887 

180E 

2A 

AD 

B6 


LD 

HL,(B6AD) 

1811 

7C 




LD 

A,H 

1812 

2F 




CPL 


1813 

67 




LD 

H,A 

1814 

7D 




LD 

A, L 

1815 

2F 




CPL 


1816 

6F 




LD 

L,A 

1817 

22 

AD 

B6 


LD 

(B6AD),HL 

181A 

18 

12 



JR 

182E 

181C 

3A 

B2 

B6 


LD 

A, (B6B2) 

181F 

B7 




OR 

A 

1820 

20 

0D 



JR 

NZ,182F 

1822 

19 




ADD 

HL,DE 

1823 

E5 




PUSH 

HL 

1824 

3A 

AF 

B6 


LD 

A, (B6AF) 

1827 

07 




RLCA 


1828 

DC 

D6 

18 


CALL 

C, 18D6 


spei ehern 

Diff. negativ ? dann Betrag 
Y-End-Koordinate 
X-Differenz retten 
Y-Start-Koordinate 

minus Y-End-Koordinate 
Vorzeichen der Y-Differenz 
speichern 

Differrenz negativ ? dann Betrag 
X-Differenz retten 

Y-Differenz minus X-Differenz 
Y-Differenz wiederherstellen 
A=$FF, wenn X-Differenz größer 
Flag speichern 
Vorzeichen der Y-Differenz 
Y-Differenz >= X-Differenz ? 
sonst Differenzen vertauschen 
und Vorzeichen der X-Differenz 
Vorzeichen der größeren Diff. 
kleinere Differenz speichern 
größere Differenz 
nach BC 

Flag für 1. Pixel der Linie 

1. Pixel nicht zeichnen ? 

größere Differrenz erhöhen, gibt Breite 

größere Breite speichern 

negative größere Differenz 

retten 

kleinere - größere Differenz 
Differenz der Diff. speichern 
negative größere Differenz 
durch 2 f. symmetrische 
Linie, als Vergleichswert 
Vorzeichen der größeren Diff. 

negativ ? 

Start-Vergleichswert 

neue Cursor-Koordinaten (Endk.) als Start 

Vorzeichen der Differenzen 

jeweils invertieren, 

da bei Endkoordinaten 

angefangen wird 
keine Korrektur f. 1. Pixel 
Flag für 1. Pixel 
1. Pixel zeichnen ? 
dann keine Korrektur 
kleinere Diff. zu Vergl. add. 
neuer Vergleichswert 
Flag für größere Differenz 
X-Differenz größer ? 
dann X-Koordinate erhöhen 
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182B 

D4 

24 

19 


CALL 

NC,1924 

sonst Y-Koordinate erhöhen 

182E 

El 




POP 

HL 

Vergleichswert 

182 F 

7A 




LD 

A,D 

kleinere Differenz 

1830 

B3 




OR 

E 

gleich 0 ? 

1831 

CA 

94 

18 


JP 

Z, 1894 

dann nur eine Teillinie 

1834 

DD 

E5 



PUSH 

IX 


1836 

01 

00 

00 


LD 

BC,0000 

größere Schrittweite =0 

1839 

C5 




PUSH 

BC 

größere Schrittweite mal 

183A 

DD 

El 



POP 

IX 

kleinere Differenz =0 

183C 

DD 

E5 



PUSH 

IX 

größere Schrittweite mal 

183E 

Dl 




POP 

DE 

kleinere Differenz nach DE 

183 F 

B7 




OR 

A 

als Ausgleich für alte 

1840 

ED 

5A 



ADC 

HL,DE 

Schrittw. addieren 

1842 

ED 

5B 

AB 

B6 

LD 

DE,(B6AB) 

kleinere Differenz 

1846 

F2 

4F 

18 


JP 

P,184F 

Vergleichswert schon zu groß ? 

1849 

03 




INC 

BC 

sonst größere Schritt, erhöhen 

184A 

DD 

19 



ADD 

IX,DE 

kleinere Diff. zu Produkt add. 

184C 

19 




ADD 

HL,DE 

und zu Vergleichswert addieren 

184D 

30 

FA 



JR 

NC,1849 

Vergleichswert noch negativ ? 

184F 

AF 




XOR 

A 

Zweierkomplement 

1850 

93 




SUB 

E 

der Differenz in DE 

1851 

5F 




LD 

E.A 

bilden, um Schrittweiten¬ 

1852 

9F 




SBC 

A 

korrektur in andere Richtung 

1853 

92 




SUB 

D 

zu ermöglichen 

1854 

57 




LD 

D,A 


1855 

19 




ADD 

HL,DE 


1856 

30 

05 



JR 

NC,185D 

Schrittweite und Schrittw.- 

1858 

DD 

19 



ADD 

IX,DE 

Produkt ggf. nach unten 

185A 

OB 




DEC 

BC 

korrigieren 

185B 

18 

F8 



JR 

1855 

(abhängig v. Vergleichswert) 

185D 

ED 

5B 

A9 

B6 

LD 

DE,(B6A9) 

kleinere - größere Differenz 

1861 

19 




ADD ' 

HL, DE 

zu Vergleichswert addieren 

1862 

C5 




PUSH 

BC 

größere Schrittweite 

1863 

E5 




PUSH 

HL 

Vergleichswert 

1864 

2A 

BO 

B6 


LD 

HL,(B6B0) 

größere Breite (Pixelzahl) 

1867 

B7 




OR 

A 

größere Schrittweite 

1868 

ED 

42 



SBC 

HL,BC 

subtrahieren 

186A 

30 

06 



JR 

NC,1872 

noch genug Pixels ? 

186C 

09 




ADD 

HL,BC 

sonst alte restl. Pixelzahl 

186D 

44 




LD 

B.H 

als Schrittweite bzw. Länge 

186E 

4D 




LD 

C, L 

der aktuellen Teillinie 

186F 

21 

00 

00 


LD 

HL,0000 

restliche Pixelzahl =0 

1872 

22 

BO 

B6 


LD 

(B6B0),HL 

restliche Pixelzahl setzen 

1875 

CD 

94 

18 


CALL 

1894 

Teillinie ziehen 

1878 

El 




POP 

HL 

Vergleichswert 

1879 

CI 




POP 

BC 

größere Schrittweite 

187A 

30 

08 



JR 

NC,1884 

weitere Linie außerh. Window ? 

187C 

ED 

5B 

BO 

B6 

LD 

DE,(B6B0) 

sonst restliche Pixel zahl 

1880 

7A 




LD 

A,D 

weitere 

1881 

B3 




OR 

E 

Pixels ? 

1882 

20 

B8 



JR 

NZ,183C 

dann nächste Teillinie ziehen 

1884 

DD 

El 



POP 

IX 


1886 

C9 




RET 




reale Cursorkoordinaten als Startkoordinaten 

1887 

D5 




PUSH 

DE 


1888 

CD 

20 

16 


CALL 

1620 

reale Cursorkoordinaten holen 

188B 

ED 

53 

A5 

B6 

LD 

(B6A5),DE 

X-Start-Koordinate 
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188F 

22 A7 B6 

LD 

(B6A7),HL 

und Y-Start-Koordinate setzen 

1892 

Dl 

POP 

DE 


1893 

C9 

RET 




**********************&**■*•**■&***** 


1894 3A AF B6 

1897 07 

1898 38 4D 


LD A,(B6AF) 

RLCA 

JR C,18E7 


Teilline für GRA LINE ziehen 
IN : BC: Länge der Linie 
OUT: CY=0, wenn restliche Gesamt¬ 
linie außerh. Window 
Flag für größere Differenz 
X-Differenz größer ? 
dann horizontale Teillinie 


************ ****■&*:&* ****** **■&*#*■&* 


189A 

78 




LD 

A,B 

189B 

Bl 




OR 

C 

189C 

28 

38 



JR 

Z,18D6 

189E 

2A 

A7 

B6 


LD 

HL,(B6A7) 

18A1 

09 




ADD 

HL, BC 

18A2 

2B 




DEC 

HL 

18A3 

44 




LD 

B,H 

18A4 

4D 




LD 

C,L 

18A5 

EB 




EX 

DE,HL 

18A6 

CD 

7C 

16 


CALL 

167C 

18A9 

2A 

A7 

B6 


LD 

HL,(B6A7) 

18AC 

EB 




EX 

DE,HL 

18AD 

23 




INC 

HL 

18AE 

22 

A 7 

B6 


LD 

(B6A7),HL 

18B1 

38 

06 



JR 

C,18B9 

18B3 

28 

21 



JR 

Z,18D6 

18B5 

ED 

4B 

9F 

B6 

LD 

BC,(B69F) 

18B9 

CD 

7C 

16 


CALL 

167C 

18BC 

38 

05 



JR 

C,18C3 

18BE 

CO 




RET 

NZ 

18BF 

ED 

5B 

AI 

B6 

LD 

DE,(B6A1) 

18C3 

D5 




PUSH 

DE 

18C4 

ED 

5B 

A5 

B6 

LD 

DE,(B6A5) 

18C8 

CD 

66 

16 


CALL 

1666 

18CB 

El 




POP 

HL 

18CC 

38 

05 



JR 

C,18D3 

18CE 

21 

AD 

B6 


LD 

HL,B6AD 

18D1 

AE 




XOR 

(HL) 

18D2 

F0 




RET 

P 

18D3 

DC 

12 

10 


CALL 

C,1012 

18D6 

2A 

A5 

B6 


LD 

HL,(B6A5) 

18D9 

3A 

AD 

B6 


LD 

A,(B6AD) 

18DC 

07 




RLCA 


18DD 

23 




INC 

HL 

18DE 

38 

02 



JR 

C,18E2 

18E0 

2B 




DEC 

HL 

18E1 

2B 




DEC 

HL 

18E2 

22 

A5 

B6 


LD 

(B6A5),HL 

18E5 

37 




SCF 


18E6 

C9 




RET 



vertikale Teillinie ziehen 
IN : BC: Länge der Linie 
OUT: CY=0, wenn restliche Gesamt - 
Linie außerh. Window 
Länge der Linie 
=0 ? 

dann nur X-Koord. weiterzählen 
laufende Y-Koordinate 
Länge addieren 
-1 gibt Endkoord. der Linie 
Y-Endkoordinate 
nach BC 
und nach DE 
Test, ob im Window 
Y-Start-Koordinate f. Linie 
nach DE, Endkoord. nach HL 
End-Koordinate +1 
als nächste Start-Koordinate 
End-Koordinate im Window ? 
unterh. Win. ? d. keine Linie 
sonst obere Grenze als Endwert 
Test, ob Startwert im Window 
Start-Koordinate im Window ? 
oberh. Window ? d. Gesamt-Ende 
untere Windowgrenze als Start 
Start-Koordinate retten 
laufende X-Koordinate 
liegt X-Koord. im Window ? 
Y-Start-Koordinate 
X-Koordinate im Window ? 
Vorzeichen der X-Differenz 
wird sich nicht in Window 
hineinbewegt ? d. Gesamtende 
ggf. vertikale Linie ziehen 
X-Koordinate 

Vorzeichen der X-Differenz 

X-Koordinate erhöhen 
Vorzeichen negativ ? 
sonst X-Koordinate 
erniedrigen 

X-Koordinate wieder speichern 
CY=1 f. kein Gesamtlinien-Ende 




616 Die Listings der CPC-ROMs 


k kkkk kkkkkkkkkkkkkkkkkkkkkkkkkkkk * 


18E7 

78 




LD 

A,B 

18E8 

Bl 




OR 

C 

18E9 

28 

39 



JR 

Z,1924 

18EB 

2A 

A5 

B6 


LD 

HL,(B6A5) 

18EE 

09 




ADD 

HL,BC 

18EF 

2B 




DEC 

HL 

18F0 

44 




LD 

B, H 

18F1 

4D 




LD 

C,L 

18F2 

EB 




EX 

DE,HL 

18F3 

CD 

66 

16 


CALL 

1666 

18F6 

2A 

A5 

B6 


LD 

HL,(B6A5) 

18F9 

EB 




EX 

DE,HL 

18FA 

23 




INC 

HL 

18FB 

22 

A5 

B6 


LD 

(B6A5),HL 

18FE 

38 

06 



JR 

C, 1906 

1900 

28 

22 



JR 

Z,1924 

1902 

ED 

4B 

9D 

B6 

LD 

BC,(B69D) 

1906 

CD 

66 

16 


CALL 

1666 

1909 

38 

05 



JR 

C,1910 

190B 

CO 




RET 

NZ 

190C 

ED 

5B 

9B 

B6 

LD 

DE,(B69B) 

1910 

D5 




PUSH 

DE 

1911 

ED 

5B 

A7 

B6 

LD 

DE,(B6A7) 

1915 

CD 

7C 

16 


CALL 

167C 

1918 

El 




POP 

HL 

1919 

38 

05 



JR 

C,1920 

191B 

21 

AE 

B6 


LD 

HL,B6AE 

191E 

AE 




XOR 

(HL) 

191 F 

F0 




RET 

P 

1920 

EB 




EX 

DE,HL 

1921 

DC 

BE 

0F 


CALL 

C, OFBE 

1924 

2A 

A7 

B6 


LD 

HL,(B6A7) 

1927 

3A 

AE 

B6 


LD 

A, (B6AE) 

192A 

07 




RLCA 


192B 

23 




INC 

HL 

192C 

38 

02 



JR 

C,1930 

192E 

2B 




DEC 

HL 

192F 

2B 




DEC 

HL 

1930 

22 

A7 

B6 


LD 

(B6A7),HL 

1933 

37 




SCF 


1934 

C9 




RET 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


1935 

AF 

XOR 

A 

1936 

95 

SUB 

L 

1937 

6F 

LD 

L,A 

1938 

9F 

SBC 

A 

1939 

94 

SUB 

H 

193A 

67 

LD 

H, A 

193B 

C9 

RET 


kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

19C0 

3A A3 B6 

LD 

A,(B6A3) 

19C3 

38 08 

JR 

C,19CD 


horizontale Teil Linie ziehen 

IN : BC: Länge der Linie 

OUT: CY=0, wenn Gesamt Linien-Ende 


Linie analog zu Routine 
für vertikale Teil Linie 
(S189A bis S18E6) ziehen 


und Y-Koordinate analog 
weiterzählen 


Zweierkomplement von HL bilden 


Pixel für GRA WR CHAR setzen 
IN : CY: Pixel-Bit 
Pen-Maske 
Pixel setzen ? 
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19C5 

3A 

B4 

B6 

LD 

A,(B6B4) 

19C8 

B7 



OR 

A 

19C9 

CO 



RET 

NZ 

19CA 

3A 

A4 

B6 

LD 

A,(B6A4) 

19CD 

47 



LD 

B, A 

19CE 

C3 

E8 

BD 

JP 

BDE8 


********************************** 


1901 32 B4 B6 LD (B6B4),A 

1904 C9 RET 

************************************ 


19D5 

22 

A5 

B6 

LD 

(B6A5),HL 

19D8 

36 

01 


LD 

(HL),01 

19DA 

1B 



DEC 

DE 

19DB 

ED 

53 

A7 B6 

LD 

(B6A7),DE 

19DF 

CD 

8A 

OC 

CALL 

0C8A 

19E2 

32 

AA 

B6 

LD 

(B6AA),A 

19E5 

CD 

20 

16 

CALL 

1620 

19E8 

CD 

93 

16 

CALL 

1693 

19EB 

DC 

3E 

1B 

CALL 

C, 1B3E 

19EE 

DO 



RET 

NC 

19EF 

E5 



PUSH 

HL 

19F0 

CD 

E3 

1A 

CALL 

1AE3 

19F3 

E3 



EX 

(SP),HL 

19F4 

CD 

11 

1B 

CALL 

1B11 

19F7 

CI 



POP 

BC 

19F8 

3E 

FF 


LD 

A, FF 

19FA 

32 

A9 

B6 

LD 

(B6A9),A 

19FD 

E5 



PUSH 

HL 

19FE 

D5 



PUSH 

DE 

19FF 

C5 



PUSH 

BC 

1A00 

CD 

07 

1A 

CALL 

1A07 

1A03 

Ci 



POP 

BC 

1A04 

Dl 



POP 

DE 

1A05 

El 



POP 

HL 

1A06 

AF 



XOR 

A 

1A07 

32 

AB 

B6 

LD 

(B6AB),A 

1AOA 

CD 

DA 

1A 

CALL 

1ADA 

1A0D 

CD 

93 

16 

CALL 

1693 

1 AI 0 

DC 

4C 

1A 

CALL 

C,1A4C 

1A13 

38 

F5 


JR 

C, 1A0A 

1A15 

2A 

A5 

B6 

LD 

HL,(B6A5) 

1 Al 8 

E7 



RST 

20 

1A19 

FE 

01 


CP 

01 

1A1B 

28 

2A 


JR 

Z, 1A47 

1 AID 

32 

AB 

B6 

LD 

(B6AB),A 

1A20 

EB 



EX 

DE,HL 

1A21 

2A 

A7 

B6 

LD 

HL,(B6A7) 

1A24 

01 

07 

00 

LD 

BC,0007 

1A27 

09 



ADD 

HL,BC 

1A28 

22 

A7 

B6 

LD 

(B6A7),HL 


Hintergrund-Modus 

transparent ? 

dann zurück 

sonst Paper-Maske 

Farbmaske nach B 

SCR WRITE, Pixel setzen 

GRA SET BACK 

IN : A: Hintergrund-Modus-Flag 
$FF = transparent 


GRA FILL 

IN : A: Färbstift-Nummer 
HL: Bufferadresse 
DE: Bufferlänge 
OUT: CY=0, wenn Fehler 
Bufferadresse speichern 
Seitenflag 1 als Bufferende 
Bufferlänge -1 f. Endekennz, 
Bufferlönge speichern 
SCR INK ENCODE, Farbmaske hol 
Sperr-Farbmaske speichern 
reale Cursorkoordinaten holen 
liegen Koord. im Window ? 
dann Test, ob Pixel gesetzt 
gesetzt/nicht im Window ? 
sonst Y-Koordinate retten 
Linie nach oben bis Sperrfarbe 
obere Y-Grenze r., alte Y-K. 
Linie nach unten bis Sperrf. 
obere Y-Liniengrenze 

Flag für ausreichend Platz 
setzen 

Y-Liniengrenzen 

und X-Koordinate retten 

rechte Seite bearbeiten 

Y-Grenzen und X-Koordinate 
zurück 

Flag für linke Seite 
Seitenflag setzen 
X-K. entspr. Seitenfl. veränd. 
Koordinaten innerh. Window ? 
dann Nebenlinie bearbeiten 
ggf. weiter in diese Richtung 
Bufferzeiger 

Seitenflag aus Buffer holen 
Endkennzeichen ? 
dann fertig 
Seitenflag setzen 

restliche Bufferlänge 
tan 7 erhöhen, da 7 Bytes 
pro Parameterblock im 
Buffer 
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1A2B 

EB 


EX 

DE, HL 

1A2C 

2B 


DEC 

HL 

1A2D 

E7 


RST 

20 

1A2E 

47 


LD 

B,A 

1A2F 

2B 


DEC 

HL 

1A30 

E7 


RST 

20 

1A31 

4F 


LD 

C, A 

1A32 

2B 


DEC 

HL 

1A33 

E7 


RST 

20 

1A34 

57 


LD 

D,A 

1A35 

2B 


DEC 

HL 

1A36 

E7 


RST 

20 

1A37 

5F 


LD 

E/A 

1A38 

D5 


PUSH 

DE 

1A39 

2B 


DEC 

HL 

1A3A 

E7 


RST 

20 

1A3B 

57 


LD 

D,A 

1A3C 

2B 


DEC 

HL 

1A3D 

E7 


RST 

20 

1A3E 

5F 


LD 

E,A 

1A3F 

2B 


DEC 

HL 

1A40 

22 A5 

B6 

LD 

(B6A5),HL 

1A43 

EB 


EX 

DE,HL 

1A44 

Dl 


POP 

DE 

1A45 

18 C6 


JR 

1A0D 

1A47 

3A A9 

B6 

LD 

A, (B6A9) 

1A4A 

OF 


RRCA 


1A4B 

C9 


RET 



•biffc'k'k'k'k'kifick'k'kii'k'kit'k'&it'k'k'kit'k'k'k'k'k'if'k'k'it'k 


1A4C 

ED 

43 

AC B6 

LD 

(B6AC),BC 

1A50 

CD 

3E 

1B 

CALL 

1B3E 

1A53 

38 

09 


JR 

C,1A5E 

1A55 

CD 

ED 

1A 

CALL 

1AED 

1A58 

DO 



RET 

NC 

1A59 

22 

AE 

B6 

LD 

(B6AE),HL 

1A5C 

18 

11 


JR 

1A6F 

1A5E 

E5 



PUSH 

HL 

1A5F 

CD 

11 

1B 

CALL 

1B11 

1A62 

22 

AE 

B6 

LD 

(B6AE),HL 

1A65 

CI 



POP 

BC 

1A66 

TD 



LD 

A,L 

1A67 

91 



SUB 

C 

1A68 

7C 



LD 

A,H 

1A69 

98 



SBC 

B 

1A6A 

DC 

C7 

1A 

CALL 

C,1AC/ 

1A6D 

60 



LD 

H,B 


obere Y-Liniengrenze 
aus Buffer nach BC 


X-Koordinate aus Buffer 
nach DE 


X-Koordinate retten 

untere Y-Liniengrenze 
aus Buffer nach DE 


neuen Bufferzeiger setzen 
untere Y-Liniengrenze nach HL 
X-Koordinate nach DE 
Linienbereich bearbeiten 

Flag für Bufferüberlauf 
CY=0, wenn Bufferüberlauf 


angrenzende Linien bearbeiten 
IN/OUT: BC: obere Y-Liniengrenze 
HL: untere Y-Liniengrenze 
DE: X-Koordinate 

OUT: CY=0, wenn keine Erweiterung 
nach dieser Seite möglich 
(Grenzen der Linie, die an 
die Linie mit den IN-Grenzen 
an der durch das Seitenflag 
bestimmten Seite angrenzt) 

obere Y-Liniengrenze 

Pixel in Sperrfarben gesetzt ? 

nein ? 

nach oben bis Nicht-Sperrfarbe 
nur Sperrfarbe ? 
neue untere Y-Liniengrenze 
keine Erweiterung nach unten 
alte untere Y-Liniengrenze 
Linie n. unten bis Sperrfarbe 
neue untere Y-Liniengrenze 
alte Y-Liniengrenze 

neue Grenze < alte (unten 
nach außen erweitert) ? 
dann ggf. Params für Linie 
nach anderer Seite (Linie 
unter aufrufender) in Buffer 
alte untere Y-Grenze als 
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1A6E 

69 




LD 

L,C 

1A6F 

CD 

E3 

1A 


CALL 

1AE3 

1A72 

22 

BO 

B6 


LD 

(B6B0),HL 

1A75 

ED 

4B 

AC 

B6 

LD 

BC,(B6AC) 

1A79 

B7 




OR 

A 

1A7A 

ED 

42 



SBC 

HL,BC 

1A7C 

09 




ADD 

HL, BC 

1A7D 

28 

11 



JR 

Z,1A90 

1A7F 

30 

08 



JR 

NC,1A89 

1A81 

CD 

ED 

1A 


CALL 

1AED 

1A84 

DC 

99 

1A 


CALL 

C, 1A99 

1A87 

18 

07 



JR 

1A90 

1A89 

E5 




PUSH 

HL 

1A8A 

60 




LD 

H,B 

1A8B 

69 




LD 

L,C 

1A8C 

CI 




POP 

BC 

1A8D 

CD 

C7 

1A 


CALL 

1AC7 

1A90 

2A 

AE 

B6 


LD 

HL,(B6AE) 

1A93 

ED 

4B 

B0 

B6 

LD 

BC,(B6B0) 

1A97 

37 




SCF 


1A98 

C9 




RET 



Startposition 

Linie nach oben bis Sperrfarbe 
neue obere Y-Liniengrenze 
alte obere Y-Liniengrenze 

alte Grenze mit neuer 
vergleichen 
gleich ? 

neue größer alte ? 
nach oben bis Nicht-Sperrfarbe 
ggf. akt. Params in Buffer 
neue Grenzen laden 
obere Y-Liniengrenze 
nach BC 

alte obere Y-Liniengrenze 
nach HL, als neue untere 
Params f. Linie unter IN-Linie 
neue untere 

und obere Y-Liniengrenze laden 
CY=1 für Bereich erweitert 




Parameter für Linie in Buffer 
IN : DE: X-Koordinate 


1A99 

D5 



PUSH 

DE 

1A9A 

E5 



PUSH 

HL 

1A9B 

2A 

A7 

B6 

LD 

HL,(B6A7) 

1A9E 

11 

F9 

FF 

LD 

DE,FFF9 

1AA1 

19 



ADD 

HL,DE 

1AA2 

Dl 



POP 

DE 

1AA3 

30 

IC 


JR 

NC,1AC1 

1AA5 

22 

A7 

B6 

LD 

(B6A7),HL 

1AA8 

2A A5 

B6 

LD 

HL,(B6A5) 

1AAB 

23 



INC 

HL 

1AAC 

73 



LD 

(HL),E 

1AAD 

23 



INC 

HL 

1AAE 

72 



LD 

(HL),D 

1AAF 

23 



INC 

HL 

1 ABO 

Dl 



POP 

DE 

1 AB 1 

73 



LD 

(HL),E 

1AB2 

23 



INC 

HL 

1AB3 

72 



LD 

(HL),D 

1AB4 

23 



INC 

HL 

1 AB 5 

71 



LD 

(HL),C 

1AB6 

23 



INC 

HL 

1AB7 

70 



LD 

(HL),B 

1AB8 

23 



INC 

HL 

1AB9 

3A 

AB 

B6 

LD 

A, (B6AB) 

1 ABC 

77 



LD 

(HL),A 

1ABD 

22 

A5 

B6 

LD 

(B6A5),HL 

1AC0 

C9 



RET 


1 AC 1 

AF 



XOR 

A 

1AC2 

32 

A9 

B6 

LD 

(B6A9),A 

1AC5 

Dl 



POP 

DE 

1AC6 

C9 



RET 



HL: untere Y-Liniengrenze 
BC: obere Y-Liniengrenze 
($B6AB): Seitenflag 


restliche Bufferlänge 
minus 7 für einen Datensatz 


kein Platz mehr im Buffer ? 
neue Bufferlänge 
Bufferzeiger 


untere Y-Liniengrenze 
in Buffer speichern 


X-Koordinate 
in Buffer speichern 


obere Y-Liniengrenze 
in Buffer speichern 

Seitenflag 
in Buffer speichern 
neuen Bufferzeiger setzen 

Kennzeichen für Bufferüberlauf 
setzen 
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* * ***** ************* 9c 9t *********** * 


1AC7 

CD 

D3 

1A 

CALL 

1AD3 

1ACA 

CD 

3E 

1B 

CALL 

1B3E 

1ACD 

DA 

ED 

1A 

CALL 

NC,1AED 

1 ADO 

DC 

99 

1A 

CALL 

C,1A99 

1AD3 

3A 

AB 

B6 

LD 

A,(B6AB) 

1AD6 

2F 



CPL 


1AD7 

32 

AB 

B6 

LD 

(B6AB),A 

1ADA 

1B 



DEC 

DE 

1ADB 

3A 

AB 

B6 

LD 

A,(B6AB) 

1ADE 

B7 



OR 

A 

1ADF 

C8 



RET 

Z 

1AE0 

13 



INC 

DE 

1 AE 

13 



INC 

DE 

1AE2 

C9 



RET 



rtiAnfr Ä ********** ft* £■** tät ■* ******* * * & 


1AE3 

AF 



XOR 

A 

1AE4 

ED 

4B 

9F B6 

LD 

BC,(B69F) 

1AE8 

CD 

EF 

1A 

CALL 

1AEF 

1AEB 

2B 



DEC 

HL 

1AEC 

C9 



RET 



■fr#☆* 1t ☆ **&**********Ä *■********* iS?*•&• * 


1 AED 

3E 

FF 


LD 

A, FF 

1AEF 

C5 



PUSH 

BC 

1AFO 

D5 



PUSH 

DE 

1AF1 

E5 



PUSH 

HL 

1AF2 

F5 



PUSH 

AF 

1AF3 

CD 

4B 

1B 

CALL 

1B4B 

1AF6 

Fl 



POP 

AF 

1AF7 

47 



LD 

B,A 

1AF8 

CD 

30 

1B 

CALL 

1B30 

1AFB 

04 



INC 

B 

1AFC 

10 

04 


DJNZ 

1B02 

1AFE 

30 

47 


JR 

NC,1B47 

1B00 

AE 



XOR 

(HL) 

1 BOI 

77 



LD 

(HL),A 

1B02 

38 

43 


JR 

C, 1B47 

1B04 

E3 



EX 

(SP),HL 

1B05 

23 



INC 

HL 

1B06 

E3 



EX 

(SP),HL 

1B07 

ED 

52 


SBC 

HL,DE 

1B09 

28 

3C 


JR 

Z,1B47 

1B0B 

19 



ADD 

HL,DE 


Params f. andere Seite in Buffer 
IN : HL: neue untere Y-Grenze 
BC: alte untere Y-Grenze 
DE: X-Koordinate 
Params für andere Seite setzen 
Pixel in Sperrfarbe ? 
dann n. oben bis Nicht-Sperrf. 
Nicht-Sperrf. ? dann in Buffer 
Seitenflag 
invertieren 
und wieder speichern 
X-Koordinate erniedrigen 
Seitenflag 

Flag für linke Seite ? 
sonst X-Koordinate 
erhöhen 


Linie nach oben, bis Sperrfarbe 
IN : HL: Y-Koordinate 
DE: X-Koordinate 
OUT: HL: obere Liniengrenze 
DE: wie IN 

BC: obere Windowgrenze 
Flag für Linie ziehen 
obere Windowgrenze 
Linie ziehen, bis Sperrfarbe 
Koord. unterhalb Sperrfarbe 


nach oben, bis Nicht-Sperrfarbe 
IN : HL: Y-Koordinate 
BC: obere Y-Grenze 
DE: X-Koordinate 
OUT: HL: neue Y-Koordinate 

CY=0, wenn nur Sperrfarbe 
Flag f. Test auf Nicht-Sperrf. 
obere Y-Grenze 
X-Koordinate 
Y-Koordinate 
Flag f. ziehen/testen 
akt. und max. Position berech. 
Flag f. ziehen/testen 
nach B 

Test, ob Pixel in Sperrfarbe 
Flag für Nicht-Sperrfarbe 
gesucht ? 

Pixel in Sperrfarbe ? d. zur. 
sonst Pixel in gewünschter 
Farbe setzen, CY=0 
Nicht-Sperrfarbe erreicht ? 
Y-Koordinate 
auf dem Stack 
erhöhen 

maximale Position erreicht ? 
dann zurück 

sonst alten Wert wiederherst. 
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1BOC CD 35 OC CALL 0C35 SCR PREV LINE, eine Zeile hoch 

1 BOF 18 E7 JR 1AF8 weiter prüfen 


********************************** 


1 Bl 1 

C5 



PUSH 

BC 

1B12 

D5 



PUSH 

DE 

1B13 

E5 



PUSH 

HL 

1B14 

ED 

4B 

AI B6 

LD 

BC,(B6A1) 

1 Bl 8 

CD 

4B 

1B 

CALL 

1B4B 

1 Bl B 

B7 



OR 

A 

1 Bl C 

ED 

52 


SBC 

HL,DE 

1 Bl E 

28 

27 


JR 

Z,1B47 

1B20 

19 



ADD 

HL,DE 

1B21 

CD 

1B 

OC 

CALL 

OC 1B 

1B24 

CD 

30 

1B 

CALL 

1B30 

1B27 

28 

IE 


JR 

Z, 1B47 

1B29 

AE 



XOR 

(HL) 

1B2A 

77 



LD 

(HL),A 

1B2B 

E3 



EX 

(SP),HL 

1B2C 

2B 



DEC 

HL 

1B2D 

E3 



EX 

(SP),HL 

1B2E 

18 

EB 


JR 

1B1B 


************************************ 


1B30 

3A 

A3 

B6 

LD 

A,(B6A3) 

1B33 

AE 



XOR 

(HL) 

1B34 

AI 



AND 

C 

1B35 

C8 



RET 

Z 

1B36 

3A 

AA 

B6 

LD 

A,(B6AA) 

1B39 

AE 



XOR 

(HL) 

1B3A 

AI 



AND 

C 

1B3B 

C8 



RET 

Z 

1B3C 

37 



SCF 


1B3D 

C9 



RET 



Linie nach unten, bis Sperrfarbe 
IN : HL: Y-Koordinate 
DE: X-Koordinate 
OUT: HL: untere Y-Liniengrenze 
BC: untere Windowgrenze 


untere Windowgrenze 

akt. und min. Pos. berechnen 

untere Grenze erreicht ? 
dann zurück 

alten Wert wiederherstellen 
SCR NEXT LINE, nach unten 
Pixel in Sperrfarbe gesetzt ? 
dann fertig 

sonst Pixel in gewünschter 
Farbe setzen 
X-Koordinate 
auf dem Stack 
herunterzähln 
weiter prüfen 

Test, ob Pixel in Sperrfarbe gesichert 
IN : HL: Bildschirmadresse 

C: Maske für Pixelauswahl 
OUT: CY=0,Z=1, wenn in Sperrfarbe 
A: Differenzbits zu Füllfar. 
Pen-Farbmaske 

mit Bildschirmbyte vergleichen 
Bits für dieses Pixel isolier. 

Pixel in Pen-Farbe gesetzt ? 

Füll-Farbmaske 

mit Bildschirmbyte vergleichen 
Bits für dieses Pixel isolier. 

Pixel in Füll-Farbe gesetzt ? 
sonst CY=1, nicht in Sperrfar. 


********************************** 


1B3E 

C5 



PUSH 

BC 

1B3F 

D5 



PUSH 

DE 

1B40 

E5 



PUSH 

HL 

1B41 

CD 

AB 

OB 

CALL 

OBAB 

1B44 

CD 

30 

1B 

CALL 

1B30 

1B47 

El 



POP 

HL 

1B48 

Dl 



POP 

DE 

1B49 

CI 



POP 

BC 

1B4A 

C9 



RET 



Test, ob Pixel in Sperrfarbe gesichert 
IN : HL: Y-Koordinate 
DE: X-Koordinate 

OUT: CY=0,Z=1, wenn in Sperrfarbe 
A: Differenzbits zu Füllfar. 


BiIdschirmadr. und Maske ber. 
testen, ob Pixel in Sperrfarbe 
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********************************** 


1B4B 

C5 



PUSH 

BC 

1B4C 

D5 



PUSH 

DE 

1B4D 

CD 

AB 

OB 

CALL 

OBAB 

1B50 

Dl 



POP 

DE 

1B51 

E3 



EX 

(SP),HL 

1B52 

CD 

AB 

OB 

CALL 

OBAB 

1B55 

EB 



EX 

DE,HL 

1B56 

El 



POP 

HL 

1B57 

C9 



RET 


********************************** 

1BFE 

CD 

C5 

1B 

CALL 

1BC5 

1C01 

38 

FB 


JR 

C, 1BFE 

1C03 

C9 



RET 



aktuelle und Grenz-Position berechnen 
IN : DE: X-Koordinate 

HL: akt. Y-Koordinate 
BC: Grenz-Y-Koordinate 
OUT: HL: akt. Bildschirmadresse 
DE: Grenz-BiIdschirmadresse 
C: Maske für Pixelauswahl 
Grenz-Y-Koordinate 
X-Koordinate 

BiIdschirmadr. der akt. Pos. 
X-Koordinate zurück 
Grenz-Y-Koordinate zurück 
BiIdschirmadr. der Grenzpos. 
nach DE 

akt. BiIdschirmadr. nach HL 


KM FLUSH 

Zeichen lesen 

bis kein Zeichen in Buffer 


********************************** 


1D3C 22 31 B6 LD (B631),HL 

1D3F C9 RET 


KM SET LOCKS 

IN : L<b7>=1 f. Shift Lock 
H<b7>=1 f. Caps Lock 
Caps/Shift Lock Flags setzen 


********************************** 


201A 

DD 

E5 



PUSH 

IX 

201C 

E5 




PUSH 

HL 

201D 

21 

F0 

Bl 


LD 

HL,BlF0 

2020 

34 




INC 

(HL) 

2021 

E5 




PUSH 

HL 

2022 

DD 

21 

B9 

Bl 

LD 

IX,B1B9 

2026 

79 




LD 

A, C 

2027 

CD 

09 

22 


CALL 

2209 

202A 

F5 




PUSH 

AF 

202B 

C5 




PUSH 

BC 

202C 

CD 

86 

22 


CALL 

2286 

202F 

CD 

E7 

23 


CALL 

23E7 

2032 

DD 

E5 



PUSH 

IX 

2034 

Dl 




POP 

DE 

2035 

13 




INC 

DE 

2036 

13 




INC 

DE 

2037 

13 




INC 

DE 

2038 

6B 




LD 

L,E 

2039 

62 




LD 

H,D 

203A 

13 




INC 

DE 

203B 

01 

3B 

00 


LD 

BC,003B 

203E 

36 

00 



LD 

(HL),00 

2040 

ED 

B0 



LDIR 


2042 

DD 

36 

IC 

04 

LD 

{IX+1C),04 

2046 

CI 




POP 

BC 

2047 

Fl 




POP 

AF 

2048 

20 

DD 



JR 

NZ,2027 

204A 

El 




POP 

HL 


Parameter-Blöcke initialisieren 
IN : C: Kanalbits 


Scan Sound Queues 
ausschalten 

Zeiger auf Flag retten 
Params Kanal A -$3F 
Kanalbits 

Adresse der Params berechnen 
restl. Kanalbits retten 

Kanal aus lfd. Aktiv, löschen 
und ausschalten 
Zeiger auf Params 
nach DE 

Zeiger auf Kanalstatus 

nach HL 
kopieren 

Zeiger auf ENT-Flag 

Länge d. restl. Param-Blocks 

Status löschen 

und restl. Block löschen 

4 freie Plätze in Queue 

Kanalbits zurück 
noch Kanäle? d. initialisieren 
Bearbeitungsflag wieder auf 
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204B 

35 



DEC 

(HL) 

204C 

El 



POP 

HL 

204D 

DD 

El 


POP 

IX 

204 F 

C9 



RET 


ic * ic ■& * ifir -kitic * •£*** * ****** tfr ick 1t itirkit tr i< * * 

206B 

11 

ED 

Bl 

LD 

DE,B1ED 

206E 

1A 



LD 

A, (DE) 

206F 

B7 



OR 

A 

2070 

C8 



RET 

Z 

2071 

D5 



PUSH 

DE 

2072 

DD 

21 

B9 Bl 

LD 

IX,B1B9 

2076 

CD 

09 

22 

CALL 

2209 

2079 

F5 



PUSH 

AF 

207A 

DD 

7E 

0F 

LD 

A,(IX+0F) 

207D 

DC 

DE 

23 

CALL 

C,23DE 

2080 

Fl 



POP 

AF 

2081 

20 

F3 


JR 

NZ.2076 

2083 

E3 



EX 

(SP),HL 

2084 

7E 



LD 

A, (HL) 

2085 

36 

00 


LD 

(HL),00 

2087 

23 



INC 

HL 

2088 

77 



LD 

(HL),A 

2089 

El 



POP 

HL 

208A 

C9 



RET 



ifkirklctrtc-ftirtcirtolftticickirkitltitlclcick-tckifkirkicic 


208B 

DD 

E5 



PUSH 

IX 

208D 

3A 

EE 

Bl 


LD 

A,(BlEE) 

2090 

B7 




OR 

A 

2091 

28 

3D 



JR 

Z,20D0 

2093 

F5 




PUSH 

AF 

2094 

DD 

21 

B9 

Bl 

LD 

IX.B1B9 

2098 

01 

3F 

00 


LD 

BC,003F 

209B 

DD 

09 



ADD 

IX,BC 

209D 

CB 

3F 



SRL 

A 

209F 

30 

FA 



JR 

NC,209B 

20A1 

F5 




PUSH 

AF 

20A2 

DD 

7E 

04 


LD 

A, (IX+04) 

20A5 

1F 




RRA 


20A6 

DC 

1F 

24 


CALL 

C,241F 

20A9 

DD 

7E 

07 


LD 

A,(IX+07) 

20AC 

1 F 




RRA 


20 AD 

DC 

1 F 

23 


CALL 

C, 231 F 

20B0 

DC 

13 

22 


CALL 

C,2213 

20B3 

Fl 




POP 

AF 

20B4 

20 

E2 



JR 

NZ,2098 

20B6 

CI 




POP 

BC 

20B7 

3A 

EE 

Bl 


LD 

A, (B1EE) 

20BA 

2F 




CPL 


208B 

A0 




AND 

B 

20BC 

28 

12 



JR 

Z,20D0 

208E 

DD 

21 

B9 

Bl 

LD 

IX,B1B9 

20C2 

11 

3F 

00 


LD 

DE,003F 

20C5 

DD 

19 



ADD 

IX,DE 

20C7 

CB 

3F 



SRL 

A 

20C9 

F5 




PUSH 

AF 

20CA 

DC 

E7 

23 


CALL 

C,23E7 


alten Wert setzen 


SOUND CONTINUE 

Zeiger auf alte Aktivitäten 

alte Aktivitäten laden 

keine alten Aktivitäten? 

dann raus 

Zeiger retten 

Params Kanal A -$3F 

Adresse d. alten Aktiv, ber. 

restl. Aktiv, retten 

lfd. Lautstärke laden 

und in entspr. PSG-Reg. (!) 

restl. alte Aktivitäten 

ggf. nächsten Kanal bearbeiten 

Zeiger alte Aktiv. -> HL 

alte Aktivitäten 

löschen 

und als lfd. Aktivitäten 
setzen 


Sound Event (asynchronous) 

lfd. Aktivitäten 

keine? 

dann raus 

Aktivitäten retten 

Params Kanal A -$3F 

Länge eines Parameter-Blockes 

addieren 

bis ein 1-Bit 

gefunden 

restliche Kanal-Bits retten 
ENT-Flag 

ENT-Folge zu bearbeiten? 
dann ENT-Folge bearbeiten 
ENV-Flag 

ENV-Folge zu bearbeiten? 
dann ENV-Folge bearbeiten 
ggf. nächsten Ton bearbeiten 
restl. lfd. Aktivitäten 
ggf. nächsten Kanal bearbeiten 
lfd. Aktivitäten nach B 
alte Aktivitäten 
aus 

lfd. Aktivitäten herausnehmen 
keine Aktiv, übrig? d. raus 
Params Kanal A -$3F 
Länge eines Parameterblockes 
addieren 

unterstes Bit ins Carry 
und restl. Kanal-Bits retten 
Kanal übrig? dann ausschalten 
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20CD 

Fl 




POP 

AF 

20CE 

20 

F5 



JR 

NZ,20C5 

20D0 

AF 




XOR 

A 

20D1 

32 

F0 

Bl 


LD 

(B1F0),A 

20D4 

DD 

El 



POP 

IX 

20D6 

C9 




RET 


********************** * *********** 

2142 

BO 




OR 

B 

2143 

E6 

0F 



AND 

0F 

2145 

4F 




LD 

C,A 

2146 

E5 




PUSH 

HL 

2147 

21 

F0 

Bl 


LD 

HL,BlF0 

214A 

34 




INC 

(HL) 

214B 

E3 




EX 

(SP),HL 

214C 

23 




INC 

HL 

214D 

DD 

21 

B9 

Bl 

LD 

IX,B1B9 

2151 

11 

3F 

00 


LD 

DE,003F 

2192 

CI 




POP 

BC 

2193 

El 




POP 

HL 

2194 

04 




INC 

B 

2195 

10 

BA 



DJNZ 

2151 

2197 

E3 




EX 

(SP),HL 

2198 

35 




DEC 

(HL) 

2199 

El 




POP 

HL 

219A 

37 




SCF 


219B 

C9 




RET 


********************************** 

21B4 

21 

F0 

Bl 


LD 

HL,BlF0 

21B7 

34 




INC 

(HL) 

21B8 

E5 




PUSH 

HL 

21B9 

DD 

21 

B9 

Bl 

LD 

IX,B1B9 

21BD 

CD 

09 

22 


CALL 

2209 

21 CO 

F5 




PUSH 

AF 

21C1 

DD 

CB 

03 

5E 

BIT 

3, (IX+03) 

21C5 

C4 

19 

22 


CALL 

NZ,2219 

21C8 

Fl 




POP 

AF 

21C9 

20 

F2 



JR 

NZ,21BD 

21 CB 

El 




POP 

HL 

21CC 

35 




DEC 

(HL) 

21 CD 

C9 




RET 



********************************** 


2209 

11 

3F 00 

LD 

DE,003F 

220C 

DD 

19 

ADD 

IX,DE 

220E 

CB 

3F 

SRL 

A 

2210 

D8 


RET 

C 

2211 

18 

F9 

JR 

220C 


restl. Kanal-Bits 
ggf. nächsten Kanal bearbeiten 
Flag für 'Kanäle bearbeiten 1 
löschen 


(SOUND QUEUE) 

und noch als Rendezvous setzen 
u. isolieren, 'hold' in b3 
neuer Status nach C 
Zeiger auf Übergabe retten 
Scan Sound Queues 
verhindern 

Zeiger auf Übergabe nach HL 
Zeiger auf ENV-Folgenurmner 
Params Kanal A -$003F 
Länge eines Parameterblockes 

Kanalbits u. Datenstatus 
Zeiger auf Übergabe 
zum Ausgleich erhöhen 
ggf. weitere Kanäle bearbeiten 
Zeiger auf Bearbeitungsflag 
Bearbeitungsflag wiederherst. 

CY:=1 für o.k. 


(SOUND RELEASE) 

Scan Sound Queues 
verhindern 

Zeiger auf Bearbeitungsflag 
Params Kanal A -$3F 
Adresse d. Parameterblocks 
restliche Kanal-Bits retten 
Queue im Haltezustand? 
d. Kanal aktivieren 
restliche Kanal-Bits 
ggf. weitere Kanäle bearbeiten 
Zeiger auf Bearbeitungsflag 
Flag wiederherstellen 


Adresse eines Param-Blocks ber. 

IN : IX: Adr. alter Param-Block 
A: Kanal-Bits,<>0 (wichtig!) 
OUT: IX: Adr. neuer Param-Block 
A: neue Kanal bits 
CY :=1 

Länge eines Parameter-Blockes 

addieren 

bis ein 1-Bit 

gefunden 

sonst weiter addieren 
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********************************** 


2254 

Fl 



POP 

AF 

2255 

CD 

DE 

22 

CALL 

22DE 

2258 

21 

EE 

Bl 

LD 

HL,B1EE 

225B 

DD 

46 

01 

LD 

B,(IX+01) 

225 E 

7E 



LD 

A,(HL) 

225 F 

B0 



OR 

B 

2260 

77 



LD 

(HL),A 

2261 

A8 



XOR 

B 

2262 

20 

03 


JR 

NZ,2267 

2264 

23 



INC 

HL 

2265 

36 

03 


LD 

(HL),03 

2267 

DD 

34 

19 

INC 

(IX+19) 


********************************** 


2280 CB 9E RES 3 # (HL) 

2282 DD 36 03 08 LD (IX+03),08 

■fr********************************* 


2286 

21 

EE 

Bl 

LD 

HL,B1EE 

2289 

DD 

7E 

01 

LD 

A,(IX+01) 

228C 

2F 



CPL 


228D 

A6 



AND 

(HL) 

228E 

77 



LD 

(HL),A 

228F 

C9 



RET 



********************************** 


23E7 AF XOR A 

********************************** 


24DC 3A E7 Bl LD A,(B1E7) 

24DF 37 SCF 

24E0 C9 RET 

********************************** 


24 FE 

DD 

21 

5F Bl 

LD 

IX,B15F 

2502 

DD 

7E 

00 

LD 

A,(IX+00) 

2505 

B7 



OR 

A 

2506 

3E 

0E 


LD 

A, 0E 

2508 

C0 



RET 

NZ 


********************************** 


2550 3A 1A Bl LD A,(B11A) 

2553 B7 OR A 


(Kanal aktivieren) 

ENV-Nummer 

Dauer, Rauschen und ENV setzen 
Zeiger lfd. Aktivitäten 
lfd. Kanalmaske 
lfd. Aktivitäten laden 
Kanal in lfd. Aktivitäten 
und lfd. Aktivitäten neu setz, 
sonstige Kanäle 
aktiv? 

sonst 100Hz Frequenzteiler 
auf Startwert setzen 
lfd. Datenblocknummer erhöhen 

Queue anhalten, Kanal aus Aktiv. 

IM : IX: Zeiger auf Params 

HL: Zeiger lfd. Datenblock 
Hold-Bit in Daten ausschalten 
und Kanal in Kaltezustand 

Kanal aus lfd. Aktivit. löschen 

IN : IX: Zeiger Params 

Zeiger auf lfd. Aktivitäten 
Kanalmaske 
Kanal 

aus lfd. Aktivitäten 
löschen 


Kanal abschalten 

IN : IX: Zeiger Params 

Maske für Kanal abschalten 

(CAS SET SPEED) 

OUT: A: beim Lesen erkannter 
Baudratenwert 
Wert laden 
CY=1 für o.k. 


(CAS OUT OPEN) 

IN : HL: Adresse des Filenamens 
B: Länge des Filenamens 
DE: Zeiger auf Ausgabebuffer 
OUT: HL: Zeiger auf gen. Header 
CY=0 für Fehler 
dann A=$0 e für schon offen 
Zeiger auf Ausgabeparameter 
Filestatus 

Nummer für Filestatus-Fehler 
schon offen ? dann Fehler 

CAS IN CLOSE 

OUT: CY=0 für Fehler 

dann A=$0E für nicht offen 
Eingabefile-Status 




626 Die Listings der CPC-ROMs 


2554 3E OE 
2556 C8 


LD A,OE 

RET Z 


Nummer für Filestatus-Fehler 
nicht offen ? dann Fehler 


**** * *** * ************* * **** * * * *** * 


2557 

21 

1A 

Bl 

LD 

HL,B11A 

255A 

06 

01 


LD 

B,01 

255C 

7E 



LD 

A, (HL) 

255D 

36 

00 


LD 

(HL),00 

255F 

C5 



PUSH 

BC 

2560 

CD 

6D 

25 

CALL 

256D 

2563 

Fl 



POP 

AF 

2564 

21 

E4 

Bl 

LD 

HL,B1E4 

2567 

AE 



XOR 

(HL) 

2568 

37 



SCF 


2569 

CO 



RET 

NZ 

256A 

77 



LD 

(HL),A 

256B 

9F 



SBC 

A 

256C 

C9 



RET 



********************************** 


256D 

FE 

04 

CP 

04 

256F 

D8 


RET 

C 

2570 

23 


INC 

HL 

2571 

5E 


LD 

E,(HL) 

2572 

23 


INC 

HL 

2573 

56 


LD 

D, (HL) 

2574 

6B 


LD 

L,E 

2575 

62 


LD 

H.D 

2576 

13 


INC 

DE 

2577 

36 

00 

LD 

(HL),00 

2579 

01 

FF 07 

LD 

BC,07FF 

257C 

C3 

AI BA 

JP 

BAA1 


CAS IN ABANDON 
OUT: CY=1 (immer) 

A=$FF für alle Files geschl. 
Zeiger auf Eingabefilestatus 
Bit für Eingabeflag 
alten Filestatus laden 
Filestatus auf geschlossen 
Bit für Ein-/Ausgabeflag 
ggf. Buffer löschen 
Bit für Ein-/Ausgabeflag 
Zeiger auf Ein-/Ausgabeflag 
entsprechendes Bit invertieren 
CY=1 für o.k. 
weitere Kennz. gesetzt ? 
Ein-/Ausgabeflag auf inaktiv 
A=$FF 


Ein-/Ausgabebuffer ggf. löschen 
IN : A: alter Filestatus 
HL: Zeiger auf Status 
nicht zeichenweise Datei 
oder CATALOG ? dann zurück 
Zeiger auf Bufferparameter 
Bufferadresse 
nach DE 

und nach HL als Quelle 

Bufferadr. +1 als Ziel 
1. Byte löschen 
Länge 

KL LDIR, Buffer löschen 


************************************ 


257F 

3A 

5F 

Bl 

LD 

A,(B15F) 

2582 

FE 

03 


CP 

03 

2584 

28 

13 


JR 

Z,2599 

2586 

C6 

FF 


ADD 

FF 

2588 

3E 

0E 


LD 

A, 0E 

258A 

DO 



RET 

NC 

258B 

21 

75 

Bl 

LD 

HL,B175 

258E 

35 



DEC 

(HL) 

258F 

23 



INC 

HL 

2590 

23 



INC 

HL 

2591 

7E 



LD 

A,(HL) 

2592 

23 



INC 

HL 

2593 

B6 



OR 

(HL) 

2594 

37 



SCF 


2595 

C4 

86 

27 

CALL 

NZ,2786 

2598 

DO 



RET 

NC 


CAS OUT CLOSE 
OUT: CY=0 für Fehler 

dann A=$0E, Z=0 für n. offen 
A=$00, Z=1 für Abbruch 
Ausgabefile-Status 
Abbruch ? 

dann keinen Block speichern 

Nummer für Status-Fehler 
nicht offen ? dann Fehler 
Kennzeichen für letzten 
Block setzen 


Block¬ 
länge 
<>0 ? 

CY=1 für kein Abbruch 
dann Block speichern 
Abbruch ? 
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************************** ******** 


2599 

21 

5F Bl 

LD 

HL,B15F 

259C 

06 

02 

LD 

B,02 

259E 

18 

BC 

JR 

255C 


********************************** 


26AC 

3A 30 Bl 

LD 

A,(B130) 

26AF 

B7 

OR 

A 

26B0 

3E 0F 

LD 

A, 0F 

26B2 

CO 

RET 

NZ 


********************************** 


2C02 

C5 



PUSH 

BC 

2C03 

D5 



PUSH 

DE 

2C04 

E5 



PUSH 

HL 

2C05 

CD 

F2 

2D 

CALL 

2DF2 

2C08 

01 

FF 

00 

LD 

BC,00FF 

2C0B 

7E 



LD 

A, (HL) 

2C0C 

FE 

30 


CP 

30 

2C0E 

38 

07 


JR 

C,2C17 

2C10 

FE 

3A 


CP 

3A 

2C12 

DC 

42 

2C 

CALL 

C,2C42 

2C15 

38 

F4 


JR 

C,2C0B 

2C17 

78 



LD 

A,B 

2C18 

B7 



OR 

A 

2C19 

7E 



LD 

A,(HL) 

2ClA 

C4 

42 

2C 

CALL 

NZ,2C42 

2C1D 

E5 



PUSH 

HL 

2C1E 

OC 



INC 

C 

2C1F 

7E 



LD 

A, (HL) 

********************************** 

2C42 

OC 



INC 

C 

2C43 

04 



INC 

B 

2C44 

23 



INC 

HL 

2C45 

C3 

25 

2F 

JP 

2F25 

********************************** 

2EC1 

2A 

16 

Bl 

LD 

HL,(Bl16) 

2EC4 

7C 



LD 

A, H 

2EC5 

B5 



OR 

L 

2EC6 

C9 



RET 



CAS OUT ABANDON 
OUT: CY=1 (immer) 

A=$FF für alle Files geschl. 
Zeiger auf Ausgabefilestatus 
Bit für Ausgabeflag 


(Block von Kassette lesen) 

OUT: CY=0, Z=0, A=$0F für EOF 
CY=0, Z=1, für Abbruch 
CY=1 für o.k 
Flag für letzen Block 

Nummer für EOF 

letzter Block ? dann Fehler 

(EDIT) 

IN : HL: Zeiger auf Eingabebuffer 
OUT: HL: Zeiger auf Eingabebuffer 
Z=1, wenn mit ESC terminiert 


Copy Cursor auschalten 
Pos. in Buffer und Bufferlänge 
Zeichen aus Buffer 
<“0"? 

dann keine Ziffer, raus 
<=11911? 

dann Ziffer, übernehmen 
und ggf. nächstes Zeichen 
Position in Buffer 
nicht am Bufferanfang? 
lfd. Zeichen aus Buffer 
ggf. übernehmen 
lfd. Zeiger als Bufferanfang 
Bufferlänge erhöhen 
Zeichen aus Buffer 

Zeichen in Buffer übernehmen 
Bufferlänge erhöhen 
Position in Buffer erhöhen 
Zeiger auf nächstes Zeichen 
Zeichen ausgeben 

Copy Cursor ausgeschaltet? 

OUT: Z=1, wenn CC ausgeschaltet 
CC Koordinaten 
testen 
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icickirk-kicic'k'k'k'kirttieieitie-fririrkicirfficirk-kirkirirk M3Dt 1 SSGnVGTQ L 01 Ch 

IN : DE.HL: Mantl 
(IY): Mant2 
B: 1. MSB Mant2 
OUT: Z=1, wenn gleich 

CY=0, wenn Mantl größer 

369D 7A LD A,D 

369E B8 CP B Mantissen 

369F CO RET NZ byteweise 

36A0 7B LD A,E vergleichen 

36A1 FD BE 02 CP (IY+02) 

36A4 CO RET NZ 

36A5 7 C LD A,H 

36A6 FD BE 01 CP (IY+01) 

36A9 CO RET NZ 

36AA 7D LD A,L 

36AB FD BE 00 CP (IY+00) 

36AE C9 RET 
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6.2.2 Das Basic des CPC 664 


********************************** 


C095 

CD 

52 

DE 

CALL 

DE52 

C098 

CD 

D4 

EE 

CALL 

EED4 

C09B 

30 

0A 


JR 

NC,C0A7 

C09D 

CD 

52 

DE 

CALL 

DE52 

COAO 

B7 



OR 

A 

C0A1 

37 



SCF 


C0A2 

CC 

69 

E8 

CALL 

Z,E869 

C0A5 

30 

E3 


JR 

NC,C08A 

C0A7 

D4 

DE 

CO 

CALL 

NC,CODE 

COAA 

21 

8A 

AC 

LD 

HL,AC8A 

COAD 

18 

08 


JR 

C0B7 


********************************** 


COAF 

CD 

FC 

CA 

CALL 

CA FC 

C0B2 

30 

FB 


JR 

NC,COAF 

C0B4 

CD 

9B 

C3 

CALL 

C39B 

C0B7 

CD 

52 

DE 

CALL 

DE52 

COBA 

B7 



OR 

A 

COBB 

28 

CA 


JR 

Z,C087 

COBD 

CD 

D4 

EE 

CALL 

EED4 

COCO 

30 

OB 


JR 

NC,C0CD 

C0C2 

CD 

4D 

FB 

CALL 

FB4D 

C0C5 

CD 

AA 

E7 

CALL 

E7AA 

C0C8 

CD 

8F 

CI 

CALL 

C18F 

COCB 

18 

BA 


JR 

C087 


********************************** 


CI 0D 

2A 

02 

AC 

LD 

HL,(AC02) 

C110 

EB 



EX 

DE,HL 

cm 

D5 



PUSH 

DE 

C112 

CD 

3D 

E2 

CALL 

E23D 

C115 

CD 

DE 

CO 

CALL 

CODE 

C118 

CD 

04 

CB 

CALL 

CB04 

C11B 

Dl 



POP 

DE 

CI IC 

DO 



RET 

NC 

CI ID 

E5 



PUSH 

HL 

CI IE 

2A 

04 

AC 

LD 

HL,(AC04) 

C121 

19 



ADD 

HL,DE 

CI 22 

D4 

El 

CO 

CALL 

NC,C0El 

Ci 25 

El 



POP 

HL 

CI 26 

37 



SCF 


Ci 27 

C9 



RET 



********************************** 


C13F 

CD 

31 

DE 

CALL 

DE31 

C142 

C3 

3D 

BD 

JP 

BD3D 

********************************** 

C1D7 

CD 

FE 

CI 

CALL 

CI FE 

C1DA 

CD 

B6 

CI 

CALL 

C1B6 

Ci DD 

CI 



POP 

BC 


(AUTO-Zeile auswerten) 

Spaces, TABs und LFs über lesen 
Zeilennummern-String wandeln 
Fehler (keine Zeilennummer) ? 
Spaces, TABs und LFs über lesen 
Zeilenende ? 

dann Zeile im Programm suchen 
nicht gefunden ? dann fertig 
keine Zeilen-Nr. ? dann AUTO absch. 
Zeiger auf Zeilen-Buffer 


normale Zeile holen/auswerten 
Eingabezeile holen 
Abbruch ? dann neue Zeile 
Linefeed ausgeben 
Spaces, TABs und LFs überlesen 
Zeilenende ? 
dann neue Zeile 
Zeilennummern-String wandeln 
keine Zeilennummer ? 

Strings in String-Bereich forcieren 
Zeile im Programm einfügen 
Basic-Zeiger initialisieren 
nächste Zeile holen 

Eingabezeile für AUTO holen 

OUT: CY=0 für Abbruch 

HL: Zeiger auf Zeile 
aktuelle AUTO-Zeilennummer 
nach DE 
und retten 

Zeile/Zeilennr. nach ASCII 

AUTO (zunächst) ausschalten 

Zeile ausgeben, neue Z. holen 

Zeilennunmer 

Abbruch ? dann zurück 

Zeiger auf Zeile 

AUTO-Schrittweite 

zu Zeilennummer addieren 

ggf. AUTO-Znr./Flag setzen 

Zeiger auf Zeile 

CY=1 für keinen Abbruch 


Basic-Befehl CLEAR INPUT 
INPUT-Token übergehen 
KM FLUSH, Tastaturbuffer leeren 

opt. Eingabekanal transp. setzen 
optionale Filenunmer holen 
als Eingabekanalnummer setzen 
Aufrufadresse 
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C1DE 

F5 



PUSH 

AF 

Ci DF 

CD 

C7 

CI 

CALL 

C1C7 

C1E2 

CD 

F0 

CI 

CALL 

C1F0 

C1E5 

Fl 



POP 

AF 

C1E6 

18 

CE 


JR 

C1B6 


*********************** ************ 


C223 

3E 

02 


LD 

A, 02 

C225 

18 

EF 


JR 

C216 

********************************** 

C227 

CD 

E8 

CI 

CALL 

C1E8 

C22A 

01 

90 

BB 

LD 

BC,BB90 

C22D 

C4 

42 

C2 

CALL 

NZ.C242 

C230 

CD 

46 

DE 

CALL 

DE46 

C233 

DO 



RET 

NC 

C234 

CD 

23 

C2 

CALL 

C223 

C237 

01 

9F 

BB 

LD 

BC.BB9F 

C23A 

18 

09 


JR 

C245 

********* ***** ********* *********** 

C23C 

CD 

E8 

CI 

CALL 

C1E8 

C23F 

01 

96 

BB 

LD 

BC,BB96 

C242 

CD 

74 

C2 

CALL 

C274 

C245 

E5 



PUSH 

HL 

C246 

CD 

FC 

FF 

CALL 

FFFC 

C249 

El 



POP 

HL 

C24A 

C9 



RET 


********************************** 

C28C 

CD 

10 

C2 

CALL 

C210 

C28F 

FE 

08 


CP 

08 

C291 

30 

8D 


JR 

NC.C220 

C293 

F5 



PUSH 

AF 

C294 

CD 

22 

DE 

CALL 

DE22 

C297 

Fl 



POP 

AF 

C298 

C3 

EF 

CI 

JP 

C1EF 

********************************** 

C29B 

CD 

8C 

C2 

CALL 

C28C 

C29E 

CD 

60 

BB 

CALL 

BB60 

C2A1 

C3 

78 

FA 

JP 

FA78 

********************************** 

C363 

CD 

E8 

CI 

CALL 

C1E8 

C366 

28 

0A 


JR 

Z,C372 

C368 

CD 

23 

C2 

CALL 

C223 

C36B 

B7 



OR 

A 

C36C 

CC 

84 

BB 

CALL 

Z,BB84 

C36F 

C4 

81 

BB 

CALL 

NZ.BB81 

C372 

CD 

46 

DE 

CALL 

DE46 

C375 

DO 



RET 

NC 

C376 

CD 

23 

C2 

CALL 

C223 

C379 

B7 



OR 

A 

C37A 

CA 

7E 

BB 

JP 

Z,BB7E 

C37D 

C3 

7B 

BB 

JP 

BB7B 


alte Eingabekanalnummer 
aktuelle Kanalnummer holen 
als Streamnr., Rout, weiterf. 
alte Eingabekanalnummer 
wieder setzen 

Bytewert <2 (als Flag) holen 
OUT: A: Bytewert 
Limit+1 

Bytewert <2 holen 

Basic-Befehl PEN 

opt. Streamnr. transp. setzen 
TXT SET PEN 

kein Komma ? dann PEN setzen 
folgt Komma ? 
nein ? dann zurück 
Bytewert <2 holen 
TXT SET BACK 

Hintergrund-Modus setzen 

Basic-Befehl PAPER 

opt. Streamnr. transp. setzen 
TXT SET PAPER 
Farbstiftnummer holen 
Basic-PC 

Routine ausführen 
Basic-PC 


Window-Nr. transparent setzen 
Filenr. holen 
Nummer >=8 ? 

dann "Inproper argument" 
Nuirmer retten 
Test auf Klarnner zu 
Wi ndow-Nurmer 
transparent setzen 

Basic-Funktion COPYCHRS 

Window-Nr. transparent setzen 
Zeichen an Cursorpos. lesen 
in I-Zeichen-String wandeln 

Basic-Befehl CURSOR 

opt. Streamnr. transp. setzen 
folgt Komma ? 

Bytewert <2 holen 
Byte =0 ? 
dann TXT CUR OFF 
sonst TXT CUR ON 
folgt Komma ? 
nein ? 

sonst Byte <2 holen 
Byte =0 ? 

dann TXT CUR DISABLE 
sonst TXT CUR ENABLE 
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C44F 

C3 

3A 

CC 

JP 

CC3A 

********************&*&**********& 

C452 

E5 



PUSH 

HL 

C453 

CD 

89 

BC 

CALL 

BC89 

C456 

28 

F7 


JR 

Z,C44F 

C458 

3F 



CCF 


C459 

9F 



SBC 

A 

C45A 

CD 

2D 

FF 

CALL 

FF2D 

C45D 

El 



POP 

HL 

C45E 

C9 



RET 



********************************** 


C45F 

CD 

80 

BC 

CALL 

BC80 

C462 

D8 



RET 

C 

C463 

28 

EA 


JR 

Z.C44F 

C465 

EE 

OE 


XOR 

OE 

C467 

CO 



RET 

NZ 

C468 

CD 

CO 

>4- 

CB 

CALL 

CB48 

C46B 

1F 





********************************** 

C482 

E5 



PUSH 

HL 

C483 

C5 



PUSH 

BC 

C484 

D5 



PUSH 

DE 

C485 

11 

95 

C4 

LD 

DE,C495 

C488 

OE 

FD 


LD 

C, FD 

C48A 

3A 

OB 

AC 

LD 

A, (ACOB) 

C48D 

B7 



OR 

A 

C48E 

C4 

LH 

>4- 

BB 

CALL 

NZ,BB45 

C491 

Dl 



POP 

DE 

C492 

CI 



POP 

BC 

C493 

El 



POP 

HL 

C494 

C9 



RET 


********************************** 

C4A4 

C5 



PUSH 

BC 

C4A5 

D5 



PUSH 

DE 

C4A6 

E5 



PUSH 

HL 

C4A7 

CD 

B6 

BC 

CALL 

BCB6 

C4AA 

F5 



PUSH 

AF 

C4AB 

CD 

40 

BD 

CALL 

BD40 

C4AE 

47 



LD 

B,A 

C4AF 

CD 

81 

BB 

CALL 

BB81 

C4B2 

CD 

06 

BB 

CALL 

BB06 

C4B5 

FE 

EF 


CP 

EF 

C4B7 

28 

F9 


JR 

Z,C4B2 

C4B9 

CB 

48 


BIT 

1 / B 

C4BB 

C4 

84 

BB 

CALL 

NZ,BB84 

C4BE 

FE 

FC 


CP 

FC 

C4C0 

37 



SCF 


C4C1 

28 

OB 


JR 

Z,C4CE 

C4C3 

FE 

20 


CP 

20 

C4C5 

C4 

OC 

BB 

CALL 

NZ,BB0C 

C4C8 

Fl 



POP 

AF 

C4C9 

F5 



PUSH 

AF 

C4CA 

DC 

B9 

BC 

CALL 

C,BCB9 


"Broken in" ausg., DERR setzen 

Basic-Funktion EOF 
Basic-PC 
CAS TEST EOF 

Abbruch ? dann Fehler melden 

A=$FF bei EOF, sonst A=0 
Byte nach FAC 
Basic-PC 


Zeichen von Kassette lesen 
CAS IN CHAR 
kein Fehler ? 

Abbruch ? dann DERR setzen 
Filestatus-Fehler ? 
nein ? dann zurück 
"File not open" ausgeben 
Nr. für "File not open" 

ESC-Abbruch ggf. ermöglichen 


Adresse der Event-Routine 
ROM-Konf., Basic-ROM ein 
Flag für "ON BREAK CONT" 
nicht gesetzt ? 
dann KM ARM BREAK 


nach ESC auf weitere Taste warten 
OUT : CY=1 für Abbruch 


SOUND HOLD 

Flag für Kanäle aktiv retten 

TXT ASK STATE 

Cursor-/VDU-Status retten 

Cursor einschalten 

auf Taste warten 

BRK-Code ? 

dann neue Taste 

war Cursor vorher OFF ? 

dann Cursor wieder OFF 

Code für ESC ? 

CY=1 für Abbruch 
ESC ? 

Space ? 

nein ? dann zurück in Buffer 
Flag für Kanal-Aktivitäten 
Stack-Ausgleich (entspr. ESC) 
ggf. SOUND CONTINUE 
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C4CD 

B7 



OR 

A 

C4CE 

El 



POP 

HL 

C4CF 

El 



POP 

HL 

C4D0 

Dl 



POP 

DE 

C4D1 

CI 



POP 

BC 

C4D2 

C9 



RET 


********************************** 

C4D3 

AF 



XOR 

A 

C4D4 

18 

02 


JR 

C4D8 

********************************** 

C4D6 

3E 

FF 


LD 

A, FF 

C4D8 

32 

OB 

AC 

LD 

(AC0B),A 

C4DB 

E5 



PUSH 

HL 

C4DC 

CD 

48 

BB 

CALL 

BB48 

C4DF 

18 

A2 


JR 

C483 

********************************** 

C515 

CD 

74 

C2 

CALL 

C274 

C518 

E5 



PUSH 

HL 

C519 

F5 



PUSH 

AF 

C51A 

CD 

64 

FC 

CALL 

FC64 

C51D 

CD 

08 

F7 

CALL 

F708 

C520 

01 

ID 

00 

LD 

BC,001D 

C523 

CD 

DE 

FF 

CALL 

FFDE 

C526 

3E 

07 


LD 

A,07 

C528 

DA 

58 

CB 

JP 

C,CB58 

C52B 

EB 



EX 

DE,HL 

C52C 

Fl 



POP 

AF 

C52D 

CD 

52 

BD 

CALL 

BD52 

C530 

El 



POP 

HL 

C531 

C9 



RET 



********************************** 


C54E 

C5 



PUSH 

BC 

C54F 

CD 

8F 

C5 

CALL 

C58F 

C552 

CD 

46 

DE 

CALL 

DE46 

C555 

30 

05 


JR 

NC,C55C 

C557 

FE 

2C 


CP 

2C 

C559 

C4 

BD 

C5 

CALL 

NZ,C5BD 

C55C 

CD 

46 

DE 

CALL 

DE46 

C55F 

30 

0A 


JR 

NC,C56B 

C561 

3E 

04 


LD 

A,04 

C563 

CD 

16 

C2 

CALL 

C216 

C566 

E5 



PUSH 

HL 

C567 

CD 

59 

BC 

CALL 

BC59 

C56A 

El 



POP 

HL 

C56B 

E3 



EX 

(SP),HL 

C56C 

C5 



PUSH 

BC 

C56D 

E3 



EX 

(SP),HL 

C56E 

CI 



POP 

BC 

C56F 

CD 

FC 

FF 

CALL 

FFFC 

C572 

El 



POP 

HL 

C573 

C9 



RET 



CY=0 für keinen Abbruch 
Aktivitäts*Flag löschen 


Basic-BefehL ON BREAK CONT 
Flag für ESC gesperrt 
setzen 

ON BREAK CONT ausschalten 

Flag für ESC nicht gesperrt 
Flag speichern 

KM DISARM BREAK, ESC verrieg. 
ggf. ESC wieder ermöglichen 

Basic-Befehl FILL 

Färbstiftnuircner holen 
Basic-PC retten 
Farbstiftnr. retten 
Garbage collection 
Größe/Adr. des freien Platzes 
Mindest-Platz 

mit freiem Platz vergleichen 

Nr. für "Memory full" 

kein Platz ? dann Fehler 

Ende der Felder nach DE 

Färbst if tnumier 

GRA FIEL, Fläche ausfüllen 

Basic-PC 


Ansprung der Graphikbefehle 
IN : BC: Routinenadresse 
Routinenadresse retten 
Graphik-Koordinaten holen 
folgt Komna ? 
nein ? 

folgt zweites Korrnia ? 

nein ? dann Graphik-Pen holen 

folgt Komma ? 

nein ? 

Limit+1 

Byte <4 holen 

Basic-PC 

SCR ACCESS, Zeichenmodus setz. 
Basic-PC 

retten, Routinenadr. zurück 
2. Koordinate 
nach HL, Routinenadresse 
nach BC 

Routine ausführen 
Basic-PC wieder zurück 
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********************************** 
C59D FE BA CP BA 

C59F 28 13 JR Z,C5B4 


********************************** 


C5A1 

CD 

2A 

DE 

CALL 

DE2A 

C5A4 

BB 





C5A5 

FE 

2C 


CP 

2C 

C5A7 

C4 

BD 

C5 

CALL 

NZ.C5BD 

C5AA 

CD 

46 

DE 

CALL 

DE46 

C5AD 

DO 



RET 

NC 

C5AE 

CD 

23 

C2 

CALL 

C223 

C5B1 

C3 

46 

BD 

JP 

BD46 

********************************** 

C5B4 

CD 

31 

DE 

CALL 

DE31 

C5B7 

CD 

74 

C2 

CALL 

C274 

C5BA 

C3 

E4 

BB 

JP 

BBE4 

C5BD 

CD 

74 

C2 

CALL 

C274 

C5C0 

C3 

DE 

BB 

JP 

BBDE 

********************************** 

C5C3 

FE 

2C 


CP 

2C 

C5C5 

28 

06 


JR 

Z,C5CD 

C5C7 

CD 

BB 

CE 

CALL 

CEBB 

C5CA 

CD 

4C 

BD 

CALL 

BD4C 

C5CD 

CD 

46 

DE 

CALL 

DE46 

C5D0 

DO 



RET 

NC 

C5D1 

CD 

23 

C2 

CALL 

C223 

C5D4 

C3 

49 

BD 

JP 

BD49 


********************************** 


C979 

CD 

7F 

C9 

CALL 

C97F 

C97C 

C3 

31 

DE 

JP 

DE31 

C97F 

FE 

8B 


CP 

8B 

C981 

CA 

D3 

C4 

JP 

Z,C4D3 

C984 

FE 

CE 


CP 

CE 

C986 

11 

00 

00 

LD 

DE,0000 

C989 

28 

08 


JR 

Z,C993 

C98B 

CD 

2A 

DE 

CALL 

DE2A 

C98E 

9F 





C98F 

CD 

2C 

E8 

CALL 

E82C 

C992 

2B 



DEC 

HL 

C993 

ED 

53 

1A AC 

LD 

(AC1A),DE 

C997 

C3 

D6 

C4 

JP 

C4D6 

********************************** 

CAEF 

CD 

FC 

CA 

CALL 

CAFC 

CAF2 

D8 



RET 

C 

CAF3 

CD 

A4 

CI 

CALL 

C1A4 

CAF6 

31 

00 

CO 

LD 

SP,C000 

CAF9 

C3 

62 

DE 

JP 

DE62 


********************************** 
CB48 E3 EX (SP),HL 

CB49 7E LD A,(HL) 


Basic-Befehl GRAPHICS 

folgt Token für PAPER ? 
dann GRAPHICS PAPER 

Basic-Befehl GRAPHICS PEN 
Test auf PEN 
Token für PEN 
folgt kein Komma ? 
dann GRAPHICS PEN setzen 
folgt Komma ? 
nein ? dann zurück 
sonst Wert <2 holen 
Graphik-Hintergrundmodus setz. 

Basic-Befehl GRAPHICS PAPER 
PAPER-Token übergehen 
Farbstiftnr. holen 
GRA SET PAPER 

Farbstiftnr. holen 
GRA SET PEN 

Basic-Befehl MASK 
folgt Komma ? 
dann keine Linienmaske 
Bytewert als Linienmaske holen 
GRA SET LINE MASK 
folgt Komma ? 
nein ? dann zurück 
Bytewert <2 holen 
GRA SET FIRST, Flag 1. Pixel 

Basic-Befehl ON BREAK 
Befehl ausführen 
nächstes Zeichen holen 

folgt Token für CONT ? 
dann ON BREAK CONT 
folgt Token für STOP ? 

Kennz. für ON BREAK inaktiv 
STOP ? 

sonst Test auf GOSUB 
Token für GOSUB 
Zeilenadresse holen 
PC eins zurück 
Adr. der ON BREAK-Routine 
ON BREAK CONT abschalten 

Eingabezeile für LINE INPUT holen 
Eingabezeile holen 
kein Abbruch ? 
sonst I/O-Kanäle init. 
Stackpointer init. 

Befehl nochmals ausführen 

Fehler entspr. Byte nach Aufruf 
Aufrufadr. nach HL 
Byte nach Aufruf als Fehlernr. 
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CB4A 

18 

OC 


JR 

CB58 

********************************** 

CB4C 

3E 

02 


LD 

A, 02 

CB4E 

18 

08 


JR 

CB58 

********************************** 

CB50 

3E 

05 


LD 

A,05 

CB52 

18 

04 


JR 

CB58 

********************************** 

CB8E 

36 

00 


LD 

(HL),00 

CB90 

3A 

90 

AD 

LD 

A,(AD90) 

CB93 

CD 

8F 

CE 

CALL 

CE8F 

CB96 

2A 

8C 

AD 

LD 

HL,(AD8C) 

CB99 

CD 

B2 

DE 

CALL 

DEB2 

CB9C 

3A 

90 

AD 

LD 

A, (AD90) 

CB9F 

EE 

20 


XOR 

20 

CBA1 

20 

04 


JR 

NZ.CBA7 

CBA3 

3A 

91 

AD 

LD 

A, (AD91) 

CBA6 

17 



RLA 


CBA7 

D4 

07 

CC 

CALL 

NC,CC07 

CBAA 

C3 

58 

CO 

JP 

C058 

********************************** 

CC3A 

32 

91 

AD 

LD 

(AD91),A 

CC3D 

CD 

48 

CB 

CALL 

CB48 

CC40 

20 





********************************** 


CEE6 

CD 

65 

CF 

CALL 

CF65 

CEE9 

CD 

66 

FF 

CALL 

FF66 

CEEC 

20 

0D 


JR 

NZ,CEFB 

CEEE 

E5 



PUSH 

HL 

CEEF 

2A 

A0 

B0 

LD 

HL,(B0A0) 

CEF2 

CD 

58 

FB 

CALL 

FB58 

CEF5 

EB 



EX 

DE,HL 

CEF6 

El 



POP 

HL 

CEF7 

C9 



RET 


********************************** 

CFF0 

0C 





CFF1 

OC 

FD 


FD0C 


CFF3 

OC 





CFF4 

21 

FD 


FD21 


CFF6 

12 





CFF7 

35 

FD 


FD35 


CFF9 

12 





CFFA 

52 

FD 


FD52 


CFFC 

16 





CFFD 

39 

D5 


D539 



Fehler behandeln 

Ausgabe von "Syntax error" 

Nr. für "Syntax error" 

Fehler behandeln 

Ausgabe von "Improper argument" 
Nr. für "Improper argument" 
Fehler behandeln 

(Fehlerbehandlung) 

Flag f. ON ERROR-Rout, inaktiv 
Fehlernurraner 

Adresse d. Fehlerstrings holen 
Adresse der Fehlerzeile 
als aktuelle Zeilennr. setzen 
Feh lernurraner 

nicht "Broken in" ? 
Ein-/Ausgabefehlercode (DERR) 
Fehler bereits mitgeteilt ? 
nein ? dann Fehler ausgeben 
zur Eingabeschleife 

DERR setzen, "Broken in" melden 
Ein-/Ausgabefehl. (DERR) setz. 
Fehler ausgeben 
Nr. für "Broken in" 

Parameter für CALL/RSX holen 
OUT: DE: Integerwert bzw. 

Descriptoradresse 
Ausdruck holen 
Typ des FAC holen 
kein String ? d. Integer n. DE 
Basic-PC 

Adresse des Descriptors 
String in Stringbereich forc. 
Descriptoradresse nach DE 
Basic-PC 


Tabelle der Hierarchiecodes und 
der Operatorenadressen 

+, Addition (numerisch) 


-, Subtraktion 


*, Multiplikation 


/, Division 


A , Potenzierung 
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CFFF 

10 





DOOO 

67 

FD 

FD67 


\, Integerdfvision 

D002 

06 





D003 

87 

FD 

FD 87 


AND 

D005 

OE 





D006 

79 

FD 

FD79 


MOD 

D008 

04 





D009 

92 

FD 

FD92 


OR 

DOOB 

02 





DOOC 

9C 

FD 

FD9C 


XOR 

DOOE 

0A 





DOOF 

11 

DO 

D011 


numerischer Vergleich 

kk k kkkkkkkkkkkkkkkkkkkk kkkkk kk * iär k k 

Basic-Funktion DERR 

D12E 

3A 

91 AD 

LD 

A,(AD91) 

Ein-/Ausgabefeh l er 

D131 

18 

03 

JR 

D136 

in FAC eintragen 

k kkkkkkkkkkkkkkkk ick kkkk kk kk k kk k k kk 

Variablenadresse nach FAC ("§") 

D151 

CD 

CC D6 

CALL 

D6CC 

Variable holen, Adresse n. DE 

D154 

D2 

50 CB 

JP 

NC,CB50 

existiert Var. n. ? d. Fehler 

D157 

E5 


PUSH 

HL 

Basic-PC 

D158 

EB 


EX 

DE, HL 

Variablenadresse nach HL 

D159 

78 


LD 

A,B 

Typ der Variablen 

D15A 

FE 

03 

CP 

03 

String ? 

D15C 

CC 

58 FB 

CALL 

Z,FB58 

dann in Stringbereich forcier 

D15F 

CD 

89 FE 

CALL 

FE89 

Adresse in positive REAL-Zahl 

Dl 62 

El 


POP 

HL 

Basic-PC 

Dl 63 

C9 


RET 



kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

(Basic-Befehl CAT) 

D2A1 

CD 

9B BC 

CALL 

BC9B 

CAS CATALOG 

D2A4 

CA 

3A CC 

JP 

Z,CC3A 

Abbruch ? dann "Broken in" 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

Basic-Befehl OPENOUT 

D2AB 

CD 

CA D2 

CALL 

D2CA 

File transparent öffnen 

D2AE 

CD 

25 F7 

CALL 

F725 

Ausgabebuffer belegen 

D2B1 

CD 

6C C4 

CALL 

C46C 

Position für Kassette/Disk. - 

D2B4 

C3 

8C BC 

JP 

BC8C 

CAS OUT OPEN 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

(File öffnen) 

D2CA 

CD 

2A F7 

CALL 

F72A 

Buffer reservieren 

D2CD 

CD 

06 CF 

CALL 

CF06 

Filenamen holen 

D2D2 

CD 

DE D2 

CALL 

D2DE 

File eröffnen 

D2D5 

CA 

3A CC 

JP 

Z.CC3A 

Abbruch ? dann "Broken in" 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

(Basic-Befehl CLOSEOUT) 

D2F9 

CD 

8F BC 

CALL 

BC8F 

CAS OUT CLOSE 

D2FC 

CA 

3A CC 

JP 

Z,CC3A 

Abbruch ? dann "Broken in" 
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********************************** 


D611 

21 

00 

00 

LD 

HL,0000 

D614 

22 

EB 

AD 

LD 

(ADEB),HL 

D617 

C3 

52 

EA 

JP 

EA52 

********************************** 

D92B 

3E 

02 


LD 

A, 02 

D92D 

CD 

65 

F6 

CALL 

F665 

D930 

7E 



LD 

A, (HL) 

D931 

23 



INC 

HL 

D932 

66 



LD 

H, (HL) 

D933 

6F 



LD 

L,A 

D934 

C9 



RET 


********************************** 

DB36 

CD 

C7 

CI 

CALL 

C1C7 

DB39 

D2 

5C 

DC 

JP 

NC,DC5C 

DB3C 

CD 

EF 

CA 

CALL 

CAEF 

DB3F 

3A 

14 

AE 

LD 

A,(AE14) 

DB42 

FE 

3B 


CP 

3B 

DB44 

C4 

9B 

C3 

CALL 

NZ,C39B 

DB47 

C9 



RET 


********************************** 

DBB6 

CD 

79 

F8 

CALL 

F879 

DBB9 

CD 

C7 

CI 

CALL 

C1C7 

DBBC 

D2 

F5 

FB 

JP 

NC,FBF5 

DBBF 

C3 

DO 

F8 

JP 

F8D0 


DD2F bis DE19: INTEGER ARITHMETICS 
(liegt im CPC 464 von 3708 bis 37FE) 


ifc********************************* 


DE1A 

3E 

2C 

LD 

A,2C 

DE1C 

18 

10 

JR 

DE2E 

********************************** 

DE1E 

3E 

28 

LD 

A, 28 

DE20 

18 

OC 

JR 

DE2E 

********************************** 

DE22 

3E 

29 

LD 

A,29 

DE24 

18 

08 

JR 

DE2E 

********************************** 

DE26 

3E 

EF 

LD 

A,EF 

DE28 

18 

04 

JR 

DE2E 

********************************** 

E23D 

CD 

69 ES 

CALL 

E869 

E240 

38 

17 

JR 

C,E259 

E242 

EB 


EX 

DE,HL 

E243 

CD 

4F EF 

CALL 

EF4F 

E246 

11 

00 01 

LD 

DE,0100 

E249 

01 

8A AC 

LD 

BC,AC8A 


def. Funkt, und Var.-Offs, lösch. 
Null als 

1. Offset der VL d. Funktionen 
Variablenoffsets löschen 

Word vom Basic-Stack holen 
OUT: HL: Word 
2 Bytes 

vom Basic-Stack 

Word aus Basic-Stack 
nach HL 


Zeile für LINE INPUT holen 
OUT: HL: Zeiger auf Zeile 
akt. Eingabekanalnr. holen 
Kassette/Diskette ? 

Zeile holen, bis kein Abbruch 
Linefeed-Flag 

ggf. Linefeed ausgeben 


Text für INPUT holen und ausgeben 
String holen, auf Stringstack 
akt. Eingabekanalnr. holen 
Kass./Disk. ? dann vom Stack 
sonst String ausgeben 


Test auf Komma 

II II 
I 


Test auf Klammer auf 

II ( II 


Test auf Kl armier zu 

II ) II 


Test auf "=" 
Token für "=" 


Zeile/Nr. für AUTO nach ASCII 
IN : DE: Zei lennurmier 

Zeile im Programm suchen 
gefunden ? dann nach ASCII 
Zeilennummer nach HL 
Zeilennummer nach ASCII 
Zähler f. restl. Bufferlänge 
Zeiger auf Buffer 
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E24C 

7E 



LD 

A, (HL) 

E24D 

23 



INC 

HL 

E24E 

02 



LD 

(BC),A 

E24F 

03 



INC 

BC 

E250 

15 



DEC 

D 

E251 

B7 



OR 

A 

E252 

20 

F8 


JR 

NZ,E24C 

E254 

02 



LD 

(BC),A 

E255 

OB 



DEC 

BC 

E256 

C3 

ED 

E2 

JP 

E2ED 

********************************** 

E2F1 

CD 

01 

E3 

CALL 

E301 

E2F4 

7E 



LD 

A, (HL) 

E2F5 

B7 



OR 

A 

E2F6 

C8 



RET 

Z 

E2F7 

CD 

CF 

E2 

CALL 

E2CF 

E2FA 

23 



INC 

HL 

E2FB 

18 

F7 


JR 

E2F4 


******** ****** **************** * ** * 
E2FD FE C5 CP C5 

E2FF 28 FO JR Z.E2F1 

* ***** ** ********************* ***** 


E7E9 

78 



LD 

A,B 

E7EA 

Bl 



OR 

C 

E7EB 

C8 



RET 

Z 

E7EC 

EB 



EX 

DE,HL 

E7ED 

CD 

Fl 

F6 

CALL 

F6F1 

E7F0 

C3 

OC 

F6 

JP 

F60C 

********************************** 

E9AC 

7E 



LD 

A, (HL) 

E9AD 

B7 



OR 

A 

E9AE 

C8 



RET 

Z 

E9AF 

23 



INC 

HL 

E9B0 

18 

FA 


JR 

E9AC 


********************************** 


EA4A 

F5 



PUSH 

AF 

EA4B 

23 



INC 

HL 

EA4C 

CD 

AC 

E9 

CALL 

E9AC 

EA4F 

Fl 



POP 

AF 

EA50 

2B 



DEC 

HL 

EA51 

C9 



RET 


********************************** 

EAB0 

El 



POP 

HL 

EAB1 

E3 



EX 

(SP),HL 

EAB2 

CD 

43 

BD 

CALL 

BD43 

EAB5 

El 



POP 

HL 

EAB6 

23 



INC 

HL 

EAB7 

C3 

7C 

DE 

JP 

DE7C 


Zeichen aus ASCII-Zeilennurmier 

in Buffer kopieren 

restliche Bufferlänge 

noch kein Zeilennr.-Ende ? 
sonst Null ans neue Znr.-Ende 
Zeiger davor 

Space nach Zeilennr. in Buffer 

REM-Token nach ASCII wandeln 
REM-Token nach ASCII 
Zeichen aus Zeile 

Zeilenende ? 

Zeichen so übernehmen 

nächstes Zeichen 

Keyword-Token nach ASCII wandeln 
Token für REH ? 

dann inkl. restl. Zeile übern. 

Bereich aus Programm löschen 
IN : HL: Adresse des Bereichs 
BC: Länge des Bereichs 

Länge =0 ? 

dann fertig 

Löschadresse nach DE 

Bereich löschen 

Programm-/Var.-Zeiger korrig. 

Basic-Befehl REM 


nächstes Zeilenende suchen 


REM bzw. 11,11 über lesen 
Token retten 
Zeiger nach Token 
Zeilenende suchen 
Token 

Zeiger vor Zeilenende 


(Basic-Befehl RUN) 


GRA DEFAULT 
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********************************** 


EC01 

CD 

80 

BC 

CALL 

BC80 

EC04 

D8 



RET 

C 

EC05 

FE 

1A 


CP 

1A 

EC07 

37 



SCF 


EC08 

C8 



RET 

Z 

EC09 

32 

91 

AD 

LD 

(AD91),A 

ECOC 

3F 



CCF 


ECOD 

C9 



RET 



********************************** 


ECOE 

32 

91 

AD 

LD 

(AD91),A 

EC11 

CD 

6F 

CI 

CALL 

C16F 

EC 14 

3E 

18 


LD 

A, 18 

EC16 

F5 



PUSH 

AF 

EC17 

CD 

03 

D3 

CALL 

D303 

EC1A 

Fl 



POP 

AF 

EC1B 

C3 

58 

CB 

JP 

CB58 


Programmzeichen einiesen 
OUT: A: Zeichen 

CY=0 für Fehler 
CAS IN CHAR 
kein Fehler ? 
erstmaliges EOF ? 
dann kein Fehler, 
zurück 

sonst Nummer für DERR retten 
CY=0 für Fehler 


EOF melden 

IN : A: Fehlernr. für DERR 

Fehlernr. für DERR speichern 
Basic initialisieren 
Nr. für “EOF met" 

Fehlernr. retten 
Kassette/Disk abbrechen 
Fehlernr. 

Fehler melden 


********************************** Dezimalpunkt u. Exponenten setzen 

IN : C: Gesamtkommastellenzahl 
D: Formatierungsflags 
E: Komnaposition 

OUT: B: Zahl der Vorkonmastellen 


EF9B 

7A 


LD 

A,D 

Formatierungsflags 

EF9C 

87 


ADD 

A 


EF9D 

30 

2D 

JR 

NC.EFCC 

keine spezielle Formatierung ? 

EF9F 

FA 

F2 EF 

JP 

M,EFF2 

form. Exponentialdarstellung ? 

EFA2 

7B 


LD 

A,E 

Kommaposition 

EFA3 

81 


ADD 

C 

+ Stellenzahl = dez. Exp. +1 

EFA4 

D6 

15 

SUB 

15 

Dezimalexponent < 20 ? 

EFA6 

FA 

5B F0 

JP 

M,F05B 

dann o.k. 

EFA9 

7A 


LD 

A,D 

sonst Flag für Format¬ 

EFAA 

F6 

41 

OR 

41 

überlauf und Exponential¬ 

EFAC 

57 


LD 

D,A 

darstel lung setzen 

EFAD 

18 

43 

JR 

EFF2 

format. Exponentialdarstellung 

********************************** 

(formatierte Exponentialdarst.) 

F00E 

CB 

4A 

BIT 

1,D 


F010 

28 

07 

JR 

Z,F019 

keine Komma-Einteilung ? 

F012 

78 


LD 

A,B 

Vorkonmastellenzahl 

F013 

04 


INC 

B 

Ausgleich für Predecrement 

F014 

05 


DEC 

B 

Stelle für abziehen 

F015 

D6 

04 

SUB 

04 

3 Stellen und abziehen 

F017 

30 

FB 

JR 

NC,F014 , 

weitere Kommata ? 


********************************** 


F131 

E5 

PUSH 

HL 

Fl 32 

7E 

LD 

A,(HL) 

Fl 33 

23 

INC 

HL 

Fl 34 

3D 

DEC 

A 

Fl 35 

FE 30 

CP 

30 


ggf. führende Null in Buffer 
IN : D: Formatierungsflags 
E: Vorzeichen 
IN/OUT: HL: Bufferzeiger 

Zeichen aus Zahl 


II 


0 " ? 
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F137 

38 

F9 

JR 

C.F132 

Fl 39 

3C 


INC 

A 

F13A 

20 

01 

JR 

NZ,F13D 

F13C 

5F 


LD 

E,A 

F13D 

El 


POP 

HL 

F13E 

7A 


LD 

A,D 

F13 F 

EE 

80 

XOR 

80 

F141 

F4 

00 Fl 

CALL 

P,F100 

Fl 44 

D8 


RET 

C 

F145 

C8 


RET 

Z 

F146 

3E 

30 

LD 

A,30 

F148 

18 

06 

JR 

F150 


*********************************** 


F14A 

CB 52 

BIT 

2,D 

F14C 

C8 

RET 

Z 

F14D 

3A 54 AE 

LD 

A,(AE54) 

F150 

04 

INC 

B 

F151 

2B 

DEC 

HL 

F152 

77 

LD 

(HL), A 

Fl 53 

C9 

RET 



•kick-kick **************************** 


F154 

7B 



LD 

A,E 

F155 

87 



ADD 

A 

F156 

3E 

2D 


LD 

A,2D 

F158 

38 

0E 


JR 

C,F168 

F15A 

7A 



LD 

A,D 

F15B 

E6 

98 


AND 

98 

F15D 

EE 

80 


XOR 

80 

F15F 

C8 



RET 

Z 

Fl 60 

E6 

08 


AND 

08 

F162 

3E 

2B 


LD 

A,2B 

F164 

20 

02 


JR 

NZ,F168 

Fl 66 

3E 

20 


LD 

A,20 

Fl 68 

CB 

62 


BIT 

4.D 

F16A 

28 

E4 


JR 

Z,F150 

F16C 

32 

50 

AE 

LD 

(AE50),A 

F16F 

AF 



XOR 

A 

Fl 70 

32 

51 

AE 

LD 

(AE51),A 

F173 

C9 



RET 



******** ****** ****** ***£** ********* 


F1C6 

21 

50 AE 

LD 

HL,AE50 

F1C9 

36 

00 

LD 

(HL),00 

F1CB 

78 


LD 

A, B 

F1CC 

87 


ADD 

A 

Fl CD 

4F 


LD 

C, A 


dann nächstes Zeichen prüfen 
Zeichen wiederherstellen 
kein Ende der Zahl ? 
sonst Vorzeichen auf positiv 
Bufferzeiger auf Zahl 
Formatierungsflags 
formatierte Darstellung ? 
dann Vork.-Stellenz, holen 
zu viele Sonder- 
Zeichen ? 
sonst "0" 
führend in Buffer 

ggf. führendes Währungszeichen s. 

IN/OUT: B: Vorkomnastellenzahl 
D: Formatierungsflags 
HL: Bufferzeiger 
Flag für Währungszeichen 
nicht gesetzt ? 
sonst Währungszeichen 
Vorkomma-Stellenzahl erhöhen 
Zeiger vor Zahl 
Zeichen vor die Zahl setzen 


Vorzeichen setzen 
IN/OUT: E: Vorzeichen 

D: Formatierungsflags 
HL: Bufferzeiger 
Vozeichen 
ins Carry 

ii. ii 

negativ ? 

Vorzeichen vor der Zahl, 
kein "+" vor der Zahl und 
formatierte Darstellung ? 
dann kein Vorzeichen 

Flag f. "+ M bei pos. Vorzeich. 
11+11 

Flag gesetzt ? 
sonst Space 

Flag für Vorzeichen nach Zahl 
nein ? dann vor die Zahl 
Vorzeichen nach Zahl setzen 
Null 

als Endkennzeichen 


gepackte BCD-Zahl nach ASCII 
IN : B: Zahl der BCD-Bytes 
DE: Zeiger auf BCD-Zahl 
OUT: C: Länge der ASCII-Zahl 
HL: Zeiger auf ASCII-Zahl 
Zeiger auf ASCII-Bufferende 
Null ans Bufferende 
Länge der BCD-Zahl in Bytes 
mal 2 

gibt Zahl der ASCII-Ziffern 
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F1CE 

C8 


RET 

Z 

F1 CF 

3E 

30 

LD 

A,30 

F1D1 

EB 


EX 

DE,HL 

F1D2 

ED 

67 

RRD 


F1D4 

1B 


DEC 

DE 

F1D5 

12 


LD 

(DE),A 

F1D6 

ED 

67 

RRD 


F1D8 

1B 


DEC 

DE 

F1D9 

12 


LD 

(DE),A 

Fl DA 

23 


INC 

HL 

F1 DB 

10 

F5 

DJNZ 

F1D2 

F1 DD 

EB 


EX 

DE,HL 

FIDE 

FE 

30 

CP 

30 

F1E0 

CO 


RET 

NZ 

F1E1 

0D 


DEC 

C 

F1E2 

23 


INC 

HL 

F1E3 

C9 


RET 



keine BCD-Ziffern ? 

Hi-Nibble der Zifferncodes =3 
ASCII-Zg. n. DE, BCD-Zg. n. HL 
näch. BCD-Stelle ins Lo-Nibble 
ASCII-Bufferzeiger 
ASCII-Ziffer abspeichern 
näch. BCD-Stelle ins Lo-Nibble 
ASCII-Bufferzeiger 
ASCII-Ziffer abspeichern 
Zeiger auf nächstes BCD-Byte 
weitere BCD-Bytes ? 

ASCII-Bufferzeiger nach HL 
führende Ziffer ="0" ? 
nein ? 

sonst Null 
unterdrücken 


********************************** zahl nach Hex-/Binär-String wand 

IN : HL: Zahl 

A: Mindest-Stel lenzahl 
B: Zahl der Bits pro Stelle 
C: Bitmaske für eine Stelle 
CBC=S0101 für Binärzahl, 
BC=$040F für Hex-Zahl) 

OUT: HL: Zeiger auf String 


F1E4 

D5 



PUSH 

DE 


F1E5 

EB 



EX 

DE,HL 

Zahl nach DE 

F1E6 

21 

3E 

AE 

LD 

HL,AE3E 

Zeiger auf Bufferende 

F1E9 

36 

00 


LD 

(HL),00 

Null ans Bufferende 

Fl EB 

3D 



DEC 

A 

Stellenzähler erniedrigen 

********************************** 

(Parameter holen, Routine ausf.) 

F279 

C5 



PUSH 

BC 


F27A 

CD 

E6 

CE 

CALL 

CEE6 

Integer bzw. Descr.-Adr. holen 

F27D 

CI 



POP 

BC 


****** *** * ** ** ** ******** * ******** * 

PRINT, Ausdruck ausgeben 

F2D7 

CD 

65 

CF 

CALL 

CF65 

Ausdruck holen 

F2DA 

F5 



PUSH 

AF 

Flag für Statementende 

F2DB 

E5 



PUSH 

HL 

und Basic-PC retten 

F2DC 

CD 

66 

FF 

CALL 

FF66 

Typ des Ausdrucks 

F2DF 

28 

0F 


JR 

Z, F2F0 

String ? 

F2E1 

CD 

6D 

EF 

CALL 

EF6D 

FAC nach ASCII wandeln 

F2E4 

CD 

8A 

F8 

CALL 

F88A 

String auf Stringstack 

F2E7 

36 

20 


LD 

(HL),20 

String mit Space abschließen 

F2E9 

2A 

A0 

BO 

LD 

HL,(BOAO) 

Zeiger auf Descriptor 

F2EC 

34 



INC 

(HL) 

Länge für Space erhöhen 

F2ED 

7E 



LD 

A, (HL) 

Stringlänge 

F2EE 

18 

1 F 


JR 

F30F 

String ausgeben 

F2F0 

2A 

A0 

BO 

LD 

HL,(BOAO) 

Zeiger auf Descriptor 

F2F3 

46 



LD 

B,(HL) 

Stringlänge 

F2F4 

0E 

00 


LD 

C,00 

Zähler f. druckbare Zeichen =0 

F2F6 

23 



INC 

HL 


F2F7 

7E 



LD 

A, (HL) 

Stringadresse 

F2F8 

23 



INC 

HL 

nach HL 

F2F9 

66 



LD 

H, (HL) 
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F2FA 

6F 


LD 

L/A 

F2FB 

04 


INC 

B 

F2FC 

18 

0E 

JR 

F30C 

F2FE 

7E 


LD 

A, (HL) 

F2FF 

FE 

20 

CP 

20 

F301 

23 


INC 

HL 

F302 

30 

07 

JR 

NC,F30B 

F304 

3D 


DEC 

A 

F305 

20 

07 

JR 

NZ,F30E 

F307 

05 


DEC 

B 

F308 

28 

04 

JR 

Z,F30E 

F30A 

23 


INC 

HL 

F30B 

OC 


INC 

C 

F30C 

10 

F0 

DJNZ 

F2FE 

F30E 

79 


LD 

A,C 

F30F 

CD 

EA C2 

CALL 

C2EA 

F312 

D4 

9B C3 

CALL 

NC,C39B 

F315 

CD 

DO F8 

CALL 

F8D0 

F318 

El 


POP 

HL 

F319 

Fl 


POP 

AF 

F31A 

cc 

9B C3 

CALL 

Z,C39B 

F31D 

C9 


RET 



********************************** 


F491 

13 



INC 

DE 

F492 

05 



DEC 

B 

F493 

28 

0E 


JR 

Z,F4A3 

F495 

1A 



LD 

A,(DE) 

F496 

CD 

07 

F5 

CALL 

F507 

F499 

20 

08 


JR 

NZ,F4A3 

F49B 

24 



INC 

H 

F49C 

2E 

24 


LD 

L,24 

F49E 

32 

54 

AE 

LD 

(AE54),A 

F4A1 

13 



INC 

DE 

F4A2 

05 



DEC 

B 

F4A3 

79 



LD 

A,C 

F4A4 

B5 



OR 

L 

F4A5 

4F 



LD 

C, A 


********************************** 


F507 

FE 

24 

CP 

24 

F509 

C8 


RET 

Z 

F50A 

FE 

A3 

CP 

A3 

F50C 

C9 


RET 


********************************** 

F570 

CD 

F8 CE 

CALL 

CEF8 

F573 

E5 


PUSH 

HL 

F574 

2A 

60 AE 

LD 

HL,(AE60) 

F577 

CD 

D8 FF 

CALL 

FFD8 

F57A 

38 

31 

JR 

C,F5AD 

F57C 

13 


INC 

DE 

F57D 

CD 

Fl F5 

CALL 

F5F1 

F580 

DC 

8F F5 

CALL 

C, F58F 

F583 

EB 


EX 

DE,HL 

F584 

CD 

08 F8 

CALL 

F808 


Ausgleich für Predecrement 
Zeichen aus String 


kein Steuerzeichen ? 

nicht CHR$(01) (Steuerzei¬ 
chen für direkte Ausgabe) ? 
Länge für folgendes Zeichen 
String zu Ende ? 

Zahl der druckb. Zeichen erh. 
weitere Zeichen im String ? 
Zahl der druckbaren Zeichen 
paßt String noch in Zeile ? 
nein ? dann Linefeed ausgeben 
String ausgeben, vom Stack 
Basic-PC 

Flag für Statementende ? 
dann Linefeed ausgeben 


(Formatstring auswerten) 
nächstes 
Zeichen 

keine weiteren Zeichen ? 
Zeichen laden 
Währungszeichen ? 
nein ? 

sonst Vorkommastellenzahl erh. 
Flag f. "**" und Währungsz. 
Währungszeichen speichern 
nächstes 
Zeichen 

Formatierungsflags 
entsprechend setzen 

auf Währungszeichen prüfen 
IN : A: Zeichen 

OUT: Z=1, wenn Währungszeichen 
Dollar-Zeichen ("$") ? 

Pfund-Zeichen ? 


Basic-Befehl MEMORY 

Adresse holen als neues HIMEM 
Basic-PC retten 
Ende des freien RAMs 
kleiner als neues HIMEM ? 
dann "Memory full" 
neues HIMEM+1 
größer als alter Wert ? 
dann auf Platz prüfen 
neues HIMEM+1 nach HL 
HIMEM neu setzen 
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F587 

2A 

76 

BO 

LD 

HL,(B076) 

F58A 

22 

78 

BO 

LD 

(B078),HL 

F58D 

El 



POP 

HL 

F58E 

C9 



RET 



********************************** 


F58F 

CD 

AE 

BB 

CALL 

BBAE 

F592 

ED 

4B 

5E AE 

LD 

BC,(AE5E) 

F596 

DC 

E5 

F5 

CALL 

C,F5E5 

F599 

38 

12 


JR 

C.F5AD 

F59B 

2A 

76 

BO 

LD 

HL,(B076) 

F59E 

2B 



DEC 

HL 

F59F 

CD 

E5 

F5 

CALL 

F5E5 

F5A2 

DO 



RET 

NC 

F5A3 

3A 

75 

BO 

LD 

A,(B075) 

F5A6 

B7 



OR 

A 

F5A7 

C8 



RET 

Z 

F5A8 

FE 

04 


CP 

04 

F5AA 

CA 

7F 

F7 

JP 

Z,F77F 

F5AD 

C3 

75 

F8 

JP 

F875 


********************************** 


F5B0 

D5 




PUSH 

DE 

F5B1 

EB 




EX 

DE,HL 

F5B2 

09 




ADD 

HL,BC 

F5B3 

2B 




DEC 

HL 

F5B4 

ED 

4B 

62 

AE 

LD 

BC,(AE62) 

F5B8 

E3 




EX 

(SP),HL 

F5B9 

EB 




EX 

DE,HL 

F5BA 

2A 

5E 

AE 


LD 

HL,(AE5E) 

F5BD 

CD 

E5 

F5 


CALL 

F5E5 

F5C0 

EB 




EX 

DE,HL 

F5C1 

E3 




EX 

(SP),HL 

F5C2 

EB 




EX 

DE,HL 

F5C3 

DC 

E5 

F5 


CALL 

C, F5E5 

F5C6 

30 

E5 



JR 

NC,F5AD 

F5C8 

ED 

4B 

76 

B0 

LD 

BC,(B076) 

F5CC 

21 

FF 

0F 


LD 

HL.0FFF 

F5CF 

09 




ADD 

HL,BC 

F5D0 

CD 

E5 

F5 


CALL 

F5E5 

F5D3 

Dl 




POP 

DE 

F5D4 

DC 

E5 

F5 


CALL 

C,F5E5 

F5D7 

D8 




RET 

C 

F5D8 

EB 




EX 

DE,HL 

F5D9 

50 




LD 

D, B 

F5DA 

59 




LD 

E,C 

F5DB 

CD 

Fl 

F5 


CALL 

F5F1 

F5DE 

C2 

7F 

F7 


JP 

NZ,F77F 

F5E1 

22 

78 

B0 


LD 

(B078),HL 

F5E4 

C9 




RET 



Adresse der Ein-/Ausgabebuffer 
für Freigabe speichern 
Basic-PC 


auf Platz oberhalb HIMEM prüfen 
IN : DE: neuer Wert für HIMEM+1 
Params d. User-Matrizen holen 
HIMEM-Zeiger 

Wert innerh. HIMEM...User-M. ? 
nein ? dann "Memory full" 
Adresse der Ein-/Ausgabebuffer 

Wert innerh. HIMEM...Buffer ? 
dann o.k. 

Ein-/Ausgabebuffer-Status 
keine Buffer reserviert ? 
dann o.k. 

reserviert, aber unbenutzt ? 
dann freigeben, o.k. 
sonst "Memory full" 

Test auf Platz für Binärdatei 
IN : DE: Startadresse 
BC: Länge 

Startadresse retten 

und nach HL 

Länge addieren 

-1 gibt Endadresse 

Start des freien RAMs (LoRAM) 

Endadr. retten, Start zurück 

Startadresse nach DE 

HIMEM-Zeiger 

Start innerh. LoRAM...HIMEM ? 

Startadresse retten, 
Endadresse zurück 
Endad. innerh. LoRAM...HIMEM ? 
dann "Memory full" 

Start der Ein-/Ausgabebuffer 
Länge -1 

addieren, gibt Endadresse 
Datei-Endadr. im Buffer ? 
Startadresse der Binärdatei 
oder Datei-Start im Buffer ? 
nein ? dann o.k. 

Datei-Startadresse nach HL 
Ein-/Ausgabebuffer-Start 
nach DE 

gleich HIMEM+1 ? 

nein ? dann Buffer freigeben 

Dateistart als Freigabe-HIMEM 
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********************************** Test, ob Adresse im Bereich liegt 

IN : BC: Startadresse d. Bereichs 
HL: Endadresse des Bereichs 


F5E5 

D5 

PUSH 

DE 

F5E6 

E5 

PUSH 

HL 

F5E7 

B7 

OR 

A 

F5E8 

ED 42 

SBC 

HL,BC 

F5EA 

EB 

EX 

DE, HL 

F5EB 

B7 

OR 

A 

F5EC 

ED 42 

SBC 

HL,BC 

F5EE 

EB 

EX 

DE,HL 

F5EF 

18 06 

JR 

F5F7 


DE: zu testende Adresse 
OUT: CY=0, wenn im Bereich 


Start - Ende 

End-Offset zu Bereichsstart 
End-Offset nach DE 

Offset der zu testenden Adr 
zun Bereichsstart 
nach DE, End-Offset nach HL 
Offsets vergleichen 


********************************** Adresse mit HIMEM+1 vergleichen 

IN : DE: zu vergleichende Adresse 
OUT: CY=1, wenn Adresse>HIMEM+1 
CY=0, Z=1, wenn Adr.=HIMEM+1 


F5 F1 

D5 



PUSH 

DE 

F5F2 

E5 



PUSH 

HL 

F5F3 

2A 

5E 

AE 

LD 

HL,(AE5E) 

F5F6 

23 



INC 

HL 

F5F7 

CD 

D8 

FF 

CALL 

FFD8 

F5FA 

El 



POP 

HL 

F5FB 

Dl 



POP 

DE 

F5FC 

C9 



RET 


********************************** 

F60C 

2A 

66 

AE 

LD 

HL,(AE66) 

F 60 F 

09 



ADD 

HL,BC 

F610 

22 

66 

AE 

LD 

(AE66),HL 

F613 

3A 

6E 

AE 

LD 

A,(AE6E) 

F616 

B7 



OR 

A 

F617 

CO 



RET 

NZ 

********************************** 

F62E 

CD 

08 

F7 

CALL 

F708 

F631 

44 



LD 

B, H 

F632 

4D 



LD 

C, L 

F633 

2A 

66 

AE 

LD 

HL,(AE66) 

F636 

EB 



EX 

DE,HL 

F637 

CD 

C4 

F6 

CALL 

F6C4 

F63A 

3E 

FF 


LD 

A, FF 

F63C 

18 

OE 


JR 

F64C 

********************************** 

F63E 

2A 

66 

AE 

LD 

HL,(AE66) 

F641 

EB 



EX 

DE,HL 

F642 

2A 

68 

AE 

LD 

HL,(AE68) 

F645 

CD 

E4 

FF 

CALL 

FFE4 

F648 

CD 

Fl 

F6 

CALL 

F6F1 

F64B 

AF 



XOR 

A 

F64C 

32 

6E 

AE 

LD 

(AE6E),A 

F64F 

C3 

18 

F6 

JP 

F618 


CY=0, Z=0, wenn Adr.<HIMEM+1 


HIMEM-Zeiger 

+1 gibt erste freie Adresse 
mit DE vergleichen 


(Prg.-/Var.-Zeiger korrigieren) 

IN : BC: Korrektur-Offset 
Offset 

zu Progranmende 
addieren 
Variablenbereich 
geschützt ? 

dann Var.-Zeiger nicht korrig. 

Variablenbereich schützen 
Größe des freien Platzes 
nach BC 

Zeiger auf Programmende 
nach DE 

dort maximalen Platz schaffen 
Flag für Variablen geschützt 
setzen 

Variablenbereich ungeschützt 
Zeiger auf Programmende 
nach DE 

Zeiger auf Variablenstart 

Differenz nach BC 

Bereich löschen 

Flag f. Variablen nicht gesch. 

Flag setzen 

Prg.-/Var.-Zeiger korrigieren 
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********************************** 


F696 

06 

00 


LD 

B,00 

F698 

2A 

6C 

AE 

LD 

HL,(AE6C) 

F69B 

EB 



EX 

DE,HL 

F69C 

2A 

71 

B0 

LD 

HL,(B071) 

F69F 

B7 



OR 

A 

F6A0 

ED 

42 


SBC 

HL,BC 

F6A2 

2B 



DEC 

HL 

F6A3 

2B 



DEC 

HL 

F6A4 

CD 

D8 

FF 

CALL 

FFD8 

F6A7 

30 

09 


JR 

NC,F6B2 

F6A9 

CD 

64 

FC 

CALL 

FC64 

F6AC 

38 

EA 


JR 

C,F698 

F6AE 

CD 

48 

CB 

CALL 

CB48 

F6B1 

OE 





F6B2 

22 

71 

B0 

LD 

(B071),HL 

F6B5 

23 



INC 

HL 

F6B6 

71 



LD 

(HL),C 

F6B7 

23 



INC 

HL 

F6B8 

70 



LD 

<HL),B 

F6B9 

23 



INC 

HL 

F6BA 

C9 



RET 



********************************** 


F6BB 

3A 6E 

AE 

LD 

A,(AE6E) 

F6BE 

B7 


OR 

A 

F6BF 

2A 66 

AE 

LD 

HL,(AE66) 

F6C2 

20 03 


JR 

NZ,F6C7 

F6C4 

2A 6C 

AE 

LD 

HL,(AE6C) 

F6C7 

C5 


PUSH 

BC 

F6C8 

D5 


PUSH 

DEF6C9 D5 

F6CA 

E5 


PUSH 

HL 


********************************** 


F6F1 

C5 



PUSH 

BC 

F6F2 

D5 



PUSH 

DE 

F6F3 

EB 



EX 

DE,HL 

F6F4 

09 



ADD 

HL,BC 

F6F5 

EB 



EX 

DE,HL 

F6F6 

2A 

6C 

AE 

LD 

HL,(AE6C) 

F6F9 

CD 

E4 

FF 

CALL 

FFE4 

F6FC 

EB 



EX 

DE,HL 

F6FD 

Dl 



POP 

DE 

F6FE 

CD 

EF 

FF 

CALL 

FFEF 

F701 

Dl 



POP 

DE 

F702 

21 

00 

00 

LD 

HL,0000 

F705 

C3 

E4 

FF 

JP 

FFE4 


Stringbereich-Platz reservieren 
IN : C: Läne des Strings 
OUT: HL: Adresse des Platzes 
Länge hi =0 
Ende der Arrays 
nach DE 

Start der Strings 

minus Stringlänge 
minus 2 für Längen- 
bzw. Descr.-Adr.-Eintrag 
mit Ende d. Arrays vergleichen 
genügend Platz ? 
sonst Garbage collection 
neuen Platz geschaffen ? 
sonst Fehler melden 
Nr. f. "String space full" 
neuen Start der Strings setzen 

Stringlänge 
ei nt ragen 

Zeiger auf Platz für String 


(Platz f. Programm/Var. schaffen) 
IN/OUT: DE: Einfügeadresse 
BC: benötigte Länge 
OUT: HL: neues Ende der Arrays 
Flag für Variablen geschützt 

Zeiger auf Programmende 
Variablen geschützt ? 

Zeiger auf Ende der Arrays 

PUSH DE 


Bereich löschen 
IN : DE: Löschadresse 
BC: Länge 
OUT: BC: Offset 


Länge zu Startadresse des 
Löschbereichs addieren, gibt 
Lösch-Endadresse 
Ende der Arrays 

- Löschendadresse = Lösch länge 
End-Löschadresse als Quelle 
Start-Löschadresse als Ziel 
Bereich verschieben 
Lösch-Länge 
Null minus Lösch länge 
gibt Offset für Var.-Korr. 
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********************************** 


F713 

3A 

6E 

AE 

LD 

A,(AE6E) 

F716 

B7 



OR 

A 

F717 

2A 

71 

BO 

LD 

HL,(B071) 

F71A 

C8 



RET 

Z 

F71B 

2A 

68 AE 

LD 

HL,(AE68) 

F71E 

2B 



DEC 

HL 

F71F 

C9 



RET 


********************************** 

F720 

11 

01 

00 

LD 

DE,0001 

F723 

18 

08 


JR 

F72D 

********************************** 

F725 

11 

02 

08 

LD 

DE, 0802 

F728 

18 

03 


JR 

F72D 


höchste freie Adr. nach Prg. holen 
OUT: HL: höchste freie Adresse 
Flag für Variablen geschützt 

Start der Strings 
Variablen nicht geschützt ? 
sonst Start der Variablen 
-1 = höchste freie Adresse 


Eingabebuffer belegen 
OUT: DE: Zeiger auf Eingabebuffer 
Offset und Flag f. Eingabebuf. 


Ausgabebuffer belegen 
OUT: DE: Zeiger auf Ausgabebuffer 
Offset und Flag f. Eingabebuf. 


********************************** 


F72A 

11 

00 

08 

LD 

DE,0800 

F72D 

C5 



PUSH 

BC 

F72E 

E5 



PUSH 

HL 

F72F 

3A 

75 

B0 

LD 

A, (B075) 

F732 

B7 



OR 

A 

F733 

20 

18 


JR 

NZ,F74D 

F735 

D5 



PUSH 

DE 

F736 

2A 

5E 

AE 

LD 

HL,(AE5E) 

F739 

23 



INC 

HL 

F73A 

22 

78 

B0 

LD 

(B078),HL 

F73D 

11 

00 

F0 

LD 

DE,F000 

F740 

19 



ADD 

HL,DE 

F741 

D2 

75 

F8 

JP 

NC,F875 

F744 

CD 

08 

F8 

CALL 

F808 

F747 

22 

76 

B0 

LD 

(B076),HL 

F74A 

Dl 



POP 

DE 

F74B 

3E 

04 


LD 

A,04 

F74D 

B3 



OR 

E 

F74E 

2A 

76 

B0 

LD 

HL,(B076) 

F751 

IE 

00 


LD 

E,00 ’ 

F753 

19 



ADD 

HL,DE 

F754 

EB 



EX 

DE,HL 

F755 

El 



POP 

HL 

F756 

CI 



POP 

BC 

F757 

18 

27 


JR 

F780 


E/A-Buffer reservieren 
OUT: DE: Zeiger auf Ausgabebuffer 
Offset f. Ausgabebuffer 


Buffer-Flags 

Buffer schon reserviert ? 
Offset und Flag retten 
HIMEM-Zeiger 

+1 gibt erste freie Adresse 
HIMEM+1 für Freigabe retten 
- $1000 (Platz für 2 Buffer) 
addieren 

Unterlauf ? dann kein Platz 

HIMEM neu setzen 

Adresse der E/A-Buffer setzen 

Offset/Flag zurück 

Flag für Buffer reserviert 

Belegungsflags setzen 

Adresse der Buffer 

Offset hi=0 

Offset addieren 

Adresse des Buffers nach DE 


Buffer-Flags neu setzen 


********************************** 


F8DC 

CD 

F5 FB 

CALL 

FBF5 

F8DF 

C8 


RET 

Z 

F8E0 

79 


LD 

A, C 

F8E1 

90 


SUB 

B 

F8E2 

30 

05 

JR 

NC,F8E9 

F8E4 

80 


ADD 

B 


Teilstring ausgeben 
IN : String im FAC 

C: gewünschte Länge 
OUT: nicht ausgegebene Länge 

String aus Str.-Ber/-Stack lö. 
Länge =0 ? 
gewünschte Länge 
minus tatsächliche Länge 
gewünschte Länge zu groß ? 
gewünschte Länge wiederherst. 
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F8E5 

28 02 

JR 

Z,F8E9 

F8E7 

47 

LD 

B,A 

F8E8 

AF 

XOR 

A 

F8E9 

4F 

LD 

C, A 

F8EA 

18 E8 

JR 

F8D4 


***** ** ********************** *** ** 


F959 

CD 

F5 

FB 

CALL 

FBF5 

F95C 

48 



LD 

C,B 

F95D 

D5 



PUSH 

DE 

F95E 

CD 

03 

FC 

CALL 

FC03 

F961 

EB 



EX 

DE,HL 

F962 

Dl 



POP 

DE 

F963 

C9 



RET 



Flag für Gesamtstring ausg. ? 
sonst gewünschte Länge 
kein Zeichen nicht ausgegeben 
nicht ausgegebene Länge 
String ausgeben 

zwei Strings vom Stringstack 
IN : HL: Adr. des 1. Descriptors 
2. Descriptor im FAC 
OUT: HL: Adresse des 1. Strings 
B: Länge des 1. Strings 
DE: Adresse des 2. Strings 
C: Länge des 2. Strings 
2. String vom Stringstack 
Länge nach C 
Adresse retten 
2. String vom Stringstack 
Adresse nach HL 

Adresse des 2. Strings nach DE 


********************************** 


FA7E 

CD 

72 C4 

CALL 

C472 

FA81 

30 

F5 

JR 

NC,FA78 

FA83 

FE 

FC 

CP 

FC 

FA85 

28 

Fl 

JR 

Z,FA78 

FA87 

FE 

EF 

CP 

EF 

FA89 

28 

ED 

JR 

Z,FA78 

FA8B 

18 

EA 

JR 

FA77 


********************************** 


FAA1 

CD 

66 

FF 

CALL 

FF 66 

FAA4 

20 

33 


JR 

NZ,FAD9 

FAA6 

CD 

F5 

FB 

CALL 

FBF5 

FAA9 

28 

37 


JR 

Z, FAE2 

FAAB 

1A 



LD 

A, (DE) 

FAAC 

C9 



RET 


********************************** 

FC37 

2A 

A0 

BO 

LD 

HL, (BOAO) 

FC3A 

3E 

TD 


LD 

A,7D 

FC3C 

95 



SUB 

L 

FC3D 

3E 

BO 


LD 

A, BO 

FC3F 

9C 



SBC 

H 

FC40 

C9 



RET 


********************************** 

FC64 

E5 



PUSH 

HL 

FC65 

D5 



PUSH 

DE 

FC66 

C5 



PUSH 

BC 

FC67 

21 

7E 

BO 

LD 

HL,B07E 

FC6A 

18 

OC 


JR 

FC78 

FC6C 

7E 



LD 

A, (HL) 

FC6D 

23 



INC 

HL 

FC6E 

4E 



LD 

C, (HL) 


Basic-Funktion INKEYS 

Zeichen von Tastatur lesen 
keine Taste gedrückt ? 

ESC ? 

dann Leerstring 
BRK-Code ? 
dann Leerstring 
1-Zeichen-St ring generieren 

FAC nach Byte/1. Stringzeichen 
OUT: A: Bytewert/Zeichen 

Typ des FAC nicht String ? 
dann FAC nach Byte wandeln 
String vom Stringstack 
Länge =0 ? dann Fehler 
1. Zeichen des Strings laden 


Test, ob Descript. im Stringstack 
OUT: CY=1, wenn Descr. im Stack 
aktuelle Stringdescriptoradr. 
größer als SB07D ? 
dann im Stringstack, CY=1 
(Stringstack beginnt 
bei $B07E) 


Garbage collection 

OUT: CY=1, wenn Platz geschaffen 


Zeiger auf Stringstack 
Stringstack durchgehen 
Stringlänge 


und Stringadresse aus 
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FC6F 

23 



INC 

HL 

FC70 

46 



LD 

B, (HL) 

FC71 

EB 



EX 

DE,HL 

FC72 

B7 



OR 

A 

FC73 

C4 

E3 

FC 

CALL 

NZ,FCE3 

FC76 

EB 



EX 

DE,HL 

FC77 

23 



INC 

HL 

FC78 

ED 

5B 

7C B0 

LD 

DE,(B07C) 

FC7C 

CD 

D8 

FF 

CALL 

FFD8 

FC7F 

20 

EB 


JR 

NZ,FC6C 

FC81 

11 

E3 

FC 

LD 

DE,FCE3 

FC84 

CD 

97 DA 

CALL 

DA97 

FC87 

2A 

73 

B0 

LD 

HL, (B073) 

FC8A 

E5 



PUSH 

HL 

FC8B 

2A 

71 

B0 

LD 

HL,(B071) 

FC8E 

23 



INC 

HL 

FC8F 

5D 



LD 

E,L 

FC90 

54 



LD 

D,H 

FC91 

18 

14 


JR 

FCA7 

FC93 

4E 



LD 

C, (HL) 

FC94 

23 



INC 

HL 

FC95 

46 



LD 

B,(HL) 

FC96 

04 



INC 

B 

FC97 

05 



DEC 

B 

FC98 

28 

OB 


JR 

Z,FCA5 

FC9A 

2B 



DEC 

HL 

FC9B 

0A 



LD 

A,(BC) 

FC9C 

4F 



LD 

C,A 

FC9D 

06 

00 


LD 

B, 00 

FC9F 

03 



INC 

BC 

FCAO 

03 



INC 

BC 

FCA1 

ED 

B0 


LDIR 


FCA3 

18 

02 


JR 

FCA7 

FCA5 

23 



INC 

HL 

FCA6 

09 



ADD 

HL,BC 

FCA7 

Ci 



POP 

BC 

FCA8 

C5 



PUSH 

BC 

FCA9 

CD 

DE 

FF 

CALL 

FFDE 

FCAC 

38 

E5 


JR 

C,FC93 

FCAE 

1B 



DEC 

DE 

FCAF 

2A 

71 

B0 

LD 

HL,(B071) 

FCB2 

EB 



EX 

DE,HL 

FCB3 

CD 

E4 

FF 

CALL 

FFE4 

FCB6 

Dl 



POP 

DE 

FCB7 

CD 

D8 

FF 

CALL 

FFD8 

FCBA 

F5 



PUSH 

AF 

FCBB 

D5 



PUSH 

DE 

FCBC 

CD 

F5 

FF 

CALL 

F F F 5 

FCBF 

EB 



EX 

DE,HL 

FCCO 

22 

71 

B0 

LD 

(B071),HL 

FCC3 

CI 



POP 

BC 

FCC4 

23 



INC 

HL 

FCC5 

18 

12 


JR 

FCD9 

FCC7 

5E 



LD 

E, (HL) 

FCC8 

23 



INC 

HL 

FCC9 

56 



LD 

D, (HL) 

FCCA 

2B 



DEC 

HL 

FCCB 

1A 



LD 

A, (DE) 


Descriptor laden 

Descriptor-Endzeiger nach DE 
Länge <>0 ? 

dann Descriptoradr. eintragen 
Descriptor-Endzeiger nach HL 
Zeiger auf nächsten Descriptor 
Ende des Stringstacks 
erreicht ? 

nein ? dann Stack weiterbearb. 
Routine f. Descr. eintragen 
alle Stringvariablen durchg. 
Zeiger auf Ende der Strings 
retten 

Zeiger auf Start der Strings 
Zeiger auf 1. benutztes Byte 
nach DE 

als Zieladresse 
Strings durchgehen 
Descriptoradresse 
nach BC 

Descriptoradresse 
nicht eingetragen ? 
dann nächsten String 
Zeiger auf Stringeintrag 
Länge des String aus Descr. 
nach C 
Lange hi =0 

Länge +2 für zusätzlichen 
2-Byte-Eintrag 
String nach unten schieben 
nächster String 
Zeiger auf String 
Länge addieren 

Ende der Strings 
mit laufender Adresse vergl. 
Ende noch nicht erreicht ? 
letztes benutztes Stringbyte 
Start der Strings (-1) 
nach DE, Ende nach HL 
Differenz (Länge) nach BC 
altes Ende der Strings 
mit neuem vergleichen 
Flag für zusätzl. Platz retten 
altes Ende der Strings retten 
Strings wieder n. oben schieb. 
Startzieladresse 
als neuen Start der Strings 
Ende der Strings 
neues 1. Stringbyte 
Strings durchgehen 
Descriptorzeiger 
nach DE 


Länge 
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FCCC 

77 


LD 

(HL),A 

FCCD 

23 


INC 

HL 

FCCE 

36 

00 

LD 

(HL),00 

FCD0 

23 


INC 

HL 

FCD1 

EB 


EX 

DE,HL 

FCD2 

72 


LD 

(HL),D 

FCD3 

2B 


DEC 

HL 

FCD4 

73 


LD 

(HL),E 

FCD5 

6F 


LD 

L,A 

FCD6 

26 

00 

LD 

H,00 

FCD8 

19 


ADD 

HL,DE 

FCD9 

CD 

DE FF 

CALL 

FFDE 

FCDC 

38 

E9 

JR 

C,FCC7 

FCDE 

Fl 


POP 

AF 

FCDF 

Ci 


POP 

BC 

FCE0 

Dl 


POP 

DE 

FCE1 

El 


POP 

HL 

FCE2 

C9 


RET 



*★***★★*************★★*★★★★***★★★★ 


FCE3 

2A 6C 

AE 

LD 

HL,(AE6C) 

FCE6 

CD DE 

FF 

CALL 

FFDE 

FCE9 

DO 


RET 

NC 

FCEA 

OB 


DEC 

BC 

FCEB 

7A 


LD 

A,D 

FCEC 

02 


LD 

(BC),A 

FCED 

OB 


DEC 

BC 

FCEE 

0A 


LD 

A, (BC) 

FCEF 

12 


LD 

(DE),A 

FCF0 

7B 


LD 

A,E 

FC F1 

02 


LD 

(BC),A 

FCF2 

C9 


RET 



wieder vor String setzen 

Länge hi=0 
Stringadresse 
nach DE 

wieder in Descriptor 
eintragen 

Länge 

Länge hi=0 
Länge addieren 
Ende der Strings 
noch nicht erreicht ? 

Flag für zusätzlichen Platz 


Descriptoradresse eintragen 
IN : BC: Stringadresse 

DE: Descriptor-Endadresse 
Ende der Arrays 

String unterh. stringbereich ? 
dann fertig 
Zeiger auf Länge hi 
Descriptoradresse hi 
eintragen 

Zeiger auf Länge lo 
Länge 

in Descriptor speichern 
Descriptor-Adresse lo 
eintragen 


********************************** Block nach unten verschieben 

(nur, wenn LängeoO) 

IN : HL: Zeiger auf Quellblock 
DE: Zeiger auf Zielblock 
A: Länge 

OUT: HL: Zeiger nach Quellblock 
DE: Zeiger nach Zielblock 
A: wie IN 
BC: immer 0 

FFEC 4F LD C,A Länge 

FFED 06 00 LD B,00 nach BC 

★*•*****************★****★*★☆■*****★ Block nach unten verschieben 

(nur, wenn LängeoO) 

IN : HL: Zeiger auf Quellblock 
DE: Zeiger auf Zielblock 
BC: Länge 

OUT: HL: Zeiger nach Quellblock 
DE: Zeiger nach Zielblock 
BC: immer 0 


FFEF 78 
FFFO Bl 
FFF1 C8 


LD 

OR 

RET 


A,B 

C 

z 


Länge =0 ? 
dann zurück 
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FFF2 ED BO LDIR sonst Block verschieben 

FFF4 C9 RET 


kkltkkltltltltkkkkkkltltltltltltltltltltltlt'kltltltltkk Block f"l3Ch 0b6n VGTSCh j 6b6D 

(nur, wenn LängeoO) 

IN : HL: Zeiger a. QuelLblockende 
DE: Zeiger auf Ziel blockende 
BC: Länge 

OUT: HL: Zeiger vor Quellblock 
DE: Zeiger vor Zielblock 
BC: immer 0 


FFF5 

78 

LD 

A,B 


FFF6 

Bl 

OR 

C 

Länge =0 ? 

FFF7 

C8 

RET 

Z 

dann zurück 

FFF8 

ED B8 

LDDR 


sonst Block verschieben 

FFFA 

C9 

RET 
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6.3 Die Listings des CPC-6128-ROMs 


Das ROM des CPC 6128 ist gegenüber dem des CPC 664 nur an einigen 
Stellen geändert. An circa 20 Stellen treten durch Einfügungen oder Weg¬ 
lassungen Verschiebungen auf. Die relevanten Änderungen werden im 
Folgenden gelistet. 

6.3.1 Das CPC 6128 - Betriebssystem 

Das 6128-Betriebssystem ist (wie schon vom 464 und 664 her bekannt) in 
Packs aufgeteilt, die bei folgenden Adressen liegen: 

1. Kernel (KL) S0000 

2. Machine Pack (MC) $0591 

3. Jump Restore S08BD 

4. Screen Pack (SCR) $0ABF 

5. Text Screen Pack (TXT) $1074 

6. Graphics Screen Pack (GRA) S15A8 

7. Keyboard Manager (KM) S1B5C 

8. Sound Manager (SOUND) $1FE9 

9. Cassette Manager (CAS) S24BC 

10. Editor (EDIT) S2C02 

11. Floating Point Arithmetics (FLO) $2F7D (Zeichensatz $3800) 
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********************************** 


0397 

F3 




DI 



0398 

D9 




EXX 



0399 

21 

D5 

B8 


LD 


HL,B8D5 

039C 

56 




LD 


D, (HL) 

039D 

77 




LD 


(HL), A 

039E 

F6 

CO 



OR 


CO 

03A0 

ED 

79 



OUT 


(C), A 

03A2 

7A 




LD 


A,D 

03A3 

D9 




EXX 



03A4 

FB 




EI 



03A5 

C9 




RET 



********************************** 

062D 

01 

CO 

7F 


LD 


BC,7FC0 

0630 

ED 

49 



OUT 


(C),C 

0632 

01 

7E 

FA 


LD 


BC,FA7E 

0635 

AF 




XOR 


A 

0636 

ED 

79 



OUT 


(C),A 

********************************** 

0688 

20 

31 

32 

38 

4B 20 

4D 

69 

0690 

63 

72 

6F 

63 

6F 6D 

70 

75 

0698 

74 

65 

72 

20 

20 28 

76 

33 

06AO 

29 

1 F 

02 

04 

43 6F 

70 

79 

06A8 

72 

69 

67 68 

74 1F 

02 

04 

06B0 

A4 

31 

39 

38 

35 20 

41 

6D 

06B8 

73 

74 

72 

61 

64 20 

43 

6F 

06C0 

6E 

73 

75 

6D 

65 72 

20 

45 

06C8 

6C 

65 

63 

74 

72 6F 

6E 

69 

06D0 

63 

73 

20 

70 

6C 63 

1 F 

OC 

06D8 

05 

61 

6E 

64 

20 4C 

6F 

63 

06E0 

6F 

6D 

6F 

74 

69 76 

65 

20 

06E8 

53 

6F 

66 

74 

77 61 

72 

65 

06F0 

20 

4C 

74 

64 

2E 1 F 

01 

07 

06F8 

00 








********************************** 
0A70 97 03 

********************************** 


24E9 

CD 02 

25 


CALL 

2502 

24EC 

E5 



PUSH 

HL 

24ED 

DC AC 

26 


CALL 

C,26AC 

24F0 

El 



POP 

HL 

24 Fl 

DO 



RET 

NC 

24 F2 

ED 5B 

34 

Bl 

LD 

DE,(B134) 

24F6 

ED 4B 

37 

Bl 

LD 

BC,(B137) 

24FA 

3A 31 

Bl 


LD 

A,(B131) 

24 FD 

C9 



RET 


********************************** 

2D81 

3A 15 

Bl 


LD 

A, (Bl 15) 

2D84 

2F 



CPL 


2085 

32 15 

Bl 


LD 

(Bl 15),A 

2D88 

B7 



OR 

A 

2D89 

C9 



RET 



KL RAM SELECT 

IN : A: neue RAM-Konfiguration 
OUT: A: alte RAM-Konfiguration 


Adresse für RAM-Konfiguration 
alte Konfiguration laden 
neue Konfiguration setzen 
Register 3 des Gate Array 
Konfig. an Gate Array überg. 
alte Konfig. nach A 


(MC START PROGRAM) 

RAM-Konfiguration 0 
ans Gate Array übergeben 
Disk-Schnittstelle 
zurück¬ 
setzen 

Einschaltmeldung 
128K Mi 
crocompu 
ter (v3 
)...Copy 
right... 

.1985 Am 
stard Co 
nsumer E 
lectroni 
cs plc.. 

.and Loc 
omotive 
Softwrae 
l td._ 


<Jump-Restore-Vekt., Haupttab.) 

KL RAM SELECT (über BD5B) 

(CAS IN OPEN)24E5 DD 21 1A Bl LD 
File öffnen 

kein Fehler? d. 1. Block lesen 

File- oder logischer Fehler 
sonst Parameter 
laden 


CRTL-TAB im Editor 
Insert-Flag 
invertieren 
und neu setzen 
CY=0, da kein Abbruch 


IX, Bl 1A 
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6.3.2 Das Basic des CPC 6128 


********************************** 


F63C 

AF 



XOR 

A 

F63D 

32 

6E 

AE 

LD 

(AE6E),A 

F640 

2A 

66 

AE 

LD 

HL,(AE66) 

F643 

EB 



EX 

DE,HL 

F644 

2A 

68 AE 

LD 

HL,(AE68) 

F647 

CD 

E4 

FF 

CALL 

FFE4 

F64A 

CD 

E5 

F6 

CALL 

F6E5 

F64D 

18 

C4 


JR 

F613 

********************************** 

F6E9 

EB 



EX 

DE,HL 

F6EA 

CD 

14 

F7 

CALL 

F714 

F6ED 

CD 

E4 

FF 

CALL 

FFE4 

F6F0 

EB 



EX 

DE,HL 


********************************** 


F714 

3A 6E AE 

LD 

A,(AE6E) 

F717 

B7 

OR 

A 

F718 

2A 6C AE 

LD 

HL,(AE6C) 

F71B 

C8 

RET 

Z 

F71C 

2A 66 AE 

LD 

HL,(AE66) 

F71F 

C9 

RET 



Variablenbereich wieder ungeschü. 
Flag für Var. nicht geschützt 
setzen 

Zeiger auf Programmende 
nach DE 

Zeiger auf Variablenstart 

Differenz nach BC 

Bereich löschen 

Prg.-/Var.-Zeiger korrigieren 

(Bereich löschen) 

Ende der Arrays holen 


Zeiger auf freien Basic-Bereich holen 
OUT: HL: Zeiger 

Flag für Variablen geschützt 

Zeiger auf Ende des Arrays 
Variablen nicht geschützt ? 
sonst Zeiger auf Programmende 
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A Anhang 


Al Z80A CPU 

Al.l Register 


1. Registersatz 2. Registersatz 


Akkumulator 

Flags 

Akkumulator 

Flags 

A 

F 

Ä 

F' 

B 

C 

B' 

C' 

D 

E 

D' 

E' 

H 

L 

H' 

L' 


Allzweck- 

Register 


Interrupt 

Vector I 

Memory 

Refresh 

R 

Index Register 


IX 

Index Register 


IY 

Stack Pointer 


SP 

Program Counter 

PC 


Besondere 

Register 
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Al.2 


Pin Out* 


ADRESS 

BUS 


DATA 

BUS 


All—fi- 

Al2 — \E. 
Aß—[Z. 
AU-[± 
[ -4/5-|T 

r*-n 

Ü5~[T 

{ Ds~\jÖ_ 

+sv-{iT 

fD2-H 

D7~[£ 

Oo-QI 

o/HH 

/wr -(/£ 
wT/ -(tf 
[ä4Zt -(/s 

sysrFW 

CONTROL IORQ — E5 


DATA 

BUS 


CPU 

CONTROL 


2\~~Aio 

Ü1-A7 

Üj—.46 

1--45 

]\~A3 

E-A2 

U~A/ 

J 

— GND 
—■RFSH 
-Hl 


ADRESS 

BUS 


i SYSTEM 
\ CONTROL 


-RESTt- 

\z\~-dUsr~q 

]—WÄJt - j 
p]-~ BUSAK 
-~WR 
W\-Rb 


CPU 

CONTROL 
— CPU 
BUS 

CONTROL 


SYSTEM 

CONTROL 


Quelle: Kundendienst Handbuch Service Manual, Schneider Computer Division 






Austauschbefehle 16-Bit-Ladebelehle 8-Bit-Ladebefehle 
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Al.3 Befehlstabellen 


Die Z80A-Befehle werden in folgende Gruppen aulgeteilt: 
8-Bit-Ladebefehle Akkumulator- und Flag-Operationen 

16-Bit-Ladebefeh'e Verschiedenes 

Vertausch-Befehle Rotier- und Schiebebelehle 

Block-Verschiebe-Befenle Bit-Operationen 

Block-Suchbefehle Ein-.Ausgabe 

8-Bil-Arithmetik und -Logik Sprünge 

16-Bit-Arilhmetik Unterprogramm-Behandlung 

In der Tabelle wird folgende Terminologie benutzt: 

S = Sign-Flag (Vorzeichen bzw. höchstes Bit) 

Z = Zero-Flag (Z=1, wenn Ergebnis gleich Null) 

H = Hallcarry-Flag (Übertrag vom 3 zum 4. Bit) 

P/V = Parity-ZOverflow-Flag (Parital.Überlaul) 

N = Negative-Flag (N = 1. wenn Sufitraktion vorausging) 

CV = Carry-Flag (Übertrag zum nächsten Byte) 

b = Nummer eines Bits in einem 8-Bil-Wert 

cc = Bedingung abhängig vom Zustand der Flags 

NZ = ungleich Null (Z=0) 

Z = gleich Null (Z=1) 

NC = kein Übertrag (CY=0) 

C = Übertrag (CY=1) 

PO = ungerade Parität oder kein Überlauf (P/V=0) 

PE = gerade Parität oder Überlauf (P/V=1) 

P = positiv (höchstes Bit =0) (S=0) 

N = negativ (höchstes Bit =1) (S=1) 


d = 8-Bit-Zielregister oder -Speicherstelle 

dd = 16-Bil-Zielregister oder -Speicherstelle 

e = 8-Bit-Wert im Zweierkomplement 

L = Spezielle Sprungadresse 

(hex. 00.08,10,18,20,28.30,38) 
n = 8-Bil-Wert, direkt im Programm folgend 

nn = 16-Bit-VVerl. direkt im Programm folgend 

r = 8-Bit-Allzweck-Register (A,B,C,D,E,H.l) 

s = 8-Bit-Quellregisler oder -Speicherstelle 

s^ = ein Bit eines Registers oder einer Speicherstelle 
ss = 16-Bit-Ouellregister oder -Speichersteile 

Index "L" = die 8 niederwertigen Bits eines 16-Bit-Werts (Low-Byte) 
Index "H" = die 8 höherwertigen Bits eines 16-Bil-Werts (High-Byte) 

( ) = der Wert in den Klammern ist eine Speicher- oder Ein-.'Ausgabe- 

adresse. deren Inhalt gelesen oder beschrieben wird 
8-Bil-Register sind A,B,C,D,E,H,L,I und R 
16-Bit-Regislerpaare sind AF, BC, DE und HL 
16-Bil-Register sind SP, PC, IX, und IY 

Folgende Adressie/ungsarten werden verv/endet beziehungsweise 
miteinander kombiniert: 

Unmittelbar (Immediate) Indiziert llndexed) 

Immediate extended (16-Bit-Werte) Register 

modifizierte Zero-Page-Adressierung Implizit 

Relativ Register indirekt 

Extended Bitv/eise 



(SP) — ss L , (SP+1) - ss H 









Rotier-und Schiebebefehle Verschiedenes Akkumulator/Flags 16-Bit-Arilhmetik 8-ßit-Operalionen 
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Mnemonic symbolische Beschreibung 




ADD HL.ss 

HL - HL+ss 

ADC HL.SS 

HL - HL+SS + CY 

SBC HL.SS 

HL - HL-SS-CY 

ADD IX,SS 

IX - lX+ss 

ADD IY.SS 

IY - 1Y+SS 

INC dd 

dd - dd+1 




s = r, n (HL) 
(IX+e). (lY+e) 
d = r. (HL) 
(IX+e). (lY+e) 





NOP 

Keine Operation 


HALT 

Auf Interrupl warten 


Dl 

Interrupts sperren 


El 

Interrupts erlauben 

Wirkung erst 
nach dem 
folgenden Befehl 

IM 0 

Interrupt-Modus 0 

8080A-Modus 

IM 1 

Interrupt-Modus 1 

CALL nach 
hex. 0038 

IM 2 

Interrupl-Modus 2 

Indirekter Aufruf 

RLC S 



RL s 

:~i 

i! :lf l.. .... F 


RRC s 

4: . 


RR s 



SLAs 

E> V 

s = r, (HL) 


• : - *f c ' t 

(IX+e). (lY+e) 

SRAs 



SRLs 

...i ... . . * 


RLD 




. . t ( . t.._ 




symbolische Beschreibung 


s = r, (HL) 
(IX+e), (lY+e) 


INI 

(HL) - (C). HL - HL+1 
B - B-1 

INSR 

(HL) - (C). HL - HL + 1 
B - B-1 

wiederhole, bis B=0 

IND 

(HL) - (C). HL - HL-1 

B - B-1 

INDR 

(HL) - (C). HL - HL-1 

B - B-1 

wiederhole, bis B=0 

OUT(n), A 

|n) - A 

OUT(C),r 

(C) - r 

OUTI 

(C) - (HL). HL - HL+1 
B - B-1 

OTIR 

(C) - (HL), HL - HL+1 
B - B-1 

wiederhole, bis B=0 

OUTD 

(C) - (HL), HL - HL-1 

B - B-1 

OTDR 

(C) - (HL), HL - HL-1 

B - B-1 

wiederhole, bis B=0 


statt (C) 
eigentlich 
(BC), da BC 
auf den 
Adreßbus 
gelegt wird 


l' tLü ’ .*!•. ,_et 
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A2.2 Registerbelegung* 


Register 

# 

Register File 

Program 

Unit 

Read 

Write 

Numb8r of Bits 

7 

6 

5 

4 

3 

2 

i 

0 

X 

- 

- 

- 

- 

Y^ 

Y 

Y 

Y^ 

Y^ 

Y 

\ 


AR 

Address Register 

- 

No 

Yes 

B 

0 

Bi 






RO 

Horizontal Total 

Char. 

No 

Yes 









RI 

Horizontal Displayed 

Char. 

No 










R2 

H. Sync Position 

Char. 












Sync Width 

- 


Yes 

B 

Bl 

0 

B 





R4 

Vertical Total 

Char. Row 

81 


3s 









V. Total Adjust 

ISflÄgl 

■Bi 


B 

0 

0 






R6 

Vertical Displayed 

WMMM 

No 

Yes 









R7 

V. Sync Position 


No 










R8 

Interlace Mode and Skew 

Note 1 

No 

sä 

B 

12 

0 

B 

0 

« 



R9 

Max Scan Line Address 




B 

B 

0 









No 









Cursor End 

Scan Line 

No 

Yes 

Y^ 

B 

B 






R12 

Start Address (H) 

- 


Yes 

m 

B 







R13 

Start Address (L) 

- 


Yes 









R14 

Cursor (H) 

- 


Yes 

0 

0 







R15 

Cursor (L) 

- 











R16 

Light Pen (H) 

- 

Yes 

No 

0 

0 







R17 

Light Pen (L) 

- 

Yes 

No 










* Quelle: Motorola 














































20 RA 43 Gate Array 659 


A3 20 RA 43 Gate Array 

A3.1 Pin Out 


CPU ADDR [T 


4Ö\ MAO/CCLK 

READY {F 


7] <J>,¥,PHI wahlweise 

CÄS (7 


M v cci 

244 EN (7 


7] RESET 

MWE (7 


m r 

CAS ADDR (7 


§ GND 

RÄS (7 


7] G 

XTAL QF 


7] VCC2 

VCC2 (T 


1 B 

INTERRUPT (7 


M D7 

SYNC (TT 


7j D6 

ROMEN [7 


D5 

RAMRD (7 


7] D4 

HSYNC (7 


Hl D3 

VSYNC (77 


7j D2 

IÖRQ [7 


7] Dl 

Ml E? 


Hi 00 

MREQ [7 


Hi DISPEN 

RD (7 


D VCCI 

A15 (fo 


13 A14 


A3.2 

REG # 
REG # 
REG # 


REG # 


Registerbelegung 

(b7=0, b6=0): Farb-Adress-Register 
(b7=0, b6=l): Farbwert-Datenregister 
(b7=l, b6=0): Kontroll-Register 


b4: 

1: 

Interrupt-Zähler löschen 

b3: 

0: 

oberes ROM einschalten 

b2: 

0: 

unteres ROM einschalten 

bl: 

0: 

Mode-Auswahl 

bO: 

0: 

Mode-Auswahl 


(b7=l, b6=l): Funktion unbekannt 
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A4 8255 PIO 
A4.1 Blockschaltbild 


o 

< 

cf 

Q 

o 

o 

OG 

CL 

CL 

CL 

CL 

< 

o" 

rj 

o 

of 

Q_ 

CL 

CL 

CL 

o 

o 

o 

o 



LOGIC 
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A4.3 Registerbelegung 


Al AO I/O-Adresse ausgewählte Einheit 

0 0 $F4xx Port A 

0 1 $F5xx Port B 

1 0 $F6xx Port C 

1 1 $F7xx Kontroll-Register 


Quelle: Kundendienst Handbuch Service Manual, Schneider Computer Division 
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AS AY 3-8912 PSG 

A5.1 Pin Out* 

ANALOG 
CHANNEL C 

TEST I 

Vcc 

analog 

CHANNEL B 
ANALOG 

CHANNEL A 

l 'ss 

I0A7 

10 Ae 

10Ae 

10A4 
IOA 3 
I0A2 
lOAi 
10 Ao 


[I 


2§\DAo 

d 


27\DAl 

d 


26\pA? 

(7 


25\e>A3 

H 


24\DA4 

d 


23\DAs 

d 


22$DA6 

d 


2j]DA7 

ü 


BCl 

d 


TÖ\bC2 

UL 


I8\BDIR 

d 


1t\ab 

1 


w] RESET 

UL 


7? ] CL0C K 


A5.2 Registerbelegung 


REG #0/1: 
REG #2/3: 
REG #4/5: 
REG #6: 
REG #7: 
REG #8: 
REG #9: 
REG #10: 
REG #11/12: 
REG #13: 
REG #14: 
REG #15: 


Periodendauer Kanal A (12 Bit) 

Periodendauer Kanal B (12 Bit) 

Periodendauer Kanal C (12 Bit) 
durchschnittliche Periodendauer Rauschen (5 Bit) 
Kontroll-Register 
Lautstärke Kanal A (4 Bit) 

Lautstärke Kanal B (4 Bit) 

Lautstärke Kanal C (4 Bit) 

Periodendauer der Hüllkurve (16 Bit) 
Hüllkurvenform (4 Bit) 
peripheres Datenregister Port A 
peripheres Datenregister Port B 


Quelle: Kundendienst Handbuch Service Manual, Schneider Computer Division 
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A5.3 Hüllkurventabelle 


CONTINUE 

ATTACK 

ALTERNATE 

HOLD 


b3 

b2 

bl 

bO 

REGISTER 13 

0 

0 

X 

X 

\ _ 

0 

1 

X 

X 

/I_ 

1 

0 

0 

0 

\|\N\I\NN\N 

1 

0 

0 

1 

\ 

1 

0 

1 

0 


1 

0 

1 

1 

M 

1 

1 

0 

0 

/VVVbVVTVl 

1 

1 

0 

1 

/ 

1 

1 

1 

0 

/VVW 7 

1 

1 

1 

_ 

1 

/I _ 
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Abkürzungsverzeichnis 

In der Computerfachsprache herrscht allgemein ein hohes Aufkommen an 
Abkürzungen, und wir mußten darüber hinaus im Rahmen unserer Analyse 
des CPC auch noch einige Kürzel einführen, da die entsprechenden Ter¬ 
mini einfach zu lang wurden. Deshalb halten wir es für sinnvoll, an dieser 
Stelle einmal die wichtigsten und gebräuchlichsten Abkürzungen zusam¬ 
menzufassen. 


Adr 

APQ 

Arg 

ASCII 


async 

Basic 

Bit 

BRK 

CAS 

Char 

CP/M 

CPC 

CPU 

CR 

CRT 

CRTC 

CTRL 

CY 

Descr 

DMA 

DOS 

E/A,EA 

ENT 

ENV 

EOF 

ESC 

Exp 


FAC 


Adresse 

Asynchronous Pending Queue 
Argument 

American Standard Code for Information Interchange, 
Standard für die Übertragung von Daten (USASCII) 
asynchronous, asynchron 

Beginners All Purpose Symbolic Instruction Code, eine 
Programmiersprache 

Binary digit, Ziffer des binären Zahlensystems, 0 oder 1 
BReaK-Zeichen, CPC-spezielles Zeichen, $EF 
CASsette Manager Pack 
Character, Zeichen 

Control Program for Microcomputers, verbreiteter 

Standard für Betriebssysteme 

Color Personal Computer: das Gerät. 

Central Processing Unit, im Falle des CPC der Z80-Chip 

(vielfach auch für Prozessor inkl. ROM und RAM verwandt) 

Carriage Return, Wagenrücklauf, ASCII-Zeichen $0D 

Cathode Ray Tube, Kathodenstrahlröhre 

Cathode Ray Tube Controller, der Video-Chip im CPC 

ConTRoL, Kontrolltaste 

CarrY, Übertrags-Flag, eines der Z80-Flags 

Descriptor (eines Strings) 

Direct Memory Access, direkter Zugriff externer Einheiten 
auf das zentrale RAM der CPU 

Disk Operating System, Betriebssystem auf Diskettenbasis 
Ein-/Ausgabe 

ENvelope Tone, Ton-Hüllkurve 
ENvelope Volume, Lautstärke-Hüllkurve 
End Of File, Ende einer Datei 
ESCape, ASCII-Zeichen, $1B (im CPC $FC) 

1. Exp String: Expansion String 

2. Exponent (allgemein) 

3. 8-Bit Exponent einer FLO-Fahl 

Floating point ACcumulator, Speicherbereich für FLO-Zahl 
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FCFS 

FFC 

FIFO 

FLO 

FLR 

FTC 

GA 

GND 

GRA 

HC 

Hex 

1 / 0,10 

INT 

IPQ 

K 

KA 

KAFFC 

KAFTC 

KAPQ 

KATC 

KByte 

KL 

KM 

LF 

LIFO 

LL 

LSB 

MC 

MSB 

NIL 

Param 

PC 

PIO 

PQ 

PSG 

PTR 

RAM 

Reg,REG 

ROM 

RSX 

S 


First Come - First Served, wie FIFO 
Frame Fly Chain 

First In - First Out, Queue-Struktur 
FLOating point, Fließkomma-... 

Fixed Length Record, Record mit fester Länge 
Fast Ticker Chain 

Gate Array, einer der Bausteine im CPC 

GrouND, Bezugsspannung innerhalb eines elektrischen 

Systems 

GRAphics screen pack 
Hierarchie Code 

Hexadezimal (korrekt eigentlich Sedezimal) 

Input/Output, Eingabe/Ausgabe 
INTeger, ganzzahlig 

Interrupt Pending Queue (entspricht APQ) 

Faktor 1024 (nicht etwa k, Faktor 1000) 

Koppeladresse 

Koppeladresse für die Frame Fly Chain 
Koppeladresse für die Fast Ticker Chain 
Koppeladresse für die Pending Queue 
Koppeladresse für die Ticker Chain 
1024 Byte 
KerneL 

Keyboard Manager Pack 
Line Feed, ASCII-Zeichen $0A 
Last In - First Out, Stack-Struktur 
Linked List, verkettete Liste 

Least Significant Byte/Bit, niederwertigstes Byte/Bit 
MaChine Pack 

Most Significant Byte/Bit, höchstwertiges Byte/Bit 
Not In List, Markierung für Listenende 
Parameter 

Program Counter, eines der Z80-Register 
Basic PC: Programmzeiger innerhalb eines Basic-Programms 
Programmable Input/Output Chip, ein Chip im CPC 
Pending Queue 

Programmable Sound Generator, ein Chip im CPC 
PoinTeR, Zeiger 

Random Access Memory, Schreib-/Lesespeicher 
Register 

Read Only Memory, Nur-Lesespeicher 

Resident System eXtension, residente Systemerweiterung 

Sign-Flag, eines der Z80-Flags 
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SCR 

SOUND 

SP 


SPQ 

SWI 

sync 

TC 

TXT 

UCSD 

VDU 

VL 

VLR 

2 


SCReen Pack 
SOUND Manager Pack 
Stack Pointer: 

1. eines der Z80-Register 

2. allgemeiner Zeiger einer LIFO-Struktur 
Synchronous Pending Queue 

Software Interrupt, Prozessorbefehl des MC6809 
synchronous, synchron 
Ticker Chain 
TeXT Pack 

University of California, San Diego 
Video Display Unit, siehe CRT 
verkettete Liste 
Variable Length Record 
Zero-Flag, eines der Z80-Flags 
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Stichwortverzeichnis 


16-Bit-Register, 16 
20 RA 043, 27 
6845, 20 

8-Bit-Register, 16 
8255 PIO, 35 


A, 16 

Abbruchbedingung, 61 
Addition, 127, 129, 147 
Adreß-Register, 22 
Adreßberechnung, 93 
Adreßbus, 15, 20, 28 
Adreßraum, 34, 52, 67 
Adresse, 15, 16, 28, 51 
allgemeine, 64 
relative, 64 

Adressentabelle, 52, 86 
Adressenunabhängigkeit, 89 
Adressierung, direkte, 67 
relative, 81 
After, 75, 152 
After-Unterbrechung, 151 
Akkumulator, 16 
Aktivität, alte, 117 
laufende, 117 
Amplitude, 44 
Anwenderprogramm, 65 
APQ, 71, 80 
arctan, 134 
Argument, 130 
normiertes, 131 
Arithmetik, 87, 90, 127 
Array, 51, 52, 57, 58, 59 
artanh-Funktion, 132 
ASCII-Code, 24, 104 
ASCII-Tabelle, 52 
Asynchronous Event, 73 
Asynchronous Pending Queue, 
71, 80 

ATN-Funktion, 134 
Aufgabe, asynchrone, 79 
Aufruf, rekursiver, 61 
Aufrufadresse, 120 
Ausgabe-Register, 35 
Ausgabebuffer, 121 
Ausgabefile, 121 
Auswahllogik, 33 


B, 16 

Bandeinheit, 39 


Bank, 34 

Banking, 65ff, 68, 86, 135 
Basic, 49, 90 

Basic-Anwenderbereich, 135 
Basic-Befehl, 145 
Basic-Compreter, 139 
Basic-Interpreter, 139 
Basic-Programm, 120 
geschütztes, 120 
Basic-ROM, 33 
Basic-Stack, 147, 150 
Basic-Systemzeiger, 142 
Baudrate, 120, 123 
BC, 16 

BCD-Zahlen, 17 
Bearbeitungs-Flag, 152 
Befehlswort-Tabelle, 69 
Behandlungsroutine, 84 
Benutzer-Vektor, 154 
Benutzerfeld, 74 
Benutzerprogramm, 65 
Betriebssystem, 49, 65, 90 
Betriebssystem-Vektor, 89 
Betriebssystem-Routine, 86 
Beziehung, logische, 56 
statische, 56 
bidirektional, 15 
Bildaufbau, 40 
Bildschirm, 91, 92 
scrollen, 91 
unsichtbarer, 93 
Bildschirm-Adreßberechnung, 
91 

Bildschirm-Modus, 31 
Bildschirmadresse, 94 
Bildschirmausgabe, 98 
Bildschirmbehandlung, 84 
Bildschirmfenster, 96 
Bildschirmmodus, 84 
Bildschirmposititon, 97 
Bildschirmrahmen, 31 
Bildschirmspeicher, 21, 23, 25, 
91, 92 

Startadresse des, 25 
Bildschirmstartadresse, 93 
Bildschirmverwaltung, 91 
Bildschirmposition, 99 
Bildwiederholfrequenz, 32, 40 
Binärsystem, 127 
Binärziffer, 127 
Bitmaske, 91, 92 
blinken, 93 
Block, 120 

Blockheader, 121, 122 
Blocknummer, 123 
Border, 84, 92 
Borger, 130 
Break, 70, 106 


Break Event, 109 
Break-Bearbeitung, 106 
Break-Event, 70, 152 
Break-Event-Block, 152 
BRK, 107 

BRK-Zeichen, 106, 109 
Buffer, 58, 121, 126 
Bufferbereich, 121 
Bufferzeiger, 121, 122 
Bus, 15 
busy, 40, 85 
Byte, 15 

höchstwertiges, 128 
niederwertigstes, 128 


C, 16 
Call, 78 

Caps Lock, 107, 108 
Carry-Flag, 17 
Cassette-Manager, 138 
Cassetten-Interface, 39 
Cassetten-Motor, 40 
Cassetteneinheit, 39 
Centronics, 84 
Centronics-Port, 85 
Chain, 72, 74 
Character-ROM, 21, 24 
Check-Word, 124 
Class Byte, 73 
Code, compilierter, 139 
Compiler, 139 
Compreter, 139 
ConTRoL, 106 
Copy Cursor, 126 
COS, 130 
CP/M, 52 
CR, 52 
CRTC, 20, 84 
Ctrl/Shift-Flag, 108 
Cursor, 21, 23, 98 
Cursor-Flag, 96 
Cursordarstellung, 95, 96 
Cursorposition, 99 
Cursorspalte, 96 
Cursorsteuerung, 98 
Cursorzeile, 96 
CY, 17 


D, 16 
DAA, 17 

Data Structures, 49 
Daten, 56 
Datenbit, 123 
Datenblock, 54, 56, 115 
Datenbus, 15, 20, 41, 42 
Datenleitung, 42 
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Datenorganistion, 55, 57 
zirkuläre, 55 
Datenregister, 35, 44 
Datenrichtungs-Bit, 36 
Datenspeicherung, 49, 52, 54, 
56 

Datenstatus, 115 
Datenstruktur, 49, 56, 57, 139 
D atenverbindung, 
bidirektionale, 46 
Datenformat, 150 
DE, 16 

DEF FN-Befehl, 148 
DEFINT, 141 
DEFREAL, 141 
DEFSTR, 141 
dequeue, 59 
Descriptor, 142, 143 
Descriptoradresse, 143 
Device Independence, 65 
DI, 79 

Dimension, 144 
Dimensionsbyte, 144 
Direkt-Modus, 153 
Direkteingabe, 145 
Diskettenstation, 33, 120 
Distributor, 40 
DIV, 134 
Division, 127 
Divsion, 147 
DOS, 67 
DOS-ROM, 33 
Drucker, 40, 84, 85 
Druckersteuerung, 84 
Dynamik, 56 


Editor, 87, 90, 126 
EI, 79, 80 

Ein-/Ausgabebereich, 16 
Ein-/Ausgabechip, 35 
Ein-/Ausgaberoutine, 87 
Einerkomplement, 147 
Eingabe-Header-Buffer, 122 
Eingabe-Register, 35 
Eingabeschleife, 145, 154 
Eingabezeile, 126, 145 
Einheit, periphere, 65 
Einschalten, 78 
Einschaltmeldung, 40 
Einsprung-Tabelle, 69 
Einsprungadressen, 86 
Elektronenstrahl, 40 
END, 145 

Ende der Felder, 137 
Ende der Strings, 137 
Endmarkierung, 140 
ENT, 114 


Pausenzeit für, 111 
ENT-Folge, 111, 115 
ENT-Hüllkurve, 119 
ENT-Verwaltung, 112 
ENV, 114 
Pausenzeit für, 111 
ENV-Flag, 111 
ENV-Folge, 111, 115 
ENV-Gruppen, 111 
ENV-Hüllkurve, 118 
ENV-Verwaltung, 112 
EOF, 122 

Erweiterungs-ROM, 33, 68, 81 
ESC, 100, 145 
ESC-Taste, 106 
Event, 40, 66, 70, 71, 107 
asynchroner, 71 
synchroner, 70, 71, 111, 118 
wiederholender, 72 
Event Block, 74 
Event-Behandlung, 75 
Event-Block, 70, 71, 152 
Event-Block-Parameterfeld, 
151 

Event-Routine, 70, 73, 93, 

117 

Event-Typ, 71, 71 
Every, 75, 152 
Every-Unterbrechung, 151 
Exklusiv-Oder-Verknüpf., 147 
EXP, 127, 130 
Expansion Port, 39 
Expansion String, 104, 107 
Expansion String Buffer, 104 
Exponent, 128 
realer, 129 
Exponentenbyte, 128 
Exponential-Schreibweise, 127 
Express, 73 
Extensions-ROM, 81 


F, 17 

F-Register, 17 
Fakultät, 60 
Far Address, 73 
Far Call, 73, 82 
Farb-Adreß-Register, 29 
Farbe, 92 
Codierung der, 91 
Verwaltung der, 92 
Farben, 30 
Farbmaske, 91, 93, 94 
Farbnummer, 92 
Farbstift, 84, 92, 93, 102 
Farbstift-Nummer, 99 
Farbstift-Register, 84 
Farbstiftnummer, 93 


Farbwert, 92 

Farbwert-Daten-Register, 29 

Farbwert-Register, 30,32 

Farbwerte, 30 

Fast Ticker, 74 

Fast Ticker Chain, 72, 75, 80 

FCFS, 57 

Fehlerausgabe, 154 

Fehlerbehandlung, 154 

Fehlermeldung, 124 

Feld, 51 

Feldvariable, 137, 144 
Feldvariablen-Eintrag, 144 
Fernseher, 20 
Feuerknopf, 39 
FIFO, 56, 57, 59 
FIFO-Prinzip, 57 
FIFO-Struktur, 59 
File, 120 
File-Status, 121 
Filename, 120, 121 
Filestatus-Fehler, 124 
Filetype, 120, 121 
Fileverwaltung, 120, 121 
Firm Jump, 82 
Firmware, 65, 90 
Firmware Manual, 90 
First Come - First Served, 57 
First In - First Out, 57 
fixed length record, 50 
Fläche, Ausfüllen einer, 103 
Flag, 17, 50 
Flag-Register, 17 
Flanke, 123 
Flankenabstand, 123 
Flankenzeit, 123 
Fließkommaformat, 129 
Fließkommazahl, 127 
FLO-Exponent, 129 
FLO-Pack, 127, 128 
FLO-Zahl, 128 
normierte, 128 
Floating Point Pack, 127 
Floppy-ROM, 67 
FLR, 50, 51, 52, 54, 57 
Zugriff auf, 50 
FLR-Array, 52, 54 
Flush, 115 

FOR-Schleifenvariable, 150 
FOR-Statement, 150 
Form, gepackte, 92 
ungepackte, 92 
Frame Fly, 40 
Frame Fly Chain, 40, 72, 74, 
75, 80, 93 
Frequenz, 42 
FTC, 72 
Füllbyte, 124 
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Funktion, 145 
differenzierbar, 130 
irrationale, 133 
Funktionsauswertung, 154 
Funktionsdefinition, 148 
Funktionsresultat, 147 
Funktionstaste, 126 
Funktionswert, 130 


Garbage Collection, 142 
Gate Array, 19, 20, 23, 31, 66, 
92,135 

Register des, 29 
Geräteunabhängigkeit, 65 
global, 61 

GOSUB-Statement, 150 
Graphics-Pack, 91 
Graphik, 24 
Graphik-Cursor, 102 
Graphik-Koordinaten, 94, 95 
Graphik-Pack, 100 
Graphik-Window, 102 

Grenzen, 101 
Graphikcursorposition, 96, 

100 

Grundschwingung, 46 
Gruppe, laufende, 114 

H, 16,17 
Halbperiode, 133 
Halfcarry-Flag, 17 
Haltezustand, 118 
Hardware-Scrolling, 93, 96 
Hardware-Stack, 57, 61 
Haupttabelle, 87, 89 
Header, 120, 121 
Hi Jump, 88 
Hi-ROM, 66 
Hierarchiecode, 146 
HIMEM, 137, 138 
Hintergrund-Modus, 99, 103 

Indirection für, 96 
Hintergrund-ROM, 69 
HiRAM, 135 
HL, 16 
Hold, 115 
HSYNC, 21, 22, 32 
HSYNC-Zähler, 32 
Hüllkurve, 44, 110, 112, 114 
Hüllkurvengenerator, 42, 44 
Hüllkurvenperiode, 113 


I, 19 
I/O, 35 

I/O-Leitung, 35 


I/O-Operation, 35 
I/O-Port, 35, 42 
Index, 52 
maximaler, 144 
Indexregister, 18 
Indirection, 84, 85, 88, 91, 96, 
98, 100 
Ink, 31 
Ink-Befehl, 92 
Integer Pack, 134 
Integer-Arithmetik, 134 
Integer-Modulo, 147 
Integerdivsion, 147 
Integerschleife, 150 
Integerzahl, 50 
Interface, 84 
Interface-Software, 87 
Intergervariable, 141 
Interlace-Mode, 23 
Interpreter, 139 
Interpreterschleife, 145, 152 
Interrupt, 18, 29, 66, 71, 74, 
77, 78, 79, 80, 82, 106 
Einschalten des, 80 
Enable, 80 
externer, 80, 82 
Interrupt Pending Queue, 71 
Interrupt-Behandlung, 77, 78, 
79,105 

Interrupt-Ebene, zweite, 79 
Interrupt-Impulse, 29 
Interrupt-Quellen, 19 
Interrupt-Register, 19 
Interrupt-Routine, 18, 78, 79 
Interrupt-Signal, 32 
Interrupt-Takt, 27 
Interrupt-Zähler, 29 
Interruptquelle, 32 
Invertierungs-Flag, 124 
IPQ, 71 
IRQ-Pin, 18 
Item, 154 

IX, 18 

IY, 18 


Joystick, 39, 108 
Jump Restore, 86 

Kaltstart, 81, 91 
Kanal, 42, 110, 111, 116 
Kanal-Event, 118 
Kanal-Params, 116 
Kanalbit, 111 
Kanalblock, 115 
Kanalkennung, 111 
Kanalmaske, 110, 111 


Kanalnummer, 110 
Kanalstatus, 110, 118 
KAPQ, 73 
Kassettensignal, 123 
Kennbyte, 124 
Kernel, 65 
Kernel Hi Jump, 88 
Kettungs-Offset, 144 
Kettungsadresse, 64 
Kettungsoffset, 64 
Key Ctrl Tabelle, 106 
Key Shift Tabelle, 106 
Key Translation Table, 106 
Key-Repeat, 104 
Keyboard Manager, 59, 104, 
106,107 

Keyword, 52, 140 
kicken, 72, 76 
Klammer, 145 
Klammerausdruck, 146 
Koeffizient, 131 
Kompatibilität, 86, 87 
Konfiguration, 34, 82 
laufende, 82 
konsekutiv, 51 
Konstante, 145 
Kontroll-Register, 35, 44 
Koordinate, reale, 101 
Koordinatensystem, 101 
Kopf, 74 

Koppeladresse, 73 
Korrekturwert, 123 


L, 16 

Last In - First Out, 56 
Lautstärke, 42, 44, 110, 111, 
112, 114, 115 

Least Significant Byte, 128 
LF, 52 

Lichtgriffel, 21 
LIFO, 56 
LIFO-Prinzip, 56 
LIFO-Struktur, 56, 61 
Line Editor, 126 
Linie, 95 

Linienmaske, 102, 103 
Linienmuster, 102 
Linked List, 52, 54, 57, 59 
double, 55 
lineare, 55 
List Pointer, 54 
Liste, 52, 54 
verkettete, 144, 149 
ln, 132 
Lo-Jump, 81 
Lo-ROM, 66 
LOG, 127 
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lokal, 61 
LoRAM, 135 
LSB, 128 

Machine Pack, 65, 83, 85, 105 
MacLaurin’sche Reihe, 131 
Mantisse, 128 
Mantissenbyte, 128 
Manual, 65 
Markierung, 51 
Maschinen-Programm, 120 
Maske, 94 
Master-Takt, 46 
Matrix, 38, 92, 98, 103 
gepackte, 92 
ungepackte, 92 
Meldungs-Flag, 120 
Memory Allocation, 49 
Merge, 137 
Merge-Routine, 137 
Mikroprozessor, 15 
MOD, 134 
Mode, 29, 31, 91ff 
Mode-Nummer, 91 
Modularität, 90 
Modus, 31 
Monitor, 20 

Most Significant Byte, 128 
MSB, 128 

Multiplikation, 127, 147 
Multitasking-System, 57 


N-Flag, 17 
Näherung, 130, 131 
Near Address, 73 
Nebentabelle, 87 
Nesting, 78 
NEXT-Statement, 150 
Nibble 32 
NIL, 54 

Normierung, 131 

Oder-Verknüpfung, 147 
Offset, 140, 141 
ON BREAK CONT, 153 
ON SQ GOSUB, 152 
ON SQ-Unterbrechung, 151 
Operand, 146 
Operating System, 65, 90 
Operator, 145, 146 
stärker bindender, 146 
Origin, 101 
ortsabhängig, 64 
ortsunabhängig, 141, 144 
Ortsunabhängigkeit, 64 
OS, 90 
OS-ROM, 90 
Overflow-Flag, 17 


P, 17 

Pack, 65, 83, 86, 90 
PAL-Norm, 40 
Paper-Farbe, 102 
Paper-Farbmaske, 96 
Parameter, 61, 97, 145 
aktueller, 148 
formaler, 148 

Parameter-Berechnung, 149 
Parameter-Block, 97, 110 
Parameter-Feld, 152 
Parameter-Records, 149 
Parameter-Tabelle, 154 
Parameter-Typ, 154 
Parametergruppe, 112, 113 
Parameterübergabe, 154 
Parität, 17 
Parity-Flag, 17 
Pausenzeit, 113 
PC, 16 

Pen-Farbmaske, 96 
Pending Queue, 71, 73 
Pending-Queue-Zähler, 73 
Periodendauer, 43, 44, 46, 
111, 115 
Peripherie, 65 
Phasenverschiebung, 133 
PIO, 35,38 
Pixel, 91, 92, 93 
Setzen der, 94 
Pixel-Matrix, 100 
Pixelauswahlmaske, 94 
Pointer, 52 

Polynomberechnung, 131 
pop, 56 
popen, 18 
Port, 35 

Position indedendent, 141 
Position Independence, 54, 64 
Position independent, 51 
positionsunabhängig, 51 
Positionsunabhängigkeit, 54 
Potenz, 127 
Potenzierung, 147 
PQ, 72 

PQ-Zähler, 73 
Priorität, 59, 73, 76, 146, 152 
laufende, 76 
Priority Byte, 73 
Programm, geschütztes, 154 
Programm-File, 120 
Programmänderung, 137 
Programmende, 137 
Programmende-Kennzeichen, 
145 

Programmieren, modulares, 

78 

Programmiertechnik, 49, 60 


Programmstart, 137 
Programmstruktur, 60, 139 
Programmunterbrechung, 145 
Programmverzweigung, 77 
Programmzähler, 16, 78 
Programmzeile, 139 
Prozeß, zeitkritischer, 79 
Prozessor, 15 
Speicherzugriff des, 66 
Prozessorstack, 57 
Prozessortakt, 20 
Prüfwort, 124 

PSG, 38, 39, 42, 85, 112, 117 
PSG-Hüllkurve, 113, 114 
PSG-Register, 42, 45 
pull, 56 

Punkt, einzelner, 102 
Punkte, 31 
push, 56 
pushen, 18 

Put Back Buffer, 104, 108 


Queue, 57ff 
double-ended, 59 


R, 18 

Rahmen, rechteckiger, 102 
Rahmenfarbe, 92 
RAM, 66 
RAM LAM, 82 
RAM-/ROM-Banking, 33 
RAM-Aufteilung, 135 
RAM-Bank-Register, 30 
RAM-Banken, 66 
RAM-Banking, 66 
RAM-Konfiguration, 30, 34, 
68 

RAM-Vektor, 64, 86 
RAM-Zeiger, 137 
RAM-Zugriff, 27 
Rasterzeile, 21, 25, 94, 98 
Rauschgenerator, 42, 44 
Rauschmaske, 110, 111 
Rauschperiode, 115 
Read error, 124 
Real-Schleife, 150 
Real-Variable, 141 
Real-Wert, 142 
Record, 49, 51, 52, 54, 57, 59 
redundant, 128 
Refresh-Register, 18 
Refresh-Zähler, 123 
Register, 16, 21 
Registersatz, 17 
zweiter, 17 

Reihe, entwickelte, 132 





Stichwortverzeichnis 675 


Reihenentwicklung, 130 
Rekursion, 60 
indirekte, 146 
Rekursionstiefe, 61 
rekursiv, 60 
Reload Count, 74, 75 
Reload-Count, 152 
Rendezvous-Status, 110, 115 
Renum-Befehl, 140 
Repeat, 107 
Reset, 37, 46, 78 
resident System extension, 68, 
135 

Restart, 80 
Restart-Routine, 80 
Restglied, 131 
RGB-Videosignal, 27, 30 
Ringbuffer, 58, 59, 105, 106, 
108,110 

ROM, externes, 135 
internes, 66 
oberes, 67 
ROM-Banking, 68 
ROM-Konfiguration, 73, 74, 
82 

ROM-Matrix, 99 
ROM-Nummer, 69 
ROM-Switch, 87 
Routine, rekursive, 61 
RS 232, 84 
RST, 80 

RST-Routine, 81 
RSX, 68 

RSX-Befehlwort, 140 
RSX-Erweiterung, 135 
RSX-Hintergrund-ROM, 69 
RSX-Kennzeichen, 140 
RSX-Kommando, 68 
Rückkehradresse, 57, 62, 150 
Rückmeldung, 38, 85 
Rücksprung, 152 


S, 17 

Schleife, 60, 150 
Schleifen-Step-Wert, 150 
Schleifenendwert, 150 
Schlüsselwort, 140 
Schnittstelle, 38, 65 
Schrittanzahl, 113 
Schrittweite, 113 
Schrittzähler, 111, 115 
SCR, 91 

SCR Base, 25,84,93 
SCR Offset, 25, 84, 93 
Screen Editor, 126 
Screen Pack, 91, 93, 96 
Scrolling, 95 


Scrolling-Zähler, 96 
Secam-Norm, 40 
seriell, 123 
SHIFT, 106 
Shift Lock, 107, 108 
Shift-Code, 106 
Side Call, 81 
Sign-Flag, 17 
SIN, 130 

Software-Scrolling, 96 
Software-Stack, 147 
Sound, 39, 116 
Ausgabe von, 39 
Sound Event, 115ff 
Sound Manager, 59, 110, 116, 
118 

Sound-Ausgabe, 110, 117 
Sound-Chip, 38, 39 
Sound-Generator, 39, 42 
SP, 18 

SP-Register, 57 
Speicher, 56 
Speicheraufteilung, 135 
Speicherbanken, 66 
Speicherbereich, 15, 52, 66 
Speicherplatz-Erweiterung, 67 
Speicherstelle, 15, 61 
Speicherverwaltung, 33, 34 
Sperrpriorität, 77 
SPQ, 76, 152 
einfrieren, 77 
Sprung, 77 
Sprungadresse, 64 
Sprungtabelle, 86, 87 
Sprungvektorentabelle, 64 
Stack, 18, 56, 57, 61, 62, 78, 
147 

Stackpointer, 18, 57 
Stapel, 18, 56 
Start der Felder, 137 
Start der Strings, 137 
Statusfehler, 121 
Stellenwert, 127 
Steuerbus, 15 
Steuerzeichen, 99, 103 
Ausgabe von, 100 
Auswertung der, 100 
Steuerzeichen-Sprungtabelle, 
96 

STOP, 145 
String, 50, 52 
Stringbereich, 52, 138 
Stringdescriptor, 142, 144 
Stringvariable, 137, 141 
Stringverknüpfung, 147 
Struktur, 49, 56 
logische, 49 
Subtraktion, 147 


Symbol, 92 
Symbol After, 99 
Synchronisation, vertikale, 
40, 72, 84 

Synchronisations-Signal, 30 
Synchronisationsmarkierung, 
123,124 

Synchronous Event, 73, 152 
Synchronous Pending, Queue, 
59, 70, 76 

System Reset, 78, 81 
Systembereich, 135 
Systemroutine, 83 
Systemtakt, 15, 15, 27 
4-MHz-, 27 
systemunabhängig, 89 
Systemvariable, 135, 141 
Systemzeiger, 143 


TAG-Flag, 103 
Tastatur, 38, 85, 104, 105 
Abfrage der, 38 
Tastaturabfrage, 38, 105 
Tastatureingabe, 104 
Tastaturmatrix, 38, 39, 85, 

105 

Tastaturzeile, 105 
Taste, 38, 85 
Nummer der, 106 
Tastenkoordinaten, 59, 105, 

106 

Tastenwiederholung, 104, 107, 
108 

Taylor’sche Reihe, 130 
Text Screen Pack, 96 
Text-Koordinaten, 94 
Text-Pack, 91,92,97,137 
Textcursorposition, 96, 100 
Textzeichen, 92, 94, 95 
Textzeichen-Matrix, 92 
Textzeichenausgabe, 94 
Tick Count, 75, 152 
Ticker, 80 

Ticker Chain, 72, 74, 75, 80 
Ticker-Frequenzteiler, 80 
Ticker-Kopf, 74 
Token, 140, 141, 145 
Token-Buffer, 137 
Tokenisierung, 140 
Tonbearbeitung, 116 
Tondauer, 115 
Tonhöhe, 110 
Tonkanal, 152 
Tonlänge, 111 
Tonperiode, 113, 115 
Tonübergabe, 116 
Tracing, 145 
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Translation Table, 84, 85 
transparent, 62, 69, 99, 103, 
105 

Transparenz, 79 
transportabel, 89 
TXT, 96 
Type-Byte, 145 
Type-Flag, 146 


Übersetzungstabelle, 84 
Übertrag, 17, 130 
Übertragbarkeit, 90 
UCSD Pascal System, 50 
Und-Verknüpfung, 147 
unidirektional, 15 
Unix, 52 

Unterbrechung, 18, 77, 151, 
152 

Unterprogramm, 18, 78, 150 
verschachtelt, 18 
verschachteltes, 78 
Unterprogrammaufruf, 62, 78, 
151 

Unterstruktur, 50 
Upper-ROM, 65, 67 
Ursprung, 101 
User, 82 
User Area, 74 
User-Funktion, 57 
User-Matrix, 99 


V, 17 

Variable, 61, 145 
einfache, 137 
variable length record, 50 
Variablen-Liste, 144 
Variablenadresse, 64 
Variablenbereich, 64, 137, 142 
Variableneintrag, 141, 142 
Variablenname, 140 
unmarkierter, 141 
Variablennamen-Token, 141 
Variablenoffset, 64 
Variablenstart, 137 
Variablentyp, 141 
VDU-Flag, 96 
Vektor, 86, 87, 154 
Vergleich, 17, 147 
Vergleichsoperator, 146 
Verschachtelung, 149 
Verschiebung, 86 
Verweis, 52 
Verzögerungswert, 108 
Verzweigung, 78 
Video-RAM, 20, 23, 24, 28, 
30, 31, 34, 84, 87, 88 


Video-Signal, 20 
Videocontroller, 20 
Videosignal, 21, 27, 30 
VLR, 50, 51, 54, 57 
VLR-Array, 52, 54 
Vordergrund-ROM, 69 
Vorkommastelle, 128 
Vorzeichen, 17, 128 
alternierendes, 133 
Vorzeichenbit, 130 
Vorzeichenwechsel, 147 
VSYNC, 21, 22, 40, 72 


Warteschlange, 110, 115 
restliche, 110 
Verwaltung der, 112 
WEND-Token, 150 
WHILE-Statement, 150 
WHILE-Token, 150 
Wiederholungsflag, 112 
Window, 96, 97 
aktuelles, 97 
scrollen, 95 
Window-Grenzen, 97 
Window-Parameter-Block, 96 
Window-Verwaltung, 96 
Windowgrenze, 96 
Write error, 124 


XOR-Mode, 102 
XTAL, 27 


Z, 17 

Zahlenkonstante, 140 
Zeichen, 24, 99 
allgemeines, 107 
Ausgabe von, 99 
Darstellung von, 98 
Zeichen-Generator, 23 
Zeichen-Matrix, 92, 99 
Zeichenausgabe, 96, 96 
Zeichencode, 24 
Zeichenerzeugung, 104 
Zeichenkette, 104 
Zeichenmatrix, 98, 137 
Zeiger, 52, 54, 55, 58 
Zeile, 38 

Zeilenadresse, 140 
Zeilennummer, 140 
Zeilenrückmeldung, 108 
Zeilenterminator, 52 
Zeilentext, 140 
Zero-Flag, 17 
Zugriff, 54 

Zwei-Byte-Wert, 142 


Zweierexponent, 128 
Zweierkomplement, 17, 129 
Zwischenspeicher, 18, 104 
Zwischenspeicherung, 147 





COMMODORE 


Das Commodore 128-Handbuch 

Juli 1985, 383 Seilen 

In diesem Buch finden Sie einen Querschnitt durch alle 
wichtigen Funktions- und Anwendungsbereiche des Com¬ 
modore 128. Sie werden mit dem C64/C128-Modus und 
der Benutzung von CP/M 3.0 vertraut gemacht, erfahren 
alles über die Grafik- und Soundmöglichkeiten des C128, 
lernen die Techniken der Speicherverwaltung und das Ban¬ 
king kennen und werden in die Programmierung mit Assem¬ 
blersprache sowie die Grafikprogrammierung des 
80-Zeichen-Bildschirms eingeführt. Ein umfassendes 
Handbuch, das Sie immer griffbereit haben sollten! 
Best.-Nr. MT 809, ISBN 3-89090-195-9 
(sFr. 47,80/ÖS 405,60) DM 52,- 

BASIC 7.0 auf dem Commodore 128 

Juli 1985, 239 Seiten 

Ganz gleich, ob Sie bereits über Programmierkenntnisse 
verfügen oder nicht, dieses Buch wird Ihnen helfen, den 
größtmöglichen Nutzen aus dem leistungsstarken BASIC 
7.0 des Commodore 128PC zu ziehen. Sie eignen sich bei 
der Durcharbeitung dieses Buches alle notwendigen Kennt¬ 
nisse an, um immer anspruchsvollere Aufgabenstellungen 
zu bewältigen: Listenverarbeitung, indexsequentielle Datei¬ 
verwaltung, Grafikdarstellungen und Sounderzeugung. Ein 
unentbehrliches Lehrbuch, das sich auch für den geübten 
Anwender als Nachschlagewerk eignet. 

Best.-Nr. MT 808, ISBN 3-89090-170-0 

(SFr. 47,80/ÖS 405,60) DM52,— 

Wordstar 3.0 mit MailMerge 
für den Commodore 128 PC 

November 1985, 435 Seiten 

Wordstar ist ein umfangreiches und leistungsfähiges Text¬ 
verarbeitungsprogramm und damit sicherlich zu Recht das 
meistverkaufte Programm seiner Art. Doch bedeutet dies 
nicht unbedingt, daß es auch einfach zu bedienen ist. Hier 
setzt dieses Buch an: Es macht in vorbildlicher Weise mit 
allen Möglichkeiten von Wordstar und MailMerge vertraut 
und ist damit eine ideale Ergänzung zum Handbuch. Es ver¬ 
sammelt alle wichtigen Informationen für den effektiven Ein¬ 
satz dieser Programme auf dem Commodore 128 PC. 
Best.-Nr. MT 780, ISBN 3-89090-181-6 
(sFr. 45,10/ÖS 382,20) DM 49,- 

dBASE II für den Commodore 128 PC 

November 1985, 280 Seiten 

Das vorliegende Buch gibt nach einer kurzen Einführung in 
den Komplex »Datenbanken« eine Anleitung für den prakti¬ 
schen Umgang mit dBASE II. Schon nach Beherrschung 
weniger Befehle ist der Anwender in der Lage, Dateien zu 
erstellen, mit fnformationen zu laden und auszuwerten. 
Dabei hilft ihm ein integrierter Reportgenerator, der im Dia¬ 
log mit dem Benutzer Berichte gestaltet und in Tabellenform 
ausdruckt. 

Best.-Nr. MT 838, ISBN 3-89090-189-1 

(SFr. 45,10/ÖS 382,20) DM 49,- 


Multiplan für den Commodore 128 PC 

November 1985, 226 Seiten 

MULTIPLAN wurde ursprünglich für das 16-Bit- 
Beiriebssystem MS-DOS entwickelt. Inzwischen ist aber 
auch die in diesem Buch beschriebene CP/M-Version für 
den Commodore 128 PC auf dem Markt, die den vollen Lei- 
slungsumfang der 16-Bit-Version enthält. 

Das vorliegende Buch soll eine praktische Einführung in den 
Umgang mit MULTIPLAN auf dem Commodore 128 PC 
geben. Anhand von praxisnahen Beispielen werden alle 
Befehle und Funktionen in der Reihenfolge beschrieben, die 
der Arbeit in der Praxis entspricht. Bereits nach Abschluß 
des ersten Kapitels werden Sie in der Lage sein, eigene 
kleine MULTIPLAN-Anwendungen zu realisieren. 

Best.-Nr. MT 836, ISBN 3-89090-187-5 

(sFr. 45,10/ÖS 382,20) DM 49- 

Die Floppy 1571 

Dezember 1985, ca. 400 Seiten 

Dieses Buch soll es sowohl dem Einsteiger als auch dem 
fortgeschrittenen Programmierer ermöglichen, die vielfälti¬ 
gen Möglichkeiten dieses neuen Gerätes voll auszuschöp¬ 
fen. Sämtliche Betriebsarten und Disketlenformate werden 
ausführlich erläutert. Anhand vieler Beispiele werden Sie in 
die Daleiverwaltung mit dieser Floppy eingeführt. Der 
Benutzer lernt die zahlreichen Systembefehle kennen und 
erfährt zugleich wichtige Grundlagen für das Arbeiten mit 
dem Betriebssystem CP/M. 

Best.-Nr. MT 793, ISBN 3-89090-185-9 

(sFr. 47,80/ÖS 405,60) DM 52,- 

C 64 Fischertechnik 
Messen, Steuern, Regeln 

November 1985, ca. 200 Seiten 

Ziel dieses Buches ist es, jedem Besitzer eines Commodore 
64/VC20eine neue Welt zu erschließen: die Welt der Robo¬ 
ter, der computergesteuerten Fertigungsstraßen. Alles, was 
Sie benötigen, ist einer der beiden genannten Computer 
und der Fischertechnik Computing Baukasten mit dazuge¬ 
hörigem Interface. 

Best.-Nr. MT 844, ISBN 3-89090-194-8 

(sFr. 27,60/öS 233,20) DM 29,90 

Mini-CAD mit Hi-Eddi-Plus 

November 1985, ca. 160 Seiten inkl. Diskette 
Neben den »Standardbefehlen« zum Setzen und Löschen 
von Punkten, dem Zeichnen von Linien, Kreisen und Recht¬ 
ecken sowie dem Ausfüllen unregelmäßiger Flächen und 
dem Verschieben und Duplizieren von Bildschirmbereichen 
bietet Hi-Eddi eine Reihe von Besonderheiten, die dieses 
Programm von anderen Grafikprogrammen abhebt: bis zu 
sieben Grafikbildschirme stehen gleichzeitig zur Verfügung: 
es besteht die Möglichkeit, Text in die Grafik einzufügen, die 
Bildschirme zu verknüpfen oder in schneller Folge durchzu¬ 
schalten. 

Best.-Nr. MT 736, ISBN 3-89090-136-0 

(sFr. 44,20/öS 374,40) DM 48- 


Die angegebenen Preise sind Ladenpreise 





Weitere Fachbücher aus unserem Verlagsprogramm 


ATARI 


Das Atari-Buch, Band 1 

Juli 1984, 158 Seiten 

Die grundlegenden Programmiermöglichkeiten für Ihren 
Atari • mit einem Spiel zum Eingewöhnen • Erstellung von 
Text und Grafik • Player Missiles • BASIC-Besonderheiten • 
ausführliche Assemblerlistings im Anhang • ein Einsteiger- 
Buch, vollgepackt mit Informationen. 

Best.-Nr. MT 703, ISBN 3-89090-039-9 

(sFr. 29,50/öS 249,60) DM 32- 

Best.-Nr. MT 783 (Beispiele auf Diskette) 

(sFr. 38—/öS 342,—) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 


Das Atari-Buch, Band 2 

Oktober 1984,197 Seiten 

Spezielle Programmiermöglichkeiten und Maschinenpro¬ 
gramme • BASIC-Kenntnisse und das Studium des Hand¬ 
buchs (Das Atari-Buch, Bd. 1) werden vorausgesetzt • für 
alle, die die hervorragenden Grafik- und Soundeigenschaf¬ 
ten des Atari ausnutzen wollen! 

Best.-Nr. MT 704, ISBN 3-89090-072-0 

(sFr. 29,50/öS 249,60) DM 32- 

Best.-Nr. MT 775 (Beispiele auf Diskette) 

(sFr. 38,— lös 342,—) DM 38,-* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 


Mein Atari-Computer 

1983, ca. 400 Seiten 

Alles über Aufbau und Bedienung des Atari-Computers ■ 
Programmieren in BASIC - Grafikfunktionen • Tonerzeugung 
• abgeleitete trigonometrische Funktionen • Tabellen zur 
Zahlenumwandlung • das Standardwerk für Anfänger. 

Best.-Nr. PW 554, ISBN 3-921803-18-7 

(SFr. 54,30/ÖS 460,20) DM 59,— 


Sprühende Ideen mit Atari-Grafik 

Januar 1985, ca. 250 Selten 

Eine Einführung in die Grafikmöglichkeiten des Atari • die 
Gestaltgesetze von Objekten, Farbgebung, Bildschirment¬ 
würfe • BASIC-Kenntnisse erforderlich. 

Best.-Nr. PW 716, ISBN 3-921803-39-X 

(sFr. 45,10/ÖS 382,20) DM 49- 


Computer für Kinder - Ausgabe ATARI 

Februar 1985, 114 Seiten 

Ein BASIC-Programmierbuch ausdrücklich für Kinder 
geschrieben • mit einem besonderen Abschnitt für Lehrer 
und Eltern. 

Best.-Nr. PW 728, ISBN 3-921803-43-8 

(sFr. 27,50/öS 232,40) DM 29,80 


Lerne BASIC auf dem Atari 

November 1984, 321 Seiten 

Dieses Buch führt sowohl Kinder als auch Erwachsene in die 
Grundlagen des Atari-BASIC ein • Action-Spiele • Brett¬ 
spiele ■ Wortspiele • Hinweise • Erklärungen • Übungen • 
amüsant und leicht verständlich präsentiert ■ zum Selbst¬ 
studium geeignet. 

Best.-Nr. MT 692, ISBN 3-89090-007-0 

(sFr. 35,-/öS 296,40) DM 38,— 


SCHIiEiDER-FÄÜILIE 


Der CPC 464 für Ein- und Umsteiger 

Februar 1985, 260 Seilen 

Eine praxisorientierte Spiel- und Arbeitshilfe lürden Schnei¬ 
der CPC 464 • BASIC • Grafik ■ Sound ■ Tastaturanwen¬ 
dung ■ Kassetlenrecordereinsalz • alle Befehle kompakt 
und systematisch dargestellt • modular aufgebaute Bei¬ 
spielprogramme auch zur Textverarbeitung und Datenver¬ 
waltung • der ideale Grundstock für Ihre CPC 
464-Programmbibliothek! 

Best.-Nr. MT 801, ISBN 3-89090-090-9 

(SFr. 42,30/ÖS 358,80) DM 46,- 


CPC 464 - Programmieren in Maschinensprache 

Juli 1985, 276 Seiten 

Vom Speicheraufbau bis hin zum Z80-Befehlssatz wird der 
forlgeschrittene BASIC-Programmierer in das Innenleben 
seines Schneider-Computers eingeweiht. Wichtige ROM- 
Routinen und ausgewählte Werkzeuge wie Disassembler 
und Monitor werden als nützliche Utilities für die eigene Pro¬ 
grammerstellung mitgeliefert. Alle Beispiele auf Kassette 
erhältlich. 

Best.-Nr. MT 829, ISBN 3-89090-166-2 
(sFr. 42,30/öS 358,80) DM 46,— 

Best.-Nr. MT 833 (Kassette) DM 19,90* 

(sFr. 19,90/öS 179,10) 

* inkl. MwSt. Unverbindliche Preisempfehlung 


ROM-Listing CPC 464/664/6128 

November 1985, ca. 450 Seiten 

Ausführliche Hardware-Beschreibung: Prozessor ZBOA, 
Videocontroller 6845 CRTC, Gate Array 20 RA 043, Sound 
Generator AY-3-8g12, I/C-Baustein 8255 PIO, Expansion- 
Port. Die ROMs: Speicheraufteilung. Interrupt-Verwaltung, 
Datenformate, Erweiterungs- und Änderungsmöglichkeiten. 
Das ROM-Lisling: Betriebssystem, BASIC-Interpreter. 
Best.-Nr. MT 711, ISBN 3-89090134-4 
(sFr. 58,90/öS 499,20) DM 64,— 

Die angegebenen Preise sind Ladenpreise 





Weitere Fachbücher aus unserem Verlagsprogramm 


Wordstar 3.0 mit MailMerge für den Schneider CPC 

September 1985, 435 Seiten 

Wordstar ist ein umfangreiches und leistungsfähiges Text¬ 
verarbeitungsprogramm und damit sicherlich zu Recht das 
. meistverkaufte Programm seiner Art. Doch bedeutet dies 
nicht unbedingt, daß es auch einfach zu bedienen ist. Hier 
setzt dieses Buch an: Es macht in vorbildlicher Weise mit 
allen Möglichkeiten von Wordstar und MailMerge vertraut 
und ist damit eine ideale Ergänzung zum Handbuch. Es ver¬ 
sammelt alle Informationen für den effektiven Einsatz dieser 
Programme auf dem Schneider CPC. 

Best.-Nr. MT 779, ISBN 3-89090-180-8 

(sFr.45,10/ÖS 382,20) DM 49- 


Schneider CPC Grafik-Programmierung 

November 1985, ca. 200 Selten 

Dieses Buch wendet sich an die Schneider CPC-Besitzer, 
die alles über die Grafikfähigkeiten ihres Computers wissen 
wollen. Es bietet einen umfassenden Überblick über die ver¬ 
schiedenen Anwendungsbereiche der Grafikprogrammie¬ 
rung: zwei- und dreidimensionale Diagrammdarstellungen, 
Definition und Bewegung von Sprites. Entwurf von Titelgrafi¬ 
ken oder den Einsatz der Grafik bei der Unterstützung ande¬ 
rer Programme. 

Best.-Nr. MT 782, ISBN 3-89090-182-4 

(sFr.42, 30/ÖS 358,80) DM 46- 


dBASE II für den Schneider CPC 

September 1985, 280 Seiten 

Das vorliegende Buch gibt nach einer kurzen Einführung in 
den Komplex »Datenbanken« eine Anleitung für den prakti¬ 
schen Umgang mit dBASE II. Schon nach Beherrschung 
weniger Befehle ist der Anwender in der Lage. Dateien zu 
erstellen, mit Informationen zu laden und auszuwerten. 
Dabei hilft ihm ein integrierter Reportgenerator, der im Dia¬ 
log mit dem Benutzer Berichte gestaltet und in Tabellenform 
ausdruckt. Im Unterschied zu dem schon früher erschiene¬ 
nen Buch »Das Datenbanksystem dBASE U« (MT 740) geht 
dieses speziell auf die dBASE-Version für die.Schneider- 
CPC-Computer mii dem Betriebssystem CP/M ein. 
Best.-Nr. MT 837, ISBN 3-89090-188-3 

(sFr.45,10/öS 382,20) DM 49,- 


CPC BASIC-Kurs 

November 1985, ca. 250 Seiten 

Dieses Buch soll den Einstieg in die Bedienung und Pro¬ 
grammierung der Schneider-Familie (464, 664, 6128) 
erleichtern und richtet sich daher an alle Anwender, für die 
das Gebiet »Computer« noch Neuland ist. Ein Buch, das für 
jeden Schneider CPC-Besitzer interessant ist. 

Best.-Nr. MT 828, ISBN 3-89090-167-0 

<sFr. 42,30/ÖS 358,88) DM 46- 


MULTIPLAN für den Schneider CPC 

September 1985, 226 Seilen 

Das vorliegende Buch solleine praktische Einführung in den 
Umgang mit MULTIPLAN auf dem Schneider CPC geben. 
Anhand von praxisnahen Beispielen werden alle Befehle 
und Funktionen in der Reihenfolge bechrieben, die der 
Arbeit in der Praxis entspricht. Bereits nach Abschluß des 
ersten Kapitels werden Sie in der Lage sein, eigene kleine 
MULTiPLAN -Anwendungen zu realisieren. Ein Merkmal von 
MULTIPLAN ist, daß Kalkulationen schnell und einfach 
erstellt werden können. 

Best.-Nr. MT 835, ISBN 3-89090-186-7 

(sFr.45,10/öS 382,20) DM 49,- 


SIWCLÄIR 


ZX-Spectrum Hardware 

Januar 1985, 147 Selten 

Dieses Buch vermittelt Ihnen ein fundiertes Basiswissen 
über Aufbau und Entwicklung eigener Hardware • Ausführli¬ 
che Beschreibung der einzelnen ICs mit Abbildungen und 
2-System-Schaltplänen • Anschluß einer PIO-Ansteuerung 
vonDezimalanzeigen • Leuchtdioden • Relais • DIL-Schaiter - 
Eine akkugepufferte Hardwareuhr mit vierstelliger Anzeige ■ 
Soundgenerator mit drei Kanälen. 

Best.-Nr. MT 737, ISBN 3-89090-092-5 

(sFr. 27,50/öS 232,40) DM 29,80 



21 LISTige Programme für den TI-99/4A 

November 1984, 224 Seilen 

Umfangreiche Spiele aller Art für den TI-99/4A - nützliche 
Utilities • Adressenverwaltung • Vokabel-Programm • für 
manche Programme ist das Extended-BASIC-Modul, die 
Speichererweiterung (32 K), ein Disketten-Laufwerk oder 
Joysticks erforderlich! 

Best.-Nr. MT 754, ISBN 3-89090-065-8 

(sFr. 23,—/öS 193,40) DM 24,80 


BASIC-Grundkurs mit dem Commodore 64 

März 1985, 377 Seiten 

Ein praxisorientierter Leitfaden für die Programmierung in 
BASIC • die Besonderheiten des Commodore-BASIC • 
umfangreiche Betehlsübersicht ■ Einführung in die aktuelle 
Thematik der Datenkommunikation: BIx oder MailBox • das 
ideale Buch für Jungprogrammierer, die ihre Anfangs- 
schwierigkeiten überwinden wollen! 

Best.-Nr. MT 633, ISBN 3-89090-045-3 

(sFr.40,50/öS 343,20) DM 44,— 

Die angegebenen Preise sind Ladenpreise 





Weitere Fachbücher aus unserem Verlagsprogramm 


Oas Commodore 64-L0G0-Arbeitsbuch 

September 1984, 225 Seiten 

Kinder lernen auf dem Commodore 64 mit der Schildkröte 
als Lehren Bilder malen • Grafikeffekte erzeugen • Wörter 
verarbeiten • Prozeduren und Variablen ■ Umgang mit 
Begriffen wie: Längenmaß, Winkel, Dreieck, Quadrat, 
Best.-Nr. MT 720, ISBN 3-89090-063-1 
{sFr. 31,30/58 265,20) DM 34- 


BAS1C für Einsfeiger 

Juni 1984, 239 Seiten 

Ein Arbeitsbuch für den absoluten Anfänger • BASIC- 
Anweisungen Schritt für Schritt erklärt und anhand von ein¬ 
fachen Beispielen erläutert ■ das beliebte Arbeitsmittel für 
Lehrkräfte und für den interessierten Computerfan. 
Best.-Nr. MT 680, ISBN 3-89090-024-0 
(sFr. 29,50/öS 249,60) DM 32,- 


MSX BASIC 

April 1985, 236 Seiten 

Alles über den neuen Heimcomputerstandard MSX: zusätz¬ 
lich zum »normalen« BASIC können mit insgesamt mehr als 
150 Befehlen und Funktionen Grafiken erstellt. Töne 
erzeugt, Melodien komponiert und ganze Spielhandlungen 
programmiert werden ■ 32 Sprites garantieren abwechs¬ 
lungsreiche Action-Spiele ■ die Hardware des MSX- 
Systems • nützliche Hinweise zur Dateibehandlung ■ das 
MSX-BASIC anhand der Entwicklung eines Spielszenarios 
mühelos lernen ■ drei vollständige Spiele: Der eisige Planet, 
Autorennen und Bilder entwerfen • mit ausführlicher 
Befehlsübersicht ■ für Anfänger! 

Best.-Nr. MT 805, ISBN 3-89090-107-7 

(sFr. 40,50/öS 343,20) DM 44- 

Best.-Nr. MT 825 (Beispiele auf Kassette) 

(sFr. 19,80/öS 178,20) DM 19,80’ 

* inkl. MwSt. Unverbindliche Preisempfehlung. 


ALLGEMEININTERESSE 

Microcomputer-Grundwissen 

1978, 304 Seiten 

Eine allgemeinverständliche Einführung in die Mikrocompu¬ 
ter-Technik ■ optimal als Einstieg für Elektronik-Laien, 
Best.-Nr. PW 156, ISBN 3-921803-02-0 
(sFr. 33,10/öS 280,80) DM 36,- 


Im Land der Abenteuer 

.Juni 1984, 146 Seilen 

Verzweifelt? Steckengeblieben? Keine Ahnung, wie's mit 
Ihrem Lieblings-Adventure weitergeht? Keine Panik! - Die 
Rettung naht! Hier finden Sie die Lösung für 14 Top-Hits auf 
dem Adventure-Sektor, darunter auch die komplette Lösung 
zu »Time Zone«! 

Best.-Nr. MT 699, ISBN 3-89090-021-6 

(sFr. 25,90/öS 218,40) DM 29,80 


Lexikon der modernen Elektronik 

2. überarbeitete und erweiterte Auflage 
Februar 1985, 340 Seiten 

3000 Fachbegriffe aus der allgemeinen Elektronik ■ Mikro¬ 
elektronik ■ Mikro-Computer-Technik und Software ■ aus 
dem Englischen übersetzt und ausführlich erklärt ■ das ide¬ 
ale Nachschlagewerk für Beruf, Ausbildung und Hobby. 

Best.-Nr. MT 752, ISBN 3-89090-080-1 

(sFr. 47,80/ÖS 405,60) DM 52,- 


Btx professionell eingesetzt 

August 1984, 287 Seiten 

Alles überden effizienten Einsatz von Bildschirmtext - völlig 
neue Möglichkeiten in Marketing und Werbung, bei Dienst¬ 
leistungen, bei der Informationsdistribution und Schulung - 
Btx professionell angewandt erhöht die Produktivität und 
Kommunikationsqualität, senkt Kosten und steigert den 
Gewinn • für Computer-Profis, 

Best.-Nr. MT 530, ISBN 3-922120-52-0 

(sFr. 62,60 /öS 530,40) DM 68- 


L0G0: Grafik, Sprache, Mathematik 

1984, 257 Seiten 

Eine Einführung in LOGO als Lehr- und Lernsprache unter 
besonderer Berücksichtigung des Apple-LOGO - Grafikpro¬ 
zeduren • Zeichenkettenmanipulationen - Probleme der 
Rekursivität - Sprachbildung und Sprachforschung - Grund¬ 
lagen der Arithmetik • mit umfassendem Glossar. 

Best.-Nr. MT 648, ISBN 3-922120-60-1 

(sFr. 38,60/öS 327,60) DM 42,— 


Drucker-Handbuch 

Januar 1985, 188 Seiten 

Richtig kaufen — problemlosanschließen —optimal nutzen! 
Ein informativer Leitfaden für alle, die vor dem Kauf eines 
Druckers stehen - Arbeitsweise der verschiedenen 
Druckertypen ■ Druckeranschluß an verschiedene Rech¬ 
nertypen/Schnittstellen - Druckerzubehör ■ geeignet auch 
als Nachschlagewerk! 

Best.-Nr. MT 742, ISBN 3-89090-077-1 

(sFr. 35,—/öS 296,40) DM 38,- 





